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

started puzzle.

Browse Source
This commit is contained in:
Remington Covert
2014-11-08 17:23:37 -08:00
parent 5f31bca606
commit 22d8004637
2 changed files with 22 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -50,8 +50,21 @@
:shopkeep "I'm sorry, it's not for sale.") :shopkeep "I'm sorry, it's not for sale.")
:choices actions/something-else} :choices actions/something-else}
"Your long lost son said I could have it." "Your long lost son said I could have it."
{:run #(do (actions/respond entities % :shopkeep "REALLY? You've met him?") {:run #(do (actions/respond entities %
(actions/give entities items/teddy))}]} :shopkeep "REALLY? You've met him?"
:ego "... erm. Yes!"
:shopkeep "If you really met him, you'll have to prove it."
:shopkeep "What is my son's name?"))
:choices ["... Bud?"
{:run #(actions/respond entities % :shopkeep "No. *sigh* That's not it.")}
"... Steve?"
{:run #(actions/respond entities % :shopkeep "No. *sigh* That's not it.")}
"... Bob?"
{:run #(actions/respond entities % :shopkeep "No. *sigh* That's not it.")}
(when ((get-in @entities [:state :clues]) :name)
"Herb.")
{:run #(do (actions/respond entities % :shopkeep "Yes, that's it!")
(actions/give entities items/teddy))}]}]}
"How's life in the antique shop biz?" "How's life in the antique shop biz?"
{:run #(actions/respond entities % {:run #(actions/respond entities %
:shopkeep "Pretty lonely." :shopkeep "Pretty lonely."
@@ -74,7 +87,11 @@
:cursor :down :cursor :down
:script (actions/get-script entities :script (actions/get-script entities
(actions/walk-to entities :ego [222 3]) (actions/walk-to entities :ego [222 3])
(actions/transition-background entities :inside-castle [182 90]))}} (actions/transition-background entities :inside-castle [182 90]))}
:portrait {:box [109 120 125 140]
:script (actions/get-script entities
(actions/talk entities :ego "It's a portrait, labeled 'Herb.'")
(actions/update-state entities (fn [state] (update-in state [:clues] #(conj % :name)) )))}}
:layers [(assoc (texture "inside-antique/background.png") :x 0 :y 0 :baseline 0)] :layers [(assoc (texture "inside-antique/background.png") :x 0 :y 0 :baseline 0)]
:entities {:shopkeep (actions/start-animation screen (assoc (animation->texture screen shopkeep-stand) :x 137 :y 128 :baseline 112 :entities {:shopkeep (actions/start-animation screen (assoc (animation->texture screen shopkeep-stand) :x 137 :y 128 :baseline 112
:stand shopkeep-stand :stand shopkeep-stand

3
desktop/src-common/advent/screens/scene.clj
View File

@@ -182,7 +182,8 @@
:inside-fangald (make-music "inside-fangald.ogg")} :inside-fangald (make-music "inside-fangald.ogg")}
:state {:object nil :state {:object nil
:active? true :active? true
:inventory []} :inventory []
:clues #{}}
:actions {:object nil :actions {:object nil
:channel (chan) :channel (chan)
:current nil :current nil