Star Fall 500

Star Fall 500

Catch the falling stars before they touch the floor and turn into dangerous barrels.

Jump over the barrels. Survive as long as you can.

A tiny TweetTweetJam-9 entry in 500 characters of code.

Controls:

• Left/Right: move left/right
• Fire: Jump

Code:

_set_fps(60)x=60v=0w=0p={}l=5f=120y=f::_::cls(1)rect(0,126,127,127,3)?t()\1,10
?l
if(#p<=t()\20)add(p,{t=1,x=rnd(f),y=0,v=0})
b=btn()x=mid(x+(b&2)/2-(b&1),f)y+=v
w-=.1v+=.1if y>=f do
y=f
v=0if(btnp(4))v=-2
end
for q in all(p)do
r=1?("★🅾️")[q.t],q.x,q.y
c=abs(q.x-x)<6and abs(q.y-y)<4if q.t<2do
q.y+=q.v
q.v+=.02if c do
r=0elseif q.y>=f do
q.y=f
q.t=2q.u=sgn(x-q.x)end
else
q.x+=q.u
if(w<0and c)l-=1w=6
if(mid(-8,q.x,128)!=q.x)r=0
end
if(r<1)del(p,q)
end
?"😐",x,y,w<0and 7or 8
if(l<1)run()
flip()goto _