alias google.search {
var %search $replace($1-,$chr(32),+)
sockopen google google.com 80
sockmark google /search?hl=en&ie=UTF-8&oe=UTF-8&q= $+ %search
}
on 1:SOCKOPEN:GOOGLE:{
sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname $crlf
}
on 1:SOCKREAD:GOOGLE:{
if ($sockerr > 0) { return }
sockread %s
if (*www* iswm %s) && (*google* !iswm %s) {
amsg $remove($wildtok(%s,*www*,1-,32),href=",</a>,<font,font>,<font>,<pre>,<body>,href=,color=#008000>,<,>)
}
}
on *:TEXT:!google*:#:{
$google.search($2-)
}
that should remove bit more of the html
