Add skin colors

src/Dodge/Creature/AutoCrit.hs

@@ -18,11 +18,11 @@ import Picture
 --
 --import Data.Maybe
 import qualified Data.IntMap.Strict as IM
+import Control.Lens
 
 autoCrit :: Creature
 autoCrit = defaultCreature
     { _crPict = basicCrPict
-    , _crSkinColor =  red
     , _crUpdate = defaultImpulsive [sentinelAI]
     , _crActionPlan = ActionPlan
         { _crImpulse    = []
@@ -36,3 +36,4 @@ autoCrit = defaultCreature
     , _crHP = 300
     , _crMvType = defaultAimMvType
     }
+    & crSkin . skinUpper .~ light4 red