# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1316195114 14400
# Node ID 80438ed06cbf7254b2c2867eeb5c5a46f486adbe
# Parent  7942222da83080b6757e56a9fdefc72e9619ecc1
Leftover.

diff -r 7942222da830 -r 80438ed06cbf src/examples/followbot.clj
--- a/src/examples/followbot.clj	Fri Sep 02 20:10:35 2011 -0400
+++ b/src/examples/followbot.clj	Fri Sep 16 13:45:14 2011 -0400
@@ -17,7 +17,7 @@
        (abs (- (:z from) (:z to))))))
 
 (defn- toward-single [from to]
-  (if (<= (abs (- from to)) 1)
+  (if (<= (abs (- from to)) 2)
     0
     (if (< from to) 1 -1)))
 
@@ -38,15 +38,13 @@
                      (distance-between bot %2))
                  entities))))
 
+
 ; Loops ----------------------------------------------------------------------------
 (defn follow [bot]
   (when (:loc @(:player bot))
     (let [players (find-other-players bot)
           closest (closest-entity bot players)]
       (when closest
-        (println (:name @(:player bot)) "following" (:name @closest))
-        (println (:loc @(:player bot)))
-        (println (:loc @closest))
         (let [{x :x z :z} (toward bot closest)]
           [(actions/move bot x 0 z)])))))