Characters/Bytes used
1014

Source Code
function _init()
s=1
a={true,true,true,true}
k=0
c={9,6,12,4}
d={}
for i=1,20 do add(d,{rnd(128),rnd(128)}) end
r={3,4,4,3}
n={"m","v","e","m"}
o={rnd(999),rnd(999),rnd(999),rnd(999)}
z=64
b={}
f={}
end

function _draw()
cls(0)
circfill(z,z,10,10)
if k>3then print("😐",z-3,z-2,0)if btn(🅾️) then _init() end end
for i=1,#d do pset(d[i][1],d[i][2],10) if rnd(699)<1then add(f,{i,t()+rnd(2)})end end
for g in all(f) do if t()<g[2] then i=g[1] pset(d[i][1]-1,d[i][2],10) pset(d[i][1]+1,d[i][2],10) pset(d[i][1],d[i][2]-1,10) pset(d[i][1],d[i][2]+1,10) end end

for i=1,4 do
if a[i] then
p=z/7*(i+2)
q=(t()+o[i])/5/i
x=z+p*sin(q)
y=z+p*cos(q)
circfill(x,y,r[i],c[i])
print(n[i],x-1,y-1,0)
if i==s then
circ(x,y,r[i],3)
if btn(❎) then add(b,{x,y,r[i],t()+1}) a[i]=false k+=1 end end
end
end
for e in all(b) do
if t()<e[4] then circfill(e[1],e[2],e[3],8) end
end

if btnp(2) then s=s%4+1 end
if btnp(3) then s-=1 if s == 0 then s = 4 end end
end