Compressed Bytes used
998

Source Code (OPTIONAL)
l=1v=3function s()
rf=rectfill
m={}
e={}
x,y=4,28
a,b,c,d,w=0,0,0,0,0
for y=-1,16do
m[y]={}
for x=-1,16do m[y][x]=true end
end
for i=1,l+2 do
local o={{0,0},{0,1},{1,0},{1,1}}
o=o[(i-1)%4+1]
x,y=o[1]*64+flr(rnd(8))*8+4,o[2]*48+flr(rnd(6))*8+36
h,j,k,q=64,64,0,0
if (rnd()<.5)k=x<h and 1or-1else q=y<j and 1or-1
add(e,{t=i%2,a=0,x=x,y=y,dx=k,dy=q})f=3+flr(rnd(2))
for j=0,f do
g,u=x\8+k*j,y\8+q*j
if(g>=0and g<=15and u>=3and u<=14)m[u][g]=false
end
end
end
s()
::⌂::
p=btn()
if x%8==4and y%8==4then
a=((p&2)\2-(p&1)\1)
b=(a==0)and((p&8)\8-(p&4)\4)or 0
c,d=(a==0and b==0)and c or a,(b==0and a==0)and d or b
end
x,y=x+a,y+b
x,y=mid(4,x,124),mid(28,y,116)
m[y\8][x\8]=false
rf(0,0,127,23,1)
for y=24,119,8do
for x=0,127,8do
z={1,10,9,8,4}
if m[y\8][x\8]then
fillp(0x8050)pal(0,2)rf(x,y,x+8,y+8,z[y\24+1])
pal()fillp()end
end
end
for g in all(e)do
if w>0and((c!=0and y==g.y and(abs(x+c*8-g.x)<8))or(d!=0and x==g.x and(abs(y+d*8-g.y)<8)))then g.a+=4end
if g.a>20then
del(e,g)
else
g.a=max(g.a-2,0)
?"\f8☉\^g\f"..(g.a==0and'b'or 7).."\^:7fdd90fa7f1c7ccf",g.x-4,g.y-4
end
if g.x\8==x\8and g.y\8==y\8then
v-=1
x,y=0,0
?"\^6"
goto ⌂
end
if(g.a>0)goto _
if g.x%8==4and g.y%8==4then
k,q=sgn(x-g.x),sgn(y-g.y)
h,j=g.x+g.dx*8,g.y+g.dy*8
function f(x,y)x,y=x\8,y\8
return x>=0and x<=15and y>=3and y<=14and not m[y][x]
end
if(g.dx==k and g.dx!=0and f(h,g.y))or(g.dy==q and g.dy!=0and f(g.x,j))then
elseif g.dx!=0and f(g.x,g.y+q*8)then
g.dx,g.dy=0,q
elseif g.dy!=0and f(g.x+k*8,g.y)then
g.dx,g.dy=k,0
elseif not f(h,j)then
g.dx,g.dy=-g.dx,-g.dy
end
end
g.x,g.y=g.x+g.dx,g.y+g.dy
g.x,g.y=mid(4,g.x,124),mid(28,g.y,116)
::_::
end
w=p&32!=0and 5or w
if (w>0) w-=1
flip()?"\^1"
cls()goto ⌂