Start moving creature properties out of records

src/Dodge/Creature/LtAutoCrit.hs

@@ -2,12 +2,12 @@ module Dodge.Creature.LtAutoCrit (
     ltAutoCrit,
 ) where
 
-import Control.Lens
+--import Control.Lens
 import Dodge.Data.Creature
 import Dodge.Default
 import Dodge.Item.Held.Stick
 import qualified IntMapHelp as IM
-import Picture
+--import Picture
 
 ltAutoCrit :: Creature
 ltAutoCrit =
@@ -16,5 +16,6 @@ ltAutoCrit =
         , _crRad = 10
         , _crHP = 500
         }
-        & crType . humanoidAI .~ LtAutoAI
-        & crType . skinUpper .~ lightx4 red
+--        & crType .~ LtAutoCrit
+--        & crType . humanoidAI .~ LtAutoAI
+--        & crType . skinUpper .~ lightx4 red