FlashersPop

1 2 'flasherspop orange,"right" 'left,right,bottom,rightkick,top,crazy 3 4 Sub flasherspop(n,x) 5 On Error Resume Next 6 flasherpos = 0 7 dim a 8 flasherdir = x 9 flasherseq.enabled = 1 10 for each a in aFlashers 11 SetLightColor a, n, -1 12 Next 13 End Sub 14 15 Sub flasherseq_timer 16 On Error Resume Next 17 flasherpos = flasherpos + 1 18 If flasherdir = "left" Then 19 select case flasherpos 20 case 1 21 FlashLevel4 = 1 : Flasherflash004_Timer 22 case 2 23 FlashLevel5 = 1 : Flasherflash005_Timer 24 case 3 25 FlashLevel8 = 1 : Flasherflash008_Timer 26 case 4 27 FlashLevel6 = 1 : Flasherflash006_Timer 28 case 5 29 FlashLevel7 = 1 : Flasherflash007_Timer 30 case 6 31 FlashLevel4 = 1 : Flasherflash004_Timer 32 case 7 33 FlashLevel5 = 1 : Flasherflash005_Timer 34 case 8 35 FlashLevel8 = 1 : Flasherflash008_Timer 36 case 9 37 FlashLevel6 = 1 : Flasherflash006_Timer 38 case 10 39 FlashLevel7 = 1 : Flasherflash007_Timer 40 case 11 41 FlashLevel4 = 1 : Flasherflash004_Timer 42 case 12 43 FlashLevel5 = 1 : Flasherflash005_Timer 44 flasherseq.enabled = 0 45 flasherpos = 0 46 end Select 47 End If 48 49 If flasherdir = "right" Then 50 select case flasherpos 51 case 1 52 FlashLevel8 = 1 : Flasherflash008_Timer 53 case 2 54 FlashLevel7 = 1 : Flasherflash007_Timer 55 case 3 56 FlashLevel6 = 1 : Flasherflash006_Timer 57 case 4 58 FlashLevel5 = 1 : Flasherflash005_Timer 59 case 5 60 FlashLevel4 = 1 : Flasherflash004_Timer 61 case 6 62 FlashLevel8 = 1 : Flasherflash008_Timer 63 case 7 64 FlashLevel7 = 1 : Flasherflash007_Timer 65 case 8 66 FlashLevel6 = 1 : Flasherflash006_Timer 67 case 9 68 FlashLevel5 = 1 : Flasherflash005_Timer 69 case 10 70 FlashLevel4 = 1 : Flasherflash004_Timer 71 case 11 72 FlashLevel8 = 1 : Flasherflash008_Timer 73 case 11 74 FlashLevel7 = 1 : Flasherflash007_Timer 75 flasherseq.enabled = 0 76 flasherpos = 0 77 end Select 78 End If 79 80 If flasherdir = "bottom" Then 81 select case flasherpos 82 case 1 83 FlashLevel8 = 1 : Flasherflash008_Timer 84 FlashLevel5 = 1 : Flasherflash005_Timer 85 86 case 4 87 FlashLevel8 = 1 : Flasherflash008_Timer 88 FlashLevel5 = 1 : Flasherflash005_Timer 89 90 case 7 91 FlashLevel8 = 1 : Flasherflash008_Timer 92 FlashLevel5 = 1 : Flasherflash005_Timer 93 94 case 10 95 FlashLevel5 = 1 : Flasherflash005_Timer 96 FlashLevel8 = 1 : Flasherflash008_Timer 97 flasherseq.enabled = 0 98 flasherpos = 0 99 end Select 100 End If 101 102 If flasherdir = "leftkick" Then 103 select case flasherpos 104 case 1 105 'FlashLevel3 = 1 : Flasherflash3_Timer 106 107 case 4 108 FlashLevel3 = 1 : Flasherflash3_Timer 109 110 case 7 111 FlashLevel3 = 1 : Flasherflash3_Timer 112 113 case 10 114 FlashLevel3 = 1 : Flasherflash3_Timer 115 flasherseq.enabled = 0 116 flasherpos = 0 117 end Select 118 End If 119 120 If flasherdir = "rightkick" Then 121 select case flasherpos 122 case 1 123 'FlashLevel3 = 1 : Flasherflash3_Timer 124 125 case 4 126 FlashLevel5 = 1 : Flasherflash005_Timer 127 128 case 7 129 FlashLevel5 = 1 : Flasherflash005_Timer 130 131 case 10 132 FlashLevel5 = 1 : Flasherflash005_Timer 133 flasherseq.enabled = 0 134 flasherpos = 0 135 end Select 136 End If 137 138 If flasherdir = "top" Then 139 select case flasherpos 140 case 1 141 FlashLevel6 = 1 : Flasherflash006_Timer 142 FlashLevel7 = 1 : Flasherflash007_Timer 143 144 case 4 145 FlashLevel6 = 1 : Flasherflash006_Timer 146 FlashLevel7 = 1 : Flasherflash007_Timer 147 148 case 7 149 FlashLevel6 = 1 : Flasherflash006_Timer 150 FlashLevel7 = 1 : Flasherflash007_Timer 151 152 case 10 153 FlashLevel6 = 1 : Flasherflash006_Timer 154 FlashLevel7 = 1 : Flasherflash007_Timer 155 flasherseq.enabled = 0 156 flasherpos = 0 157 end Select 158 End If 159 160 If flasherdir = "crazy" Then 161 select case flasherpos 162 case 1 163 FlashLevel4 = 1 : Flasherflash004_Timer 164 FlashLevel7 = 1 : Flasherflash007_Timer 165 FlashLevel6 = 1 : Flasherflash006_Timer 166 case 2 167 FlashLevel8 = 1 : Flasherflash008_Timer 168 FlashLevel5 = 1 : Flasherflash005_Timer 169 case 3 170 FlashLevel5 = 1 : Flasherflash005_Timer 171 FlashLevel4 = 1 : Flasherflash004_Timer 172 case 4 173 FlashLevel4 = 1 : Flasherflash004_Timer 174 FlashLevel6 = 1 : Flasherflash006_Timer 175 case 5 176 FlashLevel7 = 1 : Flasherflash007_Timer 177 FlashLevel8 = 1 : Flasherflash008_Timer 178 case 6 179 FlashLevel4 = 1 : Flasherflash004_Timer 180 FlashLevel5 = 1 : Flasherflash005_Timer 181 case 7 182 FlashLevel8 = 1 : Flasherflash008_Timer 183 case 8 184 FlashLevel5 = 1 : Flasherflash005_Timer 185 FlashLevel6 = 1 : Flasherflash006_Timer 186 case 9 187 FlashLevel4 = 1 : Flasherflash004_Timer 188 FlashLevel8 = 1 : Flasherflash008_Timer 189 case 10 190 FlashLevel7 = 1 : Flasherflash007_Timer 191 FlashLevel5 = 1 : Flasherflash005_Timer 192 case 11 193 FlashLevel4 = 1 : Flasherflash004_Timer 194 FlashLevel7 = 1 : Flasherflash007_Timer 195 case 12 196 FlashLevel8 = 1 : Flasherflash008_Timer 197 FlashLevel5 = 1 : Flasherflash005_Timer 198 FlashLevel6 = 1 : Flasherflash006_Timer 199 case 13 200 FlashLevel5 = 1 : Flasherflash005_Timer 201 FlashLevel4 = 1 : Flasherflash004_Timer 202 case 14 203 FlashLevel4 = 1 : Flasherflash004_Timer 204 case 15 205 FlashLevel7 = 1 : Flasherflash007_Timer 206 FlashLevel8 = 1 : Flasherflash008_Timer 207 FlashLevel6 = 1 : Flasherflash006_Timer 208 flasherseq.enabled = 0 209 flasherpos = 0 210 end Select 211 End If 212 end Sub 213 214