Allow for equipment items to set a minimum view distance

2022-06-05 01:50:18 +01:00
parent 5e144b1cd5
commit 65fcea0f50
13 changed files with 76 additions and 61 deletions
@@ -200,7 +200,7 @@ useUpdate = (useHammer . hammerPosition %~ moveHammerUp)
    . (useDelay . rateTime %~ decreaseToZero)

 useEquipment :: Creature -> Int -> World -> World
-useEquipment cr i = _eqUse (_itUse itm) itm cr
+useEquipment cr i = _eqUse (_eqEq $ _itUse itm) itm cr
  where
    itm = _crInv cr IM.! i
 -- a map updating all inventory items