     :entitymetadata       (write-packet-entitymetadata conn payload)
     :multiblockchange     (write-packet-multiblockchange conn payload)
     :blockchange          (write-packet-blockchange conn payload)
+    :explosion            (write-packet-explosion conn payload)
 
     )
   (flushc conn))

        :multiblockchange          (read-packet-multiblockchange conn)
        :blockchange               (read-packet-blockchange conn)
        :playnoteblock             (read-packet-playnoteblock conn)

        :else (str "UNKNOWN PACKET TYPE: " packet-id)
        ))

  (-write-byte conn blocktype)
  (-write-byte conn blockmetadata))

(defn write-packet-explosion [conn {x :x y :y z :z unknownradius :unknownradius recordcount :recordcount records :records}]
  ; TODO: Implement this.
  nil)


; Writing Wrappers -----------------------------------------------------------------
(defn flushc [conn]
