IRCForumu.Org

**Forbidden** · 25 Eylül 2025, 22:55

;--------------------------------------------------------------
; Deprem Bildirim Socket Kodu
; Bu kod Kandilli Rasathanesi (KOERI) web sitesinden
; deprem verilerini belirli aralıklarla kontrol eder.
;
; Önemli Not:
; Veriler ANLIK değildir. KOERI sayfasında yayınlandığı
; zaman gelir. Dolayısıyla bildirimler gecikmeli olabilir.
;
; Kullanım:
; 1) Deprem mesajının gönderileceği kanalı "depremkanal" aliasında değiştirin.
; 2) Scripti başlatmak için komut yazın.
; /timer 0 30 deprem
; (30 saniyede bir deprem kontrolü yapar)
;
; Yeni bir deprem bulunduğunda:
; - deprem.txt dosyasına kaydedilir.
; - Belirtilen kanala bildirilir.
;--------------------------------------------------------------

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

alias depremkanal return #Sohbet
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 0,1[DEPREM] %depremdetay | .sockclose deprem }
    if $read(deprem.txt,w,%depremdetay) { .sockclose deprem }
  }
}

Benzer Konular:

25 Eylül 2025, 22:55	#1
Forbidden ✓ 3 Nick kopyalandı!	Güncel Deprem Kodu Socket ;-------------------------------------------------------------- ; Deprem Bildirim Socket Kodu ; Bu kod Kandilli Rasathanesi (KOERI) web sitesinden ; deprem verilerini belirli aralıklarla kontrol eder. ; ; Önemli Not: ; Veriler ANLIK değildir. KOERI sayfasında yayınlandığı ; zaman gelir. Dolayısıyla bildirimler gecikmeli olabilir. ; ; Kullanım: ; 1) Deprem mesajının gönderileceği kanalı "depremkanal" aliasında değiştirin. ; 2) Scripti başlatmak için komut yazın. ; /timer 0 30 deprem ; (30 saniyede bir deprem kontrolü yapar) ; ; Yeni bir deprem bulunduğunda: ; - deprem.txt dosyasına kaydedilir. ; - Belirtilen kanala bildirilir. ;-------------------------------------------------------------- [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod: alias depremkanal return #Sohbet 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 0,1[DEPREM] %depremdetay \| .sockclose deprem } if $read(deprem.txt,w,%depremdetay) { .sockclose deprem } } } Benzer Konular: Dretepin: Güvenli ve Uygun Fiyatlı Epin ve Oyun Kodu Alışveriş Platformu Tokat'ta 5,6 büyüklüğünde deprem Japon deprem uzmanı Moriwaki: Akdeniz, Ege ve Marmara'da 3 metre yüksekliğinde tsunami olabilir Zenia ve Brittle bunu beğendiler. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
	Alıntı Yap

Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 ziyaretçi)