White Arrow

Белая Стрела

Бесконечный клон астероидов, где экран постепенно заполняется все большим количеством камней!

Ваше оружие улучшается каждый четвертый уровень, и с повышением вашего уровня появляется больше астероидов (1 дополнительный камень с каждым новым уровнем).

Хитбокс корабля имеет размер 1x1 (показан пикселем в середине корабля), и импульса нет, поэтому вы можете немного уклоняться.

Влево и вправо
Повернуть корабльВверх
Переместить корабль впередX
Огонь <р>

В сжатом виде 1024 байта для PICO-1K Jam 2022 https://itch.io/jam/pico-1k-2022

pl={0,4,8,8,6,4,8,0,0,4} rk={1,1,4,0,7,2,8,4,7,6,4,8,1,7,0,4,1,1} функция rks(s,n,x,y) если #r<200, то для i=1,n сделать если x==ноль, то а=rnd(160) б=(rnd(2)\2)*160 o=rnd{{a,b},{b,a}} х=о[1] у=о[2] конец add(r,{x=x,y=y,t=r, s=s,a=rnd(),d=rk, h=1,v=.3+rnd()}) конец конец конец функция draw(m,c) для всего (м) сделать о=а.д. т=а.а если (a.t==r) t+=ra са, ка = грех (т), соз (т) для i=1,#o,2 сделать x=(o[i]-4)*п.с. y=(o[i+1]-4)*п.с. m=x*sa-y*ca+a.x n=x*ca+y*sa+a.y если (i>1) line(k,l,m,n,c) к,l=m,n конец конец конец функция перемещения (м) для всего (м) сделать a.x=(a.x-sin(a.a)*a.v+8)%160-8 a.y=(a.y-cos(a.a)*a.v+8)%160-8 если (a.t==f или a.t==g) a.h-=1 конец конец функция kill(m) для всего (м) сделать если (a.h==0) del(m,a) конец конец функция кол(м,п) для всего (м) сделать для b во всех (n) сделать если a.h и b.h>0, то х=а.х-б.х y=а.у-у.у если x*x+y*y1) rks(a.s-1,5-a.s,a.x,a.y) конец конец конец конец конец конец функция _init() г={} е={} г={} p={x=64,y=64,a=0,s=1,5,v=1,5,h=1,d=pl} шо=0 лско=10 штат=1 лев=1 тик=0 компакт-диск = 0 ра=0 ркс(3,4) эффект(-1,-2) ?"\a2shl08d0..d..c#." ?"\a3syl0wf1efad.fefad.c#.e.fefad.fefaa#agfec#" конец функция _обновление() если ста==1 тогда если (btn(0)) p.a-=.025 если (btn(1)) р.а+=.025 если (btn(2)) move({p}) если btn(5) и tic>=cd, то компакт-диск=тик+8 ?"\a0d2ad" l=лев\4/2 для i=-l, я делаю add(f,{x=p.x,y=p.y,t=f,s=.3,v=4,h=20,d=pl,a=p.a+i*.1}) конец конец двигаться (г) двигаться(ф) двигаться(г) кол(г, е) кол(г, {р}) убить(р) убить(ж) убить(г) если (p.h==0), то штат=2 ?"\a3sfl08bfd" конец если sco>lsco, то лев+=1 lsco+=лев*6 rks(3,лев) конец ра+=.025 конец если ста==2 тогда п.с-=.025 год+=.025 если (p.s<0,025) ста=3 конец if (sta==3 и btn(5)) _init() тик+=1 конец функция _draw() клс(1) рисовать(г,2) ничья(r,12) ничья(ф,9) pset(p.x,p.y) ничья({p},8-sta%2) if (sta==3) ?"игра окончена!\npush x\n",48,48 ?"score:"..sco ?"лев:"..лев конец