Start moving creature properties out of records

src/Dodge/Creature/PistolCrit.hs

@@ -2,12 +2,12 @@ module Dodge.Creature.PistolCrit (
     pistolCrit,
 ) 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
 
 pistolCrit :: Creature
 pistolCrit =
@@ -16,5 +16,5 @@ pistolCrit =
         , _crRad = 10
         , _crHP = 500
         }
-        & crType . humanoidAI .~ PistolAI
-        & crType . skinUpper .~ lightx4 red
+--        & crType . humanoidAI .~ PistolAI
+--        & crType . skinUpper .~ lightx4 red