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
@@ -3,7 +3,6 @@ module Dodge.Creature.AutoCrit
    ) where
 import Dodge.Data
 import Dodge.Default
-import Dodge.Creature.Picture
 import Dodge.Creature.Update
 import Dodge.Creature.SentinelAI
 --import Dodge.Creature.ChooseTarget
@@ -22,11 +21,10 @@ import Control.Lens

 autoCrit :: Creature
 autoCrit = defaultCreature
-    { _crPict = basicCrPict
-    , _crUpdate = defaultImpulsive [sentinelAI]
+    { _crUpdate = defaultImpulsive [sentinelAI]
    , _crInv = IM.fromList [(0,autoGun),(1,medkit 100)]
    , _crRad = 10
    , _crHP = 300
    , _crMvType = defaultAimMvType
    }
-    & crSkin . skinUpper .~ light4 red
+    & crType . skinUpper .~ light4 red