Compressed Bytes used
1009

Source Code (OPTIONAL)
poke(24405,0)cls()?"\^:003ec23afa3ac23e\^:0000031c631c0300\^:000000f0e8c89838\^:0000000f1713191c\^:00e0f8fcfcf8f0e0\^:00030f1f3f3f7f7f\^:003e3e0877ee6eae\^:007c7c10101f3c7b\n|"
spr(2,16,8,8,1,nil,1)
poke(24405,96)mset(1,1,6)mset(2,1,7)mset(1,2,22)mset(2,2,23)_set_fps(60)l=1::s::t=0f=0g=0n=10p={}k=120e=0m="level "..l
for i=1,200do
q={t=1,i=1,x=rnd(512),y=rnd(512),c=5}add(p,q)end
for i=1,l*2+4do
q={t=4,i=1,x=rnd(512),y=rnd(512),c=1}add(p,q)end
for i=1,4do
q={t=3,i=1,x=rnd(512),y=rnd(512),c=10}add(p,q)end
for i=1,n do
q={t=2,i=1,x=rnd(512),y=rnd(512),c=7}add(p,q)end
r={t=0,i=0,x=rnd(512),y=rnd(512),c=7,z=0,v=1.2,w=0}add(p,r)
for i=1,l*2+4do
q={t=0,i=i,x=rnd(512),y=rnd(512),c=i%7+8,z=rnd(),v=1.5,l=rnd(32)+32,w=0}add(p,q)end
::_::cls(3)t+=1g+=mid(-1,1,f-g)rect(0,g,1,128,10)rect(94,94,127,127,13)?" f:"..n,7
for q in all(p)do
x=r.x-64y=r.y-64a=0pal(6,q.c)
if q.t<1do
if k<1do
if q.i<1do
b=btn()\2%2-btn()%2c=btn()\8%2-btn()\4%2f+=.05
if(r.w<1and b|c!=0)b=(q.z-atan2(b,c)+.5)%1-.5a=mid(-.01,.01,b)
else
q.l-=1if(q.l<1)q.l=16a=(rnd(2)\1*8-4)/100end
q.w=max(q.w-1)q.z-=a
c=cos(q.z)d=sin(q.z)
q.x=(q.x+q.v*c)%512
q.y=(q.y+q.v*d)%512
end
c=cos(q.z+q.w/50)d=sin(q.z+q.w/50)
a=(q.x-x)%512
b=(q.y-y)%512
tline(16)poke(24376,32)poke(24377,32)for e=-10,10do
tline(a-10,b+e,a+10,b+e,16-10*c+e*d,16+10*d+e*c,c,-d)end
else
a=(q.x-x)%512
b=(q.y-y)%512
if q.t==1do
?"░",a,b,q.c
else
spr(q.t*2-4,a-8,b-8,2,2)end
end
if(q.t!=1and (q.t<1or t\8%4<3))circ(95+q.x/16,95+q.y/16,q.i<1and 1or 0,q.c)
c=(a-64)/8d=(b-64)/8
if k<1and c*c+d*d<1.5do
if(q.t<1and q.i>0)f+=2
if(q.t==2)del(p,q)n-=1?"\ascde",0,0
if(q.t==3)del(p,q)f=max(f-64)?"\ascde",0,0
if(q.t>3and r.w<1)r.w=100
end
end
if(n<1and e<1)k=120e=1m="well done"
if(g>128and e<1)k=120e=2m="game over"
if(k<1and e>1)l=1goto s
if(k<1and e>0)l+=1goto s
if(k>0)k-=1?"\^o25a"..m,64-#m*2,48,10
flip()goto _