From b05f86d1309aaa1459f495fdaf2aefdabd66aa6e Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Fri, 6 Jan 2023 11:09:52 +0000
Subject: [PATCH] Allow equipable items to set targeting

---
 src/Dodge/Creature/State.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/Dodge/Creature/State.hs b/src/Dodge/Creature/State.hs
index 89ad370ae..c344737f5 100644
--- a/src/Dodge/Creature/State.hs
+++ b/src/Dodge/Creature/State.hs
@@ -289,14 +289,8 @@ crSetTargeting cr = fromMaybe cr $ do
 
 crDoTargeting :: Creature -> World -> World
 crDoTargeting cr = fromMaybe id $ do
-    itm <- find hastargeting $ helditem ++ IM.elems (getCrEquipment cr)
-    invid <- itm ^? itLocation . ipInvID
-    return $ doItemTargeting invid cr
-  where
-    helditem = maybeToList $ cr ^? crInv . ix (crSel cr)
-    hastargeting itm = case itm ^? itUse . useTargeting of
-        Just _ -> True
-        _ -> False
+    tt <- cr ^? crTargeting . ctType . _Just
+    return $ updateTargeting tt cr
 
 doItemTargeting :: Int -> Creature -> World -> World
 doItemTargeting invid cr w = case cr ^? crInv . ix invid . itUse . useTargeting . _Just of