Fluppers Flashers

1 2 '**************************** 3 ' Flashers - Thanks Flupper 4 '**************************** 5 6 Dim FlashLevel1, FlashLevel2, FlashLevel3, FlashLevel4, FlashLevel5, FlashLevel6, FlashLevel7, FlashLevel8 7 Flasherlight004.IntensityScale = 0 8 Flasherlight005.IntensityScale = 0 9 Flasherlight006.IntensityScale = 0 10 Flasherlight007.IntensityScale = 0 11 Flasherlight008.IntensityScale = 0 12 13 '*** lower right rbg flasher *** 14 Sub Flasherflash004_Timer() 15 if WeakComputer = false then 16 On Error Resume Next 17 dim flashx3, matdim 18 If not Flasherflash004.TimerEnabled Then 19 Flasherflash004.TimerEnabled = True 20 Flasherflash004.visible = 1 21 Flasherlit004.visible = 1 22 End If 23 flashx3 = FlashLevel4 * FlashLevel4 * FlashLevel4 24 Flasherflash004.opacity = 1500 * flashx3 25 Flasherlit004.BlendDisableLighting = 10 * flashx3 26 Flasherbase004.BlendDisableLighting = flashx3 27 Flasherlight004.IntensityScale = flashx3 28 matdim = Round(10 * FlashLevel4) 29 Flasherlit004.material = "domelit" & matdim 30 FlashLevel4 = FlashLevel4 * 0.9 - 0.01 31 If FlashLevel4 < 0.15 Then 32 Flasherlit004.visible = 0 33 Else 34 Flasherlit004.visible = 1 35 DOF 333, DOFPulse 'MX-Flash1 36 DOF 433, DOFPulse 'rgbflash1 37 end If 38 If FlashLevel4 < 0 Then 39 Flasherflash004.TimerEnabled = False 40 Flasherflash004.visible = 0 41 End If 42 end if 43 End Sub' 44 45 '*** middle right rbg flasher *** 46 Sub Flasherflash005_Timer() 47 if WeakComputer = false then 48 On Error Resume Next 49 dim flashx3, matdim 50 If not Flasherflash005.TimerEnabled Then 51 Flasherflash005.TimerEnabled = True 52 Flasherflash005.visible = 1 53 Flasherlit005.visible = 1 54 DOF 334, DOFPulse 'MX-Flash2 55 DOF 434, DOFPulse 'rgbflash2 56 End If 57 flashx3 = FlashLevel5 * FlashLevel5 * FlashLevel5 58 Flasherflash005.opacity = 1500 * flashx3 59 Flasherlit005.BlendDisableLighting = 10 * flashx3 60 Flasherbase005.BlendDisableLighting = flashx3 61 Flasherlight005.IntensityScale = flashx3 62 matdim = Round(10 * FlashLevel5) 63 Flasherlit005.material = "domelit" & matdim 64 FlashLevel5 = FlashLevel5 * 0.9 - 0.01 65 If FlashLevel5 < 0.15 Then 66 Flasherlit005.visible = 0 67 Else 68 Flasherlit005.visible = 1 69 end If 70 If FlashLevel5 < 0 Then 71 Flasherflash005.TimerEnabled = False 72 Flasherflash005.visible = 0 73 End If 74 end if 75 End Sub 76 77 '*** left kicker rbg flasher *** 78 Sub Flasherflash006_Timer() 79 if WeakComputer = false then 80 On Error Resume Next 81 dim flashx3, matdim 82 If not Flasherflash006.TimerEnabled Then 83 Flasherflash006.TimerEnabled = True 84 Flasherflash006.visible = 1 85 Flasherlit006.visible = 1 86 End If 87 flashx3 = FlashLevel6 * FlashLevel6 * FlashLevel6 88 Flasherflash006.opacity = 1500 * flashx3 89 Flasherlit006.BlendDisableLighting = 10 * flashx3 90 Flasherbase006.BlendDisableLighting = flashx3 91 Flasherlight006.IntensityScale = flashx3 92 matdim = Round(10 * FlashLevel6) 93 Flasherlit006.material = "domelit" & matdim 94 FlashLevel6 = FlashLevel6 * 0.9 - 0.01 95 If FlashLevel6 < 0.15 Then 96 Flasherlit006.visible = 0 97 Else 98 Flasherlit006.visible = 1 99 DOF 335, DOFPulse 'MX-Flash3 100 DOF 435, DOFPulse 'rgbflash3 101 end If 102 If FlashLevel6 < 0 Then 103 Flasherflash006.TimerEnabled = False 104 Flasherflash006.visible = 0 105 End If 106 end if 107 End Sub 108 109 '*** center rbg flasher *** 110 Sub Flasherflash007_Timer() 111 if WeakComputer = false then 112 On Error Resume Next 113 dim flashx3, matdim 114 If not Flasherflash007.TimerEnabled Then 115 Flasherflash007.TimerEnabled = True 116 Flasherflash007.visible = 1 117 Flasherlit007.visible = 1 118 End If 119 flashx3 = FlashLevel7 * FlashLevel7 * FlashLevel7 120 Flasherflash007.opacity = 1500 * flashx3 121 Flasherlit007.BlendDisableLighting = 10 * flashx3 122 Flasherbase007.BlendDisableLighting = flashx3 123 Flasherlight007.IntensityScale = flashx3 124 matdim = Round(10 * FlashLevel7) 125 Flasherlit007.material = "domelit" & matdim 126 FlashLevel7 = FlashLevel7 * 0.9 - 0.01 127 If FlashLevel7 < 0.15 Then 128 Flasherlit007.visible = 0 129 Else 130 Flasherlit007.visible = 1 131 DOF 336, DOFPulse 'MX-Flash4 132 DOF 436, DOFPulse 'rgbflash4 133 end If 134 If FlashLevel7 < 0 Then 135 Flasherflash007.TimerEnabled = False 136 Flasherflash007.visible = 0 137 End If 138 end if 139 End Sub 140 141 '*** top right rbg flasher *** 142 Sub Flasherflash008_Timer() 143 if WeakComputer = false then 144 On Error Resume Next 145 dim flashx3, matdim 146 If not Flasherflash008.TimerEnabled Then 147 Flasherflash008.TimerEnabled = True 148 Flasherflash008.visible = 1 149 Flasherlit008.visible = 1 150 End If 151 flashx3 = FlashLevel8 * FlashLevel8 * FlashLevel8 152 Flasherflash008.opacity = 1500 * flashx3 153 Flasherlit008.BlendDisableLighting = 10 * flashx3 154 Flasherbase008.BlendDisableLighting = flashx3 155 Flasherlight008.IntensityScale = flashx3 156 matdim = Round(10 * FlashLevel8) 157 Flasherlit008.material = "domelit" & matdim 158 FlashLevel8 = FlashLevel8 * 0.9 - 0.01 159 If FlashLevel8 < 0.15 Then 160 Flasherlit008.visible = 0 161 Else 162 Flasherlit008.visible = 1 163 DOF 337, DOFPulse 'MX-Flash5 164 DOF 437, DOFPulse 'rgbflash5 165 end If 166 If FlashLevel8 < 0 Then 167 Flasherflash008.TimerEnabled = False 168 Flasherflash008.visible = 0 169 End If 170 end if 171 End Sub 172 173 174