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

Cleanup equipment item function

Browse Source
This commit is contained in:
justin
2025-08-27 11:33:09 +01:00
parent 5280d428a9
commit 5cb8be1363
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/Statistics.hs
+6 -4
View File
@@ -6,10 +6,12 @@ module Dodge.Creature.Statistics (
crIntelligence, crIntelligence,
) where ) where
import Dodge.Data.Equipment.Misc
import qualified Data.Map.Strict as M
import NewInt import NewInt
import Dodge.Data.LWorld import Dodge.Data.LWorld
import Data.Maybe import Data.Maybe
import qualified IntMapHelp as IM --import qualified IntMapHelp as IM
import LensHelp import LensHelp
crDexterity :: Creature -> Int crDexterity :: Creature -> Int
@@ -55,10 +57,10 @@ equipmentStrValue itm = case _itType itm of
EQUIP POWERLEGS -> 3 EQUIP POWERLEGS -> 3
_ -> 0 _ -> 0
crCurrentEquipment :: LWorld -> Creature -> NewIntMap InvInt Item crCurrentEquipment :: LWorld -> Creature -> M.Map EquipSite Item
crCurrentEquipment lw = over unNIntMap (IM.filter (isJust . (^? itLocation . ilEquipSite . _Just))) . fmap f . _crInv crCurrentEquipment lw = fmap f . _crEquipment
where where
f i = lw ^?! items . ix i f i = lw ^?! items . ix (_unNInt i)
strFromHeldItem :: LWorld -> Creature -> Int strFromHeldItem :: LWorld -> Creature -> Int
strFromHeldItem lw cr = fromMaybe 0 $ do strFromHeldItem lw cr = fromMaybe 0 $ do