   (-write-bool conn unknown4)
   (-write-float conn unknown5)
   (-write-float conn unknown6))
+
+(defn write-packet-entityvelocity [conn {eid :eid velocityx :velocityx velocityy :velocityy velocityz :velocityz}]
+  (-write-byte conn (:entityvelocity packet-ids))
+
+  (-write-int conn eid)
+  (-write-short conn velocityx)
+  (-write-short conn velocityy)
+  (-write-short conn velocityz))
 
 
 ; Writing Wrappers -----------------------------------------------------------------

        (= packet-type :mobspawn)             (read-packet-mobspawn conn)
        (= packet-type :entitypainting)       (read-packet-entitypainting conn)
        (= packet-type :stanceupdate)         (read-packet-stanceupdate conn)
        :else (str "UNKNOWN PACKET TYPE: " packet-id)
        ))
    (println "\n\n\n")))

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

