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,&nbsp;)
  return %x
}