Saving much better!
This commit is contained in:
@@ -342,8 +342,7 @@
|
||||
:ego "What's this?")
|
||||
(actions/give entities :kiss)
|
||||
(actions/do-dialogue entities :ego "A kiss for an inventory item?"
|
||||
:ego "Sounds like the game designer was running out of good ideas.")
|
||||
(utils/snapshot-state @entities :after-cat))
|
||||
:ego "Sounds like the game designer was running out of good ideas."))
|
||||
(actions/talk entities :ego "I guess I'm too far away.")))
|
||||
:default (actions/get-script entities (actions/talk entities :ego "Kitty seems disinterested in it."))})
|
||||
cat-stand)
|
||||
|
||||
@@ -243,7 +243,7 @@
|
||||
:fairy-godfather "Choose the broom or shovel, and cast it into the pit of fate."
|
||||
:ego "But..."
|
||||
:fairy-godfather "No buts.")
|
||||
(utils/snapshot-state @entities :beginning)
|
||||
(utils/save-chapter @entities :chapter-1)
|
||||
(actions/update-state entities #(assoc % :seen-intro? true :time :day)))
|
||||
|
||||
(defn swing [entities]
|
||||
@@ -422,7 +422,7 @@
|
||||
:ego "If I only really could be a knight."
|
||||
:ego "Then I'd be able to win Georgia McGorgeous' heart.")
|
||||
(actions/in-love entities)
|
||||
(utils/snapshot-state @entities :after-dream))
|
||||
(utils/save-chapter @entities :chapter-2))
|
||||
(do (actions/walk-to entities :ego [148 76] :face :right)
|
||||
(actions/do-dialogue entities
|
||||
:fairy-godfather "What are you doing?" :ego "Erm... Nothing."))))
|
||||
|
||||
@@ -80,8 +80,7 @@
|
||||
:warriors "Congratulations, young master. Thou art worthy in might."
|
||||
:warriors "Take thy servant's medal of strength.")
|
||||
(actions/give entities :medal)
|
||||
(actions/glad entities)
|
||||
(utils/snapshot-state @entities :after-strength))
|
||||
(actions/glad entities))
|
||||
(do
|
||||
(play-battle entities :lose)
|
||||
(actions/do-dialogue entities
|
||||
|
||||
@@ -585,7 +585,7 @@
|
||||
(actions/remove-entity entities :trophy)
|
||||
(actions/glad entities)
|
||||
(actions/talk entities :ego "Thanks!")
|
||||
(utils/snapshot-state @entities :after-wisdom))
|
||||
)
|
||||
(actions/do-dialogue entities :ego "What about this?" :game-player "No, that's not the solution. Keep looking."))
|
||||
(brian-get-to-work entities))
|
||||
:trophy (actions/get-script entities
|
||||
|
||||
@@ -198,7 +198,7 @@
|
||||
:ego "But what now?"
|
||||
:ego "I have till sunrise before Bloodclot comes and destroys the town."
|
||||
:ego "Maybe Gandarf can help me!")
|
||||
(utils/snapshot-state @entities :after-jail))
|
||||
(utils/save-chapter @entities :chapter-4))
|
||||
(do
|
||||
(actions/do-dialogue entities :ego "Yes! I made it!"
|
||||
:guard "Hmm?"
|
||||
|
||||
@@ -210,7 +210,7 @@
|
||||
:wizard "If this is truely your quest, then I will help you. "
|
||||
:ego "So you're my friend now, Gandarf?"
|
||||
:wizard "No.")
|
||||
(utils/save @entities))}]})
|
||||
(utils/save @entities :autosave "Autosave"))}]})
|
||||
|
||||
(defn wizard-dialogue [entities]
|
||||
(if (get-in @entities [:state :has-met-gandarf?])
|
||||
@@ -623,7 +623,7 @@
|
||||
|
||||
(if (get-in @entities [:state :convinced-wizard?])
|
||||
(do (actions/talk entities :wizard (str "Oh, hello there boy."))
|
||||
(utils/save @entities))
|
||||
(utils/save @entities :autosave "Autosave"))
|
||||
(wizard-dialogue entities)))))
|
||||
:cursor :right}
|
||||
|
||||
|
||||
@@ -279,7 +279,7 @@
|
||||
(bloodclot-disappear entities)
|
||||
(common/go-to-jail entities 5.0)
|
||||
(actions/do-dialogue entities :ego "Hey!" :ego "What's going on? I was just about to teach Bloodclot a lesson!")
|
||||
(utils/snapshot-state @entities :in-jail))))
|
||||
(utils/save-chapter @entities :chapter-3))))
|
||||
:magic-slingshot (actions/get-script entities
|
||||
(actions/do-dialogue entities
|
||||
:ego "Hey Bloodclot!"
|
||||
|
||||
Reference in New Issue
Block a user