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,&nbsp;,    )  return %x}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir