hedgewars/GSHandlers.inc
changeset 1697 ea3eddd73f2c
parent 1696 bb1e305320a1
child 1698 993c42413387
--- a/hedgewars/GSHandlers.inc	Sun Jan 18 13:01:49 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jan 18 13:02:38 2009 +0000
@@ -2036,10 +2036,16 @@
 		end;
 	DeleteGear(Gear);
 	AfterAttack;
+	TurnTimeLeft:= 14 * 125;
+	ParseCommand('/taunt '#1, true)
 	end;
 
 if CheckGearDrowning(Gear) then
-	AfterAttack
+	begin
+	AfterAttack;
+	TurnTimeLeft:= 14 * 125;
+	ParseCommand('/taunt '#1, true)
+	end
 end;
 
 procedure doStepRCPlane(Gear: PGear);