Remove _crCamouflage/wrist invisibility on equip/unequip

Invisibility no longer works

src/Dodge/Creature/ChaseCrit.hs

@@ -25,7 +25,7 @@ smallChaseCrit =
 invisibleChaseCrit :: Creature
 invisibleChaseCrit =
     chaseCrit
-        & crCamouflage .~ Invisible
+--        & crCamouflage .~ Invisible
         & crInv . at 0 ?~ wristInvisibility
         & crEquipment . at OnLeftWrist ?~ 0
 --        & crInvEquipped . at 0 ?~ OnLeftWrist

src/Dodge/Creature/Picture.hs

@@ -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

src/Dodge/Creature/State.hs

@@ -179,7 +179,7 @@ invItemLocUpdate cr loc w = doAnyEquipmentEffect loc cr $ case itm ^. itType of
 
 doAnyEquipmentEffect :: LocationLDT ItemLink ComposedItem -> Creature -> World -> World
 doAnyEquipmentEffect loc cr = case itm ^? itLocation . ilEquipPosition . _Just of
-    Just _ -> useE (_eeUse (_uequipEffect $ _itUse itm)) loc cr
+    Just _ -> useE loc cr
     _ -> id
   where
     itm = loc ^. locLDT . ldtValue . _1