Backwall Runs

this is a very basic example 	' 	' 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