Refactor launcherCrit ai

2021-05-13 14:23:58 +02:00
parent 9b3fbba393
commit 2402e1e868
10 changed files with 133 additions and 233 deletions
@@ -0,0 +1,82 @@
+module Dodge.Creature.LauncherCrit
+    ( launcherCrit
+    )
+    where
+import Dodge.Data
+import Dodge.Default
+import Dodge.Creature.Picture
+import Dodge.Creature.Test
+import Dodge.Creature.ActionRat
+import Dodge.Creature.ChooseTarget
+import Dodge.Creature.SetTarget
+import Dodge.Creature.Rationality
+import Dodge.Creature.AlertLevel
+import Dodge.Creature.State
+import Dodge.Creature.State.Data
+import Dodge.Item.Weapon
+import Dodge.Item.Consumable
+import Geometry
+import Picture
+
+import qualified Data.IntMap.Strict as IM
+import Control.Lens
+
+launcherCrit :: Creature
+launcherCrit = defaultCreature
+    { _crPict = basicCrPict red
+    , _crUpdate = stateUpdate $ impulsiveAI $ composeInternalAIs
+        [ performActions
+        , watchUpdateStrat
+--            [ (crHasTargetLOS, shootMoveStrat (0,3) 0)
+            [ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) [retreatFire])
+            , (crAwayFromPost, goToPostStrat)
+            ]
+        , basicPerceptionUpdate [0]
+        , doStrategyActions
+        , reloadOverride
+        , targetYouWhenCognizant
+        , overrideInternal (onBoth (&&) crHasTarget (crStratConMatches (GetTo (0,0))))
+            $ \ _ -> crActionPlan . crStrategy .~ WatchAndWait
+        ]
+    , _crActionPlan = ActionPlan
+        { _crImpulse    = []
+        , _crAction     = []
+        , _crStrategy   = StrategyActions WatchAndWait [StartSentinelPost]
+        , _crGoal       = []
+        }
+    , _crInv = IM.fromList [(0,launcher)]
+    , _crInvSel = 0
+    , _crRad = 10
+    , _crState = defaultState
+    , _crHP = 300
+    }
+
+retreatFire :: Action
+retreatFire = ImpulsesList ( [ [ UseItem ] ] ++ replicate 20 [ Turn 0.16 ])
+    `DoActionThen`
+    HolsterWeapon
+    `DoActionThen`
+    ImpulsesList ( replicate 30 [ MoveForward 3 ])
+    `DoActionThen`
+    DrawWeapon
+    `DoActionThen`
+    ImpulsesList ( [[UseItem]] ++ replicate 20 [ Turn $ negate 0.16 ] )
+    `DoActionThen`
+    HolsterWeapon
+    `DoActionThen`
+    ImpulsesList ( replicate 15 [ MoveForward 3 ] )
+    `DoActionThen`
+    DrawWeapon
+    `DoActionThen`
+    ImpulsesList (
+    replicate 100 [UseItem, ImpulseUseTarget $ \tcr -> TurnToward (_crPos tcr) (pi/16) ] )
+    `DoActionThen`
+    20
+    `WaitThen`
+    HolsterWeapon
+    `DoActionThen`
+    ImpulsesList ( replicate 15 [ MoveForward 3 ] )
+    `DoActionThen`
+    DoImpulses [ChangeStrategy WatchAndWait]
+    
+