---
title: FlashersPop
slug: flasherspop
description: This Visual Basic code defines a subroutine called "flasherspop" that sets the flasher position and light color based on arguments. Another subroutine called "flasherseq_timer" triggers a sequence of flashers and actions based on the flasher direction. Di
docTags: 
createdAt: 2021-01-16T16:54:23.000Z
---



```vb

	'flasherspop orange,"right" 'left,right,bottom,rightkick,top,crazy

	Sub flasherspop(n,x)
		On Error Resume Next
		flasherpos = 0
		dim a
		flasherdir = x
		flasherseq.enabled = 1
		for each a in aFlashers
			SetLightColor a, n, -1
		Next
	End Sub

	Sub flasherseq_timer
		On Error Resume Next
		flasherpos = flasherpos + 1
		If flasherdir = "left" Then
			select case flasherpos
				case 1
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 2
					FlashLevel5 = 1 : Flasherflash005_Timer
				case 3
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 4
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 5
					FlashLevel7 = 1 : Flasherflash007_Timer
				case 6
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 7
					FlashLevel5 = 1 : Flasherflash005_Timer
				case 8
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 9
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 10
					FlashLevel7 = 1 : Flasherflash007_Timer
				case 11
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 12
					FlashLevel5 = 1 : Flasherflash005_Timer
					flasherseq.enabled = 0
					flasherpos = 0
			end Select
		End If

		If flasherdir = "right" Then
			select case flasherpos
				case 1
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 2
					FlashLevel7 = 1 : Flasherflash007_Timer
				case 3
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 4
					FlashLevel5 = 1 : Flasherflash005_Timer
				case 5
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 6
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 7
					FlashLevel7 = 1 : Flasherflash007_Timer
				case 8
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 9
					FlashLevel5 = 1 : Flasherflash005_Timer
				case 10
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 11
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 11
					FlashLevel7 = 1 : Flasherflash007_Timer
					flasherseq.enabled = 0
					flasherpos = 0
			end Select
		End If

		If flasherdir = "bottom" Then
			select case flasherpos
				case 1
					FlashLevel8 = 1 : Flasherflash008_Timer
					FlashLevel5 = 1 : Flasherflash005_Timer

				case 4
					FlashLevel8 = 1 : Flasherflash008_Timer
					FlashLevel5 = 1 : Flasherflash005_Timer

				case 7
					FlashLevel8 = 1 : Flasherflash008_Timer
					FlashLevel5 = 1 : Flasherflash005_Timer

				case 10
					FlashLevel5 = 1 : Flasherflash005_Timer
					FlashLevel8 = 1 : Flasherflash008_Timer
					flasherseq.enabled = 0
					flasherpos = 0
			end Select
		End If

		If flasherdir = "leftkick" Then
			select case flasherpos
				case 1
					'FlashLevel3 = 1 : Flasherflash3_Timer

				case 4
					FlashLevel3 = 1 : Flasherflash3_Timer

				case 7
					FlashLevel3 = 1 : Flasherflash3_Timer

				case 10
					FlashLevel3 = 1 : Flasherflash3_Timer
					flasherseq.enabled = 0
					flasherpos = 0
			end Select
		End If

		If flasherdir = "rightkick" Then
			select case flasherpos
				case 1
					'FlashLevel3 = 1 : Flasherflash3_Timer

				case 4
					FlashLevel5 = 1 : Flasherflash005_Timer

				case 7
					FlashLevel5 = 1 : Flasherflash005_Timer

				case 10
					FlashLevel5 = 1 : Flasherflash005_Timer
					flasherseq.enabled = 0
					flasherpos = 0
			end Select
		End If

		If flasherdir = "top" Then
			select case flasherpos
				case 1
					FlashLevel6 = 1 : Flasherflash006_Timer
					FlashLevel7 = 1 : Flasherflash007_Timer

				case 4
					FlashLevel6 = 1 : Flasherflash006_Timer
					FlashLevel7 = 1 : Flasherflash007_Timer

				case 7
					FlashLevel6 = 1 : Flasherflash006_Timer
					FlashLevel7 = 1 : Flasherflash007_Timer

				case 10
					FlashLevel6 = 1 : Flasherflash006_Timer
					FlashLevel7 = 1 : Flasherflash007_Timer
					flasherseq.enabled = 0
					flasherpos = 0
			end Select
		End If

		If flasherdir = "crazy" Then
			select case flasherpos
				case 1
					FlashLevel4 = 1 : Flasherflash004_Timer
					FlashLevel7 = 1 : Flasherflash007_Timer
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 2
					FlashLevel8 = 1 : Flasherflash008_Timer
					FlashLevel5 = 1 : Flasherflash005_Timer
				case 3
					FlashLevel5 = 1 : Flasherflash005_Timer
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 4
					FlashLevel4 = 1 : Flasherflash004_Timer
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 5
					FlashLevel7 = 1 : Flasherflash007_Timer
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 6
					FlashLevel4 = 1 : Flasherflash004_Timer
					FlashLevel5 = 1 : Flasherflash005_Timer
				case 7
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 8
					FlashLevel5 = 1 : Flasherflash005_Timer
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 9
					FlashLevel4 = 1 : Flasherflash004_Timer
					FlashLevel8 = 1 : Flasherflash008_Timer
				case 10
					FlashLevel7 = 1 : Flasherflash007_Timer
					FlashLevel5 = 1 : Flasherflash005_Timer
				case 11
					FlashLevel4 = 1 : Flasherflash004_Timer
					FlashLevel7 = 1 : Flasherflash007_Timer
				case 12
					FlashLevel8 = 1 : Flasherflash008_Timer
					FlashLevel5 = 1 : Flasherflash005_Timer
					FlashLevel6 = 1 : Flasherflash006_Timer
				case 13
					FlashLevel5 = 1 : Flasherflash005_Timer
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 14
					FlashLevel4 = 1 : Flasherflash004_Timer
				case 15
					FlashLevel7 = 1 : Flasherflash007_Timer
					FlashLevel8 = 1 : Flasherflash008_Timer
					FlashLevel6 = 1 : Flasherflash006_Timer
					flasherseq.enabled = 0
					flasherpos = 0
			end Select
		End If
	end Sub
		

```