# budilnik
if $ARGS[0] = 'start':
cla
clr
gs 'stat'
'
> src="images/shared/home/bedroom/bed2.jpg">'
*nl
*nl
if numbud = 4:'<><>:<><>'
if numbud = 3:'<><>:<><>'
if numbud = 2:'<><>:<><>'
if numbud = 1:'<><>:<><>'
if numbud = 0:'<><> : <><>'
*nl
'1 2 3'
'4 5 6'
'7 8 9'
'0'
'Reset Set Alarm'
if budilnikOn = 0:
'Your alarm is currently turned off.'
else
'Your alarm is currently turned on.'
end
act 'Leave':
cla
bud1 = 0
bud2 = 0
bud3 = 0
bud4 = 0
numbud = 0
gt 'budilnik', 'fin'
end
end
if $ARGS[0] = 'Time':
cla
timer = bud1 * 10 + bud2
timerM = bud3 * 10 + bud4
if timer > 23:timer = 0
if timerM > 60:timerM = 0
'The alarm is set to <>:<>.'
act 'Confirm':
cla
gt 'budilnik', 'fin'
end
end
if $ARGS[0] = '1':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '2':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '3':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '4':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '5':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '6':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '7':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '8':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '9':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = '0':
cla
!!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 'budilnik', 'start'
end
if $ARGS[0] = 'Reset':
cla
bud1 = 0
bud2 = 0
bud3 = 0
bud4 = 0
numbud = 0
gt 'budilnik', 'start'
end
if $ARGS[0] = 'fin':
cla
gt $loc, $metka
end
--- budilnik ---------------------------------