Refactor ai

2021-05-12 14:24:31 +02:00
parent 86faf9fd01
commit ead87af3c1
25 changed files with 718 additions and 453 deletions
@@ -20,7 +20,7 @@ import Picture
 import qualified Data.IntMap.Strict as IM
 import Control.Lens

-defaultInanimate = defaultCreature & crState . crIsAnimate .~ False
+defaultInanimate = defaultCreature & crActionPlan .~ Inanimate

 lamp :: Creature
 lamp = defaultInanimate
@@ -60,7 +60,6 @@ barrel = defaultInanimate
        ]
    , _crState = defaultState 
        {_goals = [[Wait]]
-        ,_faction = ChaseCritters
        ,_crSpState = Barrel []
        }
    , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]
@@ -76,7 +75,6 @@ explosiveBarrel = defaultInanimate
        ]
    , _crState = defaultState 
        {_goals = [[Wait]]
-        ,_faction = ChaseCritters
        ,_crSpState = Barrel []
        }
    , _crInv = IM.empty -- IM.fromList [(0,frontArmour)]