alias tib.s {
sockclose Tibia
sockopen Tibia www.tibia.4players.de 80
;http://tibia.4players.de/community/?subtopic=character&name=Rott
if ($1-) {
.sockmark Tibia $+(/community/?subtopic=character&name=,$1-)
}
}
on *:sockopen:Tibia:{
if ($sockerr) {
echo $color(info) -s *** Socket Error (on open) \ $sockname - $sock($sockname).ip
return
}
sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname Host: www.tibia.4players.de
sockwrite -n $sockname $crlf
}
on *:sockread:Tibia:{
if ($sockerr) {
echo $color(info) -s *** Socket Error (on read) \ $sockname - $sock($sockname).ip
return
}
sockread -fn %tmp
if (This character does not exist isin %tmp) {
echo -s This character doesnt exist
goto end
}
if (<TABLE BORDER isincs %tmp) && (%c == $null) {
echo -s $iif(%tmp == $null,$chr(160),%tmp)
set %c Null
}
:end
unset %tmp %c
halt
}