Little Snake (Beep Yeah!)

маленькая змея

клавиши со стрелками для перемещения

x для перехода на следующий уровень

соотношение выигрышей и проигрышей отображается в верхнем левом углу

для #TweetTweetJam, весна 2020 г.

Код:

::i::
poke(0x5f2c,3)
xs=0
ys=-1
s=0
t=0
::n::
cls(ceil(rnd(6)))
для i=1,5 do
 
 a,b=14+rnd(36), 18+rnd(32)
 if (i==1) x=a;y=b
 circfill(b,a,4,0)
 circfill(a,b,12, 0)
end
circfill(a,b,0,8)
u=15
::l::
if (btnp(⬅️)и xs! =1) xs=-1;ys=0
если (btnp(➡️)и xs!=-1) xs=1;ys=0
if (btnp(⬆️)и ys!=1 ) xs=0;ys=-1
если (btnp(⬇️)и ys!=-1) xs=0;ys=1

if (pget(x+xs,y+ys)==8)s+=1;перейти к w
if (pget(x+xs,y+ys)!=0)t+=1;перейти к w
если(u>0)u-=1
если(u%2==0)x+=xs;y+=ys

pset(x,y,11)
flip()
перейти к l
::w::
?s.."w "..t.." l ❎",1,1,0
if (btnp(❎)) перейти к n
flip()
перейти к w