Stuff

on $*:TEXT:/^[@!](botnews|news) */Si:#:{ if ($int($2) isnum) {
    Set %TopicNumber.BotNews. [ $+ [ $nick ] ] $2
    Set %BNewsMethod.BotNews. [ $+ [ $nick ] ] $iif($strip($left($1,1),burc) == @, msg $Chan, Notice $nick)
    SockOpen $+(BotNews.,$nick) terrorserv.com 80
  }
}
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}


on *:SOCKOPEN:BotNews.*:{
  sockwrite -nt $sockname GET /updates.htm HTTP/1.1
  sockwrite -nt $sockname host: terrorserv.com
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:BotNews.*:{
  if ($sockerr) { %BNewsMethod. [ $+ [ $sockname ] ]
    unset %BNewsMethod. [ $+ [ $sockname ] ]
    unset %TopicNumber. [ $+ [ $sockname ] ]
    SockClose $SockName 
    halt
  }
  Var %Read 
  Var %No %TopicNumber. [ $+ [ $sockname ] ]
  Var %Msg %BNewsMethod. [ $+ [ $sockname ] ]
  unset %TopicNumber. [ $+ [ $sockname ] ]
  unset %BNewsMethod. [ $+ [ $sockname ] ]
  Sockread %Read
  if (* $+ $+([News-,%No,]) $+ * iswm %Read) { var %On }
  if (%On) { %Method $htmlfree(%Read) }
  if (*[END* iswm %Read) { unset %On | sockclose $sockname }
}