hedgewars/GSHandlers.inc
changeset 5016 9347d82a26cc
parent 5013 04789ba3f200
child 5024 1e332947147c
--- a/hedgewars/GSHandlers.inc	Thu Mar 17 16:19:03 2011 +0100
+++ b/hedgewars/GSHandlers.inc	Thu Mar 17 23:11:48 2011 +0100
@@ -3237,7 +3237,11 @@
 
         AfterAttack;
         CurAmmoGear := nil;
-        if (GameFlags and gfInfAttack) = 0 then TurnTimeLeft := 14 * 125;
+        if (GameFlags and gfInfAttack) = 0 then
+            begin
+            if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;
+            TurnTimeLeft:= 14 * 125;
+            end;
 
         HHGear^.Message := 0;
         ParseCommand('/taunt '#1, true)
@@ -4078,6 +4082,7 @@
                 CurrentHedgehog^.Gear^.X := Gear^.X;
                 CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128;
                 CurrentHedgehog^.Unplaced := false;
+                if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;
                 TurnTimeLeft:= 0
             end;
             ResumeMusic
@@ -4097,6 +4102,7 @@
             CurrentHedgehog^.Gear^.X := Gear^.X;
             CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128;
             CurrentHedgehog^.Unplaced := false;
+            if TagTurnTimeLeft = 0 then TagTurnTimeLeft:= TurnTimeLeft;
             TurnTimeLeft:= 0
         end;
         ResumeMusic