         (= 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))
 

(defn read-packet-holdingchange [conn]
      (-> {}
          (assoc :slot (-read-short conn))))


; Reading Wrappers -----------------------------------------------------------------

     0x0E :playerdigging
     0x0F :playerblockplacement
     0x10 :holdingchange
     0x11 :usebed
})
(def packet-ids (apply assoc {} (mapcat reverse packet-types)))

