Characters/Bytes used
1021

Source Code
d=128∧=rnd?"⁶c0⁷sol1i3d1c0a0a0e0e0a0a0e0g0g0a0a0g0f#0f#0"
웃={}x=64y=64a=0◆=rectfill?"ᶜ2웃ˇ●🐱◆웃⌂⌂⌂⌂",1,4
?"ᶜb웃ˇᶜ8●ᶜ9🐱ᶜc◆ᶜf웃ᶜd⌂ᶜ6⌂⌂⌂",0,3
◆(42,5,44,6,13)pset(3,0,8)◆(0,1,6,3,11)◆(1,1,5,3,10)◆(2,2,4,3,14)memcpy(0,24576,▤)u=4★=5f=fillp::_::u*=1-★\64◆(20,59,90,0,4)b=btn()a+=(b%2-b\2%2)/32c=cos(a)s=sin(a)x+=c
y+=s
if(y!=y%111or x!=x%d)a+=.25
for i=0,28do
◆(i*5,u*28,d,d,(i+x+y)/9%8+8)end
for j=0,28do
i=j*u+u-2q=웃[j]or{x=∧(d);n=★\8+1;r=★-4+∧(8)}n=q.n
if(n==3or n==5)q.x+=sgn(sin(j/9))/n
❎=q.x%d
q.r-=.01r=q.r
if(★>r)pal(2,4)
if(max(abs(i-y),abs(x-❎))<u)then
?"⁷i"..(5+sgn(r-★)).."a"
if(r>★)a=∧()★=max(5,★-.25)else ★+=█ q=nil
end
r=max(6,r)sspr(n*8,0,8,8,❎-r/2,i-r,r,r)pal()웃[j]=q
if(j==y\4)then
circfill(x,y-★/2,★/2,1)r=★*.8for k=8,★,3do
b=(x-y)/d+k/8sspr(k\8*8,0,8,8,x-k/2+cos(b)*k/3,y+sin(b)*k/3,k,-k)end
if(s>0)f(▒+.3)
spr(0,x-c*5-4,y-s*5-9)f()end
end
if(u>0)e=t()\.1
◆(0,113,d,d,0)spr(0,x/4%2,117+y/4%2)?"ᶜa★⁶wᶜbkatamarᶜ71k ᶜ2@p01",10,116
?"ᶜ5 ●"..★.."𝘤𝘮\t⧗"..e
?" ⁶w⁶tᶜa★ ᶜ7well done\nlittle prince⁶1⁶c3",12,48-u*d
goto _