-
- Üyelik Tarihi
- 29 Tem 2015
-
- Mesajlar
- 2,530
-
- MFC Puanı
- 310
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) ~~~~ $replace($remove(%b,hava durumu),>,>) İçin 5 Günlük Hava Tahmini ~~~~ }
if span class="hv isin %a {
if day isin %a { set %hvdrm $+([,%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 Hava olayı: %b }
if deg1 isin %a { set %hvdrm %hvdrm - En yüksek: %b }
if deg2 isin %a { set %hvdrm %hvdrm * En 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)
Kod Sahibi: FLoZoF
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) ~~~~ $replace($remove(%b,hava durumu),>,>) İçin 5 Günlük Hava Tahmini ~~~~ }
if span class="hv isin %a {
if day isin %a { set %hvdrm $+([,%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 Hava olayı: %b }
if deg1 isin %a { set %hvdrm %hvdrm - En yüksek: %b }
if deg2 isin %a { set %hvdrm %hvdrm * En 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)
Kod Sahibi: FLoZoF