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 @@ spreadGunCrit = defaultCreature
        performActionsR
        >=> watchUpdateStratR
          [ (crHasTargetLOS, \_ _ -> StrategyActions (ShootAt 0) 
-              [DoActionIf (not . crIsAiming) DrawWeapon
+              [DoActionIf (not . crIsAiming) drawWeapon
              ,DoActionThen 
                  (DoActionWhile crHasTargetLOS $ ArbitraryAction chooseMovement)
                  (DoImpulses [ChangeStrategy WatchAndWait])