alias wnews { if ($sock(wnews)) sockclose wnews | sockopen wnews news.walla.co.il 80 | unset %lnews | unset %tnews }
on *:SOCKOPEN:wnews:{
  var %a = sockwrite -tn wnews
  %a GET / HTTP/1.1
  %a Host: news.walla.co.il
  %a Connection: keep-alive
  %a Accept: */*
  %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
  %a
}
on *:SOCKREAD:wnews:{
  if (!$sockerr) {
    var %wnews | sockread %wnews
    if ($regex(%wnews,/<a class="block" href="(.+?)" ><img class="img" src="(.+?)" alt="(.+?)"/></a>/s)) { set %lnews www.news.walla.co.il $+ $regml(1) | set %tnews $regml(3) }
  }
}
on *:TEXT:*:#: {
  if (!%Fld) {
    if ($1 == !lnews) { wnews | msg %channel Last-News: %tnews Link: %lnews | set -u3 %fld on }
  }
}
on *:CONNECT:{ new }
alias new {
  wnews
  .timer 1 10 nnew
}
alias nnew {
  if (%lnews == %old) { unset %lnews | unset %tnews | halt }
  if (%lnews != %old) { msg %channel [14כתבה חדשה] 14News: %lnews $+ Link: | set %old %lnews | unset %lnews | unset %tnews | halt }
}