#saat on

on *:start:saat

#saat end

alias -l zmn if $regex($time,$1) && $regml(1) == 00 { amsg Şu anda saat: $+( $time(HH:nn) ) %logo | $iif($timer(st),.timerst 1 $calc(59 * 60) saat) }
alias -l saat if $regex($time,/(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9])) { if $regml(1) > 0 && $regml(1) < 58 { .timerst 1 $calc(59 - $regml(1)) saat } | elseif $regml(1) == 59 { .timerst 0 1 zmn /(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9]) } | else .timerst 0 1 zmn /(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9]) }

alias saatuyar { dialog -m saatuyar saatuyar }

dialog saatuyar {
  title "Ayarlar"
  size .. .. .. ..
  check "Saat Başı Uyarı" 1, .. .. .. ..
}

on 1:dialog:saatuyar:sclick:*:{
  if ($did(1).state == 1) { .enable #saat } | else { .disable #saat }
}

on *:dialog:saatuyar:init:0:{
  if ($group(#saat) == on) { did -c saatuyar 1 }
}