alias mezeg { set %mezeg $1 | sockopen mezeg weather.walla.co.il 80 | .timer 1 3 sockclose mezeg | .timer 1 2 check }
on *:SOCKOPEN:mezeg:{
  if ($sockerr == 0) {
    var %a = sockwrite -tn mezeg
    %a GET / HTTP/1.1
    %a Host: weather.walla.co.il
    %a Connection: keep-alive
    %a Accept: */*
    %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
    %a
  }
}
on *:SOCKREAD:mezeg:{
  if (!$sockerr) {
    var %var
    sockread %var
    if (%mezeg isin %var) && (<tr><td style="padding:4px 4px 4px 4p isin %var) {
      msg $active %mezeg $+ : $remove($gettok(%var,11,$asc(>)),&deg;</span) עד $remove($gettok(%var,7,$asc(>)),&deg;</span) מעלות
      unset %mezeg
    }
  }
}
alias check { 
  if (%mezeg) { msg $active העיר לא נמצאה }
}



alias walla {
  if ($active ischan) { 
    sockclose walla
    sockopen walla news.walla.co.il 80
  }
}
on *:sockopen:walla:{
  var %a = sockwrite -n $sockname
  %a GET / HTTP/1.1
  %a Host: news.walla.co.il
  %a Keep-Alive: 300
  %a Connection: keep-alive
  %a 
}
on *:sockread:walla:{
  var %data
  sockread %data
  while $sockbr {
    if %walla {
      noop $regex(%data,/<span class=w1>(.+?)<\/span>/)
      var %time = $regml(1)
      noop $regex(%data,/<span><a href="(.+?)" .+?>(.+?)<\/a>/)
      var %link = http://news.walla.co.il/ $+ $regml(1)
      if $regml(2) != %news {
        set %news $regml(2)
        msg $active 14[2Walla News14]14 5 $+ %time $+ 14 1- 12www.new.walla.co.il
        msg $active 14[2Subject14]1 %news
        msg $active 14[2Link14]1 %Link
      }
      unset %walla
    }
    if <div id="gNewsA"> == %data { set %walla 1 }
    sockread %data
  }
}


alias ynet {
  unset %ynetstop
  sockclose ynet
  sockopen ynet www.ynet.co.il 80
}
on *:sockopen:ynet:{
  var %a = sockwrite -nt $sockname
  %a GET /Integration/StoryRss1854.xml HTTP/1.0
  %a Host: www.ynet.co.il
  %a Connection: close
  %a
}
on *:sockread:ynet:{
  var %data
  sockread -f %data
  if %data {
    if <category>מבזקים</category> isin %data {
      noop $regex(%data,/<category>מבזקים<\/category><title>(.+?)<\/title>.+?<link>(.+?)<\/link><pubDate>(.+?)<\/pubDate>/)
      if %ynet != $regml(1) && !%ynetstop {
        var %time = $gettok($gettok($regml(3),5,32),1-2,$asc(:))
        var %subject = $replace($regml(1),&quot;,",& $+ #44;,$chr(44),& $+ #39;,')
        var %link = $regml(2)
        msg $active 14[2Ynet News14]14 5 $+ %time $+ 14 1- 12www.Ynet.co.il
        msg $active 14[2Subject14]1 %subject
        msg $active 14[2Link14]1 %Link
        set %ynets $regml(1)
        set %ynets a
        set %ynetstop 1
        sockclose ynet
        halt
      }
      elseif !%ynetstop && $regml(1) { set %ynetstop 1 }
    }
  }
}









::::::::::::::::::::::::::::::::::::::::::::::::::::

alias find { 
  if ($1) { 
    if (!$2) { 
      set %find $1 
    }
    if ($2) { set %find $replace($1-,$chr(32),$chr(43)) }
  } 
}


alias phazeddl {
  find $1-
  msg #phazeddl.com 1Searching At: www.phazeddl.com/search.php?q= $+ %find
  set %num 1
  sockclose phazeddl
  sockopen phazeddl www.phazeddl.com 80
}

on *:SOCKOPEN:phazeddl:{
  if ($sockerr == 0) {
    var %a = sockwrite -tn phazeddl
    %a GET /search.php?q= $+ %find HTTP/1.0
    %a Host: www.phazeddl.com
    %a Connection: keep-alive
    %a Accept: */*
    %a User-Agent: Mozilla/4.0 (compatible; MSIE 5.00; Windows 98)
    %a
  }
}
on *:SOCKREAD:phazeddl:{
  if (!$sockerr) {
    var %var
    sockread %var
    if (</td><td>|</td><td> isin %var) { 
      if (href isin $gettok(%var,7,$asc(<))) { 
        set %have ON
        msg #phazeddl.com $chr(91) $+   $+ %num $+  $+ $chr(93)
        msg #phazeddl.com 1Name: $gettok($gettok(%var,7,$asc(<)),2,$asc(>))
        msg #phazeddl.com 1Link: $gettok($gettok(%var,7,$asc(<)),2,$asc('))
        inc %num
      }
    }
  }
}

on *:text:!find *:#phazeddl.com: { 
  if (!%flood) {
    set -u40 %flood on | unset %have | phazeddl $2- | .timercheck 1 10 have?
  }
}
alias have? {
  if (!%have) { msg #phazeddl.com Sorry no results found at 12http://www.phazeddl.com/search.php?q= $+ %find }
}