AI refactor

2021-05-07 16:50:59 +02:00
parent 436043b169
commit 1aa59cc205
16 changed files with 295 additions and 340 deletions
@@ -0,0 +1,25 @@
+module Dodge.Creature.ActionRat
+    where
+import Dodge.Data
+import Dodge.Base.Collide
+import Dodge.Creature.ChooseTarget
+import Dodge.Creature.Rationality.Data
+import Geometry
+
+import Data.List
+import Control.Lens
+
+{- | Action update for a simple shooting creature -}
+shootAtTarget
+    :: (Creature -> World -> Maybe Creature)    -- ^ Function for determining target
+    -> World 
+    -> Creature 
+    -> Creature 
+shootAtTarget targFunc w cr = case targFunc cr w of
+    Nothing -> cr
+    Just crTarg -> cr & crRationality . crAction %~ shootAtTarg w cr crTarg
+
+shootAtTarg :: World -> Creature -> Creature -> [Action] -> [Action]
+shootAtTarg w cr tcr as
+    | canSee (_crID cr) (_crID tcr) w = nub (ShootTillEmpty : as)
+    | otherwise     = as