         (= packet-type :playerposition)     (write-packet-playerposition conn payload)
         (= packet-type :playerlook)         (write-packet-playerlook conn payload)
         (= packet-type :playerpositionlook) (write-packet-playerpositionlook conn payload)
+        (= packet-type :playerdigging)      (write-packet-playerdigging conn payload)
         )
       (flushc conn))
 

          (assoc :yaw (-read-float conn))
          (assoc :pitch (-read-float conn))
          (assoc :onground (-read-bool conn))))


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

      (-write-float conn yaw)
      (-write-float conn pitch)
      (-write-bool conn onground))

(defn write-packet-playerdigging [conn {status :status x :x y :y z :z face :face}]
      (-write-byte conn (:playerdigging packet-ids))

      (-write-byte conn status)
      (-write-int conn x)
      (-write-byte conn y)
      (-write-int conn z)
      (-write-byte conn face))


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