Add skin colors

2022-06-04 12:25:16 +01:00
parent 2b9ad58f6f
commit 602a004e87
14 changed files with 68 additions and 37 deletions
@@ -23,7 +23,6 @@ import Control.Lens
 ltAutoCrit :: Creature
 ltAutoCrit = defaultCreature
    { _crPict = basicCrPict
-    , _crSkinColor =  red
    , _crUpdate = defaultImpulsive
        [ performActions
        , watchUpdateStrat
@@ -55,6 +54,7 @@ ltAutoCrit = defaultCreature
    , _crRad = 10
    , _crHP = 500
    }
+    & crSkin . skinUpper .~ light4 red

 chooseMovement :: Creature -> World -> Action
 chooseMovement cr w