Data-ify creature drawing (partially)

src/Dodge/Creature/LauncherCrit.hs

@@ -4,7 +4,6 @@ module Dodge.Creature.LauncherCrit
     where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Creature.Picture
 --import Dodge.Creature.ChainUpdates
 import Dodge.Creature.Test
 import Dodge.Creature.Volition
@@ -24,8 +23,7 @@ import Control.Lens
 
 launcherCrit :: Creature
 launcherCrit = defaultCreature
-    { _crPict = basicCrPict
-    , _crUpdate = defaultImpulsive
+    { _crUpdate = defaultImpulsive
         [ performActions
         , watchUpdateStrat
             [ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) [retreatFire])
@@ -44,7 +42,7 @@ launcherCrit = defaultCreature
     , _crState = defaultState
     , _crHP = 300
     }
-    & crSkin . skinUpper .~ light4 red
+    & crType . skinUpper .~ light4 red
 
 retreatFire :: Action
 retreatFire = ImpulsesList ( [ UseItem ] : replicate 20 [ Turn 0.16 ])