--- a/hedgewars/GSHandlers.inc Sun Oct 07 00:12:46 2012 +0400
+++ b/hedgewars/GSHandlers.inc Sun Oct 07 11:59:42 2012 -0400
@@ -315,14 +315,14 @@
CheckCollision(Gear);
if (Gear^.State and gstCollision) <> 0 then
doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLDontDraw or EXPLNoGfx);
- end;
+ end;
if (Gear^.Kind = gtGasBomb) and ((GameTicks mod 200) = 0) then
begin
vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeWhite);
if vg <> nil then
vg^.Tint:= $FFC0C000;
- end;
+ end;
if Gear^.Timer = 0 then
begin
@@ -386,10 +386,10 @@
FollowGear:= AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0);
end
end;
+ end;
+ DeleteGear(Gear);
+ exit
end;
- DeleteGear(Gear);
- exit
- end;
CalcRotationDirAngle(Gear);