1K Death Chase demake #Pico1k

Не врезайтесь в дерево. Сбивайте другие велосипеды.

Демейк классической игры Deathchase для ZX Spectrum (1983 г.). Игра в 1024 сжатых байтах кода для PICO-1K Jam 2022  #Pico1k

Код:

_set_fps(60)для 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%##",i\4+1)-35sset(i%32,i\32,({0,12,6})[v\3^(i%4)%3+1])конец ::r::n=0s=0l=6::s::x=64y=0z=n/10+1,3 w={}r={}p={}для i=1,99do q={}добавить(p,q)if(i==mid(8,i,64))for j=rnd(),n/10+2добавить(q,rnd(8)\1*16)end конец если(l<1)перейти к r приятель(({{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 б=бтн()е=б\2%2-б%2 х+=г*е если (y\32!=(y-z)\32) добавить (r, {x=x,y=16,e=4*e}) если (# w <2) добавить (w, {x = rnd (2) \ 1 * 128, e = 0}) для i=#p,1,-1do j=(i+y/32)\1%#p+1q=p[j]d=i*32-y%32 если d==mid(8,d,190), то к=32/д б=к*64+24 для o во всех (q) делать с=(ох)%128*к для j=-2,2do а=к*к*128+с+64 т=а-к*2в=а+к*2 и=б-к*56 если v>-16 и t<144, то прямоугольник (t-1, u, v + 1, b, 0) rectfill (t, u, v, b, 3) для g=1,9do t=g%4-1если(t>1)t=2-t circ(a+t*k*8,u-g*k*8,k*11+1,0)конец для g=1,9do t=g%4-1если(t>1)t=2-t circfill(a+t*k*8,u-g*k*8,k*11,4)конец конец if(b>116and abs(a-64)256)del(r,f) конец ?"♥ "..l,0,0,7 ?"s "..s\1 если(y<128)?"\^wllvl "..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) пр(1,56,113,1,2)пр(1,64,113,1,2,1) if(y>2048)n+=1перейти к s флип () перейти к _