# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1308705926 14400
# Node ID b2c99ffc67de40dbb42d25ec11c4de9e883344b1
# Parent  1193dce21ecd089d31fa9299777eb7b58502cae0
Moar.

diff -r 1193dce21ecd -r b2c99ffc67de src/clojurecraft/core.clj
--- a/src/clojurecraft/core.clj	Tue Jun 21 21:19:50 2011 -0400
+++ b/src/clojurecraft/core.clj	Tue Jun 21 21:25:26 2011 -0400
@@ -18,6 +18,7 @@
      0x09 :respawn
      0x0A :player
      0x0B :playerposition
+     0x0C :playerlook
 })
 (def packet-ids (apply assoc {} (mapcat reverse packet-types)))
 
@@ -118,8 +119,14 @@
       (-write-double conn y)
       (-write-double conn stance)
       (-write-double conn z)
-      (-write-bool conn onground)
-      )
+      (-write-bool conn onground))
+
+(defn write-packet-playerlook [conn {yaw :yaw pitch :pitch onground :onground}]
+      (-write-byte conn (:playerlook packet-ids))
+
+      (-write-float conn yaw)
+      (-write-float conn pitch)
+      (-write-bool conn onground))
 
 
 ; Writing Wrappers -----------------------------------------------------------------
@@ -135,6 +142,7 @@
         (= packet-type :respawn)        (write-packet-respawn conn payload)
         (= packet-type :player)         (write-packet-player conn payload)
         (= packet-type :playerposition) (write-packet-playerposition conn payload)
+        (= packet-type :playerlook)     (write-packet-playerlook conn payload)
         )
       (flushc conn))