             (= packet-type :timeupdate) (read-packet-timeupdate conn)
             (= packet-type :equipment) (read-packet-equipment conn)
             (= packet-type :spawnposition) (read-packet-spawnposition conn)
+            (= packet-type :useentity) (read-packet-useentity conn)
             :else (str "UNKNOWN PACKET TYPE: " packet-id)
             ))
         (println "\n\n\n")))

     0x04 :timeupdate 
     0x05 :equipment 
     0x06 :spawnposition
})
(def packet-ids (apply assoc {} (mapcat reverse packet-types)))


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

(defn -read-bool [conn]
   (let [b (.readBoolean (:in @conn))]
     b))

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