 
 ; REPL -----------------------------------------------------------------------------
 (def server (connect minecraft-local))
-(disconnect server)
+;(disconnect server)
 


      (writ-string16 conn username))

(defn write-packet-login [conn {version :version username :username}]
      (writ-byte conn (:login packet-ids))

      (writ-int conn version)



; Handling Packets -----------------------------------------------------------------
(defn handle-packet-keepalive [conn]
      (println "OMG got a keepalive")
      nil)

(defn handle-packet-handshake [conn]
      (println "OMG got a handshake")
      (-> {}
