src/examples/jumpbot.clj @ 336987d72de4

Dear Java: you are an asshole.
author Steve Losh <steve@stevelosh.com>
date Wed, 31 Aug 2011 18:50:53 -0400
parents 7aa6da5b1d8b
children c14f3512a6ee
(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 3000 :jump-loop)
    bot))