Improve detector equipment, various cleanup

src/Dodge/Creature/ChaseCrit.hs

@@ -1,5 +1,6 @@
 module Dodge.Creature.ChaseCrit
     (smallChaseCrit
+    ,invisibleChaseCrit
     ,chaseCrit
     ) where
 import Dodge.Data
@@ -10,6 +11,7 @@ import Dodge.Creature.ReaderUpdate
 import Dodge.Creature.Action
 import Dodge.Creature.Perception
 import Dodge.Item.Consumable
+import Dodge.Item.Equipment
 import Dodge.SoundLogic
 --import Geometry
 import Picture
@@ -28,6 +30,12 @@ smallChaseCrit = chaseCrit
     , _crInv = IM.fromList [(0,medkit 200)]
     , _crCorpse = setDepth 5 $ color (greyN 0.5) $ circleSolid 4
     }
+invisibleChaseCrit :: Creature
+invisibleChaseCrit = chaseCrit
+    & crCamouflage .~ Invisible
+    & crInv . at 0 ?~ wristInvisibility
+    & crEquipment . at OnLeftWrist ?~ 0
+    & crInvEquipped . at 0 ?~ OnLeftWrist
 chaseCrit :: Creature
 chaseCrit = defaultCreature
     { _crUpdate = defaultImpulsive