equal
deleted
inserted
replaced
620 stSpawn: begin |
620 stSpawn: begin |
621 if not isInMultiShoot then SpawnBoxOfSmth; |
621 if not isInMultiShoot then SpawnBoxOfSmth; |
622 inc(step) |
622 inc(step) |
623 end; |
623 end; |
624 stNTurn: begin |
624 stNTurn: begin |
625 if isInMultiShoot then isInMultiShoot:= false |
625 if isInMultiShoot then |
|
626 isInMultiShoot:= false |
626 else begin |
627 else begin |
627 // delayed till after 0.9.12 |
628 // delayed till after 0.9.12 |
628 // reset to default zoom |
629 // reset to default zoom |
629 //ZoomValue:= ZoomDefault; |
630 //ZoomValue:= ZoomDefault; |
630 ResetUtilities; |
631 with CurrentHedgehog^ do |
631 |
632 if ((Gear^.State and gstAttacked) = 0) |
632 FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn |
633 and (MultiShootAttacks > 0) then OnUsedAmmo(CurrentHedgehog^); |
633 |
634 |
634 ParseCommand('/nextturn', true); |
635 ResetUtilities; |
635 SwitchHedgehog; |
636 |
636 |
637 FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn |
637 inc(step); // FIXME wtf is that, it overflows step, and does nothing |
638 |
638 |
639 ParseCommand('/nextturn', true); |
639 AfterSwitchHedgehog; |
640 SwitchHedgehog; |
640 bBetweenTurns:= false |
641 |
641 end; |
642 AfterSwitchHedgehog; |
|
643 bBetweenTurns:= false |
|
644 end; |
642 step:= Low(step) |
645 step:= Low(step) |
643 end; |
646 end; |
644 end; |
647 end; |
645 |
648 |
646 if TurnTimeLeft > 0 then |
649 if TurnTimeLeft > 0 then |