Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defn calculate-offset [value file section row column direction]
(let [tile (get-tile section row column)]
(cond
(out-of-bounds? row column) [-1 -1]
(not (false? tile)) (really-calculate-offset file (:file tile) direction)
:else
(do (Thread/sleep 60000)
(recur value file section row column direction)))))
(defn make-agent [section row column action direction]
(send-off (agent (str "Looking for " [section row column])) action row column direction))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.