 (defn -read-short [conn]
   (let [i (.readShort (:in @conn))]
     i))
+
+(defn -read-shortarray [conn size]
+  ; TODO: Implement this.
+  nil)
 
 (defn -read-bool [conn]
   (let [b (.readBoolean (:in @conn))]

  0x28 :entitymetadata
  0x32 :prechunk
  0x33 :mapchunk
})
(def packet-ids (apply assoc {} (mapcat reverse packet-types)))


           :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 -----------------------------------------------------------------
