 (defn read-packet-holdingchange [conn]
       (-> {}
           (assoc :slot (-read-short conn))))
+
+(defn read-packet-usebed [conn]
+      (-> {}
+          (assoc :eid (-read-int conn))
+          (assoc :inbed (-read-byte conn))
+          (assoc :x (-read-int conn))
+          (assoc :y (-read-byte conn))
+          (assoc :z (-read-int conn))))
 
 
 ; Reading Wrappers -----------------------------------------------------------------

      (-write-byte conn (:holdingchange packet-ids))

      (-write-short conn slot))


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

        (= packet-type :playerdigging)        (write-packet-playerdigging conn payload)
        (= packet-type :playerblockplacement) (write-packet-playerblockplacement conn payload)
        (= packet-type :holdingchange)        (write-packet-holdingchange conn payload)
        (= packet-type :usebed)               (write-packet-usebed conn payload)
        )
      (flushc conn))

