There be Treasure!

Yarr! There be a treasure on these isles! Only the bravest triangulators can find!

Controls:

• Arrow keys to move
• Z or C to dig and find out how faraway the treasure is.

Goal:

• Find the treasure (X mark the spot!) by digging around.
• For added challenge, find the treasure in 3 or less digs!

Code

Game (549 chars):

cls(15)for i=0,30do a=rnd()l=rnd(48)c=cos(a)*l+63s=sin(a)*l+63circfill(cos(a)*l+63,sin(a)*l+63,rnd(8)+8,9)end for i=0,9999do x=rnd(128)y=rnd(128)o=flr(rnd()*4)/4for e=0,.9,1/4do j=pget(x+cos(e+o),y+sin(e+o)) if(j!=9)circfill(x,y,1,j>9and 15)end end memcpy(0,24576,8192)g=9f=9d=9t=0::_:: p=btn()g+=(p&2)/2-(p&1)f+=(p&8)/8-(p&4)/4 if(btnp(4))d=sqrt((g-c)^2+(f-s)^2)circ(g,f,d,7) if(t%3<1)sset(g,f,8)pset(g,f,8) flip()t+=1 if(d>3)goto _ spr(0,0,0,16,16)::w::for j=-1,1do for k=-1,1do c+=j s+=k line(c-5,s-5,c+5,s+5,8)line(c-5,s+5,c+5,s-5)end end goto w

Original Tweetcart (274 chars):

cls(15)for i=0,30do a=rnd()l=rnd(48)c=cos(a)*l+63s=sin(a)*l+63circfill(cos(a)*l+63,sin(a)*l+63,rnd(8)+8,9)end::_::if t()<.4then x=rnd(128)y=rnd(128)o=flr(rnd()*4)/4for e=0,.9,1/4do j=pget(x+cos(e+o),y+sin(e+o)) if(j!=9)circfill(x,y,1,j>9and 15)end else ?"⁙",c,s,8 end goto _

Made for #TweetTweetJam5