Characters/Bytes used
997 Characters used

Source Code
memset(0,238,2048)p={1,14,13,6,5,7}n=rnd
k=0for i=1,254do v=ord("…&█'☉'☉'☉'☉'☉'☉.v5&웃☉'☉'☉'☉'☉'☉.)r.&'p.⌂'⌂'⌂'⌂'⌂'☉.)r.&'p.ヲヲヲ-.)r.&'p.⌂'⌂'⌂'⌂'⌂'☉.)r.&'p.ヲヲヲ-.)r.&'p.⌂'⌂'⌂'⌂'⌂'☉.)r.&'p.ヲヲヲ-.)r.&'p.☉'☉'☉'☉'☉'☉.)r.&'p.☉'☉'☉'☉'☉'☉.)r.&'p.⌂&⌂&⌂&⌂&⌂◆.)r.&'p.%○,○,○,○,○%☉.)r.&'p.%○,○,○,○,○%☉5r.&'p.%○,○,○,○%ン❎&웃☉'☉'☉'☉'&ンンンンし",i)-35for j=0,v\7do sset(k%128,k\128,p[v%7])k+=1end end
m=.3r=0w=7.5t=0h=6d=0p={4,4}sset(18+n(12),2+n(12),8)c=cos
s=sin::_::t+=1b=btn()q=b\2%2-b%2e=b\8%2-b\4%2f=sset
if(q!=0or e!=0)d=atan2(q,-e)&.75
b=p[2]+s(d)a=p[1]+c(d)o=sget(18+a,2+b)
if(o==11or a>12or a<-1or b>12or b<-1)stop()
if(o==8and t%9==1)h+=2f(18+n(12),2+n(12),8)
if(t%9==1)add(p,b,1)add(p,a,1)
f(18+p[1],2+p[2],11)
if(#p>h)f(18+deli(p,#p-1),2+deli(p,#p),0)
m-=(m-.3)/8r-=r/4cls(14)camera(-64,-96)r+=q/64m+=e/28g=c(r)i=s(r)u=sgn(i)for z=0,15do
for x=w-w*u,w+w*u,u do
for y=8,0,-1do
o=sget(x+y%8*16,z+y\8*16)
if(o!=14)j,k=x*4-32,y*4-32j,k=j*g+k*i,j*i-k*g k=k*m-z*4rectfill(j-2,k-2,j+2,k+2,o)
end
end
end
flip()goto _