Data-ify creature drawing (partially)

src/Dodge/Creature/SpreadGunCrit.hs

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