1- iftar saati gelen vilayeti bulunduğu kanallara mesaj olarak gönderir.
2- imsak saati gelen vilayeti bulundugu kanallara mesaj olarak gonderir.
amsg > $lower(%tmr) icin iftar vakti olan kısmı scon -a amsg > $lower(%tmr) olarak degistiriniz.
3- İftar sorgulamasi icin !iftar vilayet komutu iftara kalan sureyi, !imsak vilayet komutu imsaka kalan sureyi gosterir.
4- /imsakiye yazarak calistirabilirsiniz ya da mirci kapatip actiginizda otomatik calisacaktir.(5 dk sonra calisacaktir.)
5- imsakiye.txt dosyasini linkten tekrar indirip mirc klasorune atin eskisi ile degistirin.
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,ş,s,ğ,g,ü,u,ö,o,I,i)
$+(.timer,imsak_,%tmr) -o $gettok(%vlyt+zmn,3,9) 1 1 amsg $lower(%tmr) icin imsak vakti $gettok(%vlyt+zmn,3,9)
$+(.timer,iftar_,%tmr) -o $gettok(%vlyt+zmn,7,9) 1 1 amsg $lower(%tmr) icin iftar vakti $gettok(%vlyt+zmn,7,9) | var %vlyt+zmn
:je
var %me = $calc($readn + 1)
}
}
alias imsakiye { .timerimsakiye 0 300 imsakiye-genel }
on $*:text:/^[!.](i(ft|ms)a(r|k)) (.+)/i:#:{
var %vlyt = $+($chr(91),$2,$chr(93))
if $timer($+($regml(1),_,%vlyt)) {
msg # %vlyt vilayeti icin $iif($regml(1) == iftar,iftara,imsaka) kalan sure: $replace($duration($timer($iif($regml(1) == iftar,$+(iftar_,%vlyt),$+(imsak_,%vlyt))).secs),secs,saniye,sec,saniye,hrs,saat,hr,saat,mins,dakika,min,dakika)
}
if !$timer($+($regml(1),_,%vlyt)) {
msg # Vilayet aramasi yaparken turkce karakter kullanmayiniz. Aradiginiz vilayet bulunamadi.
}
}
on 1:start:{ .timerimsakiye 0 300 imsakiye-genel }