Rainbow Changing Lights

1 min

	' 	' rainbow changing lights 	' 	dim rgbstep, rgbfactor, rred, rgreen, rblue, rainbowlights 	sub startrainbow(n) 	 set rainbowlights = n 	 rgbstep = 0 	 rgbfactor = 5 	 rred = 255 	 rgreen = 0 	 rblue = 0 	 rainbowtimer enabled = 1 	end sub 	dim rgbstep2, rgbfactor2, rred2, rgreen2, rblue2, rainbowlights2 	sub startrainbow2(n) 	 set rainbowlights2 = n 	 rgbstep2 = 0 	 rgbfactor2 = 5 	 rred2 = 255 	 rgreen2 = 0 	 rblue2 = 0 	 rainbowtimer1 enabled = 1 	end sub 	sub stoprainbow(n) 	 dim obj 	 rainbowtimer enabled = 0 	 rainbowtimer enabled = 0 	 for each obj in rainbowlights 	 setlightcolor obj, "white", 0 	 next 	end sub 	sub stoprainbow2(n) 	 dim obj 	 rainbowtimer1 enabled = 0 	 for each obj in rainbowlights2 	 setlightcolor obj, "white", 0 	 obj state = 1 	 obj intensity = 7 	 next 	end sub 	sub rainbowtimer timer 'rainbow led light color changing 	 dim obj 	 select case rgbstep 	 case 0 'green 	 rgreen = rgreen + rgbfactor 	 if rgreen > 255 then 	 rgreen = 255 	 rgbstep = 1 	 end if 	 case 1 'red 	 rred = rred rgbfactor 	 if rred < 0 then 	 rred = 0 	 rgbstep = 2 	 end if 	 case 2 'blue 	 rblue = rblue + rgbfactor 	 if rblue > 255 then 	 rblue = 255 	 rgbstep = 3 	 end if 	 case 3 'green 	 rgreen = rgreen rgbfactor 	 if rgreen < 0 then 	 rgreen = 0 	 rgbstep = 4 	 end if 	 case 4 'red 	 rred = rred + rgbfactor 	 if rred > 255 then 	 rred = 255 	 rgbstep = 5 	 end if 	 case 5 'blue 	 rblue = rblue rgbfactor 	 if rblue < 0 then 	 rblue = 0 	 rgbstep = 0 	 end if 	 end select 	 for each obj in rainbowlights 	 obj color = rgb(rred \ 10, rgreen \ 10, rblue \ 10) 	 obj colorfull = rgb(rred, rgreen, rblue) 	 next 	end sub 	sub rainbowtimer1 timer 'rainbow led light color changing 	 dim obj 	 select case rgbstep2 	 case 0 'green 	 rgreen2 = rgreen2 + rgbfactor2 	 if rgreen2 > 255 then 	 rgreen2 = 255 	 rgbstep2 = 1 	 end if 	 case 1 'red 	 rred2 = rred2 rgbfactor2 	 if rred2 < 0 then 	 rred2 = 0 	 rgbstep2 = 2 	 end if 	 case 2 'blue 	 rblue2 = rblue2 + rgbfactor2 	 if rblue2 > 255 then 	 rblue2 = 255 	 rgbstep2 = 3 	 end if 	 case 3 'green 	 rgreen2 = rgreen2 rgbfactor2 	 if rgreen2 < 0 then 	 rgreen2 = 0 	 rgbstep2 = 4 	 end if 	 case 4 'red 	 rred2 = rred2 + rgbfactor2 	 if rred2 > 255 then 	 rred2 = 255 	 rgbstep2 = 5 	 end if 	 case 5 'blue 	 rblue2 = rblue2 rgbfactor2 	 if rblue2 < 0 then 	 rblue2 = 0 	 rgbstep2 = 0 	 end if 	 end select 	 ' for each obj in rainbowlights2 	 ' obj color = rgb(rred2 \ 10, rgreen2 \ 10, rblue2 \ 10) 	 ' obj colorfull = rgb(rred2, rgreen2, rblue2) 	 ' next 	end sub

RGB Lighting

Light Runs