1K Space Battle #Pico1k

Ваш космический корабль атакован! Игра в 1023 сжатых байтах кода для PICO-1K Jam 2022  #Pico1k

Код:

h=0t={16,16,16,2,8,2,4,8,0,9,0,9}m={}для i=1,#t,2do для k=0,1,1/6do b=t[i+1]добавить(m,{x=t[i],y=cos(k)*b,z=sin(k)*b})end конец ::r::x=64y=64u=0v=0z=3s=0g=6::s::t=0?"\asfccggg.gfedc4cg3gg" p={}для i=1,z сделать b=1.2+rnd(1.6)e=1.2+rnd(1.6)добавить(p,{i=0,l=2,b=b/512,c=rnd()<.5и.85или.35+rnd( .1)-b,e=e/512,f=rnd()<.5and.85or.35+rnd(.1)-e,t=t+rnd(512),j=rnd(512)}) конец ::_::cls(1)t+=1 ?"♥"..g,7 ?s ?час для w во всех (p) делать если w.i<1, то o=t-w.t а=384-0/2 e=a*sin(w.b*o+w.c)f=a*sin(w.e*o+w.f)o=584-o a=1b=1c=1if(w.x!=nil)a=e-w.x b=f-w.y c=o-w.z ш.х=е w.y=f w.z=o d=(a*a+b*b+c*c)^.5a3=a/d а6=б/г а9=в/д а=-а6 б=а3 d=(a*a+b*b)^.5a1=a/d а4=б/г а2=а4*а9 а5=-а1*а9 а8=а1*а6-а4*а3 n={}для i=1,#m сделать q=m[i]n[i]={x=a1*q.x+a2*q.y+a3*q.z,y=a4*q.x+a5*q.y+a6*q.z,z= a8*q.y+a9*q.z} конец j=64/w.z для i=1,#n-7do q=n[i]r=n[i+1]o=n[i+7] k=1a=64+j*(w.x+k*q.x)b=64+j*(w.y+k*q.y) линия (64+j*(w.x+k*r.x),64+j*(w.y+k*r.y),a,b) строка(64+j*(w.x+k*o.x),64+j*(w.y+k*o.y)) k=-1a=64+j*(w.x+k*q.x)b=64+j*(w.y+k*q.y) линия (64+j*(w.x+k*r.x),64+j*(w.y+k*r.y),a,b) строка(64+j*(w.x+k*o.x),64+j*(w.y+k*o.y)) конец w.w=j*16w.u=64+j*w.x w.v=64+j*w.y w.j-=1if(w.j<1)добавить(p,{i=1,l=1,u=w.u,v=w.v,w=4})w.j=512 если(w.z<24)w.l=0 иначе, если w.i<2, то w.w+=.5 для i=0,5do a=i/6+t/99c=w.u+w.w*cos(a)d=w.v+w.w*sin(a) для j=0,5do b=j/6+t/99e=w.w*cos(b)/3f=w.w*sin(b)/3 строка (в-е, г-е, в + д, г + е, 11+т%6)конец конец если(w.w>32)w.l=0g-=1?"\as3ec" иначе, если w.i<3, то ww+=2 для i=0,7do a=i/8c=w.u+w.w*cos(a)d=w.v+w.w*sin(a) pset(c,d,11+t%6)конец если(w.w>32)w.l=0 конец если(w.l<1или w.i>2)del(p,w) конец b=btn()x=середина(x+2*(b\2%2-b%2),128)y=середина(y+2*(b\8%2-b\4%2),128 ) u-=1, если btn(4) и u<0, то ?"\as2i4cge" и=10в=127-в для w во всех (p) делать if(w.i<2and max(abs(w.u-x),abs(w.v-y))<",x-3,y-2,10 если(u>6)строка(0,v,x,y)строка(127,v) if(#p<1)z+=1перейти к s if(g<1)h=max(s,h)перейти к r флип () перейти к _