Kod: Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/^[\*](\S+)$/i:#iftar:{
var %1 $lower($replace($regml(1),ı,i,İ,i,ş,s,Ş,s,Ö,o,ö,o,Ü,u,ü,u,ç,c,Ç,c,ğ,g,Ğ,g))
if ($sock($+(ramazan,*,%1))) { echo -a $regml(1) zaten kontrol ediliyor.. | halt }
sockopen $+(ramazan,*,%1)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockmark $+(ramazan,*,%1) %1
msg # 6 $upper($regml(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:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:ramazan*: {
var %63 | sockread %63
if ($regex(%63,Sayfama hosgeldiniz)) { msg #iftar 2Belirtiginiz $(6,$qt($sock($sockname).mark),2) adresi ile ilgili bilgi bulunamamistir. | halt }
if ($regex(%63,onmouseout=)) && ($regex($gettok($date,1,47),$gettok($free($gettok(%63,5,34)),1,32))) {
$iif($free($gettok(%63,5,34)),msg #iftar 6 $qt(Tarih) 2 $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 #iftar 6 $qt(Imsak) 2 $free($gettok(%63,7,34)))
$iif($free($gettok(%63,9,34)),msg #iftar 6 $qt(Gunes) 2 $free($gettok(%63,9,34)))
$iif($free($gettok(%63,11,34)),msg #iftar 6 $qt(Ogle) 2 $free($gettok(%63,11,34)))
$iif($free($gettok(%63,13,34)),msg #iftar 6 $qt(Ikindi) 2 $free($gettok(%63,13,34)))
$iif($free($gettok(%63,15,34)),msg #iftar 6 $qt(Aksam) 2 $free($gettok(%63,15,34)) 6 $qt(Iftar) 2 $iif($regex($duration($calc(($duration($+($free($gettok(%63,15,34)),:00)))-($duration($time(HH:nn:ss))))),/(^[^-].+)/),Kalan Sure: $replace($regml(1),mins,dakika,secs,saniye,hr,saat)))
$iif($free($gettok(%63,17,34)),msg #iftar 6 $qt(Yatsi) 2 $free($gettok(%63,17,34)))
}
}
on !*:join:#iftar:{
.notice $nick ..Hoş geldiniz
.notice $nick Bulunduğunuz ilin bugünkü imsakiye bilgileri için kanala *şehir yazınız.Örnek: *İstanbul
.notice $nick Hoşca vakitler..
}
alias free {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}