           (assoc :x (-read-int conn))
           (assoc :y (-read-int conn))
           (assoc :z (-read-int conn))))
+
+(defn read-packet-useentity [conn]
+      (-> {}
+          (assoc :user (-read-int conn))
+          (assoc :target (-read-int conn))
+          (assoc :leftclick (-read-bool conn))))
 
 
 ; Reading Wrappers -----------------------------------------------------------------

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

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

