---
title: Fluppers Flashers
slug: fluppers-flashers
description: This document provides code for efficiently managing multiple flashers in a captivating visual display. Discover how each flasher can be individually controlled with timers and unique visual properties such as opacity and visibility. Moreover, the code re
docTags: 
createdAt: 2021-01-16T16:53:32.000Z
---



```vb

	'****************************
	' Flashers - Thanks Flupper
	'****************************

	Dim FlashLevel1, FlashLevel2, FlashLevel3, FlashLevel4, FlashLevel5, FlashLevel6, FlashLevel7, FlashLevel8
	Flasherlight004.IntensityScale = 0
	Flasherlight005.IntensityScale = 0
	Flasherlight006.IntensityScale = 0
	Flasherlight007.IntensityScale = 0
	Flasherlight008.IntensityScale = 0

	'*** lower right rbg flasher ***
	Sub Flasherflash004_Timer()
	if WeakComputer = false then
		On Error Resume Next
		dim flashx3, matdim
		If not Flasherflash004.TimerEnabled Then 
			Flasherflash004.TimerEnabled = True
			Flasherflash004.visible = 1
			Flasherlit004.visible = 1
		End If
		flashx3 = FlashLevel4 * FlashLevel4 * FlashLevel4
		Flasherflash004.opacity = 1500 * flashx3
		Flasherlit004.BlendDisableLighting = 10 * flashx3
		Flasherbase004.BlendDisableLighting =  flashx3
		Flasherlight004.IntensityScale = flashx3
		matdim = Round(10 * FlashLevel4)
		Flasherlit004.material = "domelit" & matdim
		FlashLevel4 = FlashLevel4 * 0.9 - 0.01
		If FlashLevel4 < 0.15 Then
			Flasherlit004.visible = 0
		Else
			Flasherlit004.visible = 1
			DOF 333, DOFPulse 'MX-Flash1
			DOF 433, DOFPulse 'rgbflash1
		end If
		If FlashLevel4 < 0 Then
			Flasherflash004.TimerEnabled = False
			Flasherflash004.visible = 0
		End If
	end if
	End Sub'

	'*** middle right rbg flasher ***
	Sub Flasherflash005_Timer()
		if WeakComputer = false then
		On Error Resume Next
		dim flashx3, matdim
		If not Flasherflash005.TimerEnabled Then 
			Flasherflash005.TimerEnabled = True
			Flasherflash005.visible = 1
			Flasherlit005.visible = 1
			DOF 334, DOFPulse 'MX-Flash2
			DOF 434, DOFPulse 'rgbflash2
		End If
		flashx3 = FlashLevel5 * FlashLevel5 * FlashLevel5
		Flasherflash005.opacity = 1500 * flashx3
		Flasherlit005.BlendDisableLighting = 10 * flashx3
		Flasherbase005.BlendDisableLighting =  flashx3
		Flasherlight005.IntensityScale = flashx3
		matdim = Round(10 * FlashLevel5)
		Flasherlit005.material = "domelit" & matdim
		FlashLevel5 = FlashLevel5 * 0.9 - 0.01
		If FlashLevel5 < 0.15 Then
			Flasherlit005.visible = 0
		Else
			Flasherlit005.visible = 1
		end If
		If FlashLevel5 < 0 Then
			Flasherflash005.TimerEnabled = False
			Flasherflash005.visible = 0
		End If
	end if
	End Sub

	'*** left kicker rbg flasher ***
	Sub Flasherflash006_Timer()
		if WeakComputer = false then
		On Error Resume Next
		dim flashx3, matdim
		If not Flasherflash006.TimerEnabled Then 
			Flasherflash006.TimerEnabled = True
			Flasherflash006.visible = 1
			Flasherlit006.visible = 1
		End If
		flashx3 = FlashLevel6 * FlashLevel6 * FlashLevel6
		Flasherflash006.opacity = 1500 * flashx3
		Flasherlit006.BlendDisableLighting = 10 * flashx3
		Flasherbase006.BlendDisableLighting =  flashx3
		Flasherlight006.IntensityScale = flashx3
		matdim = Round(10 * FlashLevel6)
		Flasherlit006.material = "domelit" & matdim
		FlashLevel6 = FlashLevel6 * 0.9 - 0.01
		If FlashLevel6 < 0.15 Then
			Flasherlit006.visible = 0
		Else
			Flasherlit006.visible = 1
			DOF 335, DOFPulse 'MX-Flash3
			DOF 435, DOFPulse 'rgbflash3
		end If
		If FlashLevel6 < 0 Then
			Flasherflash006.TimerEnabled = False
			Flasherflash006.visible = 0
		End If
	end if
	End Sub

	'*** center rbg flasher ***
	Sub Flasherflash007_Timer()
		if WeakComputer = false then
		On Error Resume Next
		dim flashx3, matdim
		If not Flasherflash007.TimerEnabled Then 
			Flasherflash007.TimerEnabled = True
			Flasherflash007.visible = 1
			Flasherlit007.visible = 1
		End If
		flashx3 = FlashLevel7 * FlashLevel7 * FlashLevel7
		Flasherflash007.opacity = 1500 * flashx3
		Flasherlit007.BlendDisableLighting = 10 * flashx3
		Flasherbase007.BlendDisableLighting =  flashx3
		Flasherlight007.IntensityScale = flashx3
		matdim = Round(10 * FlashLevel7)
		Flasherlit007.material = "domelit" & matdim
		FlashLevel7 = FlashLevel7 * 0.9 - 0.01
		If FlashLevel7 < 0.15 Then
			Flasherlit007.visible = 0
		Else
			Flasherlit007.visible = 1
			DOF 336, DOFPulse 'MX-Flash4
			DOF 436, DOFPulse 'rgbflash4
		end If
		If FlashLevel7 < 0 Then
			Flasherflash007.TimerEnabled = False
			Flasherflash007.visible = 0
		End If
	end if
	End Sub

	'*** top right rbg flasher ***
	Sub Flasherflash008_Timer()
		if WeakComputer = false then
		On Error Resume Next
		dim flashx3, matdim
		If not Flasherflash008.TimerEnabled Then 
			Flasherflash008.TimerEnabled = True
			Flasherflash008.visible = 1
			Flasherlit008.visible = 1
		End If
		flashx3 = FlashLevel8 * FlashLevel8 * FlashLevel8
		Flasherflash008.opacity = 1500 * flashx3
		Flasherlit008.BlendDisableLighting = 10 * flashx3
		Flasherbase008.BlendDisableLighting =  flashx3
		Flasherlight008.IntensityScale = flashx3
		matdim = Round(10 * FlashLevel8)
		Flasherlit008.material = "domelit" & matdim
		FlashLevel8 = FlashLevel8 * 0.9 - 0.01
		If FlashLevel8 < 0.15 Then
			Flasherlit008.visible = 0
		Else
			Flasherlit008.visible = 1
			DOF 337, DOFPulse 'MX-Flash5
			DOF 437, DOFPulse 'rgbflash5
		end If
		If FlashLevel8 < 0 Then
			Flasherflash008.TimerEnabled = False
			Flasherflash008.visible = 0
		End If
	end if
	End Sub



```