er. this one too
authornemo
Tue, 26 Jun 2012 11:08:33 -0400
changeset 7296 fb5b7cb58a67
parent 7293 468cf6d561e5
child 7298 a5f2fa95e711
er. this one too
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Tue Jun 26 10:14:40 2012 -0400
+++ b/hedgewars/GSHandlers.inc	Tue Jun 26 11:08:33 2012 -0400
@@ -3437,7 +3437,7 @@
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepBallgunWork(Gear: PGear);
 var 
-    HHGear: PGear;
+    HHGear, ball: PGear;
     rx, ry: hwFloat;
     gX, gY: LongInt;
 begin
@@ -3452,7 +3452,8 @@
         rx := rndSign(getRandomf * _0_1);
         ry := rndSign(getRandomf * _0_1);
 
-        AddGear(gx, gy, gtBall, 0, SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX) + rx, AngleCos(HHGear^.Angle) * ( - _0_8) + ry, 0);
+        ball:= AddGear(gx, gy, gtBall, 0, SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX) + rx, AngleCos(HHGear^.Angle) * ( - _0_8) + ry, 0);
+        ball^.CollisionMask:= $FF7F;
 
         PlaySound(sndGun);
         end;