Add dependencies

2021-09-05 23:58:50 +01:00
parent 86311c5d41
commit 4d3c0ae38f
5 changed files with 295 additions and 0 deletions
@@ -0,0 +1,26 @@
+module Dodge.Creature.Strategy
+    ( goToPostStrat
+    )
+    where
+import Dodge.Data
+import Dodge.Creature.Test
+import Dodge.Creature.Volition
+
+import Data.List
+
+goToPostStrat :: World -> Creature -> Strategy
+goToPostStrat w cr = case find sentinelGoal $ _crGoal $ _crActionPlan cr of
+    Just (SentinelAt p _) -> StrategyActions (GetTo p)
+        [DoActionThen (WaitThen 150 holsterIfAiming)
+            $ DoActionThen (PathTo p) 
+            NoAction
+       --     $ DoImpulses [ChangeStrategy WatchAndWait]
+        ]
+    _ -> WatchAndWait
+  where
+    sentinelGoal (SentinelAt _ _) = True
+    sentinelGoal _ = False
+    holsterIfAiming 
+        | crIsAiming (w,cr) = holsterWeapon
+        | otherwise     = NoAction
+