Compressed Bytes used
636

Source Code (OPTIONAL)
hi=0d=del::v::x=60𝘴=0lvl=1::𝘳::r=0a=add
?"\as4x5c1egc2egc3egc4"
en={}fb={}eb={}f=1
for i=0,31do
a(en,{x=i%8*10,y=i\8*10})end
::_::cls()if(btn(⬅️))x-=2
if(btn(➡️))x+=2
if(btnp(❎))𝘴-=1a(fb,{x=x+4,y=128})
for b in all(fb)do
b.y-=4for e in all(en)do
if b.x>=e.x and b.x<=e.x+7and b.y>=e.y and b.y<=e.y+7then
d(en,e)d(fb,b)𝘴+=10
goto k
end
end
circ(b.x,b.y,1,12)if(b.y<0)d(fb,b)
::k::end
?"\^:183c243c3c7ee781",x,120,7
sf=f*min(32/#en,4)dn=r
r=false
for e in all(en)do
if(dn)e.y+=4
c=11e.x+=sf
if(rnd(300)\1<=lvl)a(eb,{x=e.x+4,y=e.y+2})c=7
if(e.x\8)%2==0then?"\^:7e9999ff66242442",e.x,e.y+8,c
else?"\^:7e9999ff66244281",e.x,e.y+8,c
end
if e.x>=120then
f=-1r=true
elseif e.x<=0then
f=1r=true
end
if(e.y>110)r=30goto g
end
for b in all(eb)do
b.y+=2
if b.y>=120and b.y<128and b.x>=x and b.x<=x+8 then
r=30goto g
end
circ(b.x,b.y,1,8)end
?"\^iscore:"..𝘴,0,0,7
if(#en==0)lvl+=1goto 𝘳
flip()goto _
::g::
hi=max(hi,𝘴)cls()r-=1
?"\^t\^wgame over"
?"score:"..𝘴
?"hi-score:"..hi
?"press ❎ to start"
if(btnp(❎)and r<0)goto v
flip()goto g