Character Count
500

Game Code
function c(k,l,u)for e in all(f)do
if(e!=k and e.x==(k.x+l)%12and e.y==(k.y+u)%18)return e
end
end
f={}for k=1,4do
for i=1,2^k do
repeat
j={x=rnd(12)\1,y=rnd(18)\1,t=5-k}until not c(j,0,0)add(f,j)end
end
b=f[#f]::_::p=btnp()l=p\2%2-p%2u=p\8%2-p\4%2n=c(b,l,u)m=n or b::g::cls()e=c(m,l,u)if(n and e and e.t==n.t)e.t+=1del(f,n)?"\aa"
if(e)n=r
if(not e and l+u!=0)m.x=(m.x+l)%12m.y=(m.y+u)%18?"\ag"
for k in all(f)do
?(k==b and"\^i"or"").."\^w\#"..k.t..k.t,k.x*10+6,k.y*7+2,7
end
flip()if(n)goto g
goto _