     :explosion            (write-packet-explosion conn payload)
     :soundeffect          (write-packet-soundeffect conn payload)
     :newinvalidstate      (write-packet-newinvalidstate conn payload)
+    :openwindow           (write-packet-openwindow conn payload)
 
     )
   (flushc conn))

        :explosion                 (read-packet-explosion conn)
        :soundeffect               (read-packet-soundeffect conn)
        :newinvalidstate           (read-packet-newinvalidstate conn)

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

(defn -read-float [conn]
  (let [i (.readFloat (:in @conn))]
    i))

(defn -read-string8 [conn]
  ; TODO: Implement this.
  nil)

(defn -read-string16 [conn]
  (let [str-len (.readShort (:in @conn))
