Compressed Bytes used
1023

Source Code (OPTIONAL)
cls()?"\^:f4167717f7f703b3\^:2d6dedefefefc0cd\^:0000c0e060c000f0\^:0000030404030003\n\^:e0f070505050f000\^:070f0e0a0a0a0f00\^:a8a828b0e0082000\^:3f0d020707060e00\n\^:80c0c0c0e0e0e000\^:0102020205050500\n\^:18fe525a521afe18\^:187f69696d497f18"
memcpy(0,3*8192,8192)_set_fps(60)g={}p={{6,15,10},{1,5,4},{12,7,14},{0,15,5},{5,10,8},{11,15,15}}for q in all(p)do
for i=q[1],q[3]do
mset(i,q[2],4)end
add(g,{x=q[1]*4+q[3]*4+4,y=q[2]*8-4})end::r::l=1s=0::s::x=64y=64z=1u=0v=0p={}w={}r=0n=2k=0::_::cls(1)pal(0,3)palt(0,nil)map()pal()?"s:"..s
if(#p<l+5)a=rnd(2)\1add(p,{x=-16+a*160,y=16+rnd(96),u=.25-a+rnd(.5),v=rnd(.5)-.25,l=1})
r-=1c=btn()a=c\2%2-c%2b=c\8%2-c\4%2if(a!=0)z=a
if(btn(4)and r<0)r=20add(w,{x=x,y=y,u=z,t=30,l=1})
u+=a*.1v+=b*.1u=mid(-1,1,.99*u)v=mid(-1,1,.99*v+.03)x=(x+u)%128y=mid(8,113,y+v)for i=0,7do
j=i*2+(i>3and 1or 0)a=cos(j/8)b=sin(j/8)if(mget((x+a*7)\8,(y+b*7)\8)>0)e=max(.2,a*u+b*v)u-=a*e*1.5v-=b*e*1.5break
end
for i=0,5do
a=g[i+1]b=min(i,3)*16
if(n<=i*2)spr(b,a.x-8,a.y-4,2,1)
if(n==i*2and max(abs(a.x-x),abs(a.y-y))<4)n+=1
if(n==i*2+1)spr(b,x,y,2,1)
if(n==i*2+1and abs(x-84)<4)n+=1
if(n>i*2+1and i<3)spr(b,76,112-i*8,2,1)
end
if(n>11)l+=1goto s
for q in all(p)do
q.x+=q.u
q.y+=q.v
circfill(q.x,q.y,3,9)if(q.x!=mid(-16,160,q.x))q.l=0
if(mget(q.x\8,q.y\8)>0)q.l=0
if(max(abs(q.x-x),abs(q.y-y))<6)goto r
if(q.l<=0)del(p,q)
end
for o in all(w)do
o.t-=1a=o.x
while(a==mid(128,a)and mget(a\8,o.y\8)<1)a+=o.u*4
line(o.x,o.y,a,o.y,o.t\6+1)for q in all(p)do
b=o.y-q.y
if(o.l>0and b==mid(-3,3,b)and q.x==mid(o.x,a,q.x))s+=1q.l-=1o.l=0
end
if(o.t<=0)del(w,o)
end
spr(2,x-8,y-8,2,2,z<0)flip()goto _