Improve detector equipment, various cleanup

src/Dodge/Creature.hs

@@ -1,14 +1,13 @@
 module Dodge.Creature 
     ( module Dodge.Creature
+    , module Dodge.Creature.ChaseCrit
     , module Dodge.Creature.Inanimate
     , launcherCrit
     , pistolCrit
     , ltAutoCrit
     , spreadGunCrit
     , autoCrit
-    , chaseCrit
     , armourChaseCrit
-    , smallChaseCrit
     ) where
 import Dodge.Creature.State.Data
 import Dodge.Creature.Update
@@ -166,7 +165,8 @@ startInventory :: IM.IntMap Item
 startInventory = IM.fromList $ zip [0..] startInvList
 inventoryA :: IM.IntMap Item
 inventoryA = IM.fromList $ zip [0..] 
-    [ makeTypeCraftNum 1 TRANSFORMER
+    [ clickDetector ITEMDETECTOR
+    , makeTypeCraftNum 1 TRANSFORMER
     , makeTypeCraftNum 2 CAN
     , makeTypeCraftNum 2 PIPE
     ]
@@ -187,9 +187,10 @@ inventoryB = IM.fromList $ zip [0..]
     ]
 inventoryC :: IM.IntMap Item
 inventoryC = IM.fromList $ zip [0..] 
-    [ autoRadar
-    , autoSonar
-    , itemFinder
+    [ autoDetector CREATUREDETECTOR
+    , autoDetector WALLDETECTOR
+    , autoDetector ITEMDETECTOR
+    , wristInvisibility
     ]
 
 testInventory :: IM.IntMap Item
@@ -197,8 +198,7 @@ testInventory = IM.fromList $ zip [0..]
     [ makeTypeCraftNum 9 PIPE
     , brainHat
     , headLamp
-    , autoSonar
-    , autoRadar
+    , autoDetector WALLDETECTOR
     , magShield
     , frontArmour
     , wristArmour