VPX Functions
Lights

FlashersPop

1min
	'flasherspop orange,"right" 'left,right,bottom,rightkick,top,crazy 	sub flasherspop(n,x) 	 on error resume next 	 flasherpos = 0 	 dim a 	 flasherdir = x 	 flasherseq enabled = 1 	 for each a in aflashers 	 setlightcolor a, n, 1 	 next 	end sub 	sub flasherseq timer 	 on error resume next 	 flasherpos = flasherpos + 1 	 if flasherdir = "left" then 	 select case flasherpos 	 case 1 	 flashlevel4 = 1 flasherflash004 timer 	 case 2 	 flashlevel5 = 1 flasherflash005 timer 	 case 3 	 flashlevel8 = 1 flasherflash008 timer 	 case 4 	 flashlevel6 = 1 flasherflash006 timer 	 case 5 	 flashlevel7 = 1 flasherflash007 timer 	 case 6 	 flashlevel4 = 1 flasherflash004 timer 	 case 7 	 flashlevel5 = 1 flasherflash005 timer 	 case 8 	 flashlevel8 = 1 flasherflash008 timer 	 case 9 	 flashlevel6 = 1 flasherflash006 timer 	 case 10 	 flashlevel7 = 1 flasherflash007 timer 	 case 11 	 flashlevel4 = 1 flasherflash004 timer 	 case 12 	 flashlevel5 = 1 flasherflash005 timer 	 flasherseq enabled = 0 	 flasherpos = 0 	 end select 	 end if 	 if flasherdir = "right" then 	 select case flasherpos 	 case 1 	 flashlevel8 = 1 flasherflash008 timer 	 case 2 	 flashlevel7 = 1 flasherflash007 timer 	 case 3 	 flashlevel6 = 1 flasherflash006 timer 	 case 4 	 flashlevel5 = 1 flasherflash005 timer 	 case 5 	 flashlevel4 = 1 flasherflash004 timer 	 case 6 	 flashlevel8 = 1 flasherflash008 timer 	 case 7 	 flashlevel7 = 1 flasherflash007 timer 	 case 8 	 flashlevel6 = 1 flasherflash006 timer 	 case 9 	 flashlevel5 = 1 flasherflash005 timer 	 case 10 	 flashlevel4 = 1 flasherflash004 timer 	 case 11 	 flashlevel8 = 1 flasherflash008 timer 	 case 11 	 flashlevel7 = 1 flasherflash007 timer 	 flasherseq enabled = 0 	 flasherpos = 0 	 end select 	 end if 	 if flasherdir = "bottom" then 	 select case flasherpos 	 case 1 	 flashlevel8 = 1 flasherflash008 timer 	 flashlevel5 = 1 flasherflash005 timer 	 case 4 	 flashlevel8 = 1 flasherflash008 timer 	 flashlevel5 = 1 flasherflash005 timer 	 case 7 	 flashlevel8 = 1 flasherflash008 timer 	 flashlevel5 = 1 flasherflash005 timer 	 case 10 	 flashlevel5 = 1 flasherflash005 timer 	 flashlevel8 = 1 flasherflash008 timer 	 flasherseq enabled = 0 	 flasherpos = 0 	 end select 	 end if 	 if flasherdir = "leftkick" then 	 select case flasherpos 	 case 1 	 'flashlevel3 = 1 flasherflash3 timer 	 case 4 	 flashlevel3 = 1 flasherflash3 timer 	 case 7 	 flashlevel3 = 1 flasherflash3 timer 	 case 10 	 flashlevel3 = 1 flasherflash3 timer 	 flasherseq enabled = 0 	 flasherpos = 0 	 end select 	 end if 	 if flasherdir = "rightkick" then 	 select case flasherpos 	 case 1 	 'flashlevel3 = 1 flasherflash3 timer 	 case 4 	 flashlevel5 = 1 flasherflash005 timer 	 case 7 	 flashlevel5 = 1 flasherflash005 timer 	 case 10 	 flashlevel5 = 1 flasherflash005 timer 	 flasherseq enabled = 0 	 flasherpos = 0 	 end select 	 end if 	 if flasherdir = "top" then 	 select case flasherpos 	 case 1 	 flashlevel6 = 1 flasherflash006 timer 	 flashlevel7 = 1 flasherflash007 timer 	 case 4 	 flashlevel6 = 1 flasherflash006 timer 	 flashlevel7 = 1 flasherflash007 timer 	 case 7 	 flashlevel6 = 1 flasherflash006 timer 	 flashlevel7 = 1 flasherflash007 timer 	 case 10 	 flashlevel6 = 1 flasherflash006 timer 	 flashlevel7 = 1 flasherflash007 timer 	 flasherseq enabled = 0 	 flasherpos = 0 	 end select 	 end if 	 if flasherdir = "crazy" then 	 select case flasherpos 	 case 1 	 flashlevel4 = 1 flasherflash004 timer 	 flashlevel7 = 1 flasherflash007 timer 	 flashlevel6 = 1 flasherflash006 timer 	 case 2 	 flashlevel8 = 1 flasherflash008 timer 	 flashlevel5 = 1 flasherflash005 timer 	 case 3 	 flashlevel5 = 1 flasherflash005 timer 	 flashlevel4 = 1 flasherflash004 timer 	 case 4 	 flashlevel4 = 1 flasherflash004 timer 	 flashlevel6 = 1 flasherflash006 timer 	 case 5 	 flashlevel7 = 1 flasherflash007 timer 	 flashlevel8 = 1 flasherflash008 timer 	 case 6 	 flashlevel4 = 1 flasherflash004 timer 	 flashlevel5 = 1 flasherflash005 timer 	 case 7 	 flashlevel8 = 1 flasherflash008 timer 	 case 8 	 flashlevel5 = 1 flasherflash005 timer 	 flashlevel6 = 1 flasherflash006 timer 	 case 9 	 flashlevel4 = 1 flasherflash004 timer 	 flashlevel8 = 1 flasherflash008 timer 	 case 10 	 flashlevel7 = 1 flasherflash007 timer 	 flashlevel5 = 1 flasherflash005 timer 	 case 11 	 flashlevel4 = 1 flasherflash004 timer 	 flashlevel7 = 1 flasherflash007 timer 	 case 12 	 flashlevel8 = 1 flasherflash008 timer 	 flashlevel5 = 1 flasherflash005 timer 	 flashlevel6 = 1 flasherflash006 timer 	 case 13 	 flashlevel5 = 1 flasherflash005 timer 	 flashlevel4 = 1 flasherflash004 timer 	 case 14 	 flashlevel4 = 1 flasherflash004 timer 	 case 15 	 flashlevel7 = 1 flasherflash007 timer 	 flashlevel8 = 1 flasherflash008 timer 	 flashlevel6 = 1 flasherflash006 timer 	 flasherseq enabled = 0 	 flasherpos = 0 	 end select 	 end if 	end sub