explosion

This commit is contained in:
Bryce Covert
2015-11-23 12:51:59 -08:00
parent 137b6b2f66
commit aa6931b4c7
8 changed files with 8 additions and 1 deletions

View File

@@ -633,7 +633,7 @@
(actions/talk entities :ego "It's locked.")
(do (actions/play-animation entities :door :open)
(actions/transition-background entities :inside-house [237 0] :between (fn [s e]
(if (= 1 (rand-int 4))
(if (= 1 (rand-int 2))
(assoc-in e [:room :entities :experiment] (get-in e [:room :experiment]))
e)))
(when (get-in @entities [:room :entities :experiment])