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
 launcherCrit :: Creature
 launcherCrit = defaultCreature
    { _crPict = basicCrPict
-    , _crSkinColor =  red
    , _crUpdate = defaultImpulsive
        [ performActions
        , watchUpdateStrat
@@ -52,6 +51,7 @@ launcherCrit = defaultCreature
    , _crState = defaultState
    , _crHP = 300
    }
+    & crSkin . skinUpper .~ light4 red

 retreatFire :: Action
 retreatFire = ImpulsesList ( [ UseItem ] : replicate 20 [ Turn 0.16 ])