more progress!

This commit is contained in:
Bryce Covert
2016-07-29 13:13:40 -07:00
parent dd0eb3c9c5
commit 53d21c1f65
2 changed files with 42 additions and 179 deletions

View File

@@ -543,8 +543,7 @@
(begin [this screen entities]
(screen! @(resolve 'advent.screens.scene/hud) :on-remove-item :item ((:all-items entities) item))
(-> entities
(update-in [:state :inventory] #(remove (partial = item) %))
(assoc-in [:cursor :current] :main)))
(update-in [:state :inventory] #(remove (partial = item) %))))
(continue [this screen entities] entities)
@@ -586,8 +585,7 @@
(screen! @(resolve 'advent.screens.scene/hud) :on-give-item :item ((:all-items entities) item))
(-> entities
(update-in [:state :inventory] #(conj % item))
(update-in [:state :obtained-items] #(conj % item))
(assoc-in [:cursor :current] ((:all-items entities) item))))
(update-in [:state :obtained-items] #(conj % item))))
(continue [this screen entities] entities)