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 /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------------------------------------------------------------------04 $+ $htmlfree(%a) $+ 3-------------------------------- }
if ( depremler isin %a) { aline @Depremler 13 $htmlfree(%a) }
if (İlksel isin %a) {
set %iv $htmlfree(%a) |
set %iv $instok(%iv,4T=s1,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, )
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 olmaktadır
kücük büyük yeni depremleri öğrenmek isteyenler için ideal bir

umarım birilerinin işine yarar

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

menu * {
Depremler:
}

kodunu remoteye eekleyip kullanabilirsiniz..

ALINTIDIR.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.