[Toprak]

Merhaba,
Kendi sunucumuz için yapmıştım belki lazım olur kullanırsınız filan..

irc.trsohbet.net - #deprem kanalımızda kod aktif takip de edebilirsiniz.

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

on *:sockopen:deprem:{ 
  if ($sockerr) { .sockclose $sockname } 
  else {
    sockwrite -nt $sockname GET /deprem.php HTTP/1.1
    sockwrite -nt $sockname Host: $sock($sockname).addr
    sockwrite -nt $sockname Connection: keep-alive
    sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/89.0.4389.114 Safari/537.36
    sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
    sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.9,en-US;q=0.8,en;q=0.7
    sockwrite -nt $sockname $crlf  
  }
} 
on *:sockread:deprem:{ 
  var %:_deprem | sockread %:_deprem | tokenize 32 %:_deprem
  if $regex($1-,/ID: (.+) Enlem: (.+) Boylam: (.+) Derinlik: (.+) Buyukluk: (.+) Yer: (.+) Tarih: (.+)<br \/>/Si) {
    var %:_id $regml(1), %:_enlem $regml(2), %:_boylam $regml(3), %:_derinlik $regml(4), %:_büyük $regml(5), %:_yer $regml(6), %:_tarih $regml(7)
    if !$hget(DpremID,%:_id) {
      .hadd -ms DpremID %:_id ok.
      .hsave -o DpremID DpremID.tprk
      msg #Deprem :
      msg #Deprem $+(:,%:_yer) Tarih: %:_tarih - Enlem: %:_enlem -Boylam: %:_boylam - Derinlik: %:_derinlik - Büyüklük: %:_büyük
      msg #Deprem :
    }
  }
}
alias _deprem { sockclose deprem | sockopen deprem igs.mirc.net.tr 80 }

[Sır]

D harfi her zaman buyuk xcvbcvbvnbv ((:

[yanki]

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

Fikrilere saygı duyan Adamsın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Güzel çalışıyor. Ben gibi pc başında devamlı takip eden biri için güzel bir çalışma.

[SNOOPY]

Güzel çalışma tebrikler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[xlxlxl]

Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] harika düşünülmüş

[Sukunet]

İbo, can sıkıntısına yaptığı icaatlarına birini daha ekledi

[NucLeaR]

Eline sağlık kardeşim şahsen gözüm hep o kanalda Rabbim tekrarını yaşatmasın ülkemize inşallah.

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

[beston]

Emeğinize sağlık..

Ülkece sallanmayan
Şehir kalmıcak gibi..

Herkes haline şükretsin
Tevbe etsin..

[Ali]

Eline sağlık
Yerinde bir kod olmus

[SatO]

Eline sağlık kardeşim