Compressed Bytes used
725

Source Code (OPTIONAL)
poke(0x5f2c,3)

function eg()
a=0
c={}
d={}
f=0
z=60
rz=120
s=0
end

eg()
h=0

function p(x,y,c)
print("😐",x-2,y-5,c)
print("웃",x-2,y,c)
end

function g(x,y)
line(x-2,y,x+2,y,0)
line(x-2,y,x-2,y-4)
line(x+2,y,x+2,y-4)
end

function b(x,r,e)
if e>0 then
rectfill(x-1,7+r*16,x+1,10+r*16,10)
end
g(x,10+r*16)
end

function ad(r)
td={}
td.r=r
td.d=-1
td.e=1
td.x=50

add(d,td)
end

function ac(r)
tc={}
tc.r=r
tc.x=3
tc.d=1
tcc=ceil(rnd(3))
if tcc>2 then
tc.c=15
elseif tcc>1 then
tc.c=9
else
tc.c=5
end

add(c,tc)
end

function _update60()

z-=1
if z<=0 then
ac(flr(rnd(4)))
z=rz
rz=max(52,rz-2)
end

if f==0 then
if btnp(2) then a=max(0,a-1) end
if btnp(3) then a=min(3,a+1) end
end

if btn(4) then
f=min(30,f+1)
else
if f==30 then
ad(a)
end
f=0
end

cls(3)

p(54,8+a*16,7)
rectfill(59,10-(flr(f/10))+a*16,61,10+a*16,10)
g(60,10+a*16,2)

for tc in all(c) do
if tc.d>0 then
tc.x+=0.125*tc.d
else
tc.x-=1
end

if tc.x>50 then
eg()
end
p(tc.x,8+tc.r*16,tc.c)
if tc.d<0 then
b(tc.x,tc.r,1)
if tc.x<-10 then
del(c,tc)
end
end
end

for r=0,3 do
rectfill(2,9+(r*16),50,12+(r*16),4)
end

for td in all(d) do
td.x+=1*td.d

if td.x<2 then
eg()
end
b(td.x,td.r,td.e)

for tc in all (c) do
if td.r==tc.r then
if td.x<tc.x then
tc.d=-1
del(d,td)
s+=1
if s>h then h=s end
break
end
end
end
end

print(s,14,1,10)
print(h,46,1,2)
end