mIRC Anlık Deprem Raporu

alias Deprem { sockopen aziz www.koeri.boun.edu.tr 80 }on *:sockopen:aziz: {  sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1  sockwrite -n $sockname  host: www.koeri.boun.edu.tr  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 }

BİLGİLER KANDİLLİ RASATHANESİ VE 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..

ALINTIDIR.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir