Add skin colors

2022-06-04 12:25:16 +01:00
parent 2b9ad58f6f
commit 602a004e87
14 changed files with 68 additions and 37 deletions
@@ -27,7 +27,6 @@ import Control.Monad.State
 pistolCrit :: Creature
 pistolCrit = defaultCreature
    { _crPict = basicCrPict
-    , _crSkinColor =  red
    , _crUpdate =  defaultImpulsive
        [ performActions
        , watchUpdateStrat
@@ -54,6 +53,7 @@ pistolCrit = defaultCreature
    , _crRad = 10
    , _crHP = 500
    }
+    & crSkin . skinUpper .~ light4 red
 chooseMovement :: Creature -> World -> Action
 chooseMovement cr w = chooseMovement' cr w
        `DoActionThen`