IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

Kod:

alias depremkanal return #deprem

 alias depremler { .sockclose deprem | .sockopen deprem www.koeri.boun.edu.tr 80 }

 alias deprem { depremler }

 on *:sockopen:deprem:{ var %j = sockwrite -n $sockname | %j GET /scripts/lst9.asp HTTP/1.1 | %j Host: www.koeri.boun.edu.tr | %j $crlf }

 on *:sockread:deprem:{

 var %deprem

 sockread %deprem

 if ($+(*,$time(yyyy.mm.dd),*) iswm %deprem) {

 tokenize 32 %deprem

 set %depremdetay Tarih: $1 Saat: $2 Derinlik: $5 km Siddet: $7 Yer: $9-

if !$read(deprem.txt,w,%depremdetay) { write deprem.txt %depremdetay | msg $depremkanal [DEPREM] %depremdetay | .sockclose deprem }

 if $read(deprem.txt,w,%depremdetay) { .sockclose deprem }

 }

 }

ACIKLAMA
En son olan depremi uyari olarak gosterir.
KULLANIM
Deprem mesajinin gonderilecegi kanali yazin.
Kodu calistirmak icin /timer 0 180 deprem komutunu uygulayin.