VPX Functions
Lights
Backwall Runs
1min
this is a very basic example
VisualBasic
'****************************
' Backwall Lamps
'****************************
'backlamp "run"
sub backlamp(x)
if WeakComputer = false then
if x = "run" Then
backwallrun.enabled=1
end If
if x = "flash" Then
backwallflash.enabled=1
end If
end if
end Sub
sub flash1_hit
strip1.visible = 1
vpmtimer.addtimer 200, "f1off '"
End Sub
sub f1off
strip1.visible = 0
end Sub
sub flash001_hit
flash1_hit
end Sub
sub flash2_hit
strip3.visible = 1
vpmtimer.addtimer 200, "f2off '"
End Sub
sub f2off
strip3.visible = 0
end Sub
sub flash002_hit
flash2_hit
end Sub
sub flash3_hit
strip5.visible = 1
vpmtimer.addtimer 200, "f3off '"
End Sub
sub f3off
Strip5.visible = 0
end Sub
sub flash4_hit
Strip7.visible = 1
vpmtimer.addtimer 200, "f4off '"
End Sub
sub f4off
Strip7.visible = 0
end Sub
sub flash003_hit
flash4_hit
end Sub
sub flash5_hit
strip9.visible = 1
vpmtimer.addtimer 200, "f5off '"
End Sub
sub f5off
strip9.visible = 0
end Sub
sub bwallon
strip1.visible = 1
Strip3.visible = 1
Strip5.visible = 1
Strip7.visible = 1
Strip9.visible = 1
end Sub
sub bwalloff
strip1.visible = 0
Strip3.visible = 0
Strip5.visible = 0
Strip7.visible = 0
Strip9.visible = 0
end sub
dim bwflash:bwflash=0
sub backwallflash_timer
bwflash=bwflash+1
select case bwflash
case 1:bwallon
case 3:bwalloff
case 5:bwallon
case 7:bwalloff
case 9:bwallon
case 11:bwalloff
case 13:bwallon
case 15:bwalloff
case 17:bwallon
case 19:bwalloff
case 21:bwallon
case 23:bwalloff:backwallflash.enabled=0:bwflash=0
end Select
end Sub
dim bwrun:bwrun=0
sub backwallrun_timer
bwrun=bwrun+1
select case bwrun
case 1:flash1_hit
case 2:flash2_hit
case 3:flash3_hit
case 4:flash4_hit
case 5:flash5_hit
case 6:flash1_hit
case 7:flash2_hit
case 8:flash3_hit
case 9:flash4_hit
case 10:flash5_hit
case 13:bwallon
case 15:bwalloff
case 17:bwallon
case 19:bwalloff
case 21:bwallon
case 23:bwalloff:backwallrun.enabled=0:bwrun=0
end Select
end Sub
Updated 25 Mar 2024
Did this page help you?