on *:TEXT:!forumstats:#:{
set %nick $nick
set %chan $chan
sockopen forumstats z6.invisonfree.com 80
}
on *:sockopen:forumstats:{
sockwrite -n $sockname GET /TheImmortals/index.php?act=idx HTTP/1.1
sockwrite -n $sockname Host: z6.invisonfree.com $+ $crlf $+ $crlf
}
on *:sockread:forumstats:{
if ($sockerr) {
echo -a Error.
halt
}
else {
var %forumstats
sockread %forumstats
if (*Our members have made a total of <b>*</b> posts<br />We have <b>*</b> registered members<br />The newest member is <b><a href='http://z6.invisionfree.com/TheImmortals/index.php?showuser=18'>*</a></b><br />Most users ever online was <b>*</b> on <b>*</b></td> iswm %forumstats) {
var %stripped = $nohtml(%forumstats)
msg %chan %forumstats
sockclose $sockname
halt
}
}
}
alias -l nohtml {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x, )
return %x
}