Characters/Bytes used
969 characters

Source Code
_set_fps(60)h=0for i=0,255do v=ord("#𝘴&2;#𝘤4.4𝘶#𝘭𝘶𝘮=𝘢/!𝘨8𝘶9𝘩6𝘪𝘮b𝘭𝘶𝘮8*𝘬𝘸5𝘨##2_𝘤$",i\6+1)-35sset(8+i%32,i\32,v\2^(i%6)%2*({12,4,11,6})[(i%32)\8+1])end::s::x=32y=64m=0f=0s=0w=0k=.01p={}t={}g={}?"\as8cc..c..gg..c..gggg"
for i=1,100do
add(g,{x=rnd(128),y=rnd(128),u=-rnd()-1,c=1+i%15})end::_::cls()w+=.01f-=.1for e in all(g)do
e.x+=e.u
pset(e.x,e.y,e.c)
e.x=e.x%128
end
if(rnd()<k)add(t,{x=128,a=w,b=rnd(),m=m,l=3-m-m})k+=.001m=1-m
b=btn()x+=(b&2)/2-(b&1)y+=(b&8)/8-(b&4)/4x=mid(x,120)y=mid(y,120)
if(btn(4)and f<0)add(p,{x=x+8,y=y+2})f=1?"\as2aeg"
spr(1,x,y)for o in all(t)do
o.x-=1u,v=128-o.x,o.b*128
if(o.m<1)o.y=v+u*((o.a)%2-1)
if(o.m>0)o.y=v+40*sin((1+o.a%1)*.005*u)
if(abs(x-o.x)<8and abs(y-o.y)<6)cls(8)flip()h=max(h,s)goto s
spr(2+o.m,o.x,o.y)
if(o.l<0)del(t,o)?"\as4agfedc"
end
for q in all(p)do
q.x+=2c=0
?"-",q.x,q.y,15
for o in all(t)do
if(abs(q.x-o.x)<4and abs(q.y-o.y)<6)o.l-=1c=1s+=1break
end
if(q.x>128)c=1
if(c>0)del(p,q)
end
?s.." h:"..h,1,1,7
flip()goto _