[OperServ]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:start: { .timerdeprem 0 180 deprem }
alias depremkanal return #depremkanal
alias depremler { .sockclose deprem | .sockopen deprem 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
alias deprem { depremler }
on *:sockopen:deprem:{ var %j = sockwrite -n $sockname | %j GET /scripts/lst9.asp HTTP/1.1 | %j Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 Şiddet: $7 Yer: $9-
    if !$read(deprem.txt,w,%depremdetay) { write deprem.txt %depremdetay | msg 0,1[ZaiL Script™ DEPREM UYARISI] %depremdetay | .sockclose deprem }
    if $read(deprem.txt,w,%depremdetay) { .sockclose deprem }
  }
}

Kodun Amaçi En Güncel Deprem Olduğu zaman ßelirtilen Kanallara Deprem Uyarisi Yollar (180 Dakikada bir Siteyi Kontrol Eder Yeni Deprem Olunca amsg veya Msg olarak Atar) Eğer ßütün Kanali isterseniz msg 0,1[ZaiL Script™ DEPREM UYARISI] Şu kisimdaki msg Yerini amsg Yapsaniz Amsg Olarak Uyari Atar
Eğer Kendiniz Görmek istiyorsaniz msg Yazan Yere echo -a Yazmaniz Yeterlidir iyi Kullanimlar..

not alintidir.. Bir sitede gormustum baktim burada yok paylasayim dedim