Code:

# autocomplete v.0.1# usage: !autocomplete <phrase>set AutoCompleteVer 0.1package require httpsetudef flag autocompletenamespace eval autocomplete {    bind pub - !autocomplete ::autocomplete::do_autocomplete    bind pub - !ac ::autocomplete::do_autocomplete    proc do_autocomplete {nick uhost handle channel arg {re 0}} {        if {[lsearch -exact [channel info $channel] "+autocomplete"] != -1} {          set where $channel        } else {          set where $nick        }            # set up http         set baseurl "http://www.google.com/complete/search?hl=en&q="        regsub -all " " $arg "%20" foo        set query $baseurl        append query $foo        set ua "Lynx/2.8.5rel.1 libwww-FM/2.14 SSL-MM/1.4.1 OpenSSL/0.9.7e"        set http [::http::config -useragent $ua -urlencoding "utf-8"]        # stole this bit from rosc2112 on egghelp forums        # borrowed is a better term, all procs eventually need this error handler.        catch {set http [::http::geturl "$query" -timeout [expr 1000 * 10]]} error        if {[string match -nocase "*couldn't open socket*" $error]} {            dccbroadcast "Socket Error accessing $query"            return        }        if { [::http::status $http] == "timeout" } {            dccbroadcast "Connection has timed out..."             return        }        # CHECK CHECK        upvar #0 $http state        set html [::http::data $http]        ::http::cleanup $http        set data [split $html {[}]        set linecount 0        foreach line $data {            # skip first three lines            incr linecount            if {$linecount > 3} {               set f1 [string first {","} $line]               set f2 [string last {","} $line]               set e1 [expr $f1-1]               set s2 [expr $f1+3]               set e2 [expr $f2-1]                  set foo [string range $line 1 $e1]               set bar [string range $line $s2 $e2]               set b "\002"               set s "  - "               set out $b$foo$b$s$bar               putserv "PRIVMSG $where : $out"            }        }    }}