Compressed Bytes used
1024

Source Code (OPTIONAL)
poke(24365,1)poke(22016,4,4,6)poke(22401,2,5,5,2,0,0,0,0,3,2,2,2,0,0,0,0,3,4,2,7,0,0,0,0,7,2,4,3,0,0,0,0,5,5,15,4,0,0,0,0,7,1,4,3,0,0,0,0,2,1,5,2,0,0,0,0,7,4,2,1,0,0,0,0,7,5,7,7,0,0,0,0,2,5,4,2,0,0,0,0,0,5,2,5,0,0,0,0,9,4,2,9,0,0,0,0,1,3,5,9,15,1,0)
u=0
v=0
f={}g={
{0,0,0,0},
{0,0,0,0},
{0,0,0,0},
{0,0,0,0},
{0,0,0,0}}?"\astb3a#ga#a#gg"
a={1,2,3,4,5}::_::
oval(90,1,126,15,12)
oval(99,2,116,14)
rect(5,4,121,12)
r=false
x=stat(32)
y=stat(33)
if stat(34)>0 and #a>0 then
if (not d) d=true j=x k=y
else
if (d) then
r=true
v=.01
s=rnd(a)
end
d=false
j=nil
end
rect(-1,17,128,19)
rect(-1,101,128,103)
for i=0,127 do
n=f[i] or {
n=rnd()*10\1,
x=(i*8)%128+2,
y=((i*8)\128)*10+22,
a=(i*8)%128+2,
b=((i*8)\128)*10+22,
z=.5,
v=rnd(),
}z=n.z+sin(u+n.v)
if(j)n.s=n.x<x and n.x>j and n.y<y and n.y>k and z>1.4
?((((x-n.x)^2+(y-n.y)^2)^█<12 or z>1.4) and "" or "\14")..n.n,n.x,n.y,n.s and 7 or 12
if(r and n.s) n.u=(s-1)*24+12
if n.u then
n.x=n.a*(1-v)+n.u*v
n.y=n.b*(1-v)+103*v
if(v>1)then
n=nil
k=rnd{1,2,3,4}g[s][k]=min(g[s][k]+1,25)
end
end
f[i]=n
end
if (d) rect(j,k,x,y)
u+=.0005
if v>0 then
v+=.04
l=(s-1)*24+5w=mid(.77-abs(v/2%4-.77),.37)-.25
for i=1,4 do
?"⁶#"..({"𝘸𝘰","𝘧𝘤","𝘥𝘳","𝘮𝘢"})[i].." ",l+2,112+i*6-w*4*65,("3421")[i]
rectfill(l+11,113+i*6-w*4*65,l+11+.36*g[s][i],113+i*6+3-w*4*65)
line(l,110,l+sin(w)*10,110-cos(w)*10,7)
line(l+20,110,l+20-sin(w)*10,110-cos(w)*10)
end
if(v>4)v=0
end
p=0rectfill(0,110,127,127,c)for i=1,5 do
b=g[i]
b[0]=b[1]+b[2]+b[3]+b[4]
l=(i-1)*24+5
rectfill(l,119,l+.2*b[0],126,7)
?"\14 0"..i.."\n\|j"..b[0]..";",(i-1)*24+8,111,12
rect(l,110,l+20,117)
rect(l,119,l+20,126)
if(b[0]==100)del(a,i)
p+=b[0]c=0
end
if(p\5==75)c=t()\1%4
?"s𝘪𝘦𝘯𝘢 ⁶w⁶x3\#"..c.."⁶-b𝘭𝘶𝘮𝘰𝘯",9,6
if(p\5==100)?"⁶w⁶t⁶#100%",50,50,7
?"\14\f7<⁶1⁶c"..c,x,y
?(p\5).."% c𝘰𝘮𝘱𝘭𝘦𝘵𝘦",38,6
goto _

Link to Commented Source Code (OPTIONAL)
https://gist.github.com/Liquidream/6c512ea17ff0b3eef7d2d7c58fda9e91