hedgewars/GSHandlers.inc
changeset 5218 bc31676ae108
parent 5197 9fa96377a69c
child 5221 632c42555a01
--- a/hedgewars/GSHandlers.inc	Fri May 27 23:18:23 2011 +0400
+++ b/hedgewars/GSHandlers.inc	Sat May 28 16:59:09 2011 -0400
@@ -1005,9 +1005,9 @@
 procedure doStepDEagleShot(Gear: PGear);
 begin
     PlaySound(sndGun);
-    // add an initial step to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths
-    Gear^.X := Gear^.X + Gear^.dX;  
-    Gear^.Y := Gear^.Y + Gear^.dY;
+    // add 2 initial steps to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths
+    Gear^.X := Gear^.X + _2*Gear^.dX;  
+    Gear^.Y := Gear^.Y + _2*Gear^.dY;
     Gear^.doStep := @doStepBulletWork
 end;