diff -r 64e677349124 -r 043c17a8b3ca hedgewars/GSHandlers.inc --- 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);