if someone could please convert this for me or know of a tcl that can search for CAL steam id's i would appreciate it. thanks.
Code: Select all
;; 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.com
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*
}
