Compressed Bytes used
1024

Source Code (OPTIONAL)
e=0
cls()
rectfill(8,0,15,7,8)
rectfill(8,4,11,7,2)
rectfill(12,0,15,3,2)
circfill(19,3,3,5)
circfill(19,3,2,6)
line(21,2,21,3,7)
pset(20,1,7)
fillp(▒)
rectfill(24,0,31,7,0x06)
fillp()
memcpy(0x0,0x6000,0xfff)
camera(-4,-6)
h={}
j={}
k={}
l={}
for i=1,50 do
h[i]=rnd(128)-2
j[i]=rnd(122)
k[i]=rnd({5,6,7})
l[i]=rnd(2)+.5
end

::b::
b=1
x=3
y=3
u=0
v=0
d=0
m=0
s=0
t=2700
c=0

::z::
for r=0,1 do
for g=0,14 do
for f=0,14 do
if (r==0) mset(f,g,0)
if f%2==0 and g%2==0 then
mset(f,g,1)
if r==1 then
if mget(f-2*b,g)!=1 and mget(f,g-2*b)!=1 then
elseif mget(f-2*b,g)!=1 then
mset(f,g-b,1)
elseif mget(f,g-2*b)!=1 then
mset(f-b,g,1)
else
if rnd()<.5 then
mset(f,g-b,1)
else
mset(f-b,g,1)
end
end
end
end
end
end
end

if b==1 then
pal()
mset(14,14,3)
else
pal(8,3)
pal(2,12)
mset(0,0,3)
end

::e::
cls()
map(0,0,0,0,15,15)
if (m>0) rectfill(0,0,119,119,0)
sspr(16,0,7,7,x-3+(d/30)*3,y-3+(d/30)*3,7-(d/30)*7,7-(d/30)*7)
?"score:"..c,4,-6,7
?"best:"..e,38,-6,7
?"time:"..flr(t/30),80,-6,7
for i=1,50 do
if (pget(h[i],j[i])==0) pset(h[i],j[i],k[i])
h[i]-=l[i]
if (h[i]<=-5) h[i]+=128
end
for i=0,1 do
if s==0 then
?"\^w\^tqu1ksilver",21,40-i,0+i*7
?"press ❎ to start",26,61-i,0+i*7
end
if s==2 or s==3 then
?"press ❎ to restart",22,61-i,0+i*7
if (c>e) e=c
if btnp(5) then
flip()
goto b
end
end
if s==3 then
?"time over!",40,54-i,0+i*7
end
end
if s==0 then
if (btnp(5)) s=1
elseif s==1 then
if mget(flr(x/8),flr(y/8))==3 then
s=4
print("\as8c2gc3 ")
end
if mget(flr((x-2)/8),flr((y-2)/8))==0 then
if mget(flr((x-2)/8),flr((y+2)/8))==0 then
if mget(flr((x+2)/8),flr((y-2)/8))==0 then
if mget(flr((x+2)/8),flr((y+2)/8))==0 then
print("\asfx4c2x1v3c1x1v1c0 ")
s=2
end
end
end
end
t-=1
if (t<=0) s=3
if (btn(0)) u-=.1
if (btn(1)) u+=.1
if (btn(2)) v-=.1
if (btn(3)) v+=.1
x+=u
y+=v
u*=0.95
v*=0.95
elseif s==2 then
if (d<30) d+=1
elseif s==4 then
m+=1
if m<7 then
fillp(0xa5a5.8)
elseif m<14 then
fillp()
if m==10 then
b*=-1
c+=1
goto z
end
elseif m<20 then
fillp(0xa5a5.8)
else
s=1
m=0
fillp()
end
end
flip()
goto e