                        :unknown2 (-read-short conn)
                        :textlength (-read-int conn))]
     (assoc pretext :text (-read-bytearray (:textlength pretext)))))
+
+(defn read-packet-incrementstatistic [conn]
+  (assoc {}
+    :statisticid (-read-int conn)
+    :amount (-read-byte conn)))
+
+(defn read-packet-disconnectkick [conn]
+  (assoc {}
+    :reason (-read-string16 conn)))
 
 
 ; Reading Wrappers -----------------------------------------------------------------

    :windowclick          (write-packet-windowclick conn payload)
    :transaction          (write-packet-transaction conn payload)
    :updatesign           (write-packet-updatesign conn payload)

    )
  (flushc conn))

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