Continue to work on targeting inventory items

2023-05-20 00:34:23 +01:00
parent 6053bb059b
commit 938809a3a1
3 changed files with 10 additions and 2 deletions
@@ -275,6 +275,7 @@ crGetTargeting :: Creature -> Maybe TargetType
 crGetTargeting cr = do
    i <- cr ^? crManipulation . manObject . inInventory . ispItem
    itm <- cr ^? crInv . ix i
+    --(cr ^? crInv . ix (i+1) . itUse . equipTargeting . _Just)
    itm ^? itType . iyModules . ix ModTarget . imtTargetType
        <|> (guard (canAttachTargetingBelow itm) 
                >> cr ^? crInv . ix (i+1) . itUse . equipTargeting . _Just)