can get a piece of charcoal.

This commit is contained in:
Bryce Covert
2015-11-22 14:55:34 -08:00
parent fb0dc333c6
commit 38f7dcfefb

View File

@@ -507,13 +507,19 @@
(update-in entities [:room :entities] #(assoc % :note (get-in entities [:room :note]))) (update-in entities [:room :entities] #(assoc % :note (get-in entities [:room :note])))
entities)) entities))
(defn add-charcoal-if-necessary [entities]
(if (and (get-in entities [:state :seen-frankie?])
(not (actions/has-obtained? entities :charcoal)))
(update-in entities [:room :entities] assoc :charcoal (get-in entities [:room :charcoal]))
entities))
(defn make-night [screen entities] (defn make-night [screen entities]
(as-> entities entities (as-> entities entities
(update-in entities [:room :entities] #(dissoc % :butterfly)) (update-in entities [:room :entities] #(dissoc % :butterfly))
(update-in entities [:room :entities] #(assoc % :cauldron (get-in entities [:room :cauldron]))) (update-in entities [:room :entities] #(assoc % :cauldron (get-in entities [:room :cauldron])))
(update-in entities [:room :entities] assoc :charcoal (get-in entities [:room :charcoal])) (add-charcoal-if-necessary entities)
(utils/play-sound! screen entities (utils/play-sound! screen entities
(get-in entities [:room :cauldron-sound :sound]) (get-in entities [:room :cauldron-sound :sound])
(utils/sourced-volume-fn :cauldron 0.15 [139 73]) (utils/sourced-volume-fn :cauldron 0.15 [139 73])