mIRC News Grabber

// change example.com and news.txt
// the scripts gets the news from: example.com/news.txt

on *:CONNECT:/news
alias ccc {
  window -dok0ah @newz 1 300 400 100
  font @newz 12 Tahoma
  if (!$line(@newz,0)) {
    echo @newz %newzz
  }
}
alias news { set %news 1 | sockopen news example.com 80 }
on *:sockopen:news: {
  if ($sockerr > 0) { echo -a Error! }
  else {
    sockwrite -n $sockname GET /news.txt HTTP/1.1
    sockwrite -n $sockname Host: example.com $+ $crlf $+ $crlf
  }
}
on *:sockread:news: {
  sockread %temp
  if (%temp == $null) { halt }
  if (News !isin %temp) { halt }
  if (%news == 1) {
    inc %news | set %newzz %Temp | ccc | unset %news | halt
  }
  else /halt
}