on $*:text:/^[!@.](p|THusers|UsersTzHaar)/Si:#:{
  sockclose Tzhaar
  set %Tzhaar.Display $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen Tzhaar www.tzhaar.nl 80
} 
ON *:SOCKOPEN:Tzhaar:{
  sockwrite -nt $sockname GET /forum/index.php HTTP/1.1
  sockwrite -nt $sockname Host: www.tzhaar.nl
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Tzhaar:{
  if ($sockerr) {
    echo -a Error.
    sockclose $sockname
    halt
  }
  else {
    var %tzhaar.Read
    sockread %Tzhaar.Read
    if (Er zijn in totaal isin %Tzhaar.Read) {
      tokenize 32 $htmlfree(%Tzhaar.Read)
      %Tzhaar.display Er zijn in totaal op het tzhaar.nl forum $5 bezoekers!
      sockclose $sockname
    }
  }
}
alias -l htmlfree {
var %x
var %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
var %x = $remove(%x,&nbsp;)
return %x
}