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