Cleanup creatures somewhat, fix LOS to LOSIndirect

2022-07-03 15:07:55 +01:00
parent b43ec42a2e
commit ffdfaa41c0
24 changed files with 81 additions and 116 deletions
@@ -9,7 +9,7 @@ import Dodge.Creature.Volition
 import Data.List

 goToPostStrat :: Creature -> Strategy
-goToPostStrat cr = case find sentinelGoal $ _crGoal $ _crActionPlan cr of
+goToPostStrat cr = case find sentinelGoal $ _apGoal $ _crActionPlan cr of
    Just (SentinelAt p _) -> StrategyActions (GetTo p)
        [DoActionThen (WaitThen 150 holsterIfAiming)
            $ DoActionThen (PathTo p)