Add distance indicator for forcefield gun

2022-06-07 16:01:08 +01:00
parent c8c299cfb5
commit 1c80447f9a
5 changed files with 54 additions and 28 deletions
@@ -47,8 +47,8 @@ basicCrPict cr cfig w =
        ]
    )
  where 
-    targetingPic = IM.elems $ IM.mapMaybeWithKey f $ _crInv cr
-    f invid it = fmap (\g -> g invid it cr cfig w) (it ^? itTargeting . tgDraw)
+    targetingPic = IM.elems $ IM.mapMaybe f $ _crInv cr
+    f it = fmap (\g -> g it cr cfig w) (it ^? itTargeting . tgDraw)

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