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 }

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 }