# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1311289193 14400
# Node ID 2e6076224d3423bfff1e2f91e7ac838f9358e597
# Parent  827c992e7b6546b67fc5da98244eb2a386af54c0
Take a username.

diff -r 827c992e7b65 -r 2e6076224d34 src/clojurecraft/core.clj
--- a/src/clojurecraft/core.clj	Thu Jul 21 18:47:59 2011 -0400
+++ b/src/clojurecraft/core.clj	Thu Jul 21 18:59:53 2011 -0400
@@ -14,15 +14,15 @@
 (declare conn-handler)
 (declare login)
 
-(defn login [bot]
+(defn login [bot username]
   ; Send handshake
-  (write-packet bot :handshake {:username "timmy"})
+  (write-packet bot :handshake {:username username})
 
   ; Get handshake
   (read-packet bot)
 
   ; Send login
-  (write-packet bot :login {:version 14 :username "timmy"})
+  (write-packet bot :login {:version 14 :username username})
 
   ; Get login
   (read-packet bot))
@@ -51,7 +51,7 @@
         (write-packet bot packet-type payload)))))
 
 
-(defn connect [server]
+(defn connect [server username]
   (let [socket (Socket. (:name server) (:port server))
         in (DataInputStream. (.getInputStream socket))
         out (DataOutputStream. (.getOutputStream socket))
@@ -64,7 +64,7 @@
              :packet-counts-in (atom {}), :packet-counts-out (atom {})}]
 
     (println "connecting")
-    (login bot)
+    (login bot username)
     (println "connected and logged in")
 
     (println "starting read handler")
@@ -88,8 +88,8 @@
 
 
 ; Scratch --------------------------------------------------------------------------
-;(def bot (connect minecraft-local))
-;(act/move bot 1 0 2)
+(def bot (connect minecraft-local "Honeydew"))
+(act/move bot 0 -1 0)
 ;(pprint @(:packet-counts-in bot))
 ;(pprint @(:packet-counts-out bot))
 ;(pprint (:player bot))