# HG changeset patch # User Steve Losh # Date 1314832401 14400 # Node ID c14f3512a6ee5f4dd85606244cdaa0d68ea25ff2 # Parent 336987d72de4562ae7bd88e07b764c70fa2cf775 Minor jumpbot tweaks. diff -r 336987d72de4 -r c14f3512a6ee src/examples/jumpbot.clj --- a/src/examples/jumpbot.clj Wed Aug 31 18:50:53 2011 -0400 +++ b/src/examples/jumpbot.clj Wed Aug 31 19:13:21 2011 -0400 @@ -15,6 +15,7 @@ (defn make-jumpbot [server username] (let [bot (core/connect server username)] (events/add-handler bot :dead #'handle-dead) - (loops/add-loop bot #'jump 3000 :jump-loop) + (loops/add-loop bot #'jump 2000 :jump-loop) + (Thread/sleep 10000) bot))