drop (pancelor)

a game in 554 characters. has sound, too!

controls:

• move: arrow keys
• jump: X
• restart: ctrl-r
• mute: ctrl-m

code: poke(24415,16)j=0r=rnd::t::p=1x=64y=0k=-6z=0u=0v=0l={}s=0d=10w=127a=add::_::cls(2)while d<y+99do d+=16k+=1j=max(j,k)s+=.1m=r(99)for i=0,s do n=r(w) if(n>m+16or m>n)a(l,{n,d-2,n,d,8})end a(l,{0,d+1,m,d,6})a(l,{m+16,d+1,w,d,6})end v=v*.85+.52if(btnp(5)and g>0)g=0v=-4 u=u*.7-(1+btn()&3)%3+1x=(x+u)%w y+=v poke4(24432+r(16),r())z=max(z+s/9,y-48)for i in all(l)do b,h,e,f,c=unpack(i)if h<=y+2and y<=f+2and b<=x+2and x<=e+2then y-=1v=0g=1p=c~=8and y>z end rect(b,h-z,e,f-z,c)end ?k.."\n\fa"..j,1,1,7 ?"\fc웃\^1",x-3,y-3-z\1 if(p)goto _ ?"\ag3e-c" ?"\^5" goto t