Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/VGSHandlers.inc
changeset 7808 cc1805cd9138
parent 7644 ed7fecd0f5fd
child 8026 4a4f21070479
child 8204 9a6030d96273 
--- a/hedgewars/VGSHandlers.inc	Wed Oct 24 04:21:29 2012 +0200
+++ b/hedgewars/VGSHandlers.inc	Wed Oct 24 12:41:46 2012 +0400
@@ -157,10 +157,12 @@
 
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepExpl(Gear: PVisualGear; Steps: Longword);
+var s: LongInt;
 begin
-Gear^.X:= Gear^.X + Gear^.dX * Steps;
+s:= min(Steps, cExplFrameTicks);
 
-Gear^.Y:= Gear^.Y + Gear^.dY * Steps;
+Gear^.X:= Gear^.X + Gear^.dX * s;
+Gear^.Y:= Gear^.Y + Gear^.dY * s;
 //Gear^.dY:= Gear^.dY + cGravityf;
 
 if Gear^.FrameTicks <= Steps then
hedgewars