Compressed Bytes used
1021

Source Code (OPTIONAL)
poke(24405,0)cls()?"\^:1c1c08fc68081434\^:1c1c281c08081434\^:3838103f1610282c\^:1c1c081c28081434\^:183c54fe7c7c381c"
poke(24405,96)_set_fps(60)t=0s=0::r::t=max(t,s)n=1s=0::s::l=0p={}k=120m="level "..n.." ready!!!"
?"\as8c.c.eec.ddb2b....c3.c.c.c.b2bd3d"
for i=1,n do
add(p,{u=rnd(128),v=rnd(128),z=rnd(),k=.8,a=0,b=32,l=63,r=0})
end
o={0,0,0,0,0,0,0,0}
z={x=64,y=64,z=0,l=128,r=0}
w={}
::_::cls(1)
z.r=max(z.r-1)
rect(0,1,z.l,2,3)
rect(0,0,127,3,6)
?"sc:"..s,1,4,13
?"hi:"..t
for q in all(p)do
c=cos(q.z)d=sin(q.z)
if(k<1)q.u+=q.k*c q.v+=q.k*d q.z+=q.a
q.u%=256
q.v%=256
q.x=min(q.u,256-q.u)
q.y=min(q.v,256-q.v)
q.r=max(q.r-1)
q.b-=1if(q.b<1)q.b=32q.a=rnd(.02)-.01
pal(6,q.r\4%2<1and({4,9,10,11})[1+max(q.l\16)]or 7)
spr(4,q.x-4,q.y-4)
pal(6,6)
if(k<1and(q.x-z.x)^2+(q.y-z.y)^2<48)z.l-=1z.r=20
if(q.l<1)del(p,q)s+=1for i=1,64do add(w,{x=q.x,y=q.y,z=rnd(),k=rnd(),l=64,c=12})end?"\asfi6c"
end
a=btn()\2%2-btn()%2b=btn()\8%2-btn()\4%2
if(a!=0or b!=0)if(l<1)z.z=atan2(a,b)%1
if(k<1)z.x=mid(4,124,z.x+a)z.y=mid(4,124,z.y+b)
for i=8,2,-1do
o[i]=o[i-1]
end
o[1]=z.z
e=z.x
f=z.y
a=z.x
b=z.y
for i=1,8do
u=cos(o[i])v=sin(o[i])
c=a+u*4
d=b+v*4
g=c+rnd(4)-2
h=d+rnd(4)-2
if(i>1)line(e,f,g,h,i%2<1and 3or 10)
if i%2<1do
for q in all(p)do
if(k<1and max(abs(g-q.x),abs(h-q.y))<4)q.l-=1q.r=20add(w,{x=q.x,y=q.y,z=rnd(),k=1/4,l=64,c=10})?"\as0i7c"
end
end
e=g
f=h
a=c
b=d
end
pal(6,z.r\4%2<1and 7or 3)
spr(z.z*4\1,z.x-4,z.y-4)
pal(6,6)
for q in all(w)do
q.x+=q.k*cos(q.z)
q.y+=q.k*sin(q.z)
q.l-=1pset(q.x,q.y,q.c)
if(q.l<1)del(w,q)
end
if(z.l<0and l<1)m="game over"k=120l=1
if(#p<1and l<1)m="well done!!!"k=120l=2
if(k<1and l==1)goto r
if(k<1and l==2)n+=1goto s
if(k>0)k-=1?"\fa\^o25a"..m,64-#m*2,52
flip()goto _