1K Fly through gaps #Pico1K

Летайте сквозь проломы в стенах как можно дольше. Игра длиной менее 1024 символов для #Pico1k Jam

Код:

l={{12,7,8,3,10},{13,6,4,5,9},{2,13,2,1,2}}g=4096m=64h=0 для i=0, г*2до j=i\64x=i%8y=i\8%8pset(x+j*8,y,1+(atan2(x-3.5,y-3.5)*4+j/8)%4)pset(i %128,i\128+8,1+rnd(15))end для i=0,7do k=i/16для j=-4,4,8do circfill(8+16*i+j*cos(k),16+j*sin(k),3,0) прямоугольникзаполнение(16*i+1,27+i,16*i+14,31+i) rectfill(16*i+2+i,41,16*i+6+i,54) конец конец memcpy(0,6*g,2*g)::s::x=64y=64z=-2p={}n=0?"\as4fec" ::_::cls()z+=.04+n/3000b=btn()x+=(b&2)/2-(b&1)y+=(b&8)/8-(b&4)/4x=mid(x,127) )y=mid(y,127)в то время как #p<3do add(p,{z=n,u=rnd(8)\1*16,v=8+rnd(3)\1*16})n+=1end для я = #p,1,-1do q=p[i]k=8/(1+q.z-z)pal(l[i])e=m-(x-m)*k/8f=m-(y-m)*k/8для j=0,255do u=j%16v=j\16w=sget(q.u+u,q.v+v) если w>0, то a=e+k*(u-8)b=f+k*(v-8)c=min((a+k)\1,128)d=min((b+k)\1,128)a=max( а\1)б=макс(б\1) if(a0)h=max(h,s)перейти к s del(p,q)конец конец b=64a=0u=.25v=.1*sin(z) для i=0,9do c=a+cos(v)d=b+sin(v)line(m+a,b,m+c,d,11)line(m-a,b,m-c,d)a,b=c,d v*=1,1u-=v конец ?с,0,0 ?час перевернуть()перейти к _