1K Death Chase demake #Pico1k

Avoid crashing into a tree. Take down other bikes.

A demake of the classic ZX Spectrum game Deathchase (1983). A game in 1024 Compressed Bytes of code for PICO-1K Jam 2022  #Pico1k

Code:

_set_fps(60)for i=0,511do v=ord("###k#######𝘹##𝘺%>0𝘺𝘹##k+𝘨𝘬𝘺𝘹##k+𝘰𝘬[s#𝘺s%𝘰𝘬+s#qs+>0=q#ss+𝘨0qm#ks+𝘨0k𝘰#qs%𝘨0#𝘬#q=#𝘫0>𝘯#ss#𝘫0𝘨𝘰#ss#𝘬'e𝘭𝘺s+#𝘬'e𝘬𝘺s##𝘬'o𝘬k+##𝘬'𝘵𝘬k%##",i\4+1)-35sset(i%32,i\32,({0,12,6})[v\3^(i%4)%3+1])end ::r::n=0s=0l=6::s::x=64y=0z=n/10+1.3 w={}r={}p={}for i=1,99do q={}add(p,q)if(i==mid(8,i,64))for j=rnd(),n/10+2do add(q,rnd(8)\1*16)end end if(l<1)goto r pal(({{12,3,4,11,2},{10,4,9,8,2},{1,2,5,2,1},{15,7,13,6,12}})[n%4+1],1)::_::rectfill(0,0,127,31,1)rectfill(0,31,127,127,2)s+=.01y+=z b=btn()e=b\2%2-b%2 x+=z*e if(y\32!=(y-z)\32)add(r,{x=x,y=16,e=4*e}) if(#w<2)add(w,{x=rnd(2)\1*128,e=0}) for i=#p,1,-1do j=(i+y/32)\1%#p+1q=p[j]d=i*32-y%32 if d==mid(8,d,190)then k=32/d b=k*64+24 for o in all(q)do c=(o-x)%128*k for j=-2,2do a=j*k*128+c+64 t=a-k*2v=a+k*2 u=b-k*56 if v>-16and t<144then rect(t-1,u,v+1,b,0)rectfill(t,u,v,b,3) for g=1,9do t=g%4-1if(t>1)t=2-t circ(a+t*k*8,u-g*k*8,k*11+1,0)end for g=1,9do t=g%4-1if(t>1)t=2-t circfill(a+t*k*8,u-g*k*8,k*11,4)end end if(b>116and abs(a-64)<k*9)cls(10)flip()flip()l-=1goto s end end for f in all(r)do if f.y==mid(d-32,d,f.y)then k=32/f.y b=k*64+24 c=(f.x-x)*k+64 circfill(c,b,k*4,6) for o in all(w)do if(max(abs(o.x-c),abs(40-b))<8)del(w,o)del(r,f)s+=10?"\as8c" end end end if 80==mid(d-32,d,80)then for o in all(w)do if(y\32!=(y-z)\32)o.e=rnd(2)\1*2-1 o.x+=o.e-e/2spr(2,o.x-8,32,2,2,o.e<0)end end end end for f in all(r)do f.y+=z*2f.x+=z*f.e if(f.y-y>256)del(r,f) end ?"♥ "..l,0,0,7 ?"s "..s\1 if(y<128)?"\^wlvl "..n+1,48,56,7 pal(12,0)spr(0,48,113-e,1,2)spr(0,72,113+e,1,2,1)pal(12,12) spr(1,56,113,1,2)spr(1,64,113,1,2,1) if(y>2048)n+=1goto s flip()goto _