1K Hopper remake #Pico1k

Прыгайте по платформам. Не упасть в лаву. Чем выше вы поднимаетесь, тем выше оценка.

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

Код:

_set_fps(60)h=0s=0::s::m=0для i=0,4^7do x=i%128y=i\128z=16*cos(x/64)+24*sin(y/64)+16*sin((x+y)/128)sset(x,y,z%16+ ({0,.5,.75,.25})[1+x%2+y%2*2])конец poke2(24376,1028)для i=0,3do a=1+i%2b=i\2c=a+b*16mset(a,b+1,c)mset(4+a,b+1,c+2)конец memcpy(5*2048,0,2048)p={}x=0y=0z=2n=1w=0l=32u=0v=0::_::для i=0,15do a=(i+t()*8)%16\1pal(i,8+min(a,15-a))конец a=-t()*8%128palt(0,nil)memcpy(0,5*2048,2048)spr(0,a-128,0,16,16)spr(0,a,0,16,16) )г=г приятель()приятель({[0]=1,7,140,3,8,10,11,12,4,8,137,9,143,10,135,7},1) если(m>0)b=btn()x+=b\2%2-b%2y+=b\8%2-b\4%2w-=.002 тыкать(24378,t()*4%2\1*4)тыкать(24405,0)ректфилл(0,0,128,31,0)?"\^:00c0a0e020cc9c58\^:0003050704030102\n\^:c0c08040e0783800\^ :1b3b1102070e0c00",8,0,1 sspr(8,0,16,16,40,0,-16,16)b=56a=16c=-cos(t()*.75)/8d=sin(t()*.75)/8 для i=-16,15до е=а-я tline(b-16,e,b+15,e,2-c*16+d*i,2-d*16-c*i,c,d)конец тыкать(24405,96)если(m>0)z+=w if(n0)add(p,{a=u-l,b=v-l,c=u+l,d=v+l,z=n,o=2+n%6})n+= 1u=rnd(128)-64v=rnd(128)-64 для q во всех (p) делать e=z-q.z+1k=1/e if(e>.9)rectfill(64+k*q.a,64+k*q.b,64+k*q.c,64+k*q.d,q.o)rect(64+k*q.a,64+k*q.b,64 +k*q.c,64+k*q.d,0)clip(64+k*q.a,64+k*q.b,k*q.c-k*q.a+1,k*q.d-k*q.b+1 )circfill(64+k*x,64+k*y,k*4,0)clip() если x==mid(q.a,x,q.c) и y==mid(q.b,y,q.d), то if(q.z==mid(r,q.z,z) и w<0)w=.09 конец если(e>4)дел(p,q) конец Палт(0,1)при i=0,4do pal(1,i<4и 0или 1)spr(5,x+cos(min(i,3)/4)+48,y+sin(i/4)+48,4,4)end s=max(s,n-2)if(m>0)?"\^w"..s,4,4,0 если m<1, то ?"\^w\^thopper remake",16,32,0 ?"\n\n\n\n\nоценка: "..s ?"\nРекорд: "..h ?"\n\nнажмите ❎, чтобы начать" если(btnp(4))m=1s=0?"\asfb1.bd#.f#.a" конец if(z<0)print("\asfb2.a.f#.e.f#.e.d#.c.b1")h=max(h,s)goto s флип () перейти к _