How many characters did you use?
560

Include your code here, if you'd like to show it off!
q,t,c=0,2,7
::n::
h,p,x,y,e,d,u,r=9,1,8,10,{},{},0,btnp
for i=1,13 do
add(e,rnd(16))add(d,sgn(rnd(8)-4))end
::_::
cls()
for i=0,8192,3 do
memset(24576+i,q,1)q+=16end
for i=1,#e do
line(-1,i*h,e[i]*8,i*h,15)line((e[i]+2)*8,i*h,128,i*h,15)e[i]+=t*.05*d[i]
if(e[i]>15)e[i]=-2
if(e[i]<-2)e[i]=15
end
c=max(7,c-t*.02)
if c==7then
if(r(0))x-=1
if(r(1))x+=1
if r(2)then
if(pget(x*8+3,y*9)<15)y-=1u=2 else c=9
end
end
if(x<0)x=15
if(x>15)x=0
if(u<0 and pget(x*8+3,y*9+9)<15)y+=1else u-=.1
if(y<1)t+=1goto n
?"tower:"..t-1
if(y>12)stop()
?"웃",x*8,y*9+4,c
flip()goto _