# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1308707674 14400
# Node ID a37940efbba3a59488a741a5a888b0559cea8f5f
# Parent  c873cb4028e4a8e351f3d527d5af987ed450787b
Moar.

diff -r c873cb4028e4 -r a37940efbba3 src/clojurecraft/core.clj
--- a/src/clojurecraft/core.clj	Tue Jun 21 21:49:54 2011 -0400
+++ b/src/clojurecraft/core.clj	Tue Jun 21 21:54:34 2011 -0400
@@ -22,6 +22,7 @@
      0x0D :playerpositionlook
      0x0E :playerdigging
      0x0F :playerblockplacement
+     0x10 :holdingchange
 })
 (def packet-ids (apply assoc {} (mapcat reverse packet-types)))
 
@@ -162,6 +163,11 @@
       (-write-byte conn amount)
       (-write-short conn damage))
 
+(defn write-packet-holdingchange [conn {slot :slot}]
+      (-write-byte conn (:holdingchange packet-ids))
+
+      (-write-short conn slot))
+
 
 ; Writing Wrappers -----------------------------------------------------------------
 (defn flushc [conn]
@@ -180,6 +186,7 @@
         (= packet-type :playerpositionlook)   (write-packet-playerpositionlook conn payload)
         (= packet-type :playerdigging)        (write-packet-playerdigging conn payload)
         (= packet-type :playerblockplacement) (write-packet-playerblockplacement conn payload)
+        (= packet-type :holdingchange)        (write-packet-holdingchange conn payload)
         )
       (flushc conn))
 
@@ -297,6 +304,10 @@
           (assoc :amount (-read-byte conn))
           (assoc :damage (-read-short conn))))
 
+(defn read-packet-holdingchange [conn]
+      (-> {}
+          (assoc :slot (-read-short conn))))
+
 
 ; Reading Wrappers -----------------------------------------------------------------
 (defn read-packet [conn packet-id]
@@ -318,6 +329,7 @@
             (= packet-type :playerpositionlook)   (read-packet-playerpositionlook conn)
             (= packet-type :playerdigging)        (read-packet-playerdigging conn)
             (= packet-type :playerblockplacement) (read-packet-playerblockplacement conn)
+            (= packet-type :holdingchange)        (read-packet-holdingchange conn)
             :else (str "UNKNOWN PACKET TYPE: " packet-id)
             ))
         (println "\n\n\n")))