Hazır Kod Deprem kodu.

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 }