     :windowclick          (write-packet-windowclick conn payload)
     :transaction          (write-packet-transaction conn payload)
     :updatesign           (write-packet-updatesign conn payload)
+    :incrementstatistic   (write-packet-incrementstatistic conn payload)
+    :disconnectkick       (write-packet-disconnectkick conn payload)
 
     )
   (flushc conn))

                       :unknown2 (-read-short conn)
                       :textlength (-read-int conn))]
    (assoc pretext :text (-read-bytearray (:textlength pretext)))))


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

  (-write-string16 conn text3)
  (-write-string16 conn text4))

(defn write-packet-incrementstatistic [conn {statisticid :statisticid amount :amount}]
  (-write-byte conn (:incrementstatistic packet-ids))

  (-write-int conn statisticid)
  (-write-byte conn amount))

(defn write-packet-disconnectkick [conn {reason :reason}]
  (-write-byte conn (:disconnectkick packet-ids))

  (-write-string16 conn reason))


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