Code:

# Maximum Number of Resultsset maxresults 3# setting up the way our output looksset start ""set end ""set delim ":"# Binds!# bind pub - .find gametiger_query### The following function is used to query the gametiger database in order to # search for online players or servers, also forwards steamid requests to the steamid function## set game "cstrike" o "all" proc gametiger_query { nick host hand chan text } {global start end delim maxresultsset buffer ""set sname ""set result "results"set type ""set game "all"set results 0set valid 1set first [expr {[string first " " $text]} + 1]set query [string range "$text" $first end]switch -glob $text {"player *" {set type "player"set stype "player"set iname 2set ihost 6set iip 12set imap 18set icurrmax 22}"server *" {set type "server"set stype "server"set ihost 3set iip 9set imap 15set icurrmax 19}"map *" {set type "map"set stype "map"set ihost 3set iip 9set imap 15set icurrmax 19}"steamid*" { steam_query $nick $host $hand $chan $query }default {set valid 0puthelp "NOTICE $nick :Usage: .find <server|map|player> <hostname|mapname|playername>" }}if { $valid == 1 && ![string equal $query ""] } {regsub -all " " $query "+" queryset host "www.gametiger.net"set url "/search?$type=$query&game=$game"set FD [socket $host 80]# setup single line bufferingfconfigure $FD -buffering line -buffersize 1024# yay HTTP/1.1 standards!puts $FD "GET $url HTTP/1.1"puts $FD "Host: $host"puts $FD "Connection: close"puts $FD ""while { ![eof $FD] && ![string equal $buffer "<!-- cstiger results -->"] } { gets $FD buffer }gets $FD buffergets $FD bufferwhile { ![eof $FD] && $results < $maxresults && ![string equal "</table>" $buffer] && ![string match "*no such $type online*" $buffer] } {regsub -all ">" $buffer "\t" bufferregsub -all "</" $buffer "\t" bufferregsub -all "<" $buffer "<" bufferregsub -all ">" $buffer ">" bufferset line [split $buffer "\t"]set hostname [lindex $line $ihost]set ip [lindex $line $iip]set map [lindex $line $imap]set currmax [lindex $line $icurrmax]if { [string equal $type "player"] } {set name [lindex $line $iname]set sname "Name$delim $name"}set shostname "Hostname$delim $hostname"set sip "IP$delim $ip"set smap "Map$delim $map"set scurrmax "Players$delim $currmax"set outtxt "$sname  $shostname  $sip  $smap  $scurrmax"putserv "NOTICE $nick :$outtxt"incr resultsgets $FD buffer}if { $results == 1 } {set result "result"}putserv "NOTICE $nick :Search Results: (Found $results (of a maximum $maxresults $sytpe $result)putserv "NOTICE $nick :Powered by $host."close $FD} }putlog "game-server-query written/modified by brian -blaze947- kelly"