1K Charr demake #Pico1k​​

Destroy enemy bases or remove the earth under their feet till you run out of bullets. You can also scroll through the full map before shooting.

My attempt at a Scorched Earth style game for PICO-1K Jam 2022  #Pico1k. A game in 1024 Compressed Bytes of code.

Code:

_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()}for i=1,c do a=96+(sin(i/128+k[1])+sin(i/256+k[2])+sin(i/512+k[3]))*16\1 if(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=a+16,b=a+23,c=4},{a=a+24,b=256,c=5}}}end ::_::cls(1)camera(0,max(y-64)) if(z<2)b=btn()u=b\2%2-b%2v=b\8%2-b\4%2 for i=1,#p do j=i-x\1+64if j==mid(j,127)then q=p[i].p for o in all(q)do rect(j,o.a,j,o.b,o.c)end end end for t in all(w)do a=t.x-x+64b=t.y-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 if#q<1or q[1].a>t.y or l<1then if(t.i<2or l<1)s=0l=32goto s del(w,t)s+=1end end if z<1then x=mid(x+u,512)y=mid(y+v,256)?"+",63,y-1,7 if(btnp(5))z=1 elseif z<2then t=w[1]rect(28,y-64,28+t.f,y-63,7) x+=mid(-2,t.x-x,2)y+=mid(-1,t.y-y,1) t.z=mid(t.z-u/600,.5)t.f=mid(t.f-v,100) if(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 elseif z<3then a=x b=y x+=u y+=v u+=r/5000v+=.02circ(64+x-a,y,1,7) if pget(64+x-a,y)>1or y>256then z=3for i=1,#p do j=i-x\1if abs(j)<16then e=(256-j*j)^.5\1c=-e+y\1d=e+y\1q=p[i].p g=p[i].g j=1while j<=#q do o=q[j]if o.a<=d and o.b>=c then g=1if o.a<c and o.b>d then add(q,{a=d+1,b=o.b,c=o.c},j+1)o.b=c-1 elseif o.a>=c and o.b<=d then del(q,o)j-=1 elseif o.b>=d then o.a=d+1 else o.b=c-1end end j+=1end p[i].g=g end end end elseif z<4then a=0for i=1,#p do if p[i].g>0then g=0q=p[i].p if #q>0then o=q[#q]if(o.b<256)o.a+=1o.b+=1g=1a=1 end for j=#q-1,1,-1do o=q[j]if(q[j+1].a>o.b+1)o.a+=1o.b+=1g=1a=1 end p[i].g=g end end if(a<1)z=1 end ?"w:"..r,0,y-64,7 ?s ?l if(#w<2)goto s flip()goto _