# HG changeset patch
# User nemo
# Date 1277841133 14400
# Node ID 115c76f94b4aa6ffa677be008fc0513af95bb352
# Parent  eca835df4106111a1c267ddeafef0d19ee1ac224# Parent  eb3b6cc490e1ee2ea17d6c5dbc7de097ea992656
Dammit. Forgot to pull/rebase before making the VG change

diff -r eb3b6cc490e1 -r 115c76f94b4a hedgewars/VGSHandlers.inc
--- a/hedgewars/VGSHandlers.inc	Tue Jun 29 18:06:50 2010 +0200
+++ b/hedgewars/VGSHandlers.inc	Tue Jun 29 15:52:13 2010 -0400
@@ -472,7 +472,6 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepSmokeTrace(Gear: PVisualGear; Steps: Longword);
-var i: Longword;
 begin
 inc(Gear^.Timer, Steps );
 if Gear^.Timer > 64 then
@@ -480,11 +479,8 @@
     dec(Gear^.State, Gear^.Timer div 65);
     Gear^.Timer:= Gear^.Timer mod 65;
     end;
-for i:= 1 to Steps do
-    begin
-    Gear^.dX:= Gear^.dX + cWindSpeed;
-    Gear^.X:= Gear^.X + Gear^.dX;
-    end;
+Gear^.dX:= Gear^.dX + cWindSpeed * Steps;
+Gear^.X:= Gear^.X + Gear^.dX;
 if Gear^.State = 0 then DeleteVisualGear(Gear);
 end;
 
@@ -514,7 +510,7 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepBigExplosionWork(Gear: PVisualGear; Steps: Longword);
-var maxMovement: LongInt;
+//var maxMovement: LongInt;
 begin
 
 inc(Gear^.Timer, Steps);