How many characters did you use?
484

Include your code here, if you'd like to show it off!
::z::
x,y,f,s,e,r,c=2,64,100,0,{},rnd,rectfill
function n(x,h)
add(e,{x=x,w=r(9)+9,h=h})
end
n(0,60)
n(70,40)
::_::
cls(7)
for v in all(e) do
c(v.x,128,v.x+v.w,128-v.h,0)
if(pget(x+3,y+4)==7)v.x-=1
if(v.x<0-v.w) n(128,flr(r(20))*2+20) s+=1 del(e,v)
end
if(pget(x+6,y+2)==0)goto z
if btn(4) and
f>0 then
y-=2
?"░",x,y+5,8
if(f>0)f-=3
else y+=2 end
if pget(x+3,y+3)==0 then
y-=2
if(f<100)f+=3
elseif f<100 then
f+=.2
end
if(y>122)goto z
?"웃",x,y,0
?s,2,4
c(0,0,f*1.28,1,8)
flip()
goto _