Tekil Mesaj gösterimi
Alt 20 Ağustos 2016, 22:51   #1
Çevrimiçi
immortaL
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
!havadurumu Ankara


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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),&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)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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),&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)

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı