Continue ai refactor

2021-05-06 14:07:51 +02:00
parent 75c36e2c95
commit 436043b169
12 changed files with 94 additions and 35 deletions
@@ -18,6 +18,7 @@ import Dodge.Picture.Layer.Data
 import Dodge.Creature.Data
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
+import Dodge.Creature.Rationality.Data
 import Dodge.Data.Menu
 import Dodge.Data.SoundOrigin
 import Dodge.Data.DamageType
@@ -148,6 +149,8 @@ data Creature = Creature
    , _crState      :: CreatureState
    , _crCorpse     :: Picture
    , _crApplyDamage :: [DamageType] -> Creature -> (World -> World,Creature)
+    , _crStance     :: Stance
+    , _crRationality :: Rationality
    }
 data WorldState 
    = DoorNumOpen Int