hg.stevelosh.com > clojurecraft

77024563a900 

Moar.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Tue, 21 Jun 2011 21:04:12 -0400
parents a5dd7fa97088
children 6f3e12a573a2
branches/tags (none)
files src/clojurecraft/core.clj

Changes

--- a/src/clojurecraft/core.clj	Tue Jun 21 21:01:51 2011 -0400
+++ b/src/clojurecraft/core.clj	Tue Jun 21 21:04:12 2011 -0400
@@ -160,6 +160,7 @@
           (assoc :z (-read-int conn))))
 
 
+; Reading Wrappers -----------------------------------------------------------------
 (defn read-packet [conn packet-id]
       (let [packet-id (int packet-id)
             packet-type (packet-types packet-id)]
@@ -178,7 +179,7 @@
         (println "\n\n\n")))
 
 
-; Reading Wrappers -----------------------------------------------------------------
+; Connection Handling --------------------------------------------------------------
 (defn login [conn]
     ; Send handshake
     (write-packet conn :handshake {:username "timmy"})
@@ -206,7 +207,7 @@
 
 
 
-; REPL -----------------------------------------------------------------------------
+; Scratch --------------------------------------------------------------------------
 ;(def server (connect minecraft-local))
 ;(disconnect server)