IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý

IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý (https://www.ircforumlari.net/)
-   mIRC Scripting Hazýr Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Hava Durumu [2011] (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/382505-hava-durumu-2011-a.html)

Difuzyon 13 Þubat 2011 22:21
Hava Durumu [2011]
 
Toplam 1 Eklenti bulunuyor.
Merhabalar,

Belirteceðiniz Ýl ve Ýlçe merkezlerinin Devlet Meteoroloji Ýþleri'nden alýnan verilere göre 5 günlük hava tahminini ve o an ki hava durumunu özetleyen bir çalýþmayý mIRC botunuzda kullanacak þekilde tasarladým.

Bu çalýþmanýn fikri forumda daha eskilerden el33t tarafýndan paylaþýlmýþ fakat güncelliðini (veri alýnan sitelerdeki deðiþim nedeniyle) kaybetmiþ.

Aþaðýdaki kodu mIRC botunuza ekledikten sonra kanaldaki bir nickin(kodu kendine ekleyen kiþi hariç):
.hava Þehir veya Ýlçe
!hava Þehir veya Ýlçe
yazmasý halinde verilere ulaþacaktýr.Devlet Meteoroloji Ýþleri sitesi illerin bazý ilçelerinde hava tahminleri vermiþ,bu nedenle kimi ilçelerde verileri elde edemeyebilirsiniz.
Kod:
alias havadurum {
  .remove hava.txt
  sockclose durum
  sockopen durum dmi.gov.tr 80
}
on *:sockopen:durum:{
  sockwrite -n $sockname GET /tahmin/il-ve-ilceler.aspx?m= $+ %difycity HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname $crlf
}
on *:sockread:durum:{
  if ($sockerr) { msg %difychan $sock($sockname).wsmsg | halt }
  else {
    sockread %dify
    if $regex(%dify,/Bilgi Bulunamad/i) { msg %difychan Ýstenen merkez bulunamadý! | sockclose durum | halt }
    if $regex(%dify,/SonDurumRuzgarYon/i) { sockclose durum | msg %difychan $+(,$upper(%difycity),) için 5 günlük hava tahmini: | .play %difychan hava.txt 800 }
    if (*ctl00_mpBody*SonDurum* iswm %dify) { write -n hava.txt $chr(160) $replace($htmlfree(%dify),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ) }
    if $regex(%dify,/ctl00_mpBody.+SonDurum.+alt="(.+)" title="/i) { write -n hava.txt $chr(160)  $replace($regml(1),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ)  }
    if (*ctl00_mpBody_*arka*trh*</t?>* iswm %dify) { write -n hava.txt $replace($htmlfree(%dify),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ) }
    if $regex(%dify,/ctl00_mpBody_.+(")?minS">.+</td>/i) { write -n hava.txt $chr(160) En düþük: $htmlfree(%dify) }
    if $regex(%dify,/ctl00_mpBody_.+(")?maxS">.+</td>/i) { write -n hava.txt $chr(160) En yüksek: $htmlfree(%dify) }
    if $regex(%dify,/ctl00_mpBody_imgHadise.+" title="(.+)" src=".+</td>/i) { write -n hava.txt $chr(160) Hava: $replace($regml(1),Äž,Ð,ü,ü,ÅŸ,þ,ı,ý,Ç,Ç,ÄŸ,ð,Ä°,Ý,ç,ç,ö,ö,Åž,Þ)  $lf }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;,°) 
  return %x
}
on $*:text:/[!\.]hava\s\S+/ASi:#Meteoroloji:{
  if ($sock(durum,1).status == active || $play(1)) { notice $nick Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt }
  else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum }
}


Þayet kodu kendinize ekleyip kendinizin direktifiyle çalýþmasýný istiyorsanýz,aþaðýdaki koduda kendi mircinize eklersiniz:

Kod:
on *:input:#Meteoroloji:{
  if $regex($1-,/[!\.]hava\s\S+/ASi) {
    if ($sock(durum,1).status == active || $play(1)) { echo -a Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt }
    else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum }
  }
}
Ben kod içerisinde #kanal olarak #Meteoroloji kanalýný belirledim,siz kendinize göre kanal ismini deðiþebilirsiniz.
Kanaldan bir görünüm:

[21:29] <BLack> .hava sanliurfa
[21:29] <@Difuzyon> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[21:29] <@Difuzyon> SANLIURFA için 5 günlük hava tahmini:
[21:29] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 15 Þubat Salý- En düþük: 7- En yüksek: 12- Hava: YAÐMURLU
[21:29] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 6- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 17 Þubat Perþembe- En düþük: 5- En yüksek: 13- Hava: PARÇALI BULUTLU
[21:29] <@Difuzyon> 18 Þubat Cuma- En düþük: 4- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:00- Hava- PARÇALI BULUTLU - Sýcaklýk : 6.6C- -->- Nem : %94- Basýnç : 1016.7 hPa- Görüþ : 20 km
[21:29] <BLack> veriler doðrumu
[21:30] <BLack> güncel hava tahminini nerden alýyorsun
[21:31] <@Difuzyon> veriler tamamen YALAN
[21:31] <@Difuzyon> yaðmurlu dediðine bakma, hava CÝLLOP gibi
[21:32] <BLack> :)
[21:32] <@Difuzyon> ;)
[22:12] <@Difuzyon> !hava eyup
[22:12] <@Difuzyon> EYUP için 5 günlük hava tahmini:
[22:12] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 9- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 15 Þubat Salý- En düþük: 1- En yüksek: 7- Hava: YAÐMURLU
[22:12] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 0- En yüksek: 6- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 17 Þubat Perþembe- En düþük: 1- En yüksek: 10- Hava: PARÇALI BULUTLU
[22:12] <@Difuzyon> 18 Þubat Cuma- En düþük: 5- En yüksek: 15- Hava: YAÐMURLU
[22:12] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:20- Hava- AZ BULUTLU - Sýcaklýk : 4C- -->- Nem : %56- Basýnç : 1018 hPa- Görüþ : 10 km

Hoþca paylaþýmlar dilerim...

engink32 13 Þubat 2011 22:24
Cevap: Hava Durumu [2011]
 
güzel paylaþým teþekkürler..

VocaList 14 Þubat 2011 06:30
Cevap: Hava Durumu [2011]
 
Yine Döktürmüþsün Cenk Usta ((= Emeðine Saðlýk..

dEathLeSs 14 Þubat 2011 14:30
Cevap: Hava Durumu [2011]
 
Güzel calýsma basarýlar. bende Karakterler bozuk cýktý ustad nasýl düzeltebilirim?

oSmanLi 14 Þubat 2011 14:37
Cevap: Hava Durumu [2011]
 
güzel bir seye benziyor :)

Rodrigo 14 Þubat 2011 15:58
Cevap: Hava Durumu [2011]
 
Ýlgiyle izliyoruz sizi üstad:), tebrik ederim...

Yunus 14 Þubat 2011 18:22
Cevap: Hava Durumu [2011]
 
Eline saðlýk umarým herkese faydalý olur.

darkshades1 14 Þubat 2011 19:10
Cevap: Hava Durumu [2011]
 
Alýntý:
Difuzyon Nickli Üyeden Alýntý (Mesaj 1040680013)
Merhabalar,

Belirteceðiniz Ýl ve Ýlçe merkezlerinin Devlet Meteoroloji Ýþleri'nden alýnan verilere göre 5 günlük hava tahminini ve o an ki hava durumunu özetleyen bir çalýþmayý mIRC botunuzda kullanacak þekilde tasarladým.

Bu çalýþmanýn fikri forumda daha eskilerden el33t tarafýndan paylaþýlmýþ fakat güncelliðini (veri alýnan sitelerdeki deðiþim nedeniyle) kaybetmiþ.

Aþaðýdaki kodu mIRC botunuza ekledikten sonra kanaldaki bir nickin(kodu kendine ekleyen kiþi hariç):
.hava Þehir veya Ýlçe
!hava Þehir veya Ýlçe
yazmasý halinde verilere ulaþacaktýr.Devlet Meteoroloji Ýþleri sitesi illerin bazý ilçelerinde hava tahminleri vermiþ,bu nedenle kimi ilçelerde verileri elde edemeyebilirsiniz.
Kod:
alias havadurum {
  .remove hava.txt
  sockclose durum
  sockopen durum dmi.gov.tr 80
}
on *:sockopen:durum:{
  sockwrite -n $sockname GET /tahmin/il-ve-ilceler.aspx?m= $+ %difycity HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname $crlf
}
on *:sockread:durum:{
  if ($sockerr) { msg %difychan $sock($sockname).wsmsg | halt }
  else {
    sockread %dify
    if $regex(%dify,/Bilgi Bulunamad/i) { msg %difychan Ýstenen merkez bulunamadý! | sockclose durum | halt }
    if $regex(%dify,/SonDurumRuzgarYon/i) { sockclose durum | msg %difychan $+(,$upper(%difycity),) için 5 günlük hava tahmini: | .play %difychan hava.txt 800 }
    if (*ctl00_mpBody*SonDurum* iswm %dify) { write -n hava.txt $chr(160) $replace($htmlfree(%dify),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ) }
    if $regex(%dify,/ctl00_mpBody.+SonDurum.+alt="(.+)" title="/i) { write -n hava.txt $chr(160)  $replace($regml(1),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ)  }
    if (*ctl00_mpBody_*arka*trh*</t?>* iswm %dify) { write -n hava.txt $replace($htmlfree(%dify),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ) }
    if $regex(%dify,/ctl00_mpBody_.+(")?minS">.+</td>/i) { write -n hava.txt $chr(160) En düþük: $htmlfree(%dify) }
    if $regex(%dify,/ctl00_mpBody_.+(")?maxS">.+</td>/i) { write -n hava.txt $chr(160) En yüksek: $htmlfree(%dify) }
    if $regex(%dify,/ctl00_mpBody_imgHadise.+" title="(.+)" src=".+</td>/i) { write -n hava.txt $chr(160) Hava: $replace($regml(1),Ä�,Ð,ü,ü,Å�,þ,ı,ý,Ã�,Ç,Ä�,ð,Ä°,Ý,ç,ç,ö,ö,Å�,Þ)  $lf }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;,°) 
  return %x
}
on $*:text:/[!\.]hava\s\S+/ASi:#Meteoroloji:{
  if ($sock(durum,1).status == active || $play(1)) { notice $nick Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt }
  else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum }
}
Þayet kodu kendinize ekleyip kendinizin direktifiyle çalýþmasýný istiyorsanýz,aþaðýdaki koduda kendi mircinize eklersiniz:

Kod:
on *:input:#Meteoroloji:{
  if $regex($1-,/[!\.]hava\s\S+/ASi) {
    if ($sock(durum,1).status == active || $play(1)) { echo -a Sýrada bekleyen çalýþmanýn bitmesini bekleyiniz. | halt }
    else { msg $chan Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz... | set -e %difycity $replace($2,þ,s,Þ,S,ý,i,ç,c,Ç,c,ü,u,Ü,U,ö,o,Ö,O,ð,g,Ð,G) | set -e %difychan $chan | havadurum }
  }
}
Ben kod içerisinde #kanal olarak #Meteoroloji kanalýný belirledim,siz kendinize göre kanal ismini deðiþebilirsiniz.
Kanaldan bir görünüm:

[21:29] <BLack> .hava sanliurfa
[21:29] <@Difuzyon> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[21:29] <@Difuzyon> SANLIURFA için 5 günlük hava tahmini:
[21:29] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 15 Þubat Salý- En düþük: 7- En yüksek: 12- Hava: YAÐMURLU
[21:29] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 6- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> 17 Þubat Perþembe- En düþük: 5- En yüksek: 13- Hava: PARÇALI BULUTLU
[21:29] <@Difuzyon> 18 Þubat Cuma- En düþük: 4- En yüksek: 13- Hava: YAÐMURLU
[21:29] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:00- Hava- PARÇALI BULUTLU - Sýcaklýk : 6.6C- -->- Nem : %94- Basýnç : 1016.7 hPa- Görüþ : 20 km
[21:29] <BLack> veriler doðrumu
[21:30] <BLack> güncel hava tahminini nerden alýyorsun
[21:31] <@Difuzyon> veriler tamamen YALAN
[21:31] <@Difuzyon> yaðmurlu dediðine bakma, hava CÝLLOP gibi
[21:32] <BLack> :)
[21:32] <@Difuzyon> ;)
[22:12] <@Difuzyon> !hava eyup
[22:12] <@Difuzyon> EYUP için 5 günlük hava tahmini:
[22:12] <@Difuzyon> 14 Þubat Pazartesi- En düþük: 3- En yüksek: 9- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 15 Þubat Salý- En düþük: 1- En yüksek: 7- Hava: YAÐMURLU
[22:12] <@Difuzyon> 16 Þubat Çarþamba- En düþük: 0- En yüksek: 6- Hava: ÇOK BULUTLU
[22:12] <@Difuzyon> 17 Þubat Perþembe- En düþük: 1- En yüksek: 10- Hava: PARÇALI BULUTLU
[22:12] <@Difuzyon> 18 Þubat Cuma- En düþük: 5- En yüksek: 15- Hava: YAÐMURLU
[22:12] <@Difuzyon> - SON DURUM * - 13 Þubat Pazar, 21:20- Hava- AZ BULUTLU - Sýcaklýk : 4C- -->- Nem : %56- Basýnç : 1018 hPa- Görüþ : 10 km

Hoþca paylaþýmlar dilerim...
Hocam Elinize Saðlýk Denedim ama Söyle Bir Sonuc Aldým
----------------------------------------------------
[19:07:50] <02Microsoft> !hava alanya
[19:07:50] <05Nod32> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[19:07:52] <05Nod32> ALANYA için 5 günlük hava tahmini:
[19:07:53] <05Nod32> 15 Åžubat Salı En düþük: 11 En yüksek: 18 Hava: SAÄžANAK YAÄžIÅžLI 
[19:07:54] <05Nod32> 16 Åžubat ÇarÅŸamba En düþük: 11 En yüksek: 18 Hava: SAÄžANAK YAÄžIÅžLI 
[19:07:54] <05Nod32> 17 Åžubat PerÅŸembe En düþük: 10 En yüksek: 19 Hava: AZ BULUTLU 
[19:07:55] <05Nod32> 18 Åžubat Cuma En düþük: 11 En yüksek: 19 Hava: PARÇALI BULUTLU 
[19:07:56] <05Nod32> 19 Åžubat Cumartesi En düþük: 11 En yüksek: 18 Hava: SAÄžANAK YAÄžIÅžLI 
[19:07:57] <05Nod32> SON DURUM * - 14 Åžubat Pazartesi, 18:00 Hava  ...  Sýcaklýk : 14.7°C --> Nem : %83 Basýnç : 1011.7 hPa GörüÅŸ : -

--------------------------------------------------

Difuzyon 14 Þubat 2011 21:39
Cevap: Hava Durumu [2011]
 
Kodu foruma kopyalama yaptýðýmda, bazý karakterleri forum dili olduðu gibi çeviriyor.
Bu nedenle kodun orjinal halini Eklenti olarak ekledim.
Yazý karakteri konusunda sorun yaþayan arkadaþlar kodu eklentiden indirebilirler.

Nothinq 19 Mart 2011 01:28
Cevap: Hava Durumu [2011]
 
So) 01:28:13 <10%Red> .hava sanliurfa
(So) 01:28:13 <10%Red> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
bu sekilde msg verdi fakat bilgileri vermedi statuste soyle bi hata veriyor;
HAVADURUM Unknown command;

amasyaLi 19 Mart 2011 11:35
Cevap: Hava Durumu [2011]
 
ayný hatayý bende de verdi HAVADURUM Unknown command

Difuzyon 19 Mart 2011 13:08
Cevap: Hava Durumu [2011]
 
Nothinq ve amasyaLi ,

1.safyada kodlamanýn ana gövdesi ve aparatý (input kýsmý) açýk kod halinde paylaþýlmýþ.
Bununla da yetinilmemiþ bir eklenti haline getirilerek en alt kýsýmda takým olarak sunulmuþ.
Demem o ki;
Kodlamanýn ana kýsmý olmadan sadece aparatýyla sonuç almaya kalkarsanýz hava durumundan faydalanamazsýnýz sadece hava alýrsýnýz.

Deinonychus 19 Mart 2011 21:58
Cevap: Hava Durumu [2011]
 
Guzel proje ellerinize saglik ama hic de avrupa illeri yok biz napalim:D saka saka..

q0kh4n 13 Kasým 2011 01:12
Cevap: Hava Durumu [2011]
 
Alýntý:
Difuzyon Nickli Üyeden Alýntý (Mesaj 1040704172)
Nothinq ve amasyaLi ,

1.safyada kodlamanýn ana gövdesi ve aparatý (input kýsmý) açýk kod halinde paylaþýlmýþ.
Bununla da yetinilmemiþ bir eklenti haline getirilerek en alt kýsýmda takým olarak sunulmuþ.
Demem o ki;
Kodlamanýn ana kýsmý olmadan sadece aparatýyla sonuç almaya kalkarsanýz hava durumundan faydalanamazsýnýz sadece hava alýrsýnýz.
harbiden havalarýný almýþlar cvp vermemiþler dmfgmndfgmöndfg :)

Paint 13 Kasým 2011 14:03
Cevap: Hava Durumu [2011]
 
Alýntý:
q0kh4n Nickli Üyeden Alýntý (Mesaj 1040911916)
harbiden havalarýný almýþlar cvp vermemiþler dmfgmndfgmöndfg :)

Lütfen konularý hortlatma ama Cenk'in mesajýný görünce ayný tepkiyi verdim ;s6

bensensenben 18 Aralýk 2011 21:14
Cevap: Hava Durumu [2011]
 
di----on mrb ben script haber botu aradým taradým bulamadým bir bilgin varmý yardýmcý olursan cok sevinirim.

toXic 18 Aralýk 2011 21:18
Cevap: Hava Durumu [2011]
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Feragat 21 Aralýk 2011 21:54
Cevap: Hava Durumu [2011]
 
Eklentideki txt i indirdim. Böyle birþey arýyordum. Denedim gayet güzel ve sorunsuz çalýþýyor. Baþarýlar dilerim.

eLsukr 08 Þubat 2012 12:52
Cevap: Hava Durumu [2011]
 
[12:47:06] <eLsukr> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[12:47:06] <eLsukr> .hava istanbul

böylece kalýyo, statüste bir bildiri de yok, ops kanalýnda yazýyorum ve de ops ta yazmasý için düzeltmeleride yaptým. yinede sonuç vermedi

UquR_TR 08 Þubat 2012 14:06
Cevap: Hava Durumu [2011]
 
* /sockwrite: 'durum' Baðlý Deðil (Satýr 7, havadurum.txt)

ve

[13:59] <DJ`UquR> .hava aydýn
[13:59] <Sekeyy_Kiss> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
Kalýyor .

SiLuet 08 Þubat 2012 17:02
Cevap: Hava Durumu [2011]
 
Alýntý:
eLsukr Nickli Üyeden Alýntý (Mesaj 1041024036)
[12:47:06] <eLsukr> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
[12:47:06] <eLsukr> .hava istanbul

böylece kalýyo, statüste bir bildiri de yok, ops kanalýnda yazýyorum ve de ops ta yazmasý için düzeltmeleride yaptým. yinede sonuç vermedi
Alýntý:
UquR_TR Nickli Üyeden Alýntý (Mesaj 1041024096)
* /sockwrite: 'durum' Baðlý Deðil (Satýr 7, havadurum.txt)

ve

[13:59] <DJ`UquR> .hava aydýn
[13:59] <Sekeyy_Kiss> Verilere ulaþýlmaya çalýþýyor,lütfen bekleyiniz...
Kalýyor .
Sorunun Nedeni Verilerin Çekildiði Web sitesi. Bu geçicimidir kalýcýmýdýr bilemiyorum ama Siteye girelemiyor.

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),&gt;)) ,/(.)/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
  }
}

eLsukr 09 Þubat 2012 10:51
Cevap: Hava Durumu [2011]
 
kendim !hava þehir yazdýðýmda neden çýkmýyor

saywhat 09 Þubat 2012 11:22
Cevap: Hava Durumu [2011]
 
Kod:
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
  }
}
on *:text:*:#:{ denmiþ kendi komutuna cevap vermesi üçün text olan yere input gelmesi gereq.bu haliyle dýþardan gelen komuta cvp verir.

SiLuet 09 Þubat 2012 11:26
Cevap: Hava Durumu [2011]
 
Alýntý:
eLsukr Nickli Üyeden Alýntý (Mesaj 1041025245)
kendim !hava þehir yazdýðýmda neden çýkmýyor
Kodda Kullanýlacak Komutlar Text eventi Altýna Eklemiþ. Yani Bunu Kendin Kullanamazsýn. Kendin Kullanmak Ýçin Ýnput Kullanmalýsýn.

Text Eventini Kaldýrýp Aþaðýdaki Kodu Ekleyin.

Kod:
on 1:input:*:{
  if $1 == !hava {
    if !$2 { echo -a 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
  }
}

kheldor 24 Haziran 2013 06:16
Cevap: Hava Durumu [2011]
 
þu kodu çalýþtýracak arkadaþ var mý ? hepsi hatalý :(


Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 21:17.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk