hedgewars/GSHandlers.inc
changeset 4160 043c17a8b3ca
parent 4155 9160dbe77118
child 4168 49ad7bea4a33
--- a/hedgewars/GSHandlers.inc	Sun Nov 07 16:41:03 2010 +0300
+++ b/hedgewars/GSHandlers.inc	Sun Nov 07 17:01:48 2010 +0300
@@ -422,7 +422,11 @@
                 begin
                 doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
                 for i:= 0 to 2 do
-                    AddGear(int64(hwRound(Gear^.X)) - 30 + GetRandom(60), int64(hwRound(Gear^.Y)) - 20 + GetRandom(40), gtPoisonCloud, 0, _0, _0, 0);
+                    begin
+                    x:= GetRandom(60);
+                    y:= GetRandom(40);
+                    AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0);
+                    end
                 end;
         end;
     DeleteGear(Gear);