'****************************
' Pulsing pizza lights
'****************************
'pulsetim.enabled=False
dim pint:pint=0
dim pdir:pdir=0
sub pizzastrobe(num)if num =1 Then
pulse1.state=1
pulse2.state=1
pulsetim.enabled=1
Flasherbase007.image ="domeredbase"
Flasherbase006.image ="domeredbase"
Else
pulse1.state=0
pulse2.state=0
pulsetim.enabled=0
Flasherbase007.image ="domewhitebase"
Flasherbase006.image ="domewhitebase"
end if
end Sub
sub pulsetim_timer
If pint=25 Then
pdir=1
end If
if pint=0 Then
pdir=0
end If
if pdir=0 Then
pint=pint+1else
pint=pint-1
end if
pulse1.intensity=pint
pulse2.intensity=pint
end Sub