Tiny TV Snake

Сыграйте в классическую игру «Змея» на воксельном телевизоре! Сделано для джема #pico1K 2021.

Управление:
Клавиши со стрелками: управление змеей

Чтобы перезапустить игру, обновите страницу.

Огромное спасибо @TRASEVOL_DOG за отличный пост в блоге о воксельном рендеринге, а также за идею Tiny TV! (https://trasevol.dog/2017/04/13/doodle-insights-12-voxels-in-pico-8/)
Также огромное спасибо @JadeLombax за сжатие данных спрайтов, это поможет без этого невозможно!
(https://www.lexaloffle.com/bbs/?tid=44375)

Код: (997 символов)

memset(0,238,2048)p={1,14,13,6,5,7}n=rnd k=0for i=1,254do v=ord("…&█'☉'☉'☉'☉'☉'☉.v5&웃☉'☉'☉'☉'☉'☉.)r.&'p.⌂ '⌂'⌂'⌂'⌂'☉.)r.&'p.ヲヲヲ-.)r.&'p.⌂'⌂'⌂'⌂'⌂'☉.)r.&'p.ヲヲヲ-. )r.&'p.⌂'⌂'⌂'⌂'⌂'☉.)r.&'p.ヲヲヲ-.)r.&'p.☉'☉'☉'☉'☉'☉.)r .&'p.☉'☉'☉'☉'☉'☉.)r.&'p.⌂&⌂&⌂&⌂&⌂◆.)r.&'p.%○,○,○,○ ,○%☉.)r.&'p.%○,○,○,○,○%☉5r.&'p.%○,○,○,○%ン❎&웃☉'☉'☉'☉ '&ンンンンし",i)-35for j=0,v\7do sset(k%128,k\128,p[v%7])k+=1end end m=.3r=0w=7.5t=0h=6d=0p={4,4}sset(18+n(12),2+n(12),8)c=cos s=sin::_::t+=1b=btn()q=b\2%2-b%2e=b\8%2-b\4%2f=sset if(q!=0или e!=0)d=atan2(q,-e)&.75 b=p[2]+s(d)a=p[1]+c(d)o=sget(18+a,2+b) if(o==11or a>12or a<-1or b>12or b<-1)stop() if(o==8и t%9==1)h+=2f(18+n(12),2+n(12),8) если (t%9 == 1) добавить (p, b, 1) добавить (p, a, 1) ж(18+р[1],2+р[2],11) if(#p>h)f(18+делика(p,#p-1),2+делика(p,#p),0) m-=(m-.3)/8r-=r/4cls(14)камера(-64,-96)r+=q/64m+=e/28g=c(r)i=s(r)u=sgn(i)для z=0,15do для x=w-w*u,w+w*u,u делайте для y=8,0,-1do o=sget(x+y%8*16,z+y\8*16) if(o!=14)j,k=x*4-32,y*4-32j,k=j*g+k*i,j*i-k*g k=k*m-z*4rectfill(j-2,k -2,j+2,k+2,о) конец конец конец перевернуть()перейти к _