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

small tweaks.

Browse Source
This commit is contained in:
Bryce Covert
2015-09-14 10:14:24 -07:00
parent f26ce72bff
commit bf9e2a059b
5 changed files with 58 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -14,7 +14,7 @@
[play-clj.g2d :refer :all])
(:import [com.badlogic.gdx.graphics Color]))
(defn go-to-jail [entities]
(defn go-to-jail [entities & [time]]
(actions/update-state entities #(assoc % :chest-contents (concat (remove #{:key :ladder} (:inventory %)) (:chest-contents %))))
(actions/update-state entities #(assoc % :inventory []))
@@ -22,7 +22,8 @@
(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)))))
(update-in [:room :entities :ego] #(actions/start-animation s % :crawl-stand))))
:time time)
(actions/play-animation entities :ego :standup))
(defn make-wizard [screen wizard-spec]