Genuary 2023 Day 29 - Maximalism #7

-- genuary #29 2023
-- maximalism
-- by carson kompon

-- fxhash snippet
w=stat(6)s=1
for i=1,#w do
ch=ord(sub(w,i,i))s+=s*31+ch
end
srand(s)

pal({[0]=15,143,142,8},1)

emitters={}
objs={}

for i=1,8 do
add(emitters,{
x=rnd(128),
y=rnd(128),
rot=rnd(),
rotspd=(rnd()-.5)/20,
spd=0.01+rnd()*2,
turnspd=(rnd()-.5)/20,
freq=2+rnd(5)\1,
tim=0
})
end

cls()
::_::

for i=1,1000 do
	local x=rnd(128)
	local y=rnd(128)
	pset(x,y,max(pget(x,y)-1))
end

for e in all(emitters) do
	if e.tim%e.freq==0 then
		add(objs,{
			x=e.x,
			y=e.y,
			dir=e.rot,
			spd=e.spd,
			turnspd=e.turnspd,
			life=240
		})
	end
	e.rot+=e.rotspd
	e.tim+=1
end

for o in all(objs) do
	o.x+=cos(o.dir)*o.spd
	o.y+=sin(o.dir)*o.spd
	o.dir+=o.turnspd
	o.life-=1
	pset(o.x,o.y,3)
	if(o.life<=0)del(objs,o)
end

flip()

goto _