Code:

   foreach {name value} $state(meta) {       if {[regexp -nocase ^location$ $name]} {          set newurl [string trim $value]          regsub -all "btnI=&" $url "" url          if {[regexp {imgres} $newurl]} { set newurl "http://[string range $newurl [expr [string first = $newurl]+1] [expr [string first & $newurl]-1]]" }          return "$newurl More: $url$query"       }    } 

Code:

#google.tcl v0.31 - Using the "I'm feeling lucky" button this script returns the best result based on the string you input. Also can return image and regional results. This script is future proof. (Default public commands are !google, !image and !googleuk).#based on scripts by aNa|0Gueset google(ver) "0.31"#Simulate a browser, ie: Mozillaset google(agent) "MSIE 6.0"#google search triggerset google(g_cmd) "!google"#google uk search triggerset google(guk_cmd) "!googleuk"#google image search triggerset google(gi_cmd) "!image"#google prefixset google(prefix) "* Google:"package require httpbind pub - $google(g_cmd) pub:googlebind pub - $google(guk_cmd) pub:googleukbind pub - $google(gi_cmd) pub:imageproc google:go { url arg } {global googleregsub -all " " $arg "+" queryset lookup "$url$query"  set token [http::config -useragent $google(agent)]set token [http::geturl $lookup]puts stderr ""upvar #0 $token stateset max 0foreach {name value} $state(meta) {if {[regexp -nocase ^location$ $name]} {set newurl [string trim $value]regsub -all "btnI=&" $url "" urlif {[regexp {imgres} $newurl]} { set newurl "http://[string range $newurl [expr [string first = $newurl]+1] [expr [string first & $newurl]-1]]" }return "$newurl More: $url$query"}}}proc pub:google { nick uhost handle channel arg } {global googleif {[llength $arg]==0} { putserv "NOTICE $nick :Usage: $google(g_cmd) <string>" }set url "http://www.google.com/search?btnI=&q="set output [google:go $url $arg]putserv "PRIVMSG $channel :$nick, $google(prefix) $output"}proc pub:googleuk { nick uhost handle channel arg } {global googleset arg "$arg&meta=cr%3DcountryUK%7CcountryGB"if {[llength $arg]==0} { putserv "NOTICE $nick :Usage: $google(guk_cmd) <string>" }set url "http://www.google.co.uk/search?btnI=&q="set output [google:go $url $arg]putserv "PRIVMSG $channel :$nick, $google(prefix) $output"}proc pub:image { nick uhost handle channel arg } {global googleif {[llength $arg]==0} { putserv "NOTICE $nick :Usage: $google(gi_cmd) <string>" }set url "http://images.google.com/images?btnI=&q="set output [google:go $url $arg]putserv "PRIVMSG $channel :$nick, $google(prefix) $output"}putlog "google.tcl $google(ver) loaded"

Code:

<Sanzen> !google testing<fubar> Sanzen, * Google: http://www.google.fr/search?btnI=&q=testing&gws_rd=cr&ei=CqbJVOKIAsTharqygfgF More: http://www.google.com/search?q=testing<Sanzen> !google Eggdrop<fubar> Sanzen, * Google: http://www.google.fr/search?btnI=&q=Eggdrop&gws_rd=cr&ei=EKbJVIfKENfuaJbQgsgE More: http://www.google.com/search?q=Eggdrop<Sanzen> !google OnePieceBay<fubar> Sanzen, * Google: http://www.google.fr/search?btnI=&q=OnePieceBay&gws_rd=cr&ei=HKbJVPfwNJPraOqdgdAE More: http://www.google.com/search?q=OnePieceBay<Sanzen> !google abs<fubar> Sanzen, * Google: http://www.google.fr/search?btnI=&q=abs&gws_rd=cr&ei=VJjJVOGjMcz4UP6lgNAG More: http://www.google.com/search?q=abs