Remy

on $*:Text:/^[!@]Google */Si:#:{
  if (!$2) { 
    .notice $nick No Search Target Entered
  }
  else {  
    inc %_google 1
    set $+(%,google.target,%_google) $iif($left($1,1) == @,msg $chan,notice $nick) 
    set $+(%,google.search,%_google) $replace($2-,$chr(32),+) 
    sockopen $+(google.,%_google) www.google.com 80 
  }
}

on *:SOCKOPEN:google.*:{ 
  var %_google.id = $right($sockname,-7) 
  sockwrite -n $sockname GET /search?hl=en&ie=UTF-8&oe=UTF-8&q= $+ $eval($+(%,google.search,%_google.id),2) $+ &btnI=I%27m+Feeling+Lucky HTTP/1.0
  sockwrite -n $sockname Host: www.google.com $+ $crlf $+ $crlf
}

on *:SOCKREAD:google.*:{
  var %_google.id = $right($sockname,-7)  
  if ($sockerr) {
    $eval($+(%,google.target,%_google.id),2) A socket error has occured. 
    googlecleanup %_google.id
  }  
  else {
    var %google.read
    sockread %google.read
    if (!$sockbr) { 
      $eval($+(%,google.target,%_google.id),2) $+(,[,12G4o8o12g9l4e,,],:,) No Results Found. 
      googlecleanup %_google.id 
      sockclose $sockname
    } 
    elseif (Location: isin %google.read) {
      $eval($+(%,google.target,%_google.id),2) $+(,[,12G4o8o12g9l4e,,],:,) $right(%google.read,-10)
      googlecleanup %_google.id 
      sockclose $sockname
    }
    elseif (did not match any documents isin %google.read) { 
      $eval($+(%,google.target,%_google.id),2) $+(,[,12G4o8o12g9l4e,,],:,) No Results Found.
      googlecleanup %_google.id  
      sockclose $sockname
    }
  }
}

alias -l googlecleanup {
  unset $+(%,google.*,$1) 
}