Tweak item dropping, add item radius

2021-11-19 14:04:44 +00:00
parent da83bd06a6
commit 4ef1811dd6
6 changed files with 56 additions and 32 deletions
@@ -60,7 +60,7 @@ stateUpdate u cr w = case u (updateMovement cr) w of
        (_crCorpse cr)
 -- | Drop items according to the creature state.
 dropByState :: Creature -> World -> World
-dropByState cr w = foldr (copyItemToFloor cr) w is
+dropByState cr w = foldr (copyInvItemToFloor cr) w is
  where
    is :: [Int]
    is = case cr ^. crState . crDropsOnDeath of