; Chime
; -----
; Clock Chimes like a grandfather clock, resident in
; the system tray - double click the clock icon to
; bring up the menu.  Can also set an alarm.
;
;report on
;step on
banner Chime,,150|100
delay 10
banoff
setvar G,c:\Program Files\Script
setvar D,%G\ChurchBell.wav
setvar C,%G\AlarmBeep.wav
setvar E,-1
setvar F,-1
puttray Chime,exit,fclock.ico

:loop
suspend m
gettime A,M
ifevar A,%F,alarm1

:chkchime
ifevar A,15,onechime
ifevar A,30,onechime
ifevar A,45,onechime
ifevar A,0,hourchime
goto loop

:alarm1
gettime A,H
ifevar A,%E,alarm2
goto chktime

:alarm2
open wav,%C
play wav

:aloop
getmedia wav,B,s
ifvar B,playing,aloop
stop wav
goto loop

:onechime
open wav,%D
play wav

:wavloop
getmedia wav,B,s
ifvar B,playing,wavloop
stop wav
goto loop

:hourchime
gettime A,H,n

:beeploop
ifvar A,0,loop
open wav,%D
play wav

:wavloop2
getmedia wav,B,s
ifvar B,playing,wavloop2
stop wav
decvar A
goto beeploop

:exit
menubox Chime,Select a function,Set Alarm|Check Alarm|Close Chime
casemsg loop|setal|chkal|end

:setal
timebox Chime,Enter alarm time in hh:mm format,A
ifmsg 2,loop
substr %A,1,2,E
substr %A,4,2,F
goto exit

:chkal
ifvar E,-1,noval
msgbox Chime,.Alarm time is currently set to:|%E:%F,0,C
goto exit

:noval
msgbox Chime,No alarm set,0
goto exit

:end