44 lines
1.8 KiB
Clojure
44 lines
1.8 KiB
Clojure
(ns advent.saves)
|
|
|
|
(def chapters
|
|
{:chapter-1 nil
|
|
:chapter-2 nil
|
|
:chapter-3 nil
|
|
:chapter-4 nil
|
|
:chapter-5 nil})
|
|
|
|
|
|
(def chapter-name
|
|
{:chapter-1 "Our Tale's Beginning"
|
|
:chapter-2 "To Be a Knight"
|
|
:chapter-3 "In the Slammer"
|
|
:chapter-4 "Tick the Ex-con"
|
|
:chapter-5 "Slingshot Stew"})
|
|
|
|
(defn default-screenshot [state]
|
|
(let [answers {:inside-house "screenshots/inside-house.png"
|
|
:inside-stash "screenshots/inside-stash.png"
|
|
:outside-house {:day "screenshots/outside-house-day.png"
|
|
:night "screenshots/outside-house-night.png"}
|
|
:behind-house {:day "screenshots/behind-house-day.png"
|
|
:night "screenshots/behind-house-night.png"}
|
|
:cat-tree {:day "screenshots/cat-tree-day.png"
|
|
:night "screenshots/cat-tree-night.png"}
|
|
:inside-castle {:day "screenshots/inside-castle-day.png"
|
|
:night "screenshots/inside-castle-night.png"}
|
|
:space "screenshots/duel.png"
|
|
:held "screenshots/held.png"
|
|
:inside-cafeteria "screenshots/cafeteria.png"
|
|
:inside-antique "screenshots/inside-antique.png"
|
|
:inside-jail "screenshots/inside-jail.png"
|
|
:dream "screenshots/dream.png"
|
|
:castle-gate "screenshots/castle-gate.png"
|
|
:outside-jail {:day "screenshots/fountain-day.png"
|
|
:night "screenshots/fountain-night.png"}
|
|
:outside-castle {:day "screenshots/outside-castle-day.png"
|
|
:night "screenshots/outside-castle-night.png"}}]
|
|
(get-in answers [(:last-room state) (:time state)]
|
|
(get-in answers [(:last-room state)]))))
|
|
|
|
|