There be Treasure!

Ярр! На этих островах должны быть сокровища! Только самые смелые триангуляторы могут найти!

Элементы управления:

• Клавиши со стрелками для перемещения
• Z или C, чтобы выкопать и узнать, насколько далеко находится сокровище.

Цель:

• Найдите сокровище (отметьте крестиком место!), копая вокруг.
• Чтобы усложнить задачу, найдите сокровище за 3 или менее раскопок!

Код

Игра (549 символов):

cls(15)для 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)конец для i=0,9999do x=rnd(128)y=rnd(128)o=flr(rnd()*4)/4для 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)конец конец memcpy(0,24576,8192)g=9f=9d=9t=0::_:: p=btn()g+=(p&2)/2-(p&1)f+=(p&8)/8-(p&4)/4 если (btnp (4)) d = sqrt ((gc) ^ 2 + (fs) ^ 2) circ (g, f, d, 7) если(t%3<1)sset(g,f,8)pset(g,f,8) флип()t+=1 если (d>3) перейти к _ spr(0,0,0,16,16)::w::для j=-1,1do при k=-1,1do с+=j с+=к строка(c-5,s-5,c+5,s+5,8)строка(c-5,s+5,c+5,s-5)конец конец перейти к w

Исходная корзина (274 символа):

cls(15)для 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()<.4тогда x=rnd(128)y=rnd(128)o=flr(rnd()*4)/4для 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)конец еще ?"⁙",с,с,8 конец идти к _

Сделано для #TweetTweetJam5