      0x07 :useentity
      0x08 :updatehealth
      0x09 :respawn
+     0x0A :player
+     0x0B :playerposition
 })
 (def packet-ids (apply assoc {} (mapcat reverse packet-types)))
 

      (doto (:out @conn)
         (.writeLong (int i))))

(defn -write-string16 [conn s]
      (-write-short conn (count s))
      (println (str "-> STRING: " s))


      (-write-bool conn world))

(defn write-packet-player [conn {onground :onground}]
      (-write-byte conn (:player packet-ids))

      (-write-bool conn onground))

(defn write-packet-playerposition [conn {x :x y :y stance :stance z :z onground :onground}]
      (-write-byte conn (:playerposition packet-ids))

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


; Writing Wrappers -----------------------------------------------------------------
(defn flushc [conn]
