Steam ID Script - 31/01/07 03:28 PM
ok basically steam id is ur id number for steam its a game server engine... and when competing online alot of players like to view their steam id by using the @steamid command and it retrieves the id from a site. this is the script ive come across on the site
now this is what it looks like in mIRC:
Command: @steamid 0:1:6934973
[ · AliasSearch: Boyle Team: FORGET THEM (0-1) Channel: #F.T.W Game: cs League: cal-o Name: Richard Boyle SteamID: 0:1:6934973 · ]
but u can search by id, alias,or irc channel. but when i search sometimes i get the alias as:
Command: @steamid #zero-ping
[ · SteamID: 0:1:6453452 Alias: /player_alias Team: ZeroPing (2-0) Channel: #zero-ping League: CAL-IM · ]
any suggestions on how to fix this? ive used it b4 and have never had this problem i havent tried to edit the script at all either.
Code:
alias 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 event on *: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 event on *: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 event on *: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* }
now this is what it looks like in mIRC:
Command: @steamid 0:1:6934973
[ · AliasSearch: Boyle Team: FORGET THEM (0-1) Channel: #F.T.W Game: cs League: cal-o Name: Richard Boyle SteamID: 0:1:6934973 · ]
but u can search by id, alias,or irc channel. but when i search sometimes i get the alias as:
Command: @steamid #zero-ping
[ · SteamID: 0:1:6453452 Alias: /player_alias Team: ZeroPing (2-0) Channel: #zero-ping League: CAL-IM · ]
any suggestions on how to fix this? ive used it b4 and have never had this problem i havent tried to edit the script at all either.