Move targeting to dedicated datatype within item

2022-02-22 21:49:10 +00:00
parent 055fcf4cce
commit 8a7d06783d
9 changed files with 48 additions and 29 deletions
@@ -42,7 +42,7 @@ basicCrPict col cr cfig w =
    )
  where 
    targetingPic = IM.elems $ IM.mapMaybeWithKey f $ _crInv cr
-    f invid it = fmap ((\g -> g invid it cr w) . snd) (it ^? itTargeting . _Just)
+    f invid it = fmap (\g -> g invid it cr w) (it ^? itTargeting' . tgDraw)

 drawCrEquipment :: Creature -> SPic
 drawCrEquipment cr = uncurryV translateSPf (_crPos cr) (rotateSP (_crDir cr) $ drawEquipment cr)