cc621ecb4d27

Fix move to update stance.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Thu, 07 Jul 2011 09:39:18 -0400
parents c242e7b1f58c
children 15fc94698c92
branches/tags (none)
files src/clojurecraft/actions.clj src/clojurecraft/core.clj

Changes

--- 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)
 
--- 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)