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

cannot espace without dropping the ball.

Browse Source
This commit is contained in:
Bryce Covert
2014-12-27 16:00:45 -08:00
parent e0f4dcf607
commit 193e530567
5 changed files with 32 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -149,6 +149,22 @@
(actions/update-state entities #(assoc % :hay-searches (inc hay-searches)))))
(defn leave [entities]
(if (get-in @entities [:state :opened-bars?])
(do
(actions/walk-to entities :ego [279 57])
(if (chest-full? entities)
(actions/talk entities :ego "I probably shouldn't leave without my belongings.")
(do (actions/transition-background entities :outside-jail [50 46] )
(when (not (get-in @entities [:state :dropped-ball?]))
(actions/do-dialogue entities :ego "Yes I made it!"
:guard "Hmm?"
:guard "Halt! Thou art under arrest!"
:guard "Thou wilst be putteth back into thy cell.")
(common/go-to-jail entities)
(actions/do-dialogue entities :ego "Dang! I was so close to freedom, I could taste it!")))))
(actions/talk entities :ego "Do you really think I can walk down those steps while I'm locked up?")))
(defn make [screen]
@@ -183,14 +199,7 @@
:script (actions/get-script entities (touch-chest entities))}
:door {:box [257 62 301 152]
:cursor :down
:script (actions/get-script entities
(if (get-in @entities [:state :opened-bars?])
(do
(actions/walk-to entities :ego [279 57])
(if (chest-full? entities)
(actions/talk entities :ego "I probably shouldn't leave without my belongings.")
(actions/transition-background entities :outside-jail [50 46] )))
(actions/talk entities :ego "Do you really think I can walk down those steps while I'm locked up?")))}}
:script (actions/get-script entities (leave entities))}}
:layers [(assoc (texture "inside-jail/background.png") :x 0 :y 0 :baseline 0)
(assoc (texture "inside-jail/bars.png") :x 0 :y 0 :baseline 165)
(assoc (texture "inside-jail/glow.png") :x 0 :y 0 :baseline 240)]