Saving much better!

This commit is contained in:
Bryce Covert
2015-11-04 17:07:26 -08:00
parent 3326629189
commit 6586faf583
12 changed files with 78 additions and 71 deletions

View File

@@ -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)

View File

@@ -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."))))

View File

@@ -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

View File

@@ -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

View File

@@ -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?"

View File

@@ -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}

View File

@@ -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!"