on *:TEXT:!player*:#: {
if ($1 == %c $+ player) {
set %playerurl /daoc/sig.php?name= $+ $+($replace($2-,$chr(32),+),&txt=on)
set %playerchan $chan
playerlookup
}
}
alias playerlookup {
sockopen player herald.uthgard-server.net 80
}
on *:SOCKOPEN:player: {
sockwrite -nt $sockname GET %playerurl HTTP/1.1
sockwrite -nt $sockname Accept-Language: en-us
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.2; rv:1.7.3) Gecko/20040913 Firefox/0.10.1
sockwrite -nt $sockname Host: herald.uthgard-server.net
sockwrite -nt $sockname Connection: keep-alive
sockwrite -t $sockname $str($crlf,2)
}
on *:SOCKREAD:player:{
if ($sockerr > 0) { return }
:nextread
sockread %player
if ($sockbr == 0) { return }
if (%player == [player] { set %playerget on | goto nextread }
if (%playerget) {
var %playerinfo = $gettok(%player,1,61)
var %playerdata = $gettok(%player,2,61)
if (!%playerdata) { set %playernull on }
set %player $+ %playerinfo %playerdata
}
goto nextread
}
on *:SOCKCLOSE:player:{
if (!%playernull) { .msg %playerchan %playername %playerlastname ( $+ %playerlevel $+ , %playerclass $+ ) - %playerguild - %playerrealmlevel ( $+ %playerrealmpoints $+ ) }
unset %player*
}