1K Overtake #Pico1k

Обгоняйте другие машины. Ваша машина намного быстрее, но теряет скорость при столкновении с другими машинами.

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

Код:

poke(24405,0)?"\^:5a7e7e9a7dbe7dbe\n\^:7dbe590000000000",8,0,1 poke(24405,96)_set_fps(60)h=0z=0::s::x=64y=0w=.2s=1q=0j=0t=-1p={}r={}n={30}a =25для i=2,20до n[i]=a\1+n[i-1]a*=.9end а=1для i=1,9999до r[i]=.2*sin(i/64)b=(a+rnd(1.6))%2p[i]=.1+.8*min(b,2-b)a+=rnd(.1 )конец ::_::pal(({{-4,-15,-3,-13,-11,-14,7,8},{1,-4,3,-12,2,5,7, 8},{1,12,-5,4,13,13,7,7}})[s%3+1],1)cls(3)m=(z>>16)+1rectfill(0, 0,127,15,2) если(j>0)t+=1 if(j==1)w=min(w+.002,m)z+=w b=btn()a=b\2%2-b%2y+=a x-=2*a для i=0,127do c=(y+i)/20d=r[c%#r\1+1] d+=c%1*(r[(c+1)%#r\1+1]-d)rect(i,15,i,8-8*d,4)end г=0к=48+х/4а=к для l=1,2do для у=0,111до i=l>1 и y+16или 127-y b=114/(i-14)c=(z+b)/20d=r[c%#r\1+1] d+=c%1*(r[(c+1)%#r\1+1]-d)e=80/b if(l<2)rect(a-e,i,a+e,i,c%64<.02and 7or(c%2>1and 5or 6)) a+=l<2 и d*b или -d*b f=(z/20+b/2)%#r\1+1 if(l>1и g!=f)pal(1,8+f%4)u=a-e+2*e*p[f]v=i sspr(8,0,8,11,u-12 /b,v-5/b,24/b,11/b,z&1>0)g=f если l>1 и i==112, то pal(1,1)sspr(8,0,8,11,52+k-x,112,24,11,z&1>0) если(j==1)x+=3*d*w if(abs(64-u+k-x)<16 и abs(v-112)<12)w=max(w/2,m/4) конец конец конец if(abs(x-64)>76)w=max(m/4,w*.98) a=w*290\1b=n[s]-t\60 if(j>0)?"\^w"..a.."kph s:"..s.." t:"..max(b),1,1,7 если j<1, то ?"\^w\^tovertake",32,32,7 ?"\n\nscore:"..z\1 ?"\n\nhighscore:"..h\1если(btnp(4))z=0j=1 конец if(j>1and t>q)h=max(h,z)перейти к s if(j==1and b<0)j=2q=t+180o="время закончилось" if(j==1and z>1280*s)s+=1q=t+120o="расширить" if(j==1and z>32000)j=2q=t+180o="завершить" if(t30)?"\^w\^t"..o,64-4*#o,24,7 if(j==1and t%16<1)a=chr(97+(min(7,7*w-6))\1%7)..."?"\as4i7"..a.. а..а..а перевернуть()перейти к _