Tekil Mesaj gösterimi
Alt 11 Mayıs 2014, 15:34   #1
Çevrimdışı
Paint
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Hava Durumu (!havadurumu <adres>)




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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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)


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet bizimmekan