     (= packet-type :entitypainting)       (write-packet-entitypainting conn payload)
     (= packet-type :stanceupdate)         (write-packet-stanceupdate conn payload)
     (= packet-type :entityvelocity)       (write-packet-entityvelocity conn payload)
+    (= packet-type :attachentity)         (write-packet-attachentity conn payload)
+
     )
   (flushc conn))
 

        (= packet-type :entityrelativemove)        (read-packet-entityrelativemove conn)
        (= packet-type :entitylook)                (read-packet-entitylook conn)
        (= packet-type :entitylookandrelativemove) (read-packet-entitylookandrelativemove conn)

        :else (str "UNKNOWN PACKET TYPE: " packet-id)
        ))

    (assoc :dz (-read-byte conn))
    (assoc :yaw (-read-byte conn))
    (assoc :pitch (-read-byte conn))))

(defn read-packet-entityteleport [conn]
  (-> {}
    (assoc :eid (-read-int conn))
    (assoc :x (-read-int conn))
    (assoc :y (-read-int conn))
    (assoc :z (-read-int conn))
    (assoc :yaw (-read-byte conn))
    (assoc :pitch (-read-byte conn))))

(defn read-packet-entitystatus [conn]
  (-> {}
    (assoc :eid (-read-int conn))
    (assoc :entitystatus (-read-byte conn))))

(defn read-packet-attachentity [conn]
  (-> {}
    (assoc :eid (-read-int conn))
    (assoc :vehicleid (-read-int conn))))


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