alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}
on *:sockopen:idlelevel:{
sockwrite -n $sockname GET /~idlerpg/playerview.php?player= $+ %statnick HTTP/1.1
sockwrite -n $sockname Host: wrathirc.cjb.net $+ $crlf $+ $crlf
}
on *:sockread:idlelevel:{
if ($sockerr) {
echo -a Error.
halt
}
else {
var %temptext
sockread %temptext
%temptext = $htmlfree(%temptext)
if (Class: * iswm %temptext) {
set %class %temptext
}
if (Alignment: * iswm %temptext) {
set %alignment %temptext
}
if (Level: * iswm %temptext) {
set %level %temptext
}
}
}
on *:text:!level*:#: {
set %statnick $2-
sockopen idlelevel wrathirc.cjb.net 80
sockclose idlelevel
notice $nick 14[2 $+ %statnick $+ 14] %class | %alignment | %level
unset %statnick
}