1K Bosconian demake #Pico1k

Уничтожайте вражеские корабли и базы, используя корабль, который стреляет как спереди, так и сзади.

Аркадный шутер с разнонаправленной прокруткой в ​​1023 сжатых байтах кода для PICO-1K Jam 2022  #Pico1k

Код:

poke(24405,0)?"\^:815a004242005a81\^:181818a5a5ffff99\^:84627b37269e7c30\^:1f061ee7e71e061f\^:1818182466ff7e24\^:c0e27f272e3d7834\^:040e1fe6e61f0e04\^:3c7ec39999c37e3c\^:3c7efffdfdfb663c\^:14460ba103af5e3c\^ :14460ba103af5e3c",0,0 тыкать(24405,96)_set_fps(60)t={5,0,1,6,0,2,13,8,9}w={5,2,1,0,3,6,7,8} ::r::s=0n=1::s::p={{x=256,y=256,u=0,v=-1,w=1,i=1,t=0}}? "\ as8gec" для i=1,n сделать а=я/н c=256+128*cos(a)d=256+128*sin(a)добавить(p,{x=c,y=d,u=0,v=0,w=0,i=7}) для j=0,5do a=j/6add(p,{x=c+16*cos(a),y=d+16*sin(a),u=0,v=0,w=0,i=8}) конец конец для i=1,16do добавить (p, {x = rnd (512), y = rnd (512), u = 0, v = 0, w = 0, i = 16}) конец j={}::_::c=0d=0cls(1)для q во всех(p)делать если(q.i==4)c+=1 если (q.i>6и q.i<9)d+=1 pset(q.x/16,q.y/16,12-q.i) конец o=p[1]камера(o.x-64,o.y-64) if(c0,z\8%2> 0) if(abs(q.i-8)==1)circ(q.x,q.y,16,14) if(q.i!=1and max(abs(q.x-o.x),abs(q.y-o.y))<6)перейти к r для k во всех (j) делать если q.i!=1 и k.i==1 и max(abs(q.x-k.x-o.x),abs(q.y-k.y-o.y))<4, то дел (j, к) if(q.i<9)q.i=q.i==4and 16или q.i+2q.u=0q.v=0s+=1?"\as8c" конец if(q.i==1and k.i!=1and max(abs(q.x-k.x),abs(q.y-k.y))<4)перейти к r конец конец камера()?s,9 флип () перейти к _