Remove _crCamouflage/wrist invisibility on equip/unequip

Invisibility no longer works
2024-12-19 12:12:54 +00:00
parent a669632226
commit 7e0184a54d
14 changed files with 185 additions and 168 deletions
@@ -28,11 +28,14 @@ basicCrPict cr =
    uncurryV translateSPxy (_crPos cr) (rotateSP (_crDir cr) $ drawEquipment cr)
        <> noPic (basicCrShape cr)

+crCamouflage :: Creature -> CamouflageStatus
+crCamouflage _ = FullyVisible
+
 basicCrShape ::
    Creature ->
    Shape
 basicCrShape cr
-    | _crCamouflage cr == Invisible = mempty
+    | crCamouflage cr == Invisible = mempty
    | otherwise =
        tr . scaleSH (V3 crsize crsize crsize) $
            mconcat