Genuary 2023 Day 16 - Reflection of a reflection

-- genuary #16 2023
-- reflection of a reflection
-- by carson kompon
_set_fps(60)
pal({[0]=0,129,130,1,2,140,136,12,8},1)

rain={}
tim=0
cls()

::_::
	for i=1,200 do
		local x=rnd(128)
		local y=rnd(128)
		local c=pget(x,y)
		if c~=0 then
			local d=1+(c%2)
			if(rnd()<.1)d=0
			c=max(c-2)
		end
		circfill(x,y,1,c)
	end
	
	if tim%20==0 then
		add(rain,{
			x=rnd(64),
			y=0,
			spd=0
		})
	end
	
	for r in all(rain) do
		r.spd+=.01
		r.y+=r.spd
		circfill(r.x,r.y,2,7)
		circfill(128-r.x,r.y,2,8)
		if(r.y>=132)del(rain,r)
	end
	
	flip()
	if(tim%(16*60)==0)srand(1)
	tim+=1
goto _