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

made it so you have to do things in order.

Browse Source
This commit is contained in:
Remington Covert
2014-10-31 14:40:30 -07:00
parent 805a30b4f9
commit 7d78f75408
1 changed files with 28 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -50,7 +50,8 @@
:game-player "I guess I'm pretty wise." :game-player "I guess I'm pretty wise."
:game-player "And with my sharp intellect, I'm guessing you want my trophy?") :game-player "And with my sharp intellect, I'm guessing you want my trophy?")
:choices ["Yes." :choices ["Yes."
{:run #(do (actions/respond entities % {:run #(do (actions/update-state entities (fn [state] (assoc state :current-riddle :wool)))
(actions/respond entities %
:game-player "Well, if you want my trophy, you'll have to earn it." :game-player "Well, if you want my trophy, you'll have to earn it."
:game-player "There are a few riddles that even I, the wisest in all of Remington, cannot solve." :game-player "There are a few riddles that even I, the wisest in all of Remington, cannot solve."
:game-player "How about you help me?" :game-player "How about you help me?"
@@ -81,24 +82,34 @@
:entities {:game-player (assoc (texture "inside-castle/gameplayer.png") :x 266 :y 49 :baseline 191 :entities {:game-player (assoc (texture "inside-castle/gameplayer.png") :x 266 :y 49 :baseline 191
:script (actions/get-script entities (do-game-player-dialogue entities)) :script (actions/get-script entities (do-game-player-dialogue entities))
:scripts {:wool (actions/get-script entities :scripts {:wool (actions/get-script entities
(actions/remove-item entities items/wool) (if (= :wool (get-in @entities [:state :current-riddle]))
(actions/do-dialogue entities (do (actions/update-state entities #(assoc % :current-riddle :balloon))
:game-player "That's right! Now for your second riddle:" (actions/remove-item entities items/wool)
:game-player "Filled with air, light as a feather," (actions/do-dialogue entities
:game-player "If you want to keep it, best have a tether.")) :game-player "That's right! Now for your second riddle:"
:game-player "Filled with air, light as a feather,"
:game-player "If you want to keep it, best have a tether."))
(actions/talk entities :ego "He doesn't need it.")))
:balloon (actions/get-script entities :balloon (actions/get-script entities
(actions/remove-item entities items/balloon) (if (= :balloon (get-in @entities [:state :current-riddle]))
(actions/do-dialogue entities (do (actions/update-state entities #(assoc % :current-riddle :frog-legs))
:game-player "That's right! Now for your third riddle:" (actions/remove-item entities items/balloon)
:game-player "Hippity-hop, I jump really far," (actions/do-dialogue entities
:game-player "Now I'm dead, or at least a have a scar.")) :game-player "That's right! Now for your third riddle:"
:game-player "Hippity-hop, I jump really far,"
:game-player "Now I'm dead, or at least a have a scar."))
(actions/talk entities :ego "He doesn't need it.")))
:frog-legs (actions/get-script entities :frog-legs (actions/get-script entities
(actions/remove-item entities items/frog-legs) (if (= :frog-legs (get-in @entities [:state :current-riddle]))
(actions/do-dialogue entities (do (actions/update-state entities #(assoc % :current-riddle :done))
:game-player "Wow! That's right!"
:game-player "I guess I'm not the wisest person in Remington." (actions/remove-item entities items/frog-legs)
:game-player "You have earned my trophy.") (actions/do-dialogue entities
(actions/give entities items/trophy))} :game-player "Wow! That's right!"
:game-player "I guess I'm not the wisest person in Remington."
:game-player "You have earned my trophy.")
(actions/give entities items/trophy))
(actions/talk entities :ego "He doesn't need it.")))}
:anim nil :anim nil
:talk game-player-talk)} :talk game-player-talk)}
:collision "inside-castle/collision.png" :collision "inside-castle/collision.png"