1k Circles

1 тыс. кругов

Экспериментальная, красочная игра, содержащая менее 1024 символов кода pico8 для джема pico1k!

Инструкции

Клавиши со стрелками для перемещения.
Постарайтесь сохранить значительную часть своих собственных цвет на экране как можно дольше!
Ваша полоса «здоровья» находится внизу, и в случае проигрыша вы «вернетесь» к началу.
Ваши текущие и самые высокие баллы показаны на вверху слева.

Код

868 символов в pico8

-- 1 тыс. кругов -- от Суренчо _set_fps(60) f=заполнение приятель({1,13,14},1) функция р(д) клс(3) v=1 с=д s=макс(т,с) т=0 а=0 да=0,006 дда=0,0001 д=64 ш=64 f(q,w,20,v) конец г (0) ::_:: если (btn(0)) q+=-4 если (btn(1)) q+=4 если (btn(2)) w+=-4 если (btn(3)) w+=4 е(д, ш, 2, v) для i=0,400 сделать x,y=rnd(128),rnd(128) к=атан2(х-64,у-64) ПК = pget(x,y) если ПК != 12, то если abs(k-a)<0,07, то если (pc!=v или rnd()<0,85) ПК=rnd(2)+2 конец f(x,y,2+rnd(1),ПК) конец конец г = 0 для i=0,63 сделать для j=0,127 сделать if(pget(i*2+t%2,j) == v) z+=1 end end если (z<200) r(s) е(0,0,22,9) print("s:"..t,1,1,1) print("h:"..s,1,8,1) ч=(z-200)/8192*4 прямоугольникзаполнение(4,120,4+h*124,124,12) а+=да да+=дда да=мин(да, 0,025) т+=1 если (а > 1) а = 0 подбросить() идти к _