src/examples/jumpbot.clj @ c14f3512a6ee
Minor jumpbot tweaks.
author |
Steve Losh <steve@stevelosh.com> |
date |
Wed, 31 Aug 2011 19:13:21 -0400 |
parents |
7aa6da5b1d8b |
children |
7942222da830 |
(ns examples.jumpbot
(:require [clojurecraft.core :as core])
(:require [clojurecraft.events :as events])
(:require [clojurecraft.loops :as loops])
(:require [clojurecraft.actions :as actions]))
(defn jump [bot]
[(actions/jump bot)])
(defn handle-dead [bot]
[(actions/chat bot "WHY DO YOU NOT WANT ME TO JUMP?!")
(actions/respawn bot)])
(defn make-jumpbot [server username]
(let [bot (core/connect server username)]
(events/add-handler bot :dead #'handle-dead)
(loops/add-loop bot #'jump 2000 :jump-loop)
(Thread/sleep 10000)
bot))