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,february,?ubat) $+ * | 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 iftarlar { .timerimsakiye  0 300 imsakiye-genel  }

on $*:text:/^[!.](i(ft|ms)a(r|k)) (.+)/i:#:{
  var %turkcekar_duzelt = $chr(91) $+ $replace($2,?,?,?,?,i,?,?,?,?,?,I,?,ö,?,Ö,?,ü,?,Ü,?,?,?,?,?,ç,?,Ç,?) $+  $chr(93)
  if $read(imsakiye.txt,w,%turkcekar_duzelt) {
    var %readn = $readn
    var %ze = * $+ $replace($date(dd mmmm yyyy),march,mart,february,?ubat) $+ *
    if (?iftar iswm $1) {
      if $read(imsakiye.txt,w,%ze,$calc(%readn + 1)) { 
        msg # > $2 vilayeti icin iftar vakti $chr(91) $+ $gettok($v1,7,9) $+ $chr(93) $chr(124) iftara kalan sure: $replace($duration($calc($ctime($time(dd/mm/yy) $gettok($v1,7,9)) - $ctime)),secs, $+ $chr(32) $+ saniye,sec, $+ $chr(32) $+ saniye,hrs, $+ $chr(32) $+ saat,hr, $+ $chr(32) $+ saat,mins, $+ $chr(32) $+ dakika,min, $+ $chr(32) $+ dakika)
        halt
      }
    }
    if (?imsak iswm $1) {
      if $read(imsakiye.txt,w,%ze,$calc(%readn + 1)) {  
        msg # > $2 vilayeti icin imsak vakti $chr(91) $+ $gettok($v1,3,9) $+ $chr(93)
        halt
      }
    }
  }
}
on 1:start:{ .timerimsakiye 0 300 imsakiye-genel }
on *:connect:{ .timerimsakiye 0 300 imsakiye-genel }