Add skin colors

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

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