!havadurumu Şehir

[Che]

alias havadurumu {
  var %sn havadurumu- $+ $ticks
  sockopen %sn mynet.com 80
  sockmark %sn $1-
  echo -a $1-
}
on *:sockopen:havadurumu-*:{
  var %k sockwrite -tn $sockname
  %k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
  %k host: www.mynet.com | %k
}
on *:sockread:havadurumu-*:{
  var %a
  sockread %a
  if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
  var %b $remove($utfdecode($nohtml(%a)),$chr(9))
  if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),>,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
  if span class="hv isin %a {
    if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
    if mood isin %a { set %hvdrm %hvdrm  3Hava olayı:3 %b }
    if deg1 isin %a { set %hvdrm %hvdrm  - 4En yüksek: %b }
    if deg2 isin %a { set %hvdrm %hvdrm  1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
  }
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #

alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)