 (defn read-packet-timeupdate [conn]
       (-> {}
           (assoc :time (-read-long conn))))
+
+(defn read-packet-equipment [conn]
+      (-> {}
+          (assoc :eid (-read-int conn))
+          (assoc :slot (-read-short conn))
+          (assoc :itemid (-read-short conn))
+          (assoc :unknown (-read-short conn))))
 
 
 (defn read-packet [conn packet-id]

      (doto (:out @conn)
         (.writeChars s)))


; Writing Packets ------------------------------------------------------------------
(defn write-packet-keepalive [conn _]

   (let [i (.readLong (:in @conn))]
     i))

(defn -read-short [conn]
   (let [i (.readShort (:in @conn))]
     i))

(defn -read-string16 [conn]
  (let [str-len (.readShort (:in @conn))
        s (apply str (repeatedly str-len #(.readChar (:in @conn))))]
