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/)
-   -   Anlık Deprem Raporu (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/394769-anlik-deprem-raporu.html)

muratt_aziz 26 Mayıs 2011 18:52
Anlık Deprem Raporu
 
Kod:
alias Deprem { sockopen aziz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:aziz: {
  sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1
  sockwrite -n $sockname  host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:aziz: {
  var %a
  sockread %a
  window -enz @Depremler
  if (Büyüklük isin %a) { aline @Depremler  3------------------------------------------------------------------0,4 $+ $htmlfree(%a) $+ 3-------------------------------- }
  if (son depremler isin %a) { aline @Depremler  13 $htmlfree(%a) }
  if (İlksel isin %a) { 
    set %iv $htmlfree(%a) | 
    set %iv $instok(%iv,4T=s,1,32)
    set %iv $instok(%iv,4Enlm,4,32)
    set %iv  $instok(%iv,4Boylm,6,32)
    set %iv $instok(%iv,4Dernlk 6km,8,32)
    set %iv $instok(%iv,4Sürsi6md ,11,32)
    set %iv $instok(%iv,3 -4Şideti3+ ,4,45)
    set %iv $instok(%iv,4 İL 3 İlce ,7,45)
  aline @Depremler %iv }
  if (REVIZE isin %a) { 
    set %iv $htmlfree(%a) | 
    set %iv $instok(%iv,4T=s,1,32)
    set %iv $instok(%iv,4Enlm,4,32)
    set %iv  $instok(%iv,4Boylm,6,32)
    set %iv $instok(%iv,4Dernlk 6km,8,32)
    set %iv $instok(%iv,4Sürsi6md ,11,32)
    set %iv $instok(%iv,3 -4Şideti3+ ,4,45)
    set %iv $instok(%iv,4 İL 3 İlce ,7,45)
  aline @Depremler %iv }
  if (Enlem(N) isin %a) { aline @Depremler  6 $htmlfree(%a) }
  if (-------------- isin %a) { aline @Depremler  4 $htmlfree(%a) }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
Arkadaşlar can sıkıntısıyla hazırladığım bir kod
BİLGİLER KANDİLLİ RASATHANESİ VE DEPREM ARAŞTIRMA ENSTİTÜSÜ (KRDAE) Alınmakta

Gün içersinde televizyonlardan duymadığınız bir cok deprem olmaktadır
kücük büyük yeni depremleri öğrenmek isteyenler için ideal bir kod

umarım birilerinin işine yarar

kullanımı
alt + r ile remoteye ekleyip /deprem komutuyla çalıştıra bilir veya

menu * {
Depremler:deprem
}

kodunu remoteye eekleyip kullanabilirsiniz..

q0kh4n 26 Mayıs 2011 22:35
Cevap: Anlık Deprem Raporu
 
oldukça faydalı bi çalışma saol

Heavenly 27 Mayıs 2011 12:47
Cevap: Anlık Deprem Raporu
 
peki bunu @Depremler penceresinde değilde bir kanala yansıtmak istesek ne yapmamız gerek?

Heartbroken 27 Mayıs 2011 16:47
Cevap: Anlık Deprem Raporu
 
bu kod kanala yansıtmak için uygun olmayabilir çünkü olan depremlerin tamamını veriyor ben ekleyip denedim bir kanala bu haliyle verilse flood'da düşer sanırım belki 100 sonuç verio bir /deprem komutuyla.. kanala yansıtmak için komutla serdar arkadaşın kodladığı Deprem Anons vardı onda ayarlanabiliodu kaçtan büyükler yayınlansın vs die hepsini vermek baya bi trafik yaratır..

şu haliyle değilde mesala bir tür RSS feed gibi bir şekilde olabilseydi yani olduğu anda rasathanenin sitesine düştüğü anda ordan alıp kanala yansıtsa böyle topluca ne kadar deprem girdisi varsa hepsini bir anda vermek yerine olduğu anda yansıtma yapılabilrse süper olurdu demin şöyle bir gezindim var mı böyle rss feed akışı olan bir deprem sitesi diye kandilli rasathanesi olsun yabancı -yerli siteler olsun doğru dürüst bir RSS akışı olan bir yere rastlamadım..

Difuzyon 27 Mayıs 2011 22:21
Cevap: Anlık Deprem Raporu
 
Kendi scriptinizde RSS Feed oluşturmak için bir şablon var aslında,belki dikkatinizi çekmiştir:

2011.05.27 21:47:10 39.0747 29.1128 5.0 2.9 -.- -.- PAZARLAR (KÜTAHYA) İlksel
2011.05.27 21:34:11 39.1402 29.1005 5.4 2.7 -.- -.- SİMAV (KÜTAHYA) İlksel

"Tarih ve Saat" size bir veri tabanı oluşturmak için benzersiz sonuçlar verebilir.
Bu sonuçlar eşleşmeyen bir sorgulanmaya(if) tabii tutulursa yeni veriler kanala aktarılabilir.

Supernova 27 Mayıs 2011 22:52
Cevap: Anlık Deprem Raporu
 
Çalışma güzel fakat, geçen olan depremde de yaşanan bir olay var. Kandillinin web sitesi kitleniyor.Yani bir deprem anında veri alınmıyor.Bunuda dip not olarak bildiririm.

muratt_aziz 28 Mayıs 2011 22:12
Cevap: Anlık Deprem Raporu
 
Alıntı:
Heartbroken Nickli Üyeden Alıntı (Mesaj 1040753365)
bu kod kanala yansıtmak için uygun olmayabilir çünkü olan depremlerin tamamını veriyor ben ekleyip denedim bir kanala bu haliyle verilse flood'da düşer sanırım belki 100 sonuç verio bir /deprem komutuyla.. kanala yansıtmak için komutla serdar arkadaşın kodladığı Deprem Anons vardı onda ayarlanabiliodu kaçtan büyükler yayınlansın vs die hepsini vermek baya bi trafik yaratır..

şu haliyle değilde mesala bir tür RSS feed gibi bir şekilde olabilseydi yani olduğu anda rasathanenin sitesine düştüğü anda ordan alıp kanala yansıtsa böyle topluca ne kadar deprem girdisi varsa hepsini bir anda vermek yerine olduğu anda yansıtma yapılabilrse süper olurdu demin şöyle bir gezindim var mı böyle rss feed akışı olan bir deprem sitesi diye kandilli rasathanesi olsun yabancı -yerli siteler olsun doğru dürüst bir RSS akışı olan bir yere rastlamadım..
Supernova Arkadaş haklı bir bakıma bir ikincisi Deprem anında yansıtılmıyor siteye dakikalı sorgu yaptıramıyoruz neyazıkki tüm verileri kaydettirip $date $time sorgularıyla en yakın tarihi bulabilirizki birihtimal gerek duymuyorum saatlik bir sorgu yaptım atılmaya karşı kanala yansıtmak isteyen arkadaşlar için

#dnm yazan yere yansımasını istediğiniz kanal adını yazarsanız sorun olmaz sanıyorum hepinize kolay gelsin arkadaşlar.


Kod:
alias deprem {  sockopen aziz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:aziz: {
  sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1
  sockwrite -n $sockname  host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:aziz: {
  var %a 1
  sockread %a
  set %ix $gettok($date,3,47) $+ . $+ $gettok($date,2,47) $+ . $+ $gettok($date,1,47) | set %ix1 $chr(32) $gettok($time,1,58) $+ :
  if (Enlem isin %a) { SET %iv2 6 $htmlfree(%a) }
  if (-------------- isin %a) { SET %iv3  4 $htmlfree(%a) }
  if (Büyüklük isin %a) {  SET %iv1  3------------------------------------------------------------------0,4 $+ $htmlfree(%a) $+ 3-------------------------------- }
  if (son depremler isin %a) {  SET %iv4  13 $htmlfree(%a) }
  if (%ix isin %a) {
    if (%ix1 isin %a) {  set %iv $htmlfree(%a) |  set %iv $instok(%iv,4T=s,1,32)
      set %iv $instok(%iv,4Enlm,4,32) |  set %iv  $instok(%iv,4Boylm,6,32)
      set %iv $instok(%iv,4Dernlk 6km,8,32) | set %iv $instok(%iv,4Sürsi6md ,11,32)
      set %iv $instok(%iv,3 -4Şideti3+ ,4,45) |  set %iv $instok(%iv,4 İL 3 İlce ,7,45)
      iv | msg #dnm %iv | .disable #iv | .timer 1 3 .enable #iv
    }
  }
}
#iv on
alias iv {  msg #dnm %iv1 | msg #dnm %iv2 | msg #dnm %iv3 }
#iv end
alias iv { }
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
menu * {
  Son Deprem
  .Başlat:.timer 0 3599 deprem
}

VocaList 29 Mayıs 2011 07:35
Cevap: Anlık Deprem Raporu
 
Cok Fonksiyonlu Deprem Anon's Addonu Daha Önceden de Verilmişti incelemek isterseniz :

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ReSitaL 29 Mayıs 2011 19:38
Cevap: Anlık Deprem Raporu
 
Çalışma Güzel ..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:41.

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