How many characters did you use?
558

Include your code here, if you'd like to show it off!
cls()r=rnd
o=128x=64y=64h={}m=memcpy
while(x<o and x>0 and y<o and y>0)do
pset(x,y,3)x+=r(2)-1y+=r(2)-1end
m(0,24576,8192)cls()for i=0,2 do
pal(3,2^i)sspr(0,0,o,o,0,-i)end
m(0,24576,8192)x=257y=250::q::cls()sspr(0,0,o,o,0,0,512,512)u={-1,1,0,0}
for i=1,4 do
if(btn(i-1)and pget(x+u[i],y-u[5-i])>1)x+=u[i]y-=u[5-i]end
if(r(1)>.9)add(h,{r(o*4),r(o*4)})
for e in all(h)do
k=e[1]l=e[2]
l-=(l-y)/32k-=(k-x)/32
?"🐱",k,l,8+r(2)
e[1]=k
e[2]=l
end
?#h,x-62,y-62
for j=-2,2 do
for i=-3,1 do
if(pget(x+j,y+i)>5)stop()end
end
?"웃",x-3,y-4,7
camera(x-64,y-64)flip()goto q