on $*:text:/^[!@.]event/Si:#: {
  if ($sock(events)) .sockclose events
  set %event $iif($left($1,1) == @, msg $chan, notice $nick)
  set %date $date(dddd) $+ s
  sockopen events www.reddragonknights.co.uk 80 
}
on *:SOCKOPEN:events: {
  sockwrite -nt $sockname GET /forums/viewtopic.php?t=250 HTTP/1.1
  sockwrite -nt $sockname Host: www.reddragonknights.co.uk
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:events: {
  if ($sockerr) { halt } 
  else {
    var %sockreader
    sockread 32 %sockreader
    if ($+(*,%date,*) iswm %sockreader) {
      tokenize 32 %sockreader
      %event $htmlfree($1-)
      unset %event
      sockclose $sockname
    }
  }
}

alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x 
}