Move towards implementing wrist shields

2022-05-25 10:27:05 +01:00
parent 546c279fae
commit dccbca5cfc
8 changed files with 131 additions and 44 deletions
@@ -70,15 +70,16 @@ defaultlUse = LeftUse
    , _useHammer  = NoHammer
    , _eqSite = GoesOnSpecial
    , _eqUse = \_ _ -> id
+    , _eqOnEquip = \_ _ -> id
+    , _eqOnRemove = \_ _ -> id
+    , _eqParams = NoEquipParams
    }

 luseInstantNoH :: (Item -> Creature -> World -> World) -> ItemUse
-luseInstantNoH f = LeftUse
+luseInstantNoH f = defaultlUse
    { _lUse = f
    , _useDelay = NoDelay
    , _useHammer  = NoHammer
-    , _eqSite = GoesOnSpecial
-    , _eqUse = \_ _ -> id
    }
 defaultAimParams :: AimParams
 defaultAimParams = AimParams