# HG changeset patch # User Steve Losh # Date 1338503874 14400 # Node ID 91957083ba74d6a2e69d42af6706aba4ef33671e # Parent d7d8677121631ef4c30eee585f27b68bc692a703 Whitespace. diff -r d7d867712163 -r 91957083ba74 bundled/server.properties --- a/bundled/server.properties Thu May 31 18:37:33 2012 -0400 +++ b/bundled/server.properties Thu May 31 18:37:54 2012 -0400 @@ -1,5 +1,5 @@ #Minecraft server properties -#Tue Jan 31 18:09:32 EST 2012 +#Thu May 31 15:52:58 EDT 2012 allow-nether=true level-name=world enable-query=false @@ -18,6 +18,6 @@ gamemode=0 max-players=20 spawn-monsters=false +view-distance=10 generate-structures=true -view-distance=10 motd=A Minecraft Server diff -r d7d867712163 -r 91957083ba74 src/clojurecraft/core.clj --- a/src/clojurecraft/core.clj Thu May 31 18:37:33 2012 -0400 +++ b/src/clojurecraft/core.clj Thu May 31 18:37:54 2012 -0400 @@ -13,6 +13,7 @@ (java.io DataOutputStream DataInputStream BufferedInputStream BufferedOutputStream) (java.util.concurrent LinkedBlockingQueue TimeUnit))) + (def STARTING-LOC (Location. 0 0 0 0 0 0 false)) ; Worlds --------------------------------------------------------------------------- diff -r d7d867712163 -r 91957083ba74 src/clojurecraft/in.clj --- a/src/clojurecraft/in.clj Thu May 31 18:37:33 2012 -0400 +++ b/src/clojurecraft/in.clj Thu May 31 18:37:54 2012 -0400 @@ -8,6 +8,7 @@ (:import [clojurecraft.data Location Entity Chunk]) (:import (java.util.zip Inflater))) + (def FULL-CHUNK (* 16 16 128)) (def BLANK-CHUNK-ARRAY (byte-array FULL-CHUNK)) @@ -32,6 +33,7 @@ 0x136 0x137 0x138 0x139 0x13A 0x13B 0x13C 0x13D }) + ; Reading Data --------------------------------------------------------------------- (defn- -read-byte-bare [conn] (io! @@ -136,7 +138,6 @@ ; Reading Packets ------------------------------------------------------------------ - (defn- read-packet-keepalive [bot conn] (assoc {} :keep-alive-id (-read-int conn))) @@ -787,6 +788,7 @@ :pluginmessage read-packet-pluginmessage :disconnectkick read-packet-disconnectkick}) + ; Reading Wrappers ----------------------------------------------------------------- (defn read-packet [bot prev prev-prev prev-prev-prev] (let [conn (:connection bot)