How many characters of code did you use?
559

If you're comfortable with it, paste your game code here, so we can marvel at your achievement!
x,y,b,e,r,u,v,m,a=0,0,btnp,sset,rnd,rect,sget,memset,128
function s(c,d,i)e(x+i%6+1,y+i/6+1,c)e(i%6+1,i/6+1,d)end
m(512,17,7680)for i=1,a do e(r(a),r(a),r(9)+6)end
m(0,0,512)for i=0,35 do e(i%6+121,i/6+1,r()<.8 and 1 or r(9)+6)end::_::cls()sspr(0,0,a,a,0,0)sspr(0,0,8,8,x,y)u(0,0,7,7)u(120,0,127,7)u(x,y,x+7,y+7)
if(b(0))x-=1
if(b(1))x+=1
if(b(2))y-=1
if(b(3))y+=1
if b(4)then
w=1
for i=0,35 do
c=v(x+i%6+1,y+i/6+1)
if(c!=1)s(1,c,i)
if(v(i%6+121,i/6+1)!=c)w=z
end
if(w)run()
end
if(b(5))then
for i=0,35 do
c=v(i%6+1,i/6+1)
if(c!=0)s(c,0,i)end end
flip()goto _