1K Hopper remake #Pico1k

Jump on the platforms. Don't fall into the lava. The higher you get, the higher the score.

A game in 1023 Compressed Bytes of code for PICO-1K Jam 2022  #Pico1k

Code:

_set_fps(60)h=0s=0::s::m=0for 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])end poke2(24376,1028)for i=0,3do a=1+i%2b=i\2c=a+b*16mset(a,b+1,c)mset(4+a,b+1,c+2)end memcpy(5*2048,0,2048)p={}x=0y=0z=2n=1w=0l=32u=0v=0::_::for i=0,15do a=(i+t()*8)%16\1pal(i,8+min(a,15-a))end a=-t()*8%128palt(0,nil)memcpy(0,5*2048,2048)spr(0,a-128,0,16,16)spr(0,a,0,16,16)r=z pal()pal({[0]=1,7,140,3,8,10,11,12,4,8,137,9,143,10,135,7},1) if(m>0)b=btn()x+=b\2%2-b%2y+=b\8%2-b\4%2w-=.002 poke(24378,t()*4%2\1*4)poke(24405,0)rectfill(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 for i=-16,15do e=a-i tline(b-16,e,b+15,e,2-c*16+d*i,2-d*16-c*i,c,d)end poke(24405,96)if(m>0)z+=w if(n<z and m>0)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 for q in all(p)do 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() if x==mid(q.a,x,q.c)and y==mid(q.b,y,q.d)then if(q.z==mid(r,q.z,z)and w<0)w=.09 end if(e>4)del(p,q) end palt(0,1)for i=0,4do pal(1,i<4and 0or 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 if m<1then ?"\^w\^thopper remake",16,32,0 ?"\n\n\n\n\nscore: "..s ?"\nhighscore: "..h ?"\n\npress ❎ to start" if(btnp(4))m=1s=0?"\asfb1.bd#.f#.a" end if(z<0)print("\asfb2.a.f#.e.f#.e.d#.c.b1")h=max(h,s)goto s flip()goto _