How many characters of code did you use?
542

If you're comfortable with it, paste your game code here, so we can marvel at your achievement!
::a::x,y=9,9 s,l,a,b=0,0,0,0 u=false poke(0x5f2d,1)c=5 poke(0x5f2c,3)
g={rnd(60),rnd(60)}
::b::cls(2)
?s,30,30,1
if(abs(g[1]-x)<4 and abs(g[2]-y)<4 and u and l>1) s+=1 goto a
local mx,my=stat(32),stat(33)
if(not u and abs(x-mx)<5 and abs(y-my)<5) i=x-mx o=y-my d=sqrt(i*i+o*o) a=i/d b=o/d l=0 u=true
if(x>60 or x<0)a=-a l+=1
if(y>60 or y<0)b=-b l+=1
x+=a y+=b
?"◆",g[1],g[2],0
if(l>1 and u) c=10
if(c==10 and abs(x-mx)<4 and abs(y-my)<4)u=false c=5 l=0
if(l>3 and u) u=false l=0 c=5
?"●",x-2,y-2,c
rect(0,0,63,63)
circ(mx,my,2,7)
flip()goto b