Move towards allowing equipable targeting items

2023-01-06 11:01:32 +00:00
parent bf479ca080
commit 612ee85579
23 changed files with 152 additions and 145 deletions
@@ -59,10 +59,11 @@ worldSPic cfig w =
    pointIsClose = cullPoint cfig w

 anyTargeting :: Configuration -> World -> SPic
-anyTargeting cfig w = (mempty, pictures $ IM.elems $ IM.mapMaybe f $ _crInv cr)
+anyTargeting cfig w = fromMaybe mempty $ do
+    tt <- cr ^? crTargeting . ctType . _Just
+    return $ noShape $ drawTargeting tt cr cfig w
  where
    cr = you w
-    f it = fmap (\g -> drawTargeting g it cr cfig w) (it ^? itUse . heldTargeting . tgType)

 drawCreature :: Creature -> SPic
 drawCreature cr = case _crType cr of