a749c950b00d

Moar.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Thu, 23 Jun 2011 19:29:50 -0400
parents f9c0263a65d1
children 6b4574bb3ec6
branches/tags (none)
files src/clojurecraft/core.clj

Changes

--- a/src/clojurecraft/core.clj	Thu Jun 23 19:26:47 2011 -0400
+++ b/src/clojurecraft/core.clj	Thu Jun 23 19:29:50 2011 -0400
@@ -327,6 +327,11 @@
   (-write-int conn z)
   (-write-int conn sounddata))
 
+(defn write-packet-newinvalidstate [conn {reason :reason}]
+  (-write-byte conn (:newinvalidstate packet-ids))
+
+  (-write-byte conn reason))
+
 
 ; Writing Wrappers -----------------------------------------------------------------
 (defn flushc [conn]
@@ -359,6 +364,7 @@
     :blockchange          (write-packet-blockchange conn payload)
     :explosion            (write-packet-explosion conn payload)
     :soundeffect          (write-packet-soundeffect conn payload)
+    :newinvalidstate      (write-packet-newinvalidstate conn payload)
 
     )
   (flushc conn))
@@ -709,6 +715,10 @@
     :z (-read-int conn)
     :sounddata (-read-int conn)))
 
+(defn read-packet-newinvalidstate [conn]
+  (assoc {}
+    :reason (-read-byte conn)))
+
 
 ; Reading Wrappers -----------------------------------------------------------------
 (defn read-packet [conn packet-id]
@@ -758,6 +768,7 @@
         :playnoteblock             (read-packet-playnoteblock conn)
         :explosion                 (read-packet-explosion conn)
         :soundeffect               (read-packet-soundeffect conn)
+        :newinvalidstate           (read-packet-newinvalidstate conn)
 
         :else (str "UNKNOWN PACKET TYPE: " packet-id)
         ))