             (= packet-type :updatehealth)       (read-packet-updatehealth conn)
             (= packet-type :respawn)            (read-packet-respawn conn)
             (= packet-type :playerpositionlook) (read-packet-playerpositionlook conn)
+            (= packet-type :playerdigging)      (read-packet-playerdigging conn)
             :else (str "UNKNOWN PACKET TYPE: " packet-id)
             ))
         (println "\n\n\n")))

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


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

(defn read-packet-playerdigging [conn]
      (-> {}
          (assoc :status (-read-byte conn))
          (assoc :x (-read-int conn))
          (assoc :y (-read-byte conn))
          (assoc :z (-read-int conn))
          (assoc :face (-read-byte conn))))


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