   (-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]

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


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

    :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))
