Start more sensibly separating avatar from ai creatures

src/Dodge/Creature.hs

@@ -103,7 +103,8 @@ startCr =
         & crFaction .~ PlayerFaction
         & crMvType .~ MvWalking yourDefaultSpeed
         & crType . skinUpper .~ lightx4 black
-        & crType . humanoidAI .~ YourAI
+        & crType .~ Avatar 
+            (greyN 0.9) (lightx4 green) (greyN 0.3)
 
 -- | Items you start with.
 startInvList :: [Item]
@@ -115,8 +116,8 @@ startInventory = IM.fromList $ zip [0 ..] startInvList
 inventoryX :: Char -> [Item]
 inventoryX c = case c of
     'A' ->
-        [ clickDetector ITEMDETECTOR
-        ] <> fold
+        [ clickDetector x | x <- [minBound .. maxBound]
+        ] <> [pulseChecker] <> fold
         [ makeTypeCraftNum 1 TRANSFORMER
         , makeTypeCraftNum 2 CAN
         , makeTypeCraftNum 2 PIPE