|
entry_ch0 ;alle Lampen benutzen denselben Code!
entry_ch1
entry_ch2
entry_ch3
DEFSWITCH 8 ;Schalter 8 für alle Lampen
wait4on ;warten auf "Schalter ein":
HALTSOFF ;bleibt "aus" solange switch auf "off"
LIGHTOFF 30 ;aus lassen für min. 300ms
flicker
RNDDLY 150 ;delay 0 bis 1,5s
JSOFF wait4on ;falls Schalter inzwischen wieder "aus": Licht aus!
RNDJMP 64,turn_on ;etwa 50% Chance für's Zünden!
RNDBRT 10,40,2 ;min. 20 ms Aufblitzen bei niedriger Helligkeit
RNDDLY 20 ;zusätzliches delay bis max. 200 ms
LIGHTOFF 0 ;aus
JUMP flicker ;neuer Startversuch
turn_on
LIGHTON 0 ;"Ein" -> volle Helligkeit
HALTSON ;bleibt an, solange switch = "on"
P_RESET
|
|
