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

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


          (assoc :user (-read-int conn))
          (assoc :target (-read-int conn))
          (assoc :leftclick (-read-bool conn))))

(defn read-packet-updatehealth [conn]
      (-> {}
          (assoc :health (-read-short conn))))


; Reading Wrappers -----------------------------------------------------------------
