| takiLsana | 08 Þubat 2012 18:21 |
Buyur Kendý Yapmýs Oldugum Hava Durum'u,
Arkadaþlar yukarýda kodda 1,2 sey unutmusum ve hatalý yazmýým duzeltýlmýsý bu; Kod:
on *:sockopen:hb*:{
sockwrite -n $sockname Get /asya/turkiye/ $+ %þehir HTTP/1.1
sockwrite -n $sockname Host: havadurumu.mynet.com
sockwrite -n $sockname $crlf
}
on *:sockread:hb*:{
if ($sockerr) { msg %havakanal 4Hata: Ýsdediginiz Veri Bulunamadý | halt }
else {
var %ghost
sockread %ghost
if (HTTP/1.1 301 Moved Permanently isin %ghost) {
msg %havakanal :2Ýstenen Þehir Bulanamadý!
sockclose $sockname
}
if (<title>MYNET Hava Durumu - Ana Sayfa</title> isin %ghost) {
msg %havakanal :2Ýstenen Þehir Bulanamadý!
sockclose $sockname
}
if (<h1 class="hvCityTitle"> isin %ghost) { set %title ibo! }
elseif (%title) {
unset %title
msg %havakanal :4Þehir:1 $regsubex($trchra($remove($htmlfree(%ghost),>)) ,/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))
msg %havakanal :7-------------------------------
}
if (*span class=*hvDay* iswm %ghost) {
msg %havakanal :4Gün:1 $regsubex($trchra($htmlfree(%ghost)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))
}
if (*span class="hvMood">*</span* iswm %ghost) {
msg %havakanal :4Hava:1 $regsubex($trchra($htmlfree(%ghost)),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1)))
}
if (*<span class="hvDeg1">*</span* iswm %ghost) {
msg %havakanal :4En Yüksek:1 $remove($htmlfree(%ghost),Â)
}
if (*<span class="hvDeg2">*</span>* iswm %ghost) {
msg %havakanal :4En Düþük:1 $remove($htmlfree(%ghost),Â)
msg %havakanal :7------------------------------------
}
}
}
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ãœ,ü,Äž,ð,$chr(39),-)
alias hbüyük {
return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ð,G,Ð,G,h,H,ý,I,i,I,Ý,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,þ,S,Þ,S,@,A)
}
alias htmlfree {
if ($len($1-) <= 900) {
var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x
}
}
on *:text:*:#:{
if $1 == !hava {
if !$2 { msg $chan :2Lütfen Þehir Belirdiniz. | halt }
msg $chan :4 $hbüyük($2) 2 Sorgusu yapýlýyor.
set %þehir $hbüyük($2)
set %havakanal $chan
var %rand $rand(1,9999)
sockopen $+(hb,%rand) havadurumu.mynet.com 80
}
}
|
