Optimise vgtSmokeTrace/vgtEvilTrace handler
authornemo
Tue, 29 Jun 2010 15:50:34 -0400
changeset 3587 eca835df4106
parent 3586 64ab042084a2
child 3589 115c76f94b4a
Optimise vgtSmokeTrace/vgtEvilTrace handler
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);