Code:

;; Modified to use a website which gave explicit permission to use it;; [WonID] ------- Text eventon *:text:@wonid *:#script: {  if ($2 !isnum 0-100000000) return  inc -u30 %wonflood. [ $+ [ $nick ] ]  if ((%wonflood. [ $+ [ $nick ] ] > 3) || ($var(%wonflood.*,0) > 4)) return  sockclose wonid  sockopen wonid wonid.elite-pimps.com 80  ; sockmark wonid $2 n $+ $nick $ticks  sockmark wonid $2 c $+ $chan $ticks};; [WonID] ------- Sockopen eventon *:sockopen:wonid:{  sockwrite -n $sockname GET /?action=search&type=single&key=wonid&query= $+ $gettok($sock(wonid).mark,1,32) $+ &game=&league=&div=&output=xml HTTP/1.1  sockwrite -n $sockname Host: wonid.elite-pimps.com  sockwrite -n $sockname Connection: Close  sockwrite -n $sockname User-Agent: byte-at-ircscripting.net v1.20  sockwrite -n $sockname $crlf  set %wonid.ok no};; [WonID] ------- Sockread eventon *:sockread:wonid:{  if ($sockerr > 0) return  while ($sock(wonid)) {    sockread %temp    set -l %data $gettok($gettok(%temp,2,$asc(>)),1,$asc(<))    if ($sockbr == 0) return    if (%temp == <disabled>) {      if ($left($gettok($sock(wonid).mark,2,32),1) == n) notice $right($gettok($sock(wonid).mark,2,32),-1) error. source db disabled contact script author.      else msg $right($gettok($sock(wonid).mark,2,32),-1) error. source db disabled contact script author.    }    else if (%temp == </results>) && (%wonid.ok == no) {      if ($left($gettok($sock(wonid).mark,2,32),1) == n) notice $right($gettok($sock(wonid).mark,2,32),-1) Sorry, no results found.      else msg $right($gettok($sock(wonid).mark,2,32),-1) Sorry, no results found.    }    else if (%temp == </results>) {      sockclose wonid    }    else if (%temp == <result>) set %wonid.ok yes    else if (<ban_status>*</ban_status> iswm %temp) set %wonid.ban_status %data    else if (<player_id>*</player_id> iswm %temp) set %wonid.player_id %data    else if (<player_alias>*</player_alias> iswm %temp) set %wonid.player_alias %data    else if (<player_name>*</player_name> iswm %temp) set %wonid.player_name %data    else if (<player_wonid>*</player_wonid> iswm %temp) set %wonid.player_wonid %data    else if (<team_id>*</team_id> iswm %temp) set %wonid.team_id %data    else if (<team_game>*</team_game> iswm %temp) set %wonid.team_game %data    else if (<team_league>*</team_league> iswm %temp) set %wonid.team_league %data    else if (<team_division>*</team_division> iswm %temp) set %wonid.team_division %data    else if (<team_location>*</team_location> iswm %temp) set %wonid.team_location %data    else if (<team_name>*</team_name> iswm %temp) set %wonid.team_name %data    else if (<team_tag>*</team_tag> iswm %temp) set %wonid.team_tag %data    else if (<team_irc>*</team_irc> iswm %temp) set %wonid.team_irc %data    else if (<team_website>*</team_website> iswm %temp) set %wonid.team_website %data    else if (%temp == </result>) {      set %wonid.return ID: %wonid.player_wonid :: Team: %wonid.team_name :: Handle: %wonid.player_alias :: Name: %wonid.player_name :: League: %wonid.team_league $+ - $+ %wonid.team_division :: Response time: $calc(($ticks - $gettok($sock(wonid).mark,3,32)) / 1000) seconds [wonid.elite-pimps.com]      if ($left($gettok($sock(wonid).mark,2,32),1) == n) notice $right($gettok($sock(wonid).mark,2,32),-1) %wonid.return      else msg $right($gettok($sock(wonid).mark,2,32),-1) %wonid.return      unset %wonid.*    }  }}