--devil's thrill
--by alex roe
s=">L>7e$*i>.3'A>H)#9Ae@R$]#SUZ7=$I7R_CKeKRiE7dUSi#@#=i79iA64"w=39t=0for i=1,62do b=ord(s,i,i)-15for q=1,b\10do sset(7-t\w,t%w,b%10)sset(8+t\w,t%w,b%10)t+=1end end
function o()p=2f=128z=300w=64e=0l=112x=56y=80u=-16i=0d=1k=0v={}n={}s=z end
c=spr
t=rnd
o()b=btn::b::flip()cls(p)circfill(w,w,s,0)for i in all(n)do circ(i.x,i.y,s,p)end circ(w,w,i,u)k=t(-1)
if(b(0)and x>0)x-=2
if(b(1)and x<l)x+=2
if(b(2)and y>0)y-=2
c(0,x,y,2,2)if s>0then
if(b(3)and y<l)y+=2
if(btnp(4))add(v,{x=x+4,y=y})
if(#n<z-s)add(n,{x=u+4,y=i,r=sin(k),t=cos(k),o=0})
for q in all(v) do
q.y-=4h=q.x
j=q.y
if(h>u-4and h<u+11and j<i+8and j>i)s-=5del(v,q)?"\ad"
c(w,h,j,1,1)if(j<0)del(v,q)
end
for q in all(n)do
q.x+=q.r
q.y+=q.t
h=q.x
j=q.y
if(h>f or h<0or j>f or j<0)del(n,q)
if(h>x+7and h<x+9and j>y+4and j<y+10)o()?"\aa"
c(w,h-4,j-4,1,1)end
s-=.1c(32,u-4,i,2,2)?"\ag000"
end
if(e>l or e<-l)e=0d=k
if(d>0)d=z/s
if(d<0)d=-z/s
u=w-sin(s/z)*w*sin(e/l)i=y+w*cos(e/l)e+=d
if(s<0)s=-1y-=2p=8?"!fin",w,u,1
if(y<0)p=14?"by alex roe",48,l,1
goto b