hedgewars/HHHandlers.inc
changeset 5016 9347d82a26cc
parent 5013 04789ba3f200
child 5024 1e332947147c
--- a/hedgewars/HHHandlers.inc	Thu Mar 17 16:19:03 2011 +0100
+++ b/hedgewars/HHHandlers.inc	Thu Mar 17 23:11:48 2011 +0100
@@ -379,7 +379,10 @@
             begin
             OnUsedAmmo(CurrentHedgehog^);
             if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and ((GameFlags and gfInfAttack) = 0) then
+                begin
+                if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;
                 TurnTimeLeft:= Ammoz[a].TimeAfterTurn;
+                end;
             if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) then State:= State or gstAttacked;
             if (Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) <> 0 then ApplyAmmoChanges(CurrentHedgehog^)
             end;
@@ -793,6 +796,7 @@
 
 if (TurnTimeLeft = 0) or (HHGear^.Damage > 0) then
     begin
+    if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;
     TurnTimeLeft:= 0;
     isCursorVisible:= false;
     HHGear^.State:= HHGear^.State and not (gstHHDriven or gstAnimation or gstAttacking);