Compressed Bytes used
1024

Source Code (OPTIONAL)
::a::w,p,r,e,f=-2,.755,5,122,.985::q::s,b,j=0,{},0for i=0,2do
for j=0,1do
t=flr(rnd(3))add(b,{24+j*64+rnd(16),8+i*32+rnd(16),0,0,t+1})end
end::_::cls(5)rect(0,0,127,127,3)c=0for n in all(b)do
if n[5]==0then del(b,n)else circfill(n[1],n[2],r,n[5])circfill(n[1]+1,n[2]-1,r-2,n[5]+7)circfill(n[1]+2,n[2]-2,r-4,7)circ(n[1],n[2],r,0)
if(n[1]>=e or n[1]<=r)n[3]*=-1?j<e and"\as2i6x3g1"or""
if(n[2]>=e or n[2]<=r)n[4]*=-1?j<e and"\as2i6x3g1"or""
if(j<e)n[1]+=n[3]*5n[2]+=n[4]*5
for k in all(b)do
if k!=n then
dx,dy=n[1]-k[1],n[2]-k[2]d=dx^2+dy^2
if d<4*r*r and k[5]!=0then
d=sqrt(d)if(d==0)d,dx,dy=1,1,0
x,y=dx/d,dy/d
if n[5]==k[5]then
for i=1,4do n[i]=(n[i]+k[i])*.5end
if n[5]<7then
?"\as6i7x1d"
n[5]+=1s+=n[5]^2else n[5],w=0,1?"\ai1dba"
s+=100for l in all(b)do if l[5]!=0then x,y=l[1]-n[1],l[2]-n[2]
d=sqrt(x^2+y^2+.01)
if d<r*10then x,y=x*2/d,y*2/d
l[3]+=x
l[4]+=y
end
end
end
end
k[5]=0else?"\as1i0x3a5"
ni,ki=n[3]*x+n[4]*y,k[3]*x+k[4]*y
nf,kf=ki,ni
u,h,i=max(0,2*r-d)*.5/d,nf-ni,kf-ki
n[1]+=dx*u
n[2]+=dy*u
k[1]-=dx*u
k[2]-=dy*u
n[3]+=h*x
n[4]+=h*y
k[3]+=i*x
k[4]+=i*y
end
end
end
end
n[3]*=f
n[4]*=f
n[1]=mid(r,n[1],e)n[2]=mid(r,n[2],e)
if(w==0)c+=4.5-n[5]/2
end
end
if w!=0then if w==-2then?"\^#\^p1k combi pool",14,60,10
else?"\^#\^t"..(w==1and "win!"or"over\nload"),60,60,9+w
end?"\^#🅾️ start\n\n\f6❎ shoot",50,100,10
j+=1if(btnp(🅾️))w=0goto q
else
x,y=64+cos(p)*30,e-sin(p)*30line(64,e,x,y,13)if(btn(➡️))p+=.008
c=(c/40)^3if(c>1and w==0)?"\^iwarning\|6\av1e2",51,120,8
rect(50,126,80-c*14,127,10)if(c>2)w=-1?"\ai1s52x0c3c1b3"
if(btn(⬅️))p-=.008
p=mid(.495,p,1.005)if(btnp(❎))add(b,{64,e-1,cos(p),-sin(p),1})
end?s>0and"\^iscore:"..s or"",4,120,13+w
flip()goto _