Ezan Takip Sistemi
Kod:
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
}
}
Bu kod ezan Vakitleri yaklaşınca Bilgi verir mIRCi remoteye ekledikden Sonra /baslat Yazın
-Hayırlı Ramazanlar... |
