20 lines
283 B
Plaintext
20 lines
283 B
Plaintext
mn=5 mx=90 stp=5 if:sld then goto2end if:sli then goto3end goto1
|
|
a=(:sleep-stp)<mn :sleep=(:sleep-stp)*(1-a)+mn*a goto1
|
|
a=(:sleep+stp)>mx :sleep=(:sleep+stp)*(1-a)+mx*a goto1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// :sleep = Sleep Timer
|
|
// :sli = Sleep Increase Button
|
|
// :sld = Sleep Height Decrease Button |