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