Compressed Bytes used
1018

Source Code (OPTIONAL)
f=2::a::t=time()-1tl={
{r={63,19,76,37},s=1,t=0,w=11},
{r={50,51,76,77},s=0,t=0,w=24},
{r={50,91,63,109},s=1,t=0,w=11},
}sp={
{p={59,130},d={0,-1},r=.3,gap=3,l=0},
{p={67,-8},d={0,1},r=.5,gap=.5,l=t},
{p={-8,68},d={1,0},r=.5,gap=3,l=0},
{p={130,60},d={-1,0},r=.5,gap=1,l=t},
{p={-8,100},d={1,0},r=.5,gap=3,l=t},
{p={130,28},d={-1,0},r=.5,gap=3,l=t},
}cs,m,k,q,z={},0,0,0,0
::_::cls(0)
?"\^t\^w\^o5011k jam",80,116,9
for c=1,3do
for s in all(sp)do
x,y=s.p[1],s.p[2]
w=max(abs(s.d[1])*130,3-c)
h=max(abs(s.d[2])*130,3-c)
if(y==100)w=32
if(y==28)w=60
if(c==1)rectfill(x-1-w,y-1-h,x-1+w*2,y-1+h*2,4)
if(c==2)rectfill(x-1-w,y-1-h,x+w*2,y+h*2,5)
fillp(s.d[2]~=0and 249or 49152)
if(c==3)line(x-w,y-h,x+w*2,y+h*2,87)
fillp(0)
end
end
for c in all(cs)do
x,y=c.p[1],c.p[2]
dx,dy=c.d[1],c.d[2]
rectfill(x-1-abs(dx),y-1-abs(dy),x+1+abs(dx),y+1+abs(dy),c.c)
end
for i,l in ipairs(tl)do
x,y,x1,y1=l.r[1],l.r[2],l.r[3],l.r[4]
if(f==i)fillp(23130)rect(x,y,x1,y1,7)fillp()
if l.s==0or(l.s==1and t-l.t<.8)then
if(l.w>11or x1>64)line(x+l.w-9,y,x1,y,8)
if(l.w>11or x1<=64)line(x,y1,x+11,y1,8)
end
if l.s==1or(l.s==0and t-l.t<.8)then
if(l.w>11or x1>64)line(x1,y,x1,y+11,8)
if(l.w>11or x1<=64)line(x,y1,x,y1-11,8)
end
end
a=k/30
c=a<.85and(a<.6and 3or 9)or 8
rect(1,1,54,7,1)rectfill(2,2,52-(50-(50*a)),6,c)
?"hour:"..q,95,2,10
if(m==1)print("jammed!\n🅾️ to restart",3,2,9)
t=time()
if m==0then
if(k>30)m=1
z+=1
if z>300then
q+=1
if(q%5==0)for s in all(sp)do s.r-=.1end
z=0
end
for s in all(sp)do
if t-s.l>s.gap then
if(s.r<rnd())add(cs,{p={s.p[1],s.p[2]},d={s.d[1],s.d[2]},c=8+rnd(8)})
s.l=t
end
end
k=0
for i,c in pairs(cs)do
x,y=c.p[1],c.p[2]
if x<-12or x>130or y<-12or y>130then
deli(cs,i)
else
dx,dy=c.d[1],c.d[2]
pa=pget(x+4*dx,y+4*dy)
if pa==0or pa==5or pa==7or pa==4then
c.p[1]+=dx
c.p[2]+=dy
else k+=1end
if(pa==4)c.d[1]+=dx*-1c.d[2]+=dx*-1
end
end
if(btnp(⬆️))f-=1if(f<1)f=#tl
if(btnp(⬇️))f+=1if(f>#tl)f=1
if(btnp(❎))l=tl[f]l.t=t l.s=1-l.s
else if(btnp(🅾️))goto a end
flip()goto _