-- 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 _