Fix move to update stance.
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)