picoretro, 1 month ago

a=add
k=poke
t=stat
g=sget
k(24365,3)k(24405)cls()for y=1,120,5do
for x=1,121,6do?rnd{"◜","◝"},x,y,2
end
end
rect(0,0,127,120,6)k(24405,96)f={}s={0,0}p=1::_::px=t(32)py=t(33)if(btnp(5)and g(px,py)==0)a(f,{p,px,py})p=3-p
n={}while#f>0do
q,x,y=unpack(deli(f))x=mid(0,x,127)y=mid(0,y,120)if g(x,y)==0then
sset(x,y,4+4*q)s[q]+=1a(n,{q,x,y+1})a(n,{q,x,y-1})a(n,{q,x+1,y})a(n,{q,x-1,y})end
end
f=n
cls(13)spr(0,0,0,16,16)?s[1],1,122,8
?s[2],80,122,12
?chr(21+p),62,122,7
circ(px,py,1,rnd{6,7})flip()goto _