diff options
| author | Griffin Smith <root@gws.fyi> | 2019-12-23T17·19-0500 |
|---|---|---|
| committer | Griffin Smith <root@gws.fyi> | 2019-12-23T22·22-0500 |
| commit | 052bc8455a99e7f1a90b6c9354e54cff10de02cc (patch) | |
| tree | 51b7ef3883804a0644d7cd242b228023e9624f69 /src/Xanthous/Entities/Character.hs | |
| parent | bf7d139c1a17fe55921fb807aa249e93288d3e4d (diff) | |
Add a drop command
Add a drop command, bound to 'd', which prompts the character for an item in their inventory, removes it from the inventory, and places it on the ground. Along the way I had to fix a bug in the `EntityMap.atPosition` lens, which was always appending to the existing entities at the position on set, without removing the entities that were already there - the rabbit hole of quickchecking the lens laws here also lead to replacing the target of this lens with a newtype called `VectorBag`, which ignores order (since the entitymap makes no guarantees about order of entities at a given position).
Diffstat (limited to 'src/Xanthous/Entities/Character.hs')
| -rw-r--r-- | src/Xanthous/Entities/Character.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Xanthous/Entities/Character.hs b/src/Xanthous/Entities/Character.hs index 955c94fc77c4..43d4f8a52942 100644 --- a/src/Xanthous/Entities/Character.hs +++ b/src/Xanthous/Entities/Character.hs @@ -27,6 +27,7 @@ module Xanthous.Entities.Character , WieldedItem(..) , wieldedItem , wieldableItem + , asWieldedItem -- * , mkCharacter @@ -68,6 +69,12 @@ data WieldedItem = WieldedItem WieldedItem makeFieldsNoPrefix ''WieldedItem +asWieldedItem :: Prism' Item WieldedItem +asWieldedItem = prism' hither yon + where + yon item = WieldedItem item <$> item ^. itemType . wieldable + hither (WieldedItem item _) = item + instance Brain WieldedItem where step ticks (Positioned p wi) = over positioned (\i -> WieldedItem i $ wi ^. wieldableItem) |