            :compresseddata
            (-read-bytearray conn
                             (:compressedsize predata)))))
+
+(defn read-packet-multiblockchange [conn]
+  (-> {}
+    (assoc :chunkx (-read-int conn))
+    (assoc :chunkz (-read-int conn))
+    (assoc :arraysize (-read-short conn))
+    (assoc :coordinatearray (-read-shortarray conn))
+    (assoc :typearray (-read-bytearray conn))
+    (assoc :metadataarray (-read-bytearray conn))))
 
 
 ; Reading Wrappers -----------------------------------------------------------------


  (-write-int conn eid)
  (-write-metadata conn metadata))


; Writing Wrappers -----------------------------------------------------------------

  (doto (:out @conn)
    (.writeByte (int i))))

(defn -write-bytearray [conn ba]
  ; TODO: Implement this.
  nil)

(defn -write-short [conn i]
  (println (str "-> SHORT: " i))
  (doto (:out @conn)
    (.writeShort (int i))))

(defn -write-shortarray [conn sa]
  ; TODO: Implement this.
  nil)

(defn -write-int [conn i]
  (println (str "-> INT: " i))
