Sub FlasherFlash1_Timer()
dim flashx3, matdim
If not FlasherFlash1.TimerEnabled Then
FlasherFlash1.TimerEnabled = True
FlasherFlash1.visible = 1
FlasherLit1.visible = 1
End If
flashx3 = FlashLevel1 * FlashLevel1 * FlashLevel1
Flasherflash1.opacity = 1000 * flashx3
FlasherLit1.BlendDisableLighting = 10 * flashx3
Flasherbase1.BlendDisableLighting = flashx3
FlasherLight1.IntensityScale = flashx3
matdim = Round(10 * FlashLevel1)
FlasherLit1.material = "domelit" & matdim
FlashLevel1 = FlashLevel1 * 0.85 - 0.01
If FlashLevel1 < 0.15 Then
FlasherLit1.visible = 0
Else
FlasherLit1.visible = 1
end If
If FlashLevel1 < 0 Then
FlasherFlash1.TimerEnabled = False
FlasherFlash1.visible = 0
End If
End Sub
I have a flasher (FlasherFlash1), a Light (FlasherLight1), and two Primitives (FlasherLit1 & Flasherbase1)
I put flasher (FlasherFlash1) and Light (FlasherLight1) in a collection (Flasherlight), and I can show (Sub BallRelease_UnHit) or hide (Sub Drain_Hit) them by adding the following in the script:
dim xxx
For each xxx in Flasherlight: xxx.state = True (or False) : Next
But I can't find any solution to show or hide the two Primitives (FlasherLit1 & Flasherbase1), and they are blinking all the time, because, I think, they are linked to the Timer which is enabled
Is there a way to show or hide these two primitives, or perhaps to enable or disable the Timer, in the script