# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1310045958 14400
# Node ID cc621ecb4d27bf8d14a5da1ed486f9c7eb8fd4a3
# Parent  c242e7b1f58cf1f1737584e6f17b7a18dc4ea2ec
Fix move to update stance.

diff -r c242e7b1f58c -r cc621ecb4d27 src/clojurecraft/actions.clj
--- a/src/clojurecraft/actions.clj	Tue Jul 05 20:57:11 2011 -0400
+++ b/src/clojurecraft/actions.clj	Thu Jul 07 09:39:18 2011 -0400
@@ -9,7 +9,8 @@
             new-location (merge location
                                 {:x (+ x-change (:x location))
                                  :y (+ y-change (:y location))
-                                 :z (+ z-change (:z location))})]
+                                 :z (+ z-change (:z location))
+                                 :stance (+ y-change (:stance location))})]
         (alter player merge {:location new-location}))))
   bot)
 
diff -r c242e7b1f58c -r cc621ecb4d27 src/clojurecraft/core.clj
--- a/src/clojurecraft/core.clj	Tue Jul 05 20:57:11 2011 -0400
+++ b/src/clojurecraft/core.clj	Thu Jul 07 09:39:18 2011 -0400
@@ -88,11 +88,11 @@
 
 
 ; Scratch --------------------------------------------------------------------------
-;(def bot (connect minecraft-local))
-(act/move bot -3 0 -4)
+(def bot (connect minecraft-local))
+(act/move bot 0 4 0)
 ;(pprint @(:packet-counts-in bot))
 ;(pprint @(:packet-counts-out bot))
-;(println (:world bot))
+;(pprint (:player bot))
 ;(println (:location @(:player bot)))
 ;(disconnect bot)