Jumping Jack

This is demake of classic ZX Spectrum game.

My entry for tweettweetjam #2.

Control jack with left, right and jump with up.
Get to the highest level of tower to advance to new, more difficult one.
Game ends if you touch the ground.

Reload page to restart game.

560 characters

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 _