seems like almost everything is working.

This commit is contained in:
Bryce Covert
2016-08-11 19:19:28 -07:00
parent 507e146877
commit a3536d7b0d
6 changed files with 43 additions and 33 deletions

View File

@@ -481,33 +481,33 @@
(#{:back } actor-key)
(-> entities
(dissoc :save-menu)
(dissoc :chapters-menu)
(dissoc :settings-menu)
(utils/remove-actor-from-stage :save-menu)
(utils/remove-actor-from-stage :chapters-menu)
(utils/remove-actor-from-stage :settings-menu)
(assoc :main-menu (->> (main-menu screen)
(utils/add-actor-to-stage screen))))
(#{:dont-delete-button } actor-key)
(as-> entities entities
(dissoc entities :confirm-delete)
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
(utils/add-actor-to-stage screen))))
(utils/remove-actor-from-stage entities :confirm-delete)
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
(utils/add-actor-to-stage screen))))
(= :load actor-key)
(as-> entities entities
(dissoc entities :main-menu)
(utils/remove-actor-from-stage entities :main-menu)
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
(utils/add-actor-to-stage screen))))
(= :chapters actor-key)
(-> entities
(dissoc :main-menu)
(utils/remove-actor-from-stage :main-menu)
(assoc :chapters-menu (->> (chapters-menu )
(utils/add-actor-to-stage screen))))
(= :settings actor-key)
(-> entities
(dissoc :main-menu)
(utils/remove-actor-from-stage :main-menu)
(assoc :settings-menu (->> (settings-menu)
(utils/add-actor-to-stage screen))))
@@ -529,7 +529,7 @@
(= :delete actor-key)
(as-> entities entities
(dissoc entities :save-menu)
(utils/remove-actor-from-stage entities :save-menu)
(assoc entities :confirm-delete (->> (confirm-delete entities)
(utils/add-actor-to-stage screen))))
@@ -537,10 +537,10 @@
(do
(utils/remove-save (:id (:selected-save entities)))
(as-> entities entities
(dissoc entities :confirm-delete)
(assoc entities :saves-list (utils/snapshot-screenshots))
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
(utils/add-actor-to-stage screen)))))
(utils/remove-actor-from-stage entities :confirm-delete)
(assoc entities :saves-list (utils/snapshot-screenshots))
(assoc entities :save-menu (->> (saves-menu entities (:renderer screen))
(utils/add-actor-to-stage screen)))))
(:save e)
(do