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

Autosaving

Browse Source
This commit is contained in:
Bryce Covert
2014-11-22 13:57:05 -08:00
parent 54b1f1497a
commit 919871ddc3
11 changed files with 100 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -37,7 +37,7 @@
"I challenge you to a arm wrestling match to prove my strength."
{:run (fn [msg]
(actions/respond entities msg :warriors "Prepare thyself, thy task is not for the feint of heart")
(if ((set (get-in @entities [:state :inventory])) items/flask-1-strength)
(if (actions/has-item? @entities :flask-1-strength)
(do
(actions/do-dialogue entities :ego "One sec.")
(actions/play-animation entities :ego :grow)
@@ -45,7 +45,7 @@
:warriors "[Todo animation here]"
:warriors "Congratulations young master. Thou art worthy in might."
:warriors "Take my medal of strength.")
(actions/give entities items/medal))
(actions/give entities :medal))
(do
(actions/do-dialogue entities
:warriors "[Todo animation here]"
@@ -83,7 +83,7 @@
(actions/walk-to entities :ego [245 75] :face :right)
(actions/play-animation entities :ego :reach)
(actions/remove-entity entities :ladder)
(actions/give entities items/ladder))}
(actions/give entities :ladder))}
"Nevermind."
{:run #(actions/respond entities %)}]}
"Nevermind."
@@ -150,6 +150,6 @@
:scale-fn (utils/scaler-fn-with-baseline 110 0.10 1.50)
:apply-state (fn [entities]
(as-> entities entities
(if (actions/has-item? entities items/ladder)
(if (actions/has-item? entities :ladder)
(update-in entities [:room :entities] #(dissoc % :ladder))
entities))))))