Anlık Deprem Raporu

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..

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, )
return %x
}

Leave a Reply

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