Make use hammers and item positions slightly more logical

2022-07-07 08:27:56 +01:00
parent c2e7fcc897
commit 3759434d92
16 changed files with 48 additions and 48 deletions
@@ -74,7 +74,7 @@ defaultlUse :: ItemUse
 defaultlUse = LeftUse
    { _lUse = \_ _ -> id
    , _useDelay = FixedRate {_rateMax = 8, _rateTime = 0}
-    , _useHammer  = NoHammer
+    , _useHammer    = HammerUp
    , _eqEq = defaultEquip
    }
 defaultEquip :: Equipment
@@ -88,11 +88,9 @@ defaultEquip = Equipment
    }

 luseInstantNoH :: (Item -> Creature -> World -> World) -> ItemUse
-luseInstantNoH f = defaultlUse
-    { _lUse = f
-    , _useDelay = NoDelay
-    , _useHammer  = NoHammer
-    }
+luseInstantNoH f = defaultlUse 
+    & lUse .~ f
+    & useDelay .~ NoDelay
 defaultAimParams :: AimParams
 defaultAimParams = AimParams
    { _aimWeight = 0