Strobing Flasher

1 '**************************** 2 ' Pulsing pizza lights 3 '**************************** 4 5 'pulsetim.enabled=False 6 7 dim pint:pint=0 8 dim pdir:pdir=0 9 10 sub pizzastrobe(num) 11 if num = 1 Then 12 pulse1.state=1 13 pulse2.state=1 14 pulsetim.enabled=1 15 Flasherbase007.image = "domeredbase" 16 Flasherbase006.image = "domeredbase" 17 Else 18 pulse1.state=0 19 pulse2.state=0 20 pulsetim.enabled=0 21 Flasherbase007.image = "domewhitebase" 22 Flasherbase006.image = "domewhitebase" 23 end if 24 end Sub 25 sub pulsetim_timer 26 If pint=25 Then 27 pdir=1 28 end If 29 if pint=0 Then 30 pdir=0 31 end If 32 33 if pdir=0 Then 34 pint=pint+1 35 else 36 pint=pint-1 37 end if 38 39 pulse1.intensity=pint 40 pulse2.intensity=pint 41 end Sub