hedgewars/HHHandlers.inc
changeset 1601 0cff69c8c4cf
parent 1573 cf88e0ace609
child 1629 9f12da88d769
--- a/hedgewars/HHHandlers.inc	Thu Jan 08 15:34:51 2009 +0000
+++ b/hedgewars/HHHandlers.inc	Thu Jan 08 15:42:36 2009 +0000
@@ -171,6 +171,7 @@
                   amHellishBomb: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtHellishBomb,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 5000);
                        amNapalm: AddGear(Ammo^[CurSlot, CurAmmo].Pos, 0, gtAirAttack, 2, _0, _0, 0);
                         amDrill: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtDrill, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0);
+                        amBallgun: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtBallgun,  0, xx * _0_5, yy * _0_5, 0);
                   end;
 
         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);