 
       (-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]

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

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

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

