   0x18 :mobspawn
   0x19 :entitypainting
   0x1B :stanceupdate
+  0x1C :entityvelocity
+  0x1D :entitydestroy
 })
 (def packet-ids (apply assoc {} (mapcat reverse packet-types)))
 

    (= packet-type :pickupspawn)          (write-packet-pickupspawn conn payload)
    (= packet-type :entitypainting)       (write-packet-entitypainting conn payload)
    (= packet-type :stanceupdate)         (write-packet-stanceupdate conn payload)
    )
  (flushc conn))


    (assoc :unknown4 (-read-bool conn))
    (assoc :unknown5 (-read-float conn))
    (assoc :unknown6 (-read-float conn))))

(defn read-packet-entityvelocity [conn]
  (-> {}
    (assoc :eid (-read-int conn))
    (assoc :velocityx (-read-short conn))
    (assoc :velocityy (-read-short conn))
    (assoc :velocityz (-read-short conn))))

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


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