hedgewars/GSHandlers.inc
changeset 1295 27bec661581c
parent 1286 a02a5345b91e
child 1297 78670b0c4a23
--- a/hedgewars/GSHandlers.inc	Sun Sep 28 21:56:37 2008 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Sep 28 22:39:07 2008 +0000
@@ -1097,14 +1097,15 @@
 	end else begin
 	if Gear^.Timer > 0 then dec(Gear^.Timer)
 		else begin
-//		doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 2, 0);
+		AmmoShove(Gear, 5, 5);
+		doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 3, 0);
 		dec(Gear^.Health);
 		Gear^.Timer:= 1250 - Gear^.Angle * 12
 		end
 	end;
 
-if (((GameTicks div 8) mod 64) = Gear^.Angle) then
-	AmmoFlameWork(Gear);
+//if (((GameTicks div 8) mod 64) = Gear^.Tag) then
+//	AmmoFlameWork(Gear);
 
 if Gear^.Health = 0 then
 	DeleteGear(Gear)