Need a wee bit of help. I hope anyone here has rm2k experiance or anything. I'm making a night/day system and I want someone else besides me to check it for errors.
<> CYCLE
<> Wait 1.0s.
<> Variable Ch:[0001:Seconds] + , 1
<> FORK Optn: Varbl[0001:Seconds]-60
<> Variable Ch:[0001:Seconds] Set, 0
<> Variable Ch:[0002:Minutes] + , 1
<>
:END Case
<> FORK Optn: Varbl[0002:Minutes]-60
<> Variable Ch:[0002:Minutes] Set, 0
<> Variable Ch:[0003:Hours] + , 1
<>
<> FORK Optn: Varbl[0003:Hours]-24
<> Variable Ch:[0003:Hours] Set, 0
<> Variable Ch:[0004:Days] + , 1
<> FORK Optn: Varbl[0004:Days]-8
<> Variable Ch:[0004:Days] Set, 1
<>
:END Case
<>
:END Case
<> FORK Optn:Switch[0003:Lighting Effects] - ON
<> FORK Optn:Varbl[0003:Hours]-18
<>Set Screen Tone [R040,G040,B040],1.0sec
<>Change Switch:[0001:Day]-OFF Set
<>Change Switch:[0001:Night]-ON Set
<>
:END Case
<> FORK Optn:Varbl[0003:Hours]-7
<>Set Screen Tone [R100,G100,B100],1.0sec
<>Change Switch:[0001:Day]-ON Set
<>Change Switch:[0001:Night]-OFF Set
<>
:END Case
<>
:END Case
<>FORK Optn:Switch[0004:Weather Effects] - ON
<>FORK Optn:Switch[0005:Its raining] - ON
<>Variable Ch:[0006:RAIN TIMER]+ , Randm(1*3)
<>Play SE: Rain1
<>FORK Optn:Varbl[0006:RAIN TIMER]-100abov
<>Variable Ch:[0006:RAIN TIMER]Set, 0
<>Call Weather Effect : None
<>Change Switch:[0005:Its Raining]- OFF Set
<>
:END CASE
<>
:ELSE CASE
<>Variable Ch:[0005:RAIN PERCENT]Set, Randm(0*200)
<>FORK Optn:Varbl[0005:RAIN PERCENT]-9
<>Call Weather Effect : Ra, Lo
<>Change Switch:[0005:Its Raining]- ON Set
<>
:END CASE
<>FORK Optn:Varbl[0005:RAIN PERCENT]-10
<>Call Weather Effect : Ra, Me
<>Change Switch:[0005:Its Raining]- ON Set
<>
:END CASE
<>FORK Optn:Varbl[0005:RAIN PERCENT]-11
<>Call Weather Effect : Ra, Hi
<>Change Switch:[0005:Its Raining]- ON Set
<>
:END CASE
<>
:END CASE
<>
:END CASE
<>
:END CYCLE