on $*:TEXT:/^.google\b/i:#:{
if ($2) {
var %a = 1
while ($sock(google. $+ %a) != $null) {
inc %a
}
sockopen google. $+ %a www.google.com 80
sockmark google. $+ %a $+($iif($left($1,1) == @,msg $chan,.notice $nick),$chr(160),$2-)
}
else {
$iif($left($1,1) == !,.notice $nick,msg $chan) $+([,$google,]) http://www.google.com/
}
}
on *:SOCKOPEN:google.*:{
sockwrite $sockname $+(GET /search?hl=en&q=, $regsubex($gettok($sock($sockname).mark,2,160),/(\W)/g,% $+
$base($asc(\t),10,16,2)),&btnI=I%27m+Feeling+Lucky HTTP/1.1,$crlf,Host: www.google.com,$crlf,$crlf)
}
on *:SOCKREAD:google.*:{
var %var
$event %var
if ($gettok(%var,1,32) === Location:) {
$gettok($sock($sockname).mark,1,160) $+([,$google,]) $gettok(%var,2-,32)
}
}