Compressed Bytes used
1024

Source Code (OPTIONAL)
poke(24405,0)cls()?"\f4\^:c70101e101017901\^:e380808780809e80\^:9f0101610101f101\^:f980808680808f80\^:c70101f901017f01\^:e380809f8080fe80\^:c701010101417101\^:e380808080828e80\^:c701013901019981\^:e380809e80809c80\f5\^:dfdfdf00fefefe00\n\f4\^:01e10101790101c7\^:808780809e8080e3\^:01790101f101019f\^:809e80808f8080f9\^:01f901017f0101c7\^:809f8080fe8080e3\^:01f901017f0101c7\^:809f8080fe8080e3\^:81f901013f0101c7\^:809f8080fe8080e3\^:003c56567e7e3c00\^:003854567e7e3c00\b\b\f2\^:3c42a9a98181423c\^:3844aaa98181423c"
poke(24405,96)function z(q,x,y)return sget((q.x+x)\8+l%5*16,(q.y+y)\8)end
_set_fps(60)h=0::r::s=0l=1g=1v=8m="ready!"?"\asfcdeedee"
::s::n=0t=60c=0d=0r={i=0,s=26,c=8,x=64,y=64,u=1,v=0}p={r}for i=0,6do
add(p,{i=i+1,s=27,c=i+8,x=(i^^5)*14+8,y=4+i,u=1,v=1})end
::_::cls()f=l/100+.6pal(9,3,1)t=max(t-1)d=max(d-1)for i=0,255do
if(sget(i%16+l%5*16,i\16)>0)spr(10,i%16*8,i\16*8)
end
if(d<1)c=0
for q in all(p)do
if t<1do
if(#p<2)t=60m="level complete!"n=1
if(n>2)h=max(h,s)goto r
if(n>1)goto s
if(n>0)l+=1goto s
if q.i<1do
q.y+=q.v
q.v=min(4,q.v+.1)a=btn()\2%2-btn()%2
if(a!=0)q.x+=a q.u=a
if(z(q,0,1)+z(q,0,7-q.v)>0)q.x-=q.x%8-8
if(z(q,8,1)+z(q,8,7-q.v)>0)q.x-=q.x%8
if z(q,1,8)+z(q,7,8)>0do
if(q.v>0)q.v=0q.y-=q.y%8
if(btnp(4))q.v=-2.2
end
if(z(q,1,0)+z(q,7,0)>0)q.v=max(q.v)q.y-=q.y%8-8
else
for i=1,g do
if z(q,1,8)+z(q,7,8)>0do
if(q.v>0)q.v=0q.u=rnd(2)\1*2-1
q.x+=q.u
if(z(q,q.u>0and 8or 0,4)>0)q.u=-q.u
else
q.y+=1q.v=1end
if t<1and abs(q.x-r.x)<5and abs(q.y-r.y)<5do
if q.c!=r.c do
t=60v-=1if v<1do
m="game over"n=3
else
m="ouch!!!"n=2?"\as8edc"
end
else
del(p,q)s+=1<<c
r.c+=1c+=1d=256t=60m="combo x"..c?"\as8cde"
end
end
end
end
end
q.y%=128pal(4,q.c)spr(q.s,q.x,q.y,1,1,q.u<0)
end
g+=f-g\1
?"s:"..s,0,0,6
?"h:"..h
?"♥"..v
if(t>0)?"\^w\^h"..m,64-4*#m,60,6
flip()goto _