/ScriptServ

alias on.start if (%alarm) .timer911 %alarm 1 1 alarm
alias alarm aclock | splay $qts.wav($def.wav(alarm))
alias aclock if ($dialog(Aclock)) return | dialog -mn Aclock Aclock | if (%alarm) { did -a Aclock 11 ON | set %hours $gettok(%alarm,1,58) | set %minutes $gettok(%alarm,2,58) } | else { did -a Aclock 11 OFF | set %hours $gettok($time,1,58) | set %minutes $gettok($time,2,58) } | did -a Aclock 4 %hours | did -a Aclock 6 %minutes
dialog Aclock {
  title "Alarm Clock"
  size -1 -1 109 143
  button "Close", 1, 10 114 89 24, cancel, default
  button "+", 2, 10 13 22 11
  button "-", 3, 10 24 22 11
  edit "", 4, 32 12 22 24, read
  text ":", 5, 53 16 2 20
  edit "", 6, 55 12 22 24, read
  button "+", 7, 77 13 22 11
  button "-", 8, 77 24 22 11
  text "Time", 9, 43 0 23 11
  text "Alarm Status:", 10, 8 43 65 11
  edit "", 11, 73 40 30 20, read
  button "Alarm", 12, 10 65 89 24
  box "", 13, 5 94 99 10
}
on *:dialog:Aclock:sclick:*: if ($did = 2) { if (%hours < 9) { inc %hours | set %hours 0 $+ %hours } | elseif (%hours = 23) set %hours 00 | else inc %hours | did -ra Aclock 4 %hours } | if ($did = 3) { if (%hours = 00) set %hours 23 | elseif (%hours < 11) { dec %hours | set %hours 0 $+ %hours } | else dec %hours | did -ra Aclock 4 %hours } | if ($did = 1) unset %hours %minutes | if ($did = 7) { if (%minutes < 9) { inc %minutes | set %minutes 0 $+ %minutes } | elseif (%minutes = 59) set %minutes 00 | else inc %minutes | did -ra Aclock 6 %minutes } | if ($did = 8) { if (%minutes = 00) set %minutes 59 | elseif (%minutes < 11) { dec %minutes | set %minutes 0 $+ %minutes } | else dec %minutes | did -ra Aclock 6 %minutes } | if ($did = 12) { if (%alarm) { .timer991 off | splay stop | unset %alarm | did -ra Aclock 11 OFF } | else { set %alarm %hours $+ : $+ %minutes | did -ra Aclock 11 ON | .timer911 %alarm 1 1 alarm } }
on *:waveend:if (%alarm) splay $qts.wav($def.wav(alarm))