Code:

;; Original author: Parasite-FT-, #script (irc.gamesnet.net);; Modified to use a website which gave explicit permission to use it;; Modified again by eX|Psycho, #crisisZone (irc.gamesnet.net) for SteamID comptibility.;; Modified again by MeLt`pneumo, #pneumo (irc.gamesurge.net) for steamid.comalias urlencode { var %t, %i = 0 | while (%i < $len($1)) { inc %i | if ($regex($mid($1,%i,1),/[A-Z0-9]/i)) { %t = %t $+ $mid($1,%i,1) } | else { %t = %t $+ % $+ $base($asc($mid($1,%i,1)),10,16,2) } } | return %t };; [STEAMID] ------- Text eventon *:text:@steamid *:#: {  inc -u30 %wonflood. [ $+ [ $nick ] ]  if (%wonflood. [ $+ [ $nick ] ] > 3) return  sockclose steamid. $+ $nick  sockopen steamid. $+ $nick www.steamid.com 80  sockmark steamid. $+ $nick $2 n $+ $nick $ticks  sockmark steamid. $+ $nick $2 c $+ $chan $ticks};; [STEAMID] ------- Sockopen eventon *:sockopen:steamid.*:{  sockwrite -n $sockname GET /ircbot.php?qvalue= $+ $urlencode($gettok($sock($sockname).mark,1,32)) HTTP/1.1  sockwrite -n $sockname Host: www.steamid.com  sockwrite -n $sockname Connection: Close  sockwrite -n $sockname User-Agent: modified from ircscripting.net  sockwrite -n $sockname $crlf  set %steamid.total. [ $+ [ $sockname ] ] 0};; [STEAMID] ------- Sockread eventon *:sockread:steamid.*:{  if ($sockerr > 0) return  while ($sock($sockname)) {    sockread %temp    window -e @steamid    echo @steamid : %temp    set -l %data $gettok($gettok(%temp,2,$asc(> )),1,$asc(< ))    if ($sockbr == 0) return    if (%temp == <disabled> ) {      if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) Error, Source DB has been disabled, please contact %owner      else msg $right($gettok($sock($sockname).mark,2,32),-1) Error, Source DB has been disabled, please contact %owner    }    else if (%temp == </results> ) {      if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) %steamid.total. [ $+ [ $sockname ] ] result $+ $iif(%steamid.total. [ $+ [ $sockname ] ] != 1,s) found. [#melt]      else msg $right($gettok($sock($sockname).mark,2,32),-1) 0,1[ 0· %steamid.total. [ $+ [ $sockname ] ] result $+ $iif(%steamid.total. [ $+ [ $sockname ] ] != 1,s) found. Results from www.8Steam0ID.com 0,1 0· ]      if (%steamid.total. [ $+ [ $sockname ] ] > 4) {        if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) (only 4 results shown from: http://www.steamid.com/?qvalue= $+ %steamid.player_steamid. [ $+ [ $sockname ] ] )        else msg $right($gettok($sock($sockname).mark,2,32),-1) 0,1[ 0· (0only 8 4 0results shown from: http8://0www.8steamid0.com8/?0qvalue=8 $+ %steamid.player_steamid. [ $+ [ $sockname ] ] ) 0· ]      }      sockclose $sockname      unset %steamid.*. [ $+ [ $sockname ] ]    }    else if (%temp == <result> ) inc %steamid.total. [ $+ [ $sockname ] ]    else if (<ban_status>*</ban_status> iswm %temp) set %steamid.ban_status. [ $+ [ $sockname ] ] %data    else if (<player_id>*</player_id> iswm %temp) set %steamid.player_id. [ $+ [ $sockname ] ] %data    else if (<player_alias>*</player_alias> iswm %temp) set %steamid.player_alias. [ $+ [ $sockname ] ] %data    else if (<player_name>*</player_name> iswm %temp) set %steamid.player_name. [ $+ [ $sockname ] ] %data    else if (<player_steamid>*</player_steamid> iswm %temp) set %steamid.player_steamid. [ $+ [ $sockname ] ] %data    else if (<team_id>*</team_id> iswm %temp) set %steamid.team_id. [ $+ [ $sockname ] ] %data    else if (<team_game>*</team_game> iswm %temp) set %steamid.team_game. [ $+ [ $sockname ] ] %data    else if (<team_league>*</team_league> iswm %temp) set %steamid.team_league. [ $+ [ $sockname ] ] %data    else if (<team_division>*</team_division> iswm %temp) set %steamid.team_division. [ $+ [ $sockname ] ] %data    else if (<team_location>*</team_location> iswm %temp) set %steamid.team_location. [ $+ [ $sockname ] ] %data    else if (<team_name>*</team_name> iswm %temp) set %steamid.team_name. [ $+ [ $sockname ] ] %data    else if (<team_tag>*</team_tag> iswm %temp) set %steamid.team_tag. [ $+ [ $sockname ] ] %data    else if (<team_irc>*</team_irc> iswm %temp) set %steamid.team_irc. [ $+ [ $sockname ] ] %data    else if (<team_website>*</team_website> iswm %temp) set %steamid.team_website. [ $+ [ $sockname ] ] %data    else if (%temp == </result> ) {      if (%steamid.total. [ $+ [ $sockname ] ] < 5) {        set %steamid.return. [ $+ [ $sockname ] ] 0,1[ 0· 8S0team8ID8:0 %steamid.player_steamid. [ $+ [ $sockname ] ] 8A0lias8:0 %steamid.player_alias. [ $+ [ $sockname ] ] 8T0eam8:0 %steamid.team_name. [ $+ [ $sockname ] ] 8C0hannel8:0 %steamid.team_irc. [ $+ [ $sockname ] ] 8L0eague8:0 %steamid.team_league. [ $+ [ $sockname ] ] 0· ]        if ($left($gettok($sock($sockname).mark,2,32),1) == n) notice $right($gettok($sock($sockname).mark,2,32),-1) %steamid.return. [ $+ [ $sockname ] ]        else msg $right($gettok($sock($sockname).mark,2,32),-1) %steamid.return. [ $+ [ $sockname ] ]      }    }  }  unset %steamid*}