Compressed Bytes used
282

Source Code (OPTIONAL)
n=127f=flr
s=pset
g=pget::a::cls()x=64y=64rect(0,0,n,n,6)d=2.5t={{x,y}}::b::while(true)do
z=f(rnd(n))w=f(rnd(n))if(g(z,w)==0)s(z,w,8)break
end::_::e=f(d/2)if(d!=2.5)s(x,y,6)
x+=(1-e)*(d*2-1)y+=e*(d*2-5)add(t,{x,y})c=g(x,y)if(c!=8)s(t[1][1],t[1][2],0)deli(t,1)
if(c==8)goto b
if(c==6)goto a
s(x,y,7)for i=0,3 do if(btnp(i)and f(i/2)!=e) d=i end
flip()goto _