Backwall Runs

1 2 '**************************** 3 ' Backwall Lamps 4 '**************************** 5 'backlamp "run" 6 sub backlamp(x) 7 if WeakComputer = false then 8 if x = "run" Then 9 backwallrun.enabled=1 10 end If 11 if x = "flash" Then 12 backwallflash.enabled=1 13 end If 14 end if 15 end Sub 16 17 18 19 sub flash1_hit 20 strip1.visible = 1 21 22 vpmtimer.addtimer 200, "f1off '" 23 End Sub 24 sub f1off 25 strip1.visible = 0 26 27 end Sub 28 29 sub flash001_hit 30 flash1_hit 31 end Sub 32 33 sub flash2_hit 34 strip3.visible = 1 35 36 37 vpmtimer.addtimer 200, "f2off '" 38 End Sub 39 sub f2off 40 strip3.visible = 0 41 end Sub 42 43 sub flash002_hit 44 flash2_hit 45 end Sub 46 47 sub flash3_hit 48 strip5.visible = 1 49 50 vpmtimer.addtimer 200, "f3off '" 51 52 End Sub 53 sub f3off 54 Strip5.visible = 0 55 56 end Sub 57 58 sub flash4_hit 59 Strip7.visible = 1 60 61 vpmtimer.addtimer 200, "f4off '" 62 End Sub 63 sub f4off 64 Strip7.visible = 0 65 end Sub 66 67 sub flash003_hit 68 flash4_hit 69 end Sub 70 71 sub flash5_hit 72 strip9.visible = 1 73 74 vpmtimer.addtimer 200, "f5off '" 75 End Sub 76 sub f5off 77 strip9.visible = 0 78 end Sub 79 80 sub bwallon 81 strip1.visible = 1 82 83 Strip3.visible = 1 84 85 Strip5.visible = 1 86 Strip7.visible = 1 87 Strip9.visible = 1 88 end Sub 89 90 sub bwalloff 91 strip1.visible = 0 92 93 Strip3.visible = 0 94 95 Strip5.visible = 0 96 Strip7.visible = 0 97 Strip9.visible = 0 98 end sub 99 100 dim bwflash:bwflash=0 101 sub backwallflash_timer 102 bwflash=bwflash+1 103 select case bwflash 104 case 1:bwallon 105 case 3:bwalloff 106 case 5:bwallon 107 case 7:bwalloff 108 case 9:bwallon 109 case 11:bwalloff 110 case 13:bwallon 111 case 15:bwalloff 112 case 17:bwallon 113 case 19:bwalloff 114 case 21:bwallon 115 case 23:bwalloff:backwallflash.enabled=0:bwflash=0 116 end Select 117 end Sub 118 119 120 dim bwrun:bwrun=0 121 sub backwallrun_timer 122 bwrun=bwrun+1 123 select case bwrun 124 case 1:flash1_hit 125 case 2:flash2_hit 126 case 3:flash3_hit 127 case 4:flash4_hit 128 case 5:flash5_hit 129 case 6:flash1_hit 130 case 7:flash2_hit 131 case 8:flash3_hit 132 case 9:flash4_hit 133 case 10:flash5_hit 134 case 13:bwallon 135 case 15:bwalloff 136 case 17:bwallon 137 case 19:bwalloff 138 case 21:bwallon 139 case 23:bwalloff:backwallrun.enabled=0:bwrun=0 140 end Select 141 end Sub 142 143