Hava Durumu (!havadurumu <adres>)

[Toprak]

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),/) [Only Registered Users Can See Links]
%k host: [Only Registered Users Can See Links] | %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),&gt;,>) İç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)[Only Registered Users Can See Links]