hedgewars/GSHandlers.inc
changeset 3484 3c65b1d979cd
parent 3483 54ff8cbabaa6
child 3485 ab91c56a9050
--- a/hedgewars/GSHandlers.inc	Fri May 28 16:21:54 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Fri May 28 19:48:51 2010 +0000
@@ -2612,8 +2612,8 @@
     dec(Gear^.Timer);
     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
     HedgehogChAngle(HHGear);
-    gX := hwRound(Gear^.X);
-    gY := hwRound(Gear^.Y);
+    gX := hwRound(Gear^.X) + GetLaunchX(amBallgun, hwSign(HHGear^.dX), HHGear^.Angle);
+    gY := hwRound(Gear^.Y) + GetLaunchY(amBallgun, HHGear^.Angle);
     if (Gear^.Timer mod 100) = 0 then
     begin
         rx := rndSign(getRandom * _0_1);
@@ -3639,8 +3639,8 @@
     dec(Gear^.Timer);
     HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
     HedgehogChAngle(HHGear);
-    gX := hwRound(Gear^.X);
-    gY := hwRound(Gear^.Y);
+    gX := hwRound(Gear^.X) + GetLaunchX(amBallgun, hwSign(HHGear^.dX), HHGear^.Angle);
+    gY := hwRound(Gear^.Y) + GetLaunchY(amBallgun, HHGear^.Angle);
     if (Gear^.Timer mod 100) = 0 then
     begin
         rx := rndSign(getRandom * _0_1);