Hazır kod Ezan Takip

alias baslat {
.timerezantakip 0 20 /ezantakip
echo -a Ezan takip sistem'i aktif.
}
alias ezantakip {
  var %x $rand(0,9999)
  sockopen $+(ezantakip,%x) www.diyanettakvimi.com 80
}
on *:sockopen:ezantakip*: {
  var %komut sockwrite -nt $sockname
  %komut GET /son-dakika.html HTTP/1.1
  %komut Host: www.diyanettakvimi.com
  %komut $crlf
}
on *:sockread:ezantakip*: {
  var %x | sockread %x
  if $regex(%x,/(\<TD><a href=)/i) { hadd -m namaz sehir $token(%x,4,39)  }
  if $regex(%x,son-dakika) { hadd -m namaz ulke $token($token(%x,3,62),1,60)  }
  if $regex(%x,/(dakika|ezan.okuyor)/i)  {
    hadd -m namaz zaman $token($token(%x,3,62),1,60)
    if (Ezan okuyor isin $hget(namaz,zaman)) && !$hget(okunan,$+($hget(namaz,ulke),$token($hget(namaz,sehir),1,32))) {
      echo -a $str(-,20)
      echo -a $+($chr(3),4) *** $+($chr(3),4) Dikkat $token($hget(namaz,sehir),2-,32)
      echo -a $+($chr(3),4) * $+($chr(3),6) Ulke: $+($chr(3),5) $hget(namaz,ulke)
      echo -a $+($chr(3),4) ** $+($chr(3),6) Sehir: $+($chr(3),5) $token($hget(namaz,sehir),1,32)
      echo -a $str(-,20)
      hadd -mu120 okunan $+($hget(namaz,ulke),$token($hget(namaz,sehir),1,32)) 1
    }
  }