1- İftar saati gelen vilayeti bulunduğu kanallara mesaj olarak gönderir.
amsg > $lower(%tmr) icin iftar vakti olan kısmı scon -a amsg > $lower(%tmr) olarak degistiriniz.
2- İftar sorgulamasi icin !iftar vilayet komutu iftara kalan sureyi gosterir.
3- imsakiye.txt dosyasini indirin ve //run $mircdir yaptiktan sonra acilan mirc ana dizinine atin.
4- /imsakiye yazarak calistirabilirsiniz ya da mirci kapatip actiginizda otomatik calisacaktir.
5- Not: Kod denenmemistir.11 mart gunu denenecektir o gün geldiginde hata var ise konu basligi altinda duzeltme yapilacaktir.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias imsakiye-genel {
if !$isfile(imsakiye.txt) { echo $color(info) > Kaynak dosyasi mirc klasorunde degil. | return }
var %me = 0, %ze = *[*]*, %ce = 1
while ($read(imsakiye.txt,w,%ze,%me)) {
var %vlyt+zmn = %vlyt+zmn $v1
inc %ce
if (2 // %ce) { var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,april,nisan) $+ * | goto je }
var %ze = *[*]*
var %tmr = $replace($gettok(%vlyt+zmn,1,32),Ş,s,İ,i,Ğ,g,Ü,u,Ö,o,Ç,c,ı,i)
.timer $+ %tmr -o $gettok(%vlyt+zmn,7,9) 1 1 amsg > $lower(%tmr) icin iftar vakti | var %vlyt+zmn
:je
var %me = $calc($readn + 1)
}
unset %m
}
alias imsakiye { .timerimsakiye 0 300 imsakiye-genel }
on *:text:?iftar &:#:{
var %vlyt = $+([,$2,])
if $timer(%vlyt) {
msg # %vlyt vilayeti icin iftara kalan sure: $replace($duration($timer(%vlyt).secs),secs,saniye,sec,saniye,hrs,saat,hr,saat,mins,dakika,min,dakika,days,gun,day,gun)
}
if !$timer(%vlyt) {
msg # Vilayet aramasi yaparken turkce karakter kullanmayiniz. Aradiginiz vilayet bulunamadi.
}
}
on 1:start:{ .timerimsakiye 0 300 imsakiye-genel }