128627a

src/net/bowmap/server/game/handle.clj modified (view file)

@@ -83,4 +83,6 @@       :superflat-world? true       :portal-cooldown-ticks 0       :sea-level 60-      :enforce-secure-chat? true}]))+      :enforce-secure-chat? true}+     {::packet/id ::clientbound/game-event+      ::p/game-event-id ::p/wait-for-chunk-event}]))

src/net/bowmap/server/protocol/clientbound_packets.clj modified (view file)

@@ -89,7 +89,8 @@     ::explosion nil     ::add-transient-block nil     ::unload-chunk nil-    ::game-event nil+    ::game-event (map> ::p/game-event-id (enum> ubyte> {13 ::p/wait-for-chunk-event})+                       ::p/game-event-value (or> float> 0))     ::game-rule-values nil     ::game-test-highlight-position nil     ::open-horse-screen nil

src/net/bowmap/server/protocol/writers.clj modified (view file)

@@ -190,6 +190,14 @@                                 ::p/game-profile-property-value (string> 32767)                                 ::p/game-profile-property-signature (optional> (string> 1024))))) +(defn or>+  "Returns a writer that writes a value via 'writer', passing 'default'+   when the value is nil."+  [writer default]+  (fn [buf x]+    (let [x (if (nil? x) default x)]+      (writer buf x))))+ (defn enum>   "Returns a writer that writes one of a set of values via 'writer'.    Takes a map of encoded values to decoded values (values that will appear in