Remove reified impulses from creature record

2025-10-18 15:42:35 +01:00
parent b43168ae33
commit 4ee389efb1
16 changed files with 155 additions and 191 deletions
@@ -43,9 +43,9 @@ tryMeleeAttack cr tcr
        && Just (_crID tcr) == cr ^? crActionPlan . apStrategy . meleeTarget
        && dist tpos cpos < crRad (cr ^. crType) + crRad (tcr ^. crType) + 5
        && abs (_crDir cr - argV (tpos -.- cpos)) < pi / 4 =
-        cr & crActionPlan . apImpulse .~ [Melee $ _crID tcr]
-            & crActionPlan . apAction
-                .~ [ DoReplicate 10 NoAction
+        cr & crActionPlan . apAction
+                .~ [ DoImpulses [Melee $ _crID tcr] `DoActionThen`
+                        DoReplicate 10 NoAction
                        `DoActionThen` DoImpulses
                            [ChangeStrategy (CloseToMelee $ _crID tcr)]
                   ]