mIRC Namaz Saatleri

Kullanımı Kanal Geleninde *il Şeklinde Sorgulama ile Çalışmaktatır.
Örnek: *Ordu
Örnek2: *İstanbul


on $*:text:/^[\*](\S+)$/i:#:{ set %knl #
var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g,ç,c))
if ($sock($+(ramazan,*,%1))) { msg # 4 $regml(1) 6ili zaten kontrol ediliyor.. | halt }
if mersin isin $1 { var %1 $lower(icel) }
if $regex($1-, /[bcçdfgğhjklmnprsştvyzaeuioüÜÖöİı:;]/gi) == 0 { msg # 7Hatalı Kullanım 6*il şeklinse Sorgunuzu Yapınız Örnek: 6*ordu | halt }
sockopen $+(ramazan,*,%1) www.diyanettakvimi.com 80
sockmark $+(ramazan,*,%1) %1
msg # 6 %1 2ili bilgileri alinyor..
}
on *:sockopen:ramazan*: {
sockwrite -nt $sockname GET $+(/turkiye/,$sock($sockname).mark,-ezan-vakti.html) HTTP/1.1
sockwrite -nt $sockname HOST: www.diyanettakvimi.com
sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
var %63 | sockread %63
if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
$iif($free($gettok(%63,5,34)),msg %knl $qt(Tarih) $replace($free($gettok(%63,5,34)),pa,Pazar,pt,Pazartesi,sa,Salı,ca,Çarşamba,pe,Perşembe,cu,Cuma,Ct,Cumartesi))
$iif($free($gettok(%63,7,34)),msg %knl $qt(6Sabah Namazı) $free($gettok(%63,7,34)))
$iif($free($gettok(%63,9,34)),msg %knl $qt(6Kıple Gunes Yönü) $free($gettok(%63,9,34)))
$iif($free($gettok(%63,11,34)),msg %knl $qt(6Ogle Namazı) $free($gettok(%63,11,34)))
$iif($free($gettok(%63,13,34)),msg %knl $qt(6Ikindi Namazı) $free($gettok(%63,13,34)))
$iif($free($gettok(%63,15,34)),msg %knl $qt(6Aksam Namazı) $free($gettok(%63,15,34)))
$iif($free($gettok(%63,17,34)),msg %knl $qt(6Yatsi Namazı) $free($gettok(%63,17,34)))
}
}
alias free {
var %x, %i = $regsub($1-,/(^[^< ]*>|< [^>]*>|< [^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}