Start moving creature properties out of records

src/Dodge/Creature/AutoCrit.hs

@@ -3,11 +3,11 @@ module Dodge.Creature.AutoCrit (
 ) where
 
 import Dodge.Item.Held.Cane
-import Control.Lens
+--import Control.Lens
 import Dodge.Data.Creature
 import Dodge.Default
 import qualified IntMapHelp as IM
-import Picture
+--import Picture
 
 autoCrit :: Creature
 autoCrit =
@@ -17,5 +17,5 @@ autoCrit =
         , _crHP = 300
         , _crMvType = defaultAimMvType
         }
-        & crType . skinUpper .~ lightx4 red
-        & crType . humanoidAI .~ AutoAI
+--        & crType . skinUpper .~ lightx4 red
+--        & crType . humanoidAI .~ AutoAI