1K Charr demake #Pico1k​​

Уничтожайте вражеские базы или убирайте землю у них из-под ног, пока не закончатся патроны. Вы также можете прокрутить всю карту перед съемкой.

Моя попытка создать игру в стиле Scorched Earth для PICO-1K Jam 2022  #Pico1k. Игра в 1024 сжатых байтах кода.

Код:

_set_fps(60)s=0l=32pal({1,11,139,3,5},1) ::s::x=64y=64c=512r=rnd(21)\1-10p={}w={}z=1j=1k={rnd(),rnd(),rnd()}для i= 1,с сделать a=96+(sin(i/128+k[1])+sin(i/256+k[2])+sin(i/512+k[3]))*16\1 если(i>c*j/9)w[j]={x=i,y=a,z=1/8,i=j,f=64}j+=1 p[i]={g=0,p={{a=a,b=a+7,c=2},{a=a+8,b=a+15,c=3},{a= а+16,б=а+23,в=4},{а=а+24,б=256,в=5}}}конец ::_::cls(1)камера(0,макс(y-64)) если(z<2)b=btn()u=b\2%2-b%2v=b\8%2-b\4%2 для i=1,#p сделать j=i-x\1+64, если j==mid(j,127), то д=р[я].р для o во всех (q) делать прямоугольник (j, o.a, j, o.b, o.c) конец конец конец для t во всех (w) делать а=т.х-х+64б=т.у-6 rectfill(a-6,b+1,a+6,b+5,t.i+6)?"(⬇️)",a-7,b+1,0 t.c=cos(t.z)t.d=sin(t.z)line(a,b,a+t.c*6,b+t.d*6,7) q=p[t.x].p если#q<1или q[1].a>t.y или l<1тогда if(t.i<2или l<1)s=0l=32перейти к s дел(ш,т)с+=1конец конец если z<1, то x=середина(x+u,512)y=середина(y+v,256)?"+",63,y-1,7 если(btnp(5))z=1 иначе, если z<2, то t=w[1]rect(28,y-64,28+t.f,y-63,7) x+=середина(-2,t.x-x,2)y+=середина(-1,t.y-y,1) t.z=mid(t.z-u/600,.5)t.f=mid(t.f-v,100) если(btnp(5))z=0 if(btnp(4))x=t.x+t.c*8y=t.y+t.d*8u=t.c*t.f/32v=t.d*t.f/32z=2l-=1 иначе, если z<3, то а=х б=у х+=и у+=v u+=r/5000v+=.02circ(64+x-a,y,1,7) если pget(64+x-a,y)>1или y>256тогда z=3для i=1,#p сделать j=i-x\1, если abs(j)<16н e=(256-j*j)^.5\1c=-e+y\1d=e+y\1q=p[i].p г=р[я].г j=1в то время как j<=#q делать o=q[j], если o.a<=d и o.b>=c, то g=1, если o.ad, то добавить (q, {a=d+1,b=o.b,c=o.c},j+1)o.b=c-1 иначе, если o.a>=c и o.b<=d, то дел(д,о)j-=1 иначе, если o.b>=d, то о.а=d+1 еще о.б=с-1конец конец j+=1конец р[я].г=г конец конец конец иначе, если z<4, то a=0для i=1,#p сделать если p[i].g>0, то г=0q=p[i].p если #q>0, то o=q[#q]if(o.b<256)o.a+=1o.b+=1g=1a=1 конец для j=#q-1,1,-1do o=q[j]if(q[j+1].a>o.b+1)o.a+=1o.b+=1g=1a=1 конец р[я].г=г конец конец если(а<1)z=1 конец ?"w:"..r,0,y-64,7 ?s ?л если(#w<2)перейти к s флип () перейти к _