1K Geometry Asteroids #Pico1k

Ваш космический корабль окружен космическими пончиками и космическими квадратами. Стреляйте в них и не позволяйте им коснуться вашего корабля.

Игра со сжатым кодом 1023 байта для PICO-1K Jam 2022  #Pico1k

Код:

_set_fps(60)poke(24405,0)для i=0,15do а=29-я*2b=31-я прямоугольник(b,i,a,i,12)прямой(b,b,a,b)конец circfill(16,48,15,7)circfill(16,48,8,0)rectfill(0,64,31,95,7)rectfill(8,72,23,87,0) тыкать(24405,96)для 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, с+128)конец 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})конец ::_::cls(1)pal(12,(k>0and t()%.5<.25)and 13or 12)k-=1 для w во всем(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 для q в all(p)do c=(w.x-q.x+64)%128-64d=(w.y-q.y+64)%128-64 если max(abs(c),abs(d))<8 и q.i>0, то если(w.i==1)w.l=0q.l-=1q.t=12 if(w.i<1 и k<0)k=99l-=1 конец конец w.l-=1if(w.l<0)del(r,w) конец для q в all(p)do если q.i<1, то 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=15для 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 для я=0,8,2до а=2*я-8b=я-8е=8-я 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}) конец еще q.z+=.01q.t-=1pal(7,q.t>0 и 14или 7) конец q.x=(q.x+q.u)%128q.y=(q.y+q.v)%128 для i=0,8do b=q.x+(i%3-1)*128a=q.y+(i\3-1)*128 если min(a,b)>-32 и max(a,b)<160, то c=-cos(q.z)/4d=sin(q.z)/4poke(24378,q.i*8) для я=-16,15до е=а-я tline(b-16,e,b+15,e,4-c*16+d*i,4-d*16-c*i,c,d)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" конец ?ч,9 ?с ?"♥ "..л,99,1,8 if(#p<2)n=min(n+.5,10)m=min(m+.5,10)v+=.02перейти к с if(l<1)h=max(s,h)перейти к r перевернуть()перейти к _