started process of night time exclusions.

This commit is contained in:
2014-12-27 22:59:50 -08:00
parent b20d8528ea
commit 8890961114
4 changed files with 37 additions and 23 deletions

View File

@@ -11,10 +11,11 @@
[play-clj.ui :refer :all]
[play-clj.utils :refer :all]
[play-clj.g2d :refer :all]))
(defn remove-lock [entities]
(-> entities
(update-in [:room :interactions]
(fn [i] (remove #(= :lock (:id %)) i)))
(utils/remove-interaction :lock)
(assoc-in [:room :collision] (get-in entities [:room :collision-free]))))
(defn open-lock [entities]