877958097a6a

--- a/src/clojurecraft/core.clj	Fri Jun 24 19:01:56 2011 -0400
+++ b/src/clojurecraft/core.clj	Fri Jun 24 19:04:16 2011 -0400
@@ -838,6 +838,13 @@
     :text3 (-read-string16 conn)
     :text4 (-read-string16 conn)))
 
+(defn read-packet-mapdata [conn]
+  (let [pretext (assoc {}
+                       :unknown1 (-read-int conn)
+                       :unknown2 (-read-short conn)
+                       :textlength (-read-int conn))]
+    (assoc pretext :text (-read-bytearray (:textlength pretext)))))
+
 
 ; Reading Wrappers -----------------------------------------------------------------
 (defn read-packet [conn packet-id]
@@ -896,6 +903,7 @@
         :updateprogressbar         (read-packet-updateprogressbar conn)
         :transaction               (read-packet-transaction conn)
         :updatesign                (read-packet-updatesign conn)
+        :mapdata                   (read-packet-mapdata conn)
 
         :else (str "UNKNOWN PACKET TYPE: " packet-id)
         ))