Remove _crCamouflage/wrist invisibility on equip/unequip

Invisibility no longer works

src/Dodge/Data/Creature.hs

@@ -75,7 +75,7 @@ data Creature = Creature
     , _crHammerPosition :: HammerPosition
     , _crName :: String
     , _crStatistics :: CreatureStatistics
-    , _crCamouflage :: CamouflageStatus
+--    , _crCamouflage :: CamouflageStatus
 --    , _crTargeting :: CreatureTargeting
     }
 

src/Dodge/Data/Item/HeldUse.hs

@@ -8,7 +8,6 @@ module Dodge.Data.Item.HeldUse where
 --import Dodge.Data.Item.Use.Consumption.Ammo
 import Data.Aeson
 import Data.Aeson.TH
-import Dodge.Data.CamouflageStatus
 import Control.Lens
 
 data Cuse
@@ -22,12 +21,12 @@ data Euse
     | EWristShield
     | EHeadLamp
 --    | EFuelSource {_euseFuelAmount :: Int, _euseFuelMax :: Int}
-    | EBatterySource {_euseBatteryAmount :: Int, _euseBatteryMax :: Int}
-    | EAmmoSource 
-        { _euseAmmoAmount :: Int
-        , _euseAmmoMax :: Int
-        , _euseAmmoLink :: Maybe Int
-        }
+--    | EBatterySource {_euseBatteryAmount :: Int, _euseBatteryMax :: Int}
+--    | EAmmoSource 
+--        { _euseAmmoAmount :: Int
+--        , _euseAmmoMax :: Int
+--        , _euseAmmoLink :: Maybe Int
+--        }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Luse

src/Dodge/Data/Item/Use.hs

@@ -105,6 +105,7 @@ data AmmoParams
     = BulletParams {_ampBullet :: Bullet}
     | ProjectileParams { _ampPayload :: Payload }
     | GasParams {_ampCreateGas :: GasFuel}
+    | NoAmmoParams
     deriving (Eq, Show, Read) --Generic, Flat)
 
 data AimParams = AimParams

src/Dodge/Data/Item/Use/Equipment.hs

@@ -7,7 +7,6 @@ module Dodge.Data.Item.Use.Equipment (
     module Dodge.Data.Item.Use.Equipment,
 ) where
 
-import Dodge.Data.CamouflageStatus
 import Geometry.Data
 import Control.Lens
 import Data.Aeson
@@ -28,7 +27,7 @@ data EquipEffect = EquipEffect
 
 data ItmCrWdWd
     = ItmCrWdWdDoNothing
-    | ECamouflage {_euseCamouflageStatus :: CamouflageStatus}
+--    | ECamouflage {_euseCamouflageStatus :: CamouflageStatus}
     | EonWristShield
     | EoffWristShield
     deriving (Eq, Ord, Show, Read) --Generic, Flat)