VPX Functions
Lights
Fluppers Flashers
1min
	' 	' flashers thanks flupper 	' 	dim flashlevel1, flashlevel2, flashlevel3, flashlevel4, flashlevel5, flashlevel6, flashlevel7, flashlevel8 	flasherlight004 intensityscale = 0 	flasherlight005 intensityscale = 0 	flasherlight006 intensityscale = 0 	flasherlight007 intensityscale = 0 	flasherlight008 intensityscale = 0 	' lower right rbg flasher 	sub flasherflash004 timer() 	if weakcomputer = false then 	 on error resume next 	 dim flashx3, matdim 	 if not flasherflash004 timerenabled then 	 flasherflash004 timerenabled = true 	 flasherflash004 visible = 1 	 flasherlit004 visible = 1 	 end if 	 flashx3 = flashlevel4 flashlevel4 flashlevel4 	 flasherflash004 opacity = 1500 flashx3 	 flasherlit004 blenddisablelighting = 10 flashx3 	 flasherbase004 blenddisablelighting = flashx3 	 flasherlight004 intensityscale = flashx3 	 matdim = round(10 flashlevel4) 	 flasherlit004 material = "domelit" & matdim 	 flashlevel4 = flashlevel4 0 9 0 01 	 if flashlevel4 < 0 15 then 	 flasherlit004 visible = 0 	 else 	 flasherlit004 visible = 1 	 dof 333, dofpulse 'mx flash1 	 dof 433, dofpulse 'rgbflash1 	 end if 	 if flashlevel4 < 0 then 	 flasherflash004 timerenabled = false 	 flasherflash004 visible = 0 	 end if 	end if 	end sub' 	' middle right rbg flasher 	sub flasherflash005 timer() 	 if weakcomputer = false then 	 on error resume next 	 dim flashx3, matdim 	 if not flasherflash005 timerenabled then 	 flasherflash005 timerenabled = true 	 flasherflash005 visible = 1 	 flasherlit005 visible = 1 	 dof 334, dofpulse 'mx flash2 	 dof 434, dofpulse 'rgbflash2 	 end if 	 flashx3 = flashlevel5 flashlevel5 flashlevel5 	 flasherflash005 opacity = 1500 flashx3 	 flasherlit005 blenddisablelighting = 10 flashx3 	 flasherbase005 blenddisablelighting = flashx3 	 flasherlight005 intensityscale = flashx3 	 matdim = round(10 flashlevel5) 	 flasherlit005 material = "domelit" & matdim 	 flashlevel5 = flashlevel5 0 9 0 01 	 if flashlevel5 < 0 15 then 	 flasherlit005 visible = 0 	 else 	 flasherlit005 visible = 1 	 end if 	 if flashlevel5 < 0 then 	 flasherflash005 timerenabled = false 	 flasherflash005 visible = 0 	 end if 	end if 	end sub 	' left kicker rbg flasher 	sub flasherflash006 timer() 	 if weakcomputer = false then 	 on error resume next 	 dim flashx3, matdim 	 if not flasherflash006 timerenabled then 	 flasherflash006 timerenabled = true 	 flasherflash006 visible = 1 	 flasherlit006 visible = 1 	 end if 	 flashx3 = flashlevel6 flashlevel6 flashlevel6 	 flasherflash006 opacity = 1500 flashx3 	 flasherlit006 blenddisablelighting = 10 flashx3 	 flasherbase006 blenddisablelighting = flashx3 	 flasherlight006 intensityscale = flashx3 	 matdim = round(10 flashlevel6) 	 flasherlit006 material = "domelit" & matdim 	 flashlevel6 = flashlevel6 0 9 0 01 	 if flashlevel6 < 0 15 then 	 flasherlit006 visible = 0 	 else 	 flasherlit006 visible = 1 	 dof 335, dofpulse 'mx flash3 	 dof 435, dofpulse 'rgbflash3 	 end if 	 if flashlevel6 < 0 then 	 flasherflash006 timerenabled = false 	 flasherflash006 visible = 0 	 end if 	end if 	end sub 	' center rbg flasher 	sub flasherflash007 timer() 	 if weakcomputer = false then 	 on error resume next 	 dim flashx3, matdim 	 if not flasherflash007 timerenabled then 	 flasherflash007 timerenabled = true 	 flasherflash007 visible = 1 	 flasherlit007 visible = 1 	 end if 	 flashx3 = flashlevel7 flashlevel7 flashlevel7 	 flasherflash007 opacity = 1500 flashx3 	 flasherlit007 blenddisablelighting = 10 flashx3 	 flasherbase007 blenddisablelighting = flashx3 	 flasherlight007 intensityscale = flashx3 	 matdim = round(10 flashlevel7) 	 flasherlit007 material = "domelit" & matdim 	 flashlevel7 = flashlevel7 0 9 0 01 	 if flashlevel7 < 0 15 then 	 flasherlit007 visible = 0 	 else 	 flasherlit007 visible = 1 	 dof 336, dofpulse 'mx flash4 	 dof 436, dofpulse 'rgbflash4 	 end if 	 if flashlevel7 < 0 then 	 flasherflash007 timerenabled = false 	 flasherflash007 visible = 0 	 end if 	end if 	end sub 	' top right rbg flasher 	sub flasherflash008 timer() 	 if weakcomputer = false then 	 on error resume next 	 dim flashx3, matdim 	 if not flasherflash008 timerenabled then 	 flasherflash008 timerenabled = true 	 flasherflash008 visible = 1 	 flasherlit008 visible = 1 	 end if 	 flashx3 = flashlevel8 flashlevel8 flashlevel8 	 flasherflash008 opacity = 1500 flashx3 	 flasherlit008 blenddisablelighting = 10 flashx3 	 flasherbase008 blenddisablelighting = flashx3 	 flasherlight008 intensityscale = flashx3 	 matdim = round(10 flashlevel8) 	 flasherlit008 material = "domelit" & matdim 	 flashlevel8 = flashlevel8 0 9 0 01 	 if flashlevel8 < 0 15 then 	 flasherlit008 visible = 0 	 else 	 flasherlit008 visible = 1 	 dof 337, dofpulse 'mx flash5 	 dof 437, dofpulse 'rgbflash5 	 end if 	 if flashlevel8 < 0 then 	 flasherflash008 timerenabled = false 	 flasherflash008 visible = 0 	 end if 	end if 	end sub