Commit before simplifying actions

2026-04-29 20:58:13 +01:00
parent cfe34555b3
commit 199f1b11b5
6 changed files with 354 additions and 333 deletions
@@ -147,6 +147,8 @@ crMoveImpulses cr p = case crMvType cr of
    MvWalking {} -> [MvTurnToward p, MvForward]
    JitMvType {_mvTurnJit = x} -> [MvTurnToward p, MvForward, RandomTurn x]
    StartStopMvType {} -> [MvTurnToward p, MvForward]
+    BeeMvType {} | cr ^?! crType . beeRandomMovement -> [MvForward]
+    BeeMvType {} -> [MvTurnToward p, MvForward]

 performTurnToA :: Creature -> Point2 -> ActionUpdate
 performTurnToA cr p