         (= packet-type :respawn)        (write-packet-respawn conn payload)
         (= packet-type :player)         (write-packet-player conn payload)
         (= packet-type :playerposition) (write-packet-playerposition conn payload)
+        (= packet-type :playerlook)     (write-packet-playerlook conn payload)
         )
       (flushc conn))
 

      (-write-double conn y)
      (-write-double conn stance)
      (-write-double conn z)
      (-write-bool conn onground)
      )


; Writing Wrappers -----------------------------------------------------------------

     0x09 :respawn
     0x0A :player
     0x0B :playerposition
     0x0C :playerlook
})
(def packet-ids (apply assoc {} (mapcat reverse packet-types)))

