---
title: Strobing Flasher
slug: strobing-flasher
description: Learn how to create pulsing pizza lights with this comprehensive code document. Featuring the "pizzastrobe" subroutine, you can effortlessly control the state and image of the lights. Additionally, the "pulsetim_timer" subroutine allows you to modify the 
docTags: 
createdAt: 2021-01-16T17:01:01.000Z
---



```vb
	'****************************
	' Pulsing pizza lights
	'****************************

	'pulsetim.enabled=False

	dim pint:pint=0
	dim pdir:pdir=0

	sub pizzastrobe(num)
		if num = 1 Then
			pulse1.state=1
			pulse2.state=1
			pulsetim.enabled=1
			Flasherbase007.image = "domeredbase"
			Flasherbase006.image = "domeredbase"
		Else
			pulse1.state=0
			pulse2.state=0
			pulsetim.enabled=0
			Flasherbase007.image = "domewhitebase"
			Flasherbase006.image = "domewhitebase"
		end if
	end Sub
	sub pulsetim_timer
		If pint=25 Then
			pdir=1
		end If
		if pint=0 Then
			pdir=0
		end If

		if pdir=0 Then
			pint=pint+1
		else
			pint=pint-1
		end if

		pulse1.intensity=pint
		pulse2.intensity=pint
	end Sub
```