--- a/src/clojurecraft/events.clj Fri Aug 26 18:37:57 2011 -0400
+++ b/src/clojurecraft/events.clj Fri Aug 26 18:40:45 2011 -0400
@@ -23,19 +23,3 @@
(defn clear-handlers [bot event-type]
(dosync (alter (:event-handlers bot) dissoc event-type)))
-
-; Loops ----------------------------------------------------------------------------
-(defn- run-loop [bot function sleep-ms loop-id]
- (while (and (nil? (:exit @(:connection bot)))
- (@(:loops bot) loop-id))
- (handle-action-group bot ((deref function) bot))
- (Thread/sleep sleep-ms))
- (dosync (alter (:loops bot) dissoc loop-id)))
-
-
-(defn remove-loop [bot loop-id]
- (dosync (alter (:loops bot) assoc loop-id nil)))
-
-(defn add-loop [bot function sleep-ms loop-id]
- (dosync (alter (:loops bot) assoc loop-id :running))
- (.start (Thread. #(run-loop bot function sleep-ms loop-id))))