VPX Functions
Lights
Fluppers Flashers
1min
VisualBasic
'****************************
' 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
Updated 25 Mar 2024
Did this page help you?