src/examples/jumpbot.clj @ 9020faafe119
Merge.
author |
Steve Losh <steve@stevelosh.com> |
date |
Tue, 31 Jan 2012 18:04:30 -0500 |
parents |
7942222da830 |
children |
eb08d252e542 |
(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)
bot))