Compressed Bytes used
1023

Source Code (OPTIONAL)
_set_fps(60)l=1::s::n=l*10+60p={}for i=0,n do
a=5-l/10u=rnd(a)\1+1v=a\u+1q={x=rnd(15)\1,y=16-i,u=u,v=v}add(p,q)
if(i<1)r={x=min(q.x*8+q.u*4,120),y=128-q.v*4,z=0,a=.25,u=0,v=0,w=0}
end
u=rnd()v=l+2g=-n*8w=2h=440-l*4j=0k=n*4m="stage "..l::_::cls(1)g-=mid(-w,w,g)o=96-r.y-g
a=t()%6a=min(a,6-a)*.8\1+3for i=1,#p do
q=p[i]rrectfill(q.x*8-a,q.y*8-q.v*8-a+o,q.u*8+a*2,q.v*8+a*2,6+a,13)
end for i=1,#p do
q=p[i]rrectfill(q.x*8-2,q.y*8-q.v*8-2+o,q.u*8+4,q.v*8+4,8,5)
end for i=1,#p do
q=p[i]rrectfill(q.x*8,q.y*8-q.v*8+o,q.u*8,q.v*8,6,3)
end
rect(0,128-n*8+o,128,128-n*8+o,15)a=btn()\2%2-btn()%2b=btn()\8%2-btn()\4%2if k<1do
h-=.2w=.5if j<1do
r.a-=a*.005r.u=cos(r.a)r.v=sin(r.a)for i=t()%1,8do
pset(r.x+r.u*i*6,r.y+r.v*i*6+o,7)
end
if(btnp(4))j+=1f=0
elseif j<2do
f+=1f%=256c=min(f,256-f)rectfill(0,0,c,4,10)if(btnp(4))j+=1c/=160x=r.x y=r.y r.u*=c r.v*=c r.w=c?"\as"..sub(tostr(c*20,1),6,6).."x1c2defgabc3defedcb2agfedc"
elseif j<3do
r.x+=r.u+cos(u)*v/50r.y+=r.v+sin(u)*v/50r.z+=r.w
r.w-=.01if(r.w<0and r.z<=0)j+=1r.z=0
elseif j<4do
j=0u=rnd()a=pget(r.x,r.y+o)if(a!=3and a!=5and a!=15)r.x=x r.y=y?"\ai6c"
end
if(j<2)g+=b*2
end
if(j<3)line(8-cos(u)*4,12-sin(u)*4,8+cos(u)*4,12+sin(u)*4,7)line(8-sin(u)*4,12+cos(u)*4,8+cos(u)*4,12+sin(u)*4)line(8+sin(u)*4,12-cos(u)*4,8+cos(u)*4,12+sin(u)*4)?v,14,14
circfill(r.x,r.y+o,r.z/2+2,7)for i=0,127do
a=h+(sin(t()/2+i/64)+sin(t()/4+i/128))*sin(t())*4+rnd(2)fillp(0xa5a5.8)rect(i,a-16+o,i,a+o,8)fillp()rectfill(i,a+o,i,a+16+o,9)rectfill(i,a+16+o,i,129,10)
end
if(j<1and r.y-128+n*8<0)j=4k=180m="well done!!!"
if(j<1and h-r.y<0)j=5k=240m="game over"
if(k>0)k-=1?"\^o25a"..m,64-#m*2,56,10
if(k<1and j>4)l=1goto s
if(k<1and j>3)l+=1goto s
if(j<2)?"fire:"..(max(h-r.y)\1).."m, goal:"..(max(r.y-128+n*8)\1).."m",16,121,7
flip()goto _