Add skin colors

2022-06-04 12:25:16 +01:00
parent 2b9ad58f6f
commit 602a004e87
14 changed files with 68 additions and 37 deletions
@@ -31,11 +31,11 @@ swarmCrit = defaultCreature
    , _crRad = 2
    , _crMass = 2
    , _crPict = basicCrPict
-    , _crSkinColor =  yellow
    , _crCorpse = setDepth 5 $ color (greyN 0.5) $ circleSolid 2
    , _crFaction = ColorFaction yellow
    , _crMeleeCooldown = 0
    }
+    & crSkin . skinUpper .~ light4 yellow

 --swarmCritMoveFunc :: Creature -> Point2 -> Creature -> Point2
 --swarmCritMoveFunc tcr cenp cr