justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Move further towards removing _crInvEquipped

Browse Source
This commit is contained in:
justin
2024-12-19 12:29:17 +00:00
parent 7e0184a54d
commit 80b03e6544
11 changed files with 82 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/ArmourChase.hs
-1
View File
@@ -48,4 +48,3 @@ armourChaseCrit =
, _crMvType = defaultChaseMvType{_mvTurnRad = FloatConst 0.05}
}
& crEquipment . at OnChest ?~ 0
-- & crInvEquipped . at 0 ?~ OnChest
src/Dodge/Creature/ChaseCrit.hs
-1
View File
@@ -28,7 +28,6 @@ invisibleChaseCrit =
-- & crCamouflage .~ Invisible
& crInv . at 0 ?~ wristInvisibility
& crEquipment . at OnLeftWrist ?~ 0
-- & crInvEquipped . at 0 ?~ OnLeftWrist
chaseCrit :: Creature
chaseCrit =
src/Dodge/Creature/Statistics.hs
-6
View File
@@ -25,12 +25,6 @@ equipmentStrValue itm = case _itType itm of
crCurrentEquipment :: Creature -> IM.IntMap Item
crCurrentEquipment = IM.filter (isJust . (^? itLocation . ilEquipPosition . _Just)) . _crInv
-- merge
-- dropMissing
-- dropMissing
-- (zipWithMatched (\_ _ itm -> itm))
-- (_crInvEquipped cr)
-- (_crInv cr)
strFromHeldItem :: Creature -> Int
strFromHeldItem cr