Improve left use equipment interaction with general equipment

2022-05-23 16:59:24 +01:00
parent c2770e6b5c
commit fa82923a12
4 changed files with 33 additions and 8 deletions
@@ -66,6 +66,7 @@ defaultlUse = LeftUse
    , _useDelay = FixedRate {_rateMax = 8, _rateTime = 0}
    , _useHammer  = NoHammer
    , _eqSite = GoesOnSpecial
+    , _eqUse = \_ _ -> id
    }

 luseInstantNoH :: (Item -> Creature -> World -> World) -> ItemUse
@@ -74,6 +75,7 @@ luseInstantNoH f = LeftUse
    , _useDelay = NoDelay
    , _useHammer  = NoHammer
    , _eqSite = GoesOnSpecial
+    , _eqUse = \_ _ -> id
    }
 defaultAimParams :: AimParams
 defaultAimParams = AimParams