# HG changeset patch
# User nemo
# Date 1277841034 14400
# Node ID eca835df4106111a1c267ddeafef0d19ee1ac224
# Parent  64ab042084a24c2bd20793be0f4b466ba48d2aa3
Optimise vgtSmokeTrace/vgtEvilTrace handler

diff -r 64ab042084a2 -r eca835df4106 hedgewars/VGSHandlers.inc
--- a/hedgewars/VGSHandlers.inc	Tue Jun 29 10:18:51 2010 -0400
+++ b/hedgewars/VGSHandlers.inc	Tue Jun 29 15:50:34 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);