Data-ify creature drawing (partially)

2022-07-10 23:24:25 +01:00
parent 646942d20c
commit 75cd15c240
20 changed files with 52 additions and 76 deletions
@@ -38,8 +38,8 @@ defaultCreature = Creature
    , _crMvDir  = 0
    , _crTwist  = 0
    , _crID     = 1
-    , _crPict   = basicCrPict
-    , _crSkin = defaultCreatureSkin
+--    , _crPict   = basicCrPict
+    , _crType = defaultCreatureSkin
    , _crUpdate = const id
    , _crRad    = 10
    , _crMass   = 10
@@ -75,8 +75,8 @@ defaultCreature = Creature
    , _crStatistics = CreatureStatistics 10 10 10
    , _crCamouflage = FullyVisible
    }
-defaultCreatureSkin :: CreatureSkin
-defaultCreatureSkin = CreatureSkin (greyN 0.9) (light4 green) (greyN 0.3)
+defaultCreatureSkin :: CreatureType
+defaultCreatureSkin = Humanoid (greyN 0.9) (light4 green) (greyN 0.3)

 defaultInanimate :: Creature
 defaultInanimate = defaultCreature & crActionPlan .~ Inanimate