Data-ify creature drawing (partially)

src/Dodge/Creature/LtAutoCrit.hs

@@ -3,7 +3,6 @@ module Dodge.Creature.LtAutoCrit
     ) where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Creature.Picture
 import Dodge.Creature.Update
 import Dodge.Creature.Action
 import Dodge.Creature.Test
@@ -22,8 +21,7 @@ import Control.Lens
 
 ltAutoCrit :: Creature
 ltAutoCrit = defaultCreature
-    { _crPict = basicCrPict
-    , _crUpdate = defaultImpulsive
+    { _crUpdate = defaultImpulsive
         [ performActions
         , watchUpdateStrat
             [ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) 
@@ -47,7 +45,7 @@ ltAutoCrit = defaultCreature
     , _crRad = 10
     , _crHP = 500
     }
-    & crSkin . skinUpper .~ light4 red
+    & crType . skinUpper .~ light4 red
 
 chooseMovement :: Creature -> World -> Action
 chooseMovement cr w