# HG changeset patch
# User sheepluva
# Date 1277842586 -7200
# Node ID 66e1bc1ea3a9d84c5e5622d6ed7ce44c9b705a02
# Parent  115c76f94b4aa6ffa677be008fc0513af95bb352
explosions: cache rounded X,Y values

diff -r 115c76f94b4a -r 66e1bc1ea3a9 hedgewars/VGSHandlers.inc
--- a/hedgewars/VGSHandlers.inc	Tue Jun 29 15:52:13 2010 -0400
+++ b/hedgewars/VGSHandlers.inc	Tue Jun 29 22:16:26 2010 +0200
@@ -498,11 +498,13 @@
 
 procedure doStepExplosion(Gear: PVisualGear; Steps: Longword);
 var i: LongWord;
+gX,gY: LongInt;
 begin
-
-for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
-for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
-for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2);
+gX:= hwRound(Gear^.X);
+gY:= hwRound(Gear^.Y);
+for i:= 0 to 31 do AddVisualGear(gX, gY, vgtFire);
+for i:= 0 to  8 do AddVisualGear(gX, gY, vgtExplPart);
+for i:= 0 to  8 do AddVisualGear(gX, gY, vgtExplPart2);
 Gear^.doStep:= @doStepExplosionWork;
 if Steps > 1 then Gear^.doStep(Gear, Steps-1);
 end;