Refactor bullet particles

2021-05-19 13:46:19 +02:00
parent 44f239c673
commit 4463dc7716
29 changed files with 637 additions and 535 deletions
@@ -5,9 +5,10 @@ import Dodge.Data
 import Dodge.Default
 import Dodge.Creature.Picture
 import Dodge.Creature.Test
+import Dodge.Creature.Volition
 import Dodge.Creature.ActionRat
+import Dodge.Creature.ReaderUpdate
 --import Dodge.Creature.ChooseTarget
-import Dodge.Creature.SetTarget
 import Dodge.Creature.Rationality
 import Dodge.Creature.AlertLevel
 import Dodge.Creature.State
@@ -31,7 +32,7 @@ pistolCrit = defaultCreature
         performActionsR
        >=> watchUpdateStratR
              [ (crHasTargetLOS, \w cr -> StrategyActions (ShootAt 0) 
-                    [DoActionIf (not . crIsAiming) DrawWeapon,chooseMovement cr w])
+                    [DoActionIf (not . crIsAiming) drawWeapon,chooseMovement cr w])
              , (crAwayFromPost, goToPostStrat)
              ]
        >=> basicPerceptionUpdateR [0]