notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

give hints.

Browse Source
This commit is contained in:
Bryce Covert
2015-08-05 18:17:24 -07:00
parent acea1c7784
commit 9a8078c183
2 changed files with 37 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
desktop/src-common/advent/screens/rooms/common.clj
View File

@@ -18,7 +18,11 @@
(actions/update-state entities #(assoc % :chest-contents (concat (remove #{:key :ladder} (:inventory %)) (:chest-contents %))))
(actions/update-state entities #(assoc % :inventory []))
(actions/update-state entities #(assoc % :opened-bars? false))
(actions/transition-background entities :inside-jail [130 85] :between #(assoc-in %2 [:state :time] :night)))
(actions/transition-background entities :inside-jail [130 85] :between (fn [s e]
(-> e
(assoc-in [:state :time] :night)
(update-in [:room :entities :ego] #(actions/start-animation s % :crawl-stand)))))
(actions/play-animation entities :ego :standup))
(defn make-wizard [screen wizard-spec]
(let [wizard-sheet (texture! (texture "wizard/talk.png") :split 20 46)