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
@@ -68,11 +68,16 @@ defaultlUse = LeftUse
    { _lUse = \_ _ -> id
    , _useDelay = FixedRate {_rateMax = 8, _rateTime = 0}
    , _useHammer  = NoHammer
-    , _eqSite = GoesOnSpecial
+    , _eqEq = defaultEquip
+    }
+defaultEquip :: Equipment
+defaultEquip = Equipment
+    { _eqSite = GoesOnSpecial
    , _eqUse = \_ _ -> id
    , _eqOnEquip = \_ _ -> id
    , _eqOnRemove = \_ _ -> id
    , _eqParams = NoEquipParams
+    , _eqViewDist = Nothing
    }

 luseInstantNoH :: (Item -> Creature -> World -> World) -> ItemUse