Untitled

on *:TEXT:!google *:*: { 
  ;COLOR SETTING:
  set %col 11

  inc %ID 1
  set $+(%,search.,%ID) $replace($2-,$chr(32),+) $iif($chan,$iif($left($1,1) == !,notice $nick,msg $chan),msg $nick)
  sockopen $+(google.,%ID) www.google.com 80
}
on *:SOCKOPEN:google.*: {
  sockwrite -nt $sockname GET /search?hl=en&q= $+ $gettok($($+(%,search.,%ID),2),1,32) $+ &btnI HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com
  sockwrite -t $sockname $str($crlf,2)
}
on *:SOCKREAD:google.*: {
  var %IDt = $right($sockname,-7)
  var %target = $gettok($($+(%,search.,%IDt),2),2-,32)
  if ($sockerr) {
    %target $chr(91) $col(ERROR) $chr(93) 13Socket error
    unset %search. $+ $right($sockname,-7)
    sockclose $sockname
  }
  else {
    var %read | sockread %read
    if (Location:* iswm %read) {
      %target $chr(91) $col(GOOGLE) $chr(93) 13 $remove($htmlfree(%read),Location:)
      unset %search. $+ $right($sockname,-7)
      sockclose $sockname
    }
    if (*did not match any documents* iswm %read) {
      %target $chr(91) $col(GOOGLE) $chr(93) 13No results found
      unset %search. $+ $right($sockname,-7)
      sockclose $sockname
    }
  }
  /close -m $nick
}
alias -l col { return $+($chr(3),$iif($len(%col) == 2,%col,$+(0,%col)), $1-, $chr(3)) }
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}