# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1308704511 14400
# Node ID a5dd7fa97088a4be714d67d6e194376e35472fa7
# Parent  cce62e009da045c5d32f57629ec2480ae9218df1
Moar.

diff -r cce62e009da0 -r a5dd7fa97088 src/clojurecraft/core.clj
--- a/src/clojurecraft/core.clj	Tue Jun 21 20:59:56 2011 -0400
+++ b/src/clojurecraft/core.clj	Tue Jun 21 21:01:51 2011 -0400
@@ -12,6 +12,7 @@
      0x03 :chat 
      0x04 :timeupdate 
      0x05 :equipment 
+     0x06 :spawnposition
 })
 (def packet-ids (apply assoc {} (mapcat reverse packet-types)))
 
@@ -152,6 +153,12 @@
           (assoc :itemid (-read-short conn))
           (assoc :unknown (-read-short conn))))
 
+(defn read-packet-spawnposition [conn]
+      (-> {}
+          (assoc :x (-read-int conn))
+          (assoc :y (-read-int conn))
+          (assoc :z (-read-int conn))))
+
 
 (defn read-packet [conn packet-id]
       (let [packet-id (int packet-id)
@@ -165,6 +172,7 @@
             (= packet-type :chat) (read-packet-chat conn)
             (= packet-type :timeupdate) (read-packet-timeupdate conn)
             (= packet-type :equipment) (read-packet-equipment conn)
+            (= packet-type :spawnposition) (read-packet-spawnposition conn)
             :else (str "UNKNOWN PACKET TYPE: " packet-id)
             ))
         (println "\n\n\n")))