123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214 |
- # alarmclock
- if $ARGS[0] = 'start':
- menu_off = 1
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/shared/home/bedroom/bed2.jpg"></center>'
- '<center>Enter time using number pad and click set to change alarm times, don''t forget to turn your alarm on.</center>'
- *nl
- if numbud = 4: '<center><b><<bud1>><<bud2>>:<<bud3>><<bud4>></b></center>'
- if numbud = 3: '<center><b><<bud1>><<bud2>>:<<bud3>></b><<bud4>></center>'
- if numbud = 2: '<center><b><<bud1>><<bud2>></b>:<<bud3>><<bud4>></center>'
- if numbud = 1: '<center><b><<bud1>></b><<bud2>>:<<bud3>><<bud4>></center>'
- if numbud = 0: '<center><<bud1>><<bud2>> : <<bud3>><<bud4>></center>'
- '<center><b><a href="exec:gt ''alarmclock'', ''clear''">Clear</a>'
- '<center><b><a href="exec:gt ''alarmclock'', ''1''">1</a> <a href="exec:gt ''alarmclock'', ''2''">2</a> <a href="exec:gt ''alarmclock'', ''3''">3</a></b></center>'
- '<center><b><a href="exec:gt ''alarmclock'', ''4''">4</a> <a href="exec:gt ''alarmclock'', ''5''">5</a> <a href="exec:gt ''alarmclock'', ''6''">6</a></b></center>'
- '<center><b><a href="exec:gt ''alarmclock'', ''7''">7</a> <a href="exec:gt ''alarmclock'', ''8''">8</a> <a href="exec:gt ''alarmclock'', ''9''">9</a></b></center>'
- '<center><b><a href="exec:gt ''alarmclock'', ''0''">0</a></b></center>'
- '<center><b><a href="exec: bud_weekend = 0 & gt ''alarmclock'', ''Reset''">Reset weekday alarm</a> <a href="exec: bud_weekend = 0 & gt ''alarmclock'', ''Time''">Set</a> weekday alarm to this time</b></center>'
- '<center><b>Currently set for <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerH''], alarmVars[''timerM''])>></center>'
- '<center><b><a href="exec: bud_weekend = 1 & gt ''alarmclock'', ''Reset''">Reset weekend alarm</a> <a href="exec: bud_weekend = 1 & gt ''alarmclock'', ''Time''">Set</a> weekend alarm to this time</b></center>'
- '<center><b>Currently set for <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerEndH''], alarmVars[''timerEndM''])>></center>'
- if mid($start_type,1,2) = 'sg' and alarmVars['alarm_holiday'] = 0:
- '<center><b>Use weekend alarm for holidays - <a href="exec: alarmVars[''alarm_holiday''] = 1 & gt ''alarmclock'', ''start''">OFF</a></b></center>'
- elseif mid($start_type,1,2) = 'sg' and alarmVars['alarm_holiday'] = 1:
- '<center><b>Use weekend alarm for holidays - <a href="exec: alarmVars[''alarm_holiday''] = 0 & gt ''alarmclock'', ''start''">ON</a></b></center>'
- end
- *nl
- if alarmVars['alarmOn'] = 0:
- '<center>Your alarm is currently turned <a href="exec: alarmVars[''alarmOn''] = 1 & gt ''alarmclock'', ''start''"><b>OFF</a></b></center>'
- else
- '<center>Your alarm is currently turned <a href="exec: alarmVars[''alarmOn''] = 0 & gt ''alarmclock'', ''start''"><b>ON</b></a></center>'
- '<center>The alarm is set to <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerH''], alarmVars[''timerM''])>> during the week and to <<func(''alarmclock'', ''alarm_display'', alarmVars[''timerEndH''], alarmVars[''timerEndM''])>> during the weekend.</center>'
- end
- act 'Clear time display':
- bud1 = 0
- bud2 = 0
- bud3 = 0
- bud4 = 0
- numbud = 0
- gt 'alarmclock', 'fin'
- end
- act 'Finish':
- bud1 = 0
- bud2 = 0
- bud3 = 0
- bud4 = 0
- numbud = 0
- gt 'alarmclock', 'fin'
- end
- end
- if $ARGS[0] = 'alarm_display':
- !! func('alarmclock', 'alarm_display', hour, minutes)
- $result = '<b><<$mid(100 + ARGS[1], 2, 2)>>:<<$mid(100 + ARGS[2], 2, 2)>></b>'
- end
- if $ARGS[0] = 'clear':
- cla
- bud1 = 0
- bud2 = 0
- bud3 = 0
- bud4 = 0
- numbud = 0
- gt 'alarmclock', 'fin'
- end
- if $ARGS[0] = 'Time':
- alarmVars['alarmOn'] = 1
- if bud_weekend = 1:
- alarmVars['timerEndH'] = bud1 * 10 + bud2
- alarmVars['timerEndM'] = bud3 * 10 + bud4
- if alarmVars['timerEndH'] > 23: alarmVars['timerEndH'] = 0
- if alarmVars['timerEndM'] > 60: alarmVars['timerEndM'] = 0
- else
- alarmVars['timerH'] = bud1 * 10 + bud2
- alarmVars['timerM'] = bud3 * 10 + bud4
- if alarmVars['timerH'] > 23: alarmVars['timerH'] = 0
- if alarmVars['timerM'] > 60: alarmVars['timerM'] = 0
- end
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '1':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 1 & numbud = 4
- if numbud = 2: bud3 = 1 & numbud = 3
- if numbud = 1: bud2 = 1 & numbud = 2
- if numbud = 0: bud1 = 1 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '2':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 2 & numbud = 4
- if numbud = 2: bud3 = 2 & numbud = 3
- if numbud = 1: bud2 = 2 & numbud = 2
- if numbud = 0: bud1 = 2 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '3':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 3 & numbud = 4
- if numbud = 2: bud3 = 3 & numbud = 3
- if numbud = 1: bud2 = 3 & numbud = 2
- if numbud = 0: bud1 = 3 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '4':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 4 & numbud = 4
- if numbud = 2: bud3 = 4 & numbud = 3
- if numbud = 1: bud2 = 4 & numbud = 2
- if numbud = 0: bud1 = 4 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '5':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 5 & numbud = 4
- if numbud = 2: bud3 = 5 & numbud = 3
- if numbud = 1: bud2 = 5 & numbud = 2
- if numbud = 0: bud1 = 5 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '6':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 6 & numbud = 4
- if numbud = 2: bud3 = 6 & numbud = 3
- if numbud = 1: bud2 = 6 & numbud = 2
- if numbud = 0: bud1 = 6 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '7':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 7 & numbud = 4
- if numbud = 2: bud3 = 7 & numbud = 3
- if numbud = 1: bud2 = 7 & numbud = 2
- if numbud = 0: bud1 = 7 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '8':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 8 & numbud = 4
- if numbud = 2: bud3 = 8 & numbud = 3
- if numbud = 1: bud2 = 8 & numbud = 2
- if numbud = 0: bud1 = 8 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '9':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 9 & numbud = 4
- if numbud = 2: bud3 = 9 & numbud = 3
- if numbud = 1: bud2 = 9 & numbud = 2
- if numbud = 0: bud1 = 9 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = '0':
- !!if numbud = 4:end
- if numbud = 3: bud4 = 0 & numbud = 4
- if numbud = 2: bud3 = 0 & numbud = 3
- if numbud = 1: bud2 = 0 & numbud = 2
- if numbud = 0: bud1 = 0 & numbud = 1
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = 'Reset':
- if bud_weekend = 1:
- alarmVars['timerEndH'] = 0
- alarmVars['timerEndM'] = 0
- else
- alarmVars['timerH'] = 0
- alarmVars['timerM'] = 0
- end
- bud1 = 0
- bud2 = 0
- bud3 = 0
- bud4 = 0
- numbud = 0
- gt 'alarmclock', 'start'
- end
- if $ARGS[0] = 'fin': gt $loc, $loc_arg
- --- alarmclock ---------------------------------
|