1K Space Doors #Pico1k

Космос полон камней и дверей. Избегайте их.

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

Код:

тыкать (24405,0) р = {} для i=1128до p[i]={rnd(128)&124,rnd(128)&124}конец для j=128,0,-1до для i=1,8до q=p[i]circfill(q[1],q[2],j,j%16) заполнение (q[1],q[2]-128,j) circfill(q[1],q[2]+128,j)конец конец память(20*2048,0,4*2048) rectfill(8,0,31,15,0)?"\f1\^:1818181842c3db7e\b\f2\^:000024243c3c2400",8,0 прямоугольная (16,0,31,15,1)круговая (24,8,7,0) приятель (1,0) для я = 32,112,16до пр(2,я,0,2,2)конец память(24*2048,0,2048) для j=128,0,-1до для i=1128до q=p[i]circfill(q[1],q[2],j,i%16) заполнение (q[1],q[2]-128,j) circfill(q[1],q[2]+128,j)конец конец память(16*2048,0,4*2048) poke(24405,96)_set_fps(60)h=0s=0::s::h=max(h,s)x=64y=99z=0g=99e=64f=-64v=2o=0 p={}::_::для i=0,15do a=(i-t())/2%8\1pal(i,10+min(a,8-a))конец memcpy(0,16*2048,2048)a=t()*8%128palt(0,nil)spr(0,0,a-128,16,16)spr(0,0,a,16,16) если о<1, то pal()?"\^w\^tspace door",24,32,3 ?"\nоценка:"..s ?"\nрекорд:"..h если(btnp(5))o=1s=0 еще z-=1g-=1f+=v/2b=btn()u=b\2%2-b%2x=середина(x+u,128)y=середина(y+b\8%2-b\4 % 2124) if(btn(4)и z<0)z=8add(p,{x=x+rnd(6)-3,y=y-2,c=0,d=-2,i=0,l= 1})?"\as3c" если (g<0)g+=64a=rnd(128)c=atan2(rnd(128)-a,160) добавить(p,{x=a,y=-32,c=v*cos(c), d=v*sin(c),i=1,j=4+rnd(6)\1*2,l=3}) если(f>160)e=rnd(96)\1f-=200v+=.02 для i=0,15do a=(i-t()*8)%8\1pal(i,5+min(a,8-a))end memcpy(0,20*2048+64*e,2048)m=32-20*sin(t()/2)a=16+e-m если(а>0)sspr(0,0,а,32,0,f-16) а=16+е+м если(а<128)sspr(а,0,128-а,32,а,f-16) память(0,24*2048,2048) для q во всех (p) делать q.x+=q.c q.y+=q.d если q.i<1, то ?"|",q.x-2,q.y,3 если (q.y<8)q.l=0 иначе если q.i<2, то palt(0,1)spr(qj,qx-8,qy-8,2,2) для w во всех (p) делать если w.i<1, то a=w.x-q.x b=w.y-q.y а/=10б/=10 если(a*a+b*b<1)q.l-=1del(p,w)s+=1?"\as3gec" конец а=х-д.х б=у-к.у а/=8б/=8 если(a*a+b*b<1)перейти к s если (q.y>160)q.l=0 конец конец если(q.l<1)del(p,q) конец приятель () пр (1, х-4, у-4) пр (1, х-4 + и, у-4) if(abs(16+e-x)>m-3and abs(f-y)<12)goto s ?s,4,4,3 конец приятель({6,13,12,11,8,137,9,10,7,129,130,1,131,141},1)flip()goto _