Compressed Bytes used
1023

Source Code (OPTIONAL)
local h,v,█,s,🐱,𝘩,e,r,𝘴,░,l,u,a,w,c,o,n={},{},{},1,1,1srand()for f=0,15do o,n=cos(f/16)<<9,sin(f/16)<<8a=f\2/8+.5for f=0,31do c=add(v,{f=o,d=n,i=rnd(16)+8})w=rnd()if(rnd()<.15)add(█,{f=o,d=n+w*4,i=12*w,l=o,a=n,o=o,e={}})
if(f>8)a+=rnd{.25,0,0,0,0,-.25}/2
d=rnd(8)+c.i o,n=cos(a)*d+o,n+sin(a)*d/2end end e,r=c.f,c.d for d=0,255do for f=0,40,.1do o,n=cos(d>>8)*f\1,sin(d>>8)*f\2if(sget(64+o,n+64)<1)add(h,{f=o,d=n,i=f*f>>8})
sset(64+o,n+64,1)sset(d/2,f,d/255*f/4*(1-f\29/5)+rnd())end end while 1do?"⁶1⁶c0⁶!5f110█🐱░49:77"
𝘴=@24396\2%2*2-@24396%2*2░=@24396\8%2-@24396\4%2if(btnp(4))s=-s
camera(e-63,r-63)for f in all(v)do ovalfill(f.f-f.i,f.d-f.i/2,f.f+f.i,f.d+f.i/2,1)end o,n=𝘴+e,r+░ if(pget(o,n)==1)e,r=o,n
if(pget(o,n)<1)w=atan2(𝘴,░)+rnd{.25,-.25}o,n=cos(w)+e,r+sin(w)if(pget(o,n)==1)e,r=o,n
for f in all(█)do o,n=f.f,f.d f.r=.9l=abs(e-o)+abs(r-n)*2if(l<6)🐱&=2
if(l<26)f.r-=.2
if l<64do if(s>0)f.l,f.a=e,r f.r-=.2
a=atan2(f.l-o,f.a-n)if(s>0and l<26)a+=.5
if(s>0and l>26and l<26+f.i)a+=rnd{.25,-.25}
a+=sin(t()*64)/8if(pget(o,n)<1)a+=.5
f.o+=((a-f.o+.5)%1-.5)/4o+=cos(f.o)n+=sin(f.o)/2if(pget(o,n)==1)f.f,f.d=o,n add(f.e,{f=o,d=n},1)deli(f.e,24)
end end srand(t()\.2)i={}f=1while f<=#h*s do c=h[f]f+=1o,n=c.f+e,r+c.d u=max(6-c.i)*𝘩+rnd(.6)l=pget(o,n)if(l==1)pset(o,n,1+u)
if(l<1)while(f<=#h and h[f].i>c.i)f+=1
if(l==1and pget(o,n-2)<1)add(i,{f=o,d=n,c=u})
end for f in all(█)do for f in all(f.e)do pset(f.f,f.d,0)end end for f in all(i)do sspr(f.c*19,0,1,32,f.f,f.d-32)end ovalfill(-199,-260,-194,-247,9)if(pget(e,r-8)==9)🐱=2
for f=-1,1,2do line(f+e,r-4,f+f*sin(t()*3)*𝘴+e,r+f*sin(t()*3)*░*2,0)end?"⁶.@𝘩(、、、、、",e-3,r-12
if(s>0)pset(e+3,r-14,8)pset(e+3-𝘴/2,r-14-t()*3%2)𝘩-=.0003
if(𝘩<0)s=0
for f in all(█)do if(sin(t()/4+f.i)>f.r)?"⁶o0ffs𝘴𝘴",f.f,f.d-10,8
end camera()if(🐱<1)?"⁶c0soul lost"
if(🐱>1)?"⁶c0saved"
end

Link to Commented Source Code (OPTIONAL)
https://gist.github.com/rostok/30458a36214f57528d453509809d557d