1K Geometry Asteroids #Pico1k

Your space ship is surrounded by Space Donuts and Space Squares. Shoot at them and don't let them touch your ship.

A game in 1023 Compressed Bytes of code for PICO-1K Jam 2022  #Pico1k

Code:

_set_fps(60)poke(24405,0)for i=0,15do
a=29-i*2b=31-i
rect(b,i,a,i,12)rect(b,b,a,b)end
circfill(16,48,15,7)circfill(16,48,8,0)rectfill(0,64,31,95,7)rectfill(8,72,23,87,0)
poke(24405,96)for i=0,15do
a=i%4b=i\4c=a+b*16mset(2+a,b+2,c)mset(10+a,b+2,c+64)mset(18+a,b+2,c+128)end
poke2(24376,2056)h=0::r::r={}p={{x=64,y=64,z=.25,u=0,v=0,i=0,l=1,t=0}}o=p[1]n=2m=0l=5j=0s=0v=.25::s::k=99for i=1,n do
a=rnd()c=cos(a)d=sin(a)add(p,{x=o.x+64*c,y=o.y+64*d,z=rnd(),u=c*v,v=d*v,i=rnd(2)\1+1,l=20,t=0})end
::_::cls(1)pal(12,(k>0and t()%.5<.25)and 13or 12)k-=1
for w in all(r)do
if(w.i>0)a=w.x+w.u b=w.y+w.v line(w.x,w.y,a,b,w.i+8)w.x=a%128w.y=b%128
for q in all(p)do
c=(w.x-q.x+64)%128-64d=(w.y-q.y+64)%128-64
if max(abs(c),abs(d))<8and q.i>0then
if(w.i==1)w.l=0q.l-=1q.t=12
if(w.i<1and k<0)k=99l-=1
end
end
w.l-=1if(w.l<0)del(r,w)
end
for q in all(p)do
if q.i<1then
b=btn()q.z-=(b\2%2-b%2)/99c=cos(q.z)d=sin(q.z)e=(b\8%2-b\4%2)/50
q.u=(q.u-c*e)*.99
q.v=(q.v-d*e)*.99
j-=1if(j<0)j=15for i=0,m do a=q.z+(i-m/2)/64add(r,{x=q.x,y=q.y,u=cos(a)*3,v=sin(a)*3,i=1,l=20})end
for i=0,8,2do
a=2*i-8b=i-8e=8-i
add(r,{x=q.x+c*a-b*d,y=q.y+d*a+b*c,i=0,l=0})
add(r,{x=q.x+c*a-e*d,y=q.y+d*a+e*c,i=0,l=0})
add(r,{x=q.x+c*b-b*d,y=q.y+d*b+b*c,i=0,l=0})
add(r,{x=q.x+c*b-e*d,y=q.y+d*b+e*c,i=0,l=0})
end
else
q.z+=.01q.t-=1pal(7,q.t>0and 14or 7)
end
q.x=(q.x+q.u)%128q.y=(q.y+q.v)%128
for i=0,8do
b=q.x+(i%3-1)*128a=q.y+(i\3-1)*128
if min(a,b)>-32and max(a,b)<160then
c=-cos(q.z)/4d=sin(q.z)/4poke(24378,q.i*8)
for i=-16,15do
e=a-i
tline(b-16,e,b+15,e,4-c*16+d*i,4-d*16-c*i,c,d)end
end
end
if(q.l<0)s+=1for i=0,15do a=rnd()add(r,{x=q.x,y=q.y,u=cos(a),v=sin(a),l=20,i=2})end del(p,q)?"\a"
end
?h,9
?s
?"♥ "..l,99,1,8
if(#p<2)n=min(n+.5,10)m=min(m+.5,10)v+=.02goto s
if(l<1)h=max(s,h)goto r
flip()goto _