Neon_1k

A racing game for the pico-8 platform, in 1017 characters. Features a very low poly car, obstacles, sound effects, and a dynamic night sky. Remember, your imagination is the best graphics card ;)

Code: 1017 characters (1021 bytes)

::g::y=2x=.2r=.4d=0v=2b=1h=3f=0t0=t()ln=line function pr(a)for i=1,#a,3do a[i]=64*(1+(a[i]*1.4)/a[i+2]) a[i+1]=64*(1-((a[i+1]-y)*1.4)/a[i+2])end end n={}for i=1,50do n[#n+1]=rnd(128)n[#n+1]=12+rnd(70)end ::_::cls()u=t() if(h==0)goto q for i=1,#n,2do pset(n[i],n[i+1]-u/9,6+rnd(2))end if(btnp(0))d=max(d-x,-x) if(btnp(1))d=min(d+x,x) if(y>.5)y-=.03?"avoid ()",48,38,7 l={-r,0,r,r,0,r,-r,0,10,r,0,10}pr(l)z=sin(u)/50 s={-.05+d,z,.8,.05+d,z,.8,d,z+.05,.8,d,z,1}pr(s)rectfill(0,l[8],128,128,1)ln(l[1],l[2],l[7],l[8],6)ln(l[4],l[5],l[10],l[11])ln(s[1],s[2],s[4],s[5],12)ln(s[10],s[11],s[4],s[5]) for k in all({2,3,0,2})do ln(s[k*3+1],s[k*3+2])end e={f,0,9-v*(u-t0)}pr(e)circ(e[1],e[2],(1-e[3]/9)*5,8) for i=1,h do ?"♥",i*8,1 end ?"spd "..(v-1).." best "..b,52,1,7 for k=l[8],128do j=0 while pget(j,k)==1do pset(j-1,k,3)pset(128-j,k)j+=1end end if e[3]<1 then if f==d then ?"\ac1" h-=1 b=max(b,v-1)v=1cls(7)end f=.2*(rnd(3)\1-1)v+=1 t0=u end flip()goto _ ::q:: ?"best "..b,48,54,7 ?"\n ❎" if(not btnp(5))goto q goto g