     (assoc :y (-read-int conn))
     (assoc :z (-read-int conn))
     (assoc :direction (-read-int conn))))
+
+(defn read-packet-stanceupdate [conn]
+  (-> {}
+    (assoc :unknown1 (-read-float conn))
+    (assoc :unknown2 (-read-float conn))
+    (assoc :unknown3 (-read-bool conn))
+    (assoc :unknown4 (-read-bool conn))
+    (assoc :unknown5 (-read-float conn))
+    (assoc :unknown6 (-read-float conn))))
 
 
 ; Reading Wrappers -----------------------------------------------------------------

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

    (= packet-type :entityaction)         (write-packet-entityaction conn payload)
    (= 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))

