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

Allow equipable items to set targeting

Browse Source
This commit is contained in:
justin
2023-01-06 11:09:52 +00:00
parent 612ee85579
commit b05f86d130
1 changed files with 2 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Creature/State.hs
+2 -8
View File
@@ -289,14 +289,8 @@ crSetTargeting cr = fromMaybe cr $ do
crDoTargeting :: Creature -> World -> World crDoTargeting :: Creature -> World -> World
crDoTargeting cr = fromMaybe id $ do crDoTargeting cr = fromMaybe id $ do
itm <- find hastargeting $ helditem ++ IM.elems (getCrEquipment cr) tt <- cr ^? crTargeting . ctType . _Just
invid <- itm ^? itLocation . ipInvID return $ updateTargeting tt cr
return $ doItemTargeting invid cr
where
helditem = maybeToList $ cr ^? crInv . ix (crSel cr)
hastargeting itm = case itm ^? itUse . useTargeting of
Just _ -> True
_ -> False
doItemTargeting :: Int -> Creature -> World -> World doItemTargeting :: Int -> Creature -> World -> World
doItemTargeting invid cr w = case cr ^? crInv . ix invid . itUse . useTargeting . _Just of doItemTargeting invid cr w = case cr ^? crInv . ix invid . itUse . useTargeting . _Just of