started multiple saves.

This commit is contained in:
Bryce Covert
2015-09-28 12:49:26 -07:00
parent c732d15750
commit 1cb21ce28b
13 changed files with 81 additions and 57 deletions

View File

@@ -1,6 +1,7 @@
(ns advent.screens.rooms.cat-tree
(:require [advent.screens.rooms :as rooms]
[advent.actions :as actions]
[advent.saves :as saves]
[advent.screens.items :as items]
[advent.screens.rooms.common :as common]
[advent.utils :as utils]
@@ -338,7 +339,7 @@
(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 "The Cat Whisperer"))
(utils/snapshot-state @entities :after-cat))
(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

@@ -7,6 +7,7 @@
[advent.screens.items :as items]
[advent.tween :as tween]
[advent.utils :as utils]
[advent.saves :as saves]
[clojure.zip :as zip]
[clojure.set :as set]
[clojure.string :as str]
@@ -240,7 +241,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 "Our tale's beginning")
(utils/snapshot-state @entities :beginning)
(actions/update-state entities #(assoc % :seen-intro? true)))
(defn swing [entities]

View File

@@ -1,5 +1,6 @@
(ns advent.screens.rooms.inside-cafeteria
(:require [advent.screens.rooms :as rooms]
(:require [advent.saves :as saves]
[advent.screens.rooms :as rooms]
[advent.screens.items :as items]
[advent.actions :as actions]
[advent.utils :as utils]
@@ -81,7 +82,7 @@
:warriors "Take thy servant's medal of strength.")
(actions/give entities :medal)
(actions/glad entities)
(utils/snapshot-state @entities "Pro (arm) Wrestler"))
(utils/snapshot-state @entities :after-strength))
(do
(play-battle entities :lose)
(actions/do-dialogue entities

View File

@@ -1,6 +1,7 @@
(ns advent.screens.rooms.inside-castle
(:require [advent.screens.rooms :as rooms]
[advent.actions :as actions]
[advent.saves :as saves]
[advent.screens.rooms.common :as common]
[advent.screens.items :as items]
[advent.utils :as utils]
@@ -576,7 +577,7 @@
(actions/remove-entity entities :trophy)
(actions/glad entities)
(actions/talk entities :ego "Thanks!")
(utils/snapshot-state @entities "The Wise Guy"))
(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

@@ -2,6 +2,7 @@
(:require [clojure.core.async :refer [chan]]
[advent.screens.rooms :as rooms]
[advent.screens.rooms.common :as common]
[advent.saves :as saves]
[advent.actions :as actions]
[advent.screens.items :as items]
[advent.utils :as utils]
@@ -196,7 +197,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 "Prisoner On The Loose"))
(utils/snapshot-state @entities :after-jail))
(do
(actions/do-dialogue entities :ego "Yes I made it!"
:guard "Hmm?"

View File

@@ -2,6 +2,7 @@
(:require [advent.screens.rooms :as rooms]
[advent.screens.rooms.common :as common]
[advent.screens.rooms.held :as held]
[advent.saves :as saves]
[advent.actions :as actions]
[advent.screens.items :as items]
[advent.utils :as utils]
@@ -270,7 +271,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 The Slammer"))))
(utils/snapshot-state @entities :in-jail))))
:magic-slingshot (actions/get-script entities
(actions/do-dialogue entities
:ego "Hey Bloodclot!"