Strobing Flasher

	' 	' 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+1 	 else 	 pint=pint 1 	 end if 	 pulse1 intensity=pint 	 pulse2 intensity=pint 	end sub