Characters/Bytes used
1022 characters

Source Code
_set_fps(60)m=128h=0for i=0,191do v=ord("#C#**CC+?S4.G34,aV4'B;F&#+%+#+EB",i\6+1)-35sset(i%24,i\24,v\2^(i%6)%2*({3,14,12})[i%24\8+1])end::s::r={}s=0t={}x=16y=64z=-.2f=0g=0k=800c=5::_::cls(1)b=btn()x+=(b&2)/2-(b&1)y+=(b&8)/8-(b&4)/4x=mid(x,m)y=mid(y,m)f-=.1g-=.1z+=.001w=x+k*z
if btn(4)then
if(f<0)f=2add(r,{x=w+6,y=y,u=2,v=0,t=1})?"\as0cf"
if(g<0)g=4add(r,{x=w+6,y=y,u=.8,v=1.3,t=2})
end
w=max(z)+(#t-1)*.01while #t<40do
add(t,{x=k*w,y=72+40*cos(w)+16*cos(2.1*w),h=5,t=mid(2,rnd(2*c)+1-c)\1,o=rnd(16)})w+=.01c=max(c-.01)end
w=k*z
for e in all(r)do
e.x+=e.u
e.y+=e.v
a=e.x-w-1
?sub("-V",e.t,e.t),a,e.y-2,7+e.t
if(a>m or e.y>m)del(r,e)
end
for i=2,#t do
p=t[i-1]q=t[i]
if(p.h>5)p.h+=1
a=p.x-w+4b=p.y-p.h
rectfill(a-4,p.y,q.x-w,m,2)
if p.t>0then
spr(p.t,a-4,b-4)
if(abs(a-x)<6and abs(b-y)<4)goto s
if(p.t<2and a-x<b-y-p.o)p.h=max(6,p.h)
for e in all(r)do
if(abs(a-e.x+w)<4and abs(b-e.y)<5)p.t=0del(r,e)s+=1break
end
end
if(abs(a-x)<5and y>p.y)goto s
end
if(w-t[1].x>16)deli(t,1)
?s,1,1
?h
h=max(s,h)spr(0,x-4,y-4)flip()goto _