Compressed Bytes used
1022

Source Code (OPTIONAL)
function _init()m={}x=0y=0g=0h=0vi=0f=0j=0o=0hx=0hy=0gx=0gy=0l=0w=circfill
for i=1,40do
c={x=gx,y=gy,s=rnd(30)+3,g=rnd(99)+20,h=rnd(199)-99,m=rnd(20)-10}
gx=gx+c.s+c.g
gy=gy+c.h
add(m,c)end
end
function z(u,v)d=-99
for i=1,#m do
c=m[i]
if c.x+c.s+c.g>j+hx-70and c.x-c.s<j+hx+70then
a=(u-c.x)/30b=(v-c.y)/30
dx=c.g/30dy=c.h/30
hc=mid(0,1,(a*dx+b*dy)/(dx*dx+dy*dy))tc=sin(hc/2)*c.m/30
a=a-dx*hc-dy*tc
b=b-dy*hc+dx*tc
d=max(d,c.s-sqrt(a*a+b*b)*30)end
end
return d
end
function _update60()cls(1)a=(x-j)/30b=(y-o)/30oc=sqrt(a*a+b*b)
if(oc>.5)hx=hx*.97+(a/oc)*1.5hy=hy*.97+(b/oc)*1.5
j=mid(x-16,x+16,j*.98+x/50)o=mid(y-16,y+16,o*.95+y/20)camera(j+hx-64,o+hy-64)
for i=#m,1,-1do
c=m[i]if c.x+c.s+c.g>j+hx-80and c.x-c.s<j+hx+80then
s=max(abs(c.g),abs(c.h))for k=s,-1,-2do
tk=sin(k/(s*2))*c.m/30w(c.x+k/s*c.g+tk*c.h,c.y+k/s*c.h-tk*c.g,c.s+10,13+(k\6)%2)end
end
end
for i=#m,1,-1do
c=m[i]if c.x+c.s+c.g>j+hx-80and c.x-c.s<j+hx+80then
s=max(abs(c.g),abs(c.h))for k=s,-1,-2do
tk=sin(k/(s*2))*c.m/30w(c.x+k/s*c.g+tk*c.h,c.y+k/s*c.h-tk*c.g,c.s,1+(k\6)%2)end
end
end
q=4
if btn()>0then
q=1elseif l then?"\as8i6x4v2g4",0,0
if(g<1)g+=.5
if(h>-1)h-=.5
end
for k=1,q do
h+=.003h*=.997g*=.997
t,n=x+g,y+h
cd=z(x,y)if cd<-1then
nx=z(t+.1,n)-z(t-.1,n)ny=z(t,n+.1)-z(t,n-.1)le=sqrt(nx*nx+ny*ny)
if(le>0)nx,ny=nx/le,ny/le
dd=nx*g+ny*h
g-=nx*dd*1.8h-=ny*dd*1.8x+=nx*.3y+=ny*.3
?"\ai6x5v"..min(abs(dd*9)\1,7).."c1",0,0
else
x,y=t,n
end
end
w(x-g*4,y-h*4,2,7)w(x-g*8,y-h*8,1,7)w(x,y,2,7)?f,j+hx,o+hy-60,7
if vi>0then
?"victory",j,o,10
if(btnp()>0)_init()
else
if abs(x-gx)+abs(y-gy)<30then
vi=1?"\as9x5c1egc2egc3egc4",0,0
end
if f%120==0then
?"\asfi6x5v2c.c.f5.f.c4.c.a1aa",0,0
p=f\120%4
if p%2==0then
?"\asfx2c1egc2..egc3eee",0,0
elseif p==1then
?"\asfx2a2bdc..e.c3ggg",0,0
else
?"\asfx2cgde..a.a1dd",0,0
end
end
f+=1end
l=btn()>0end