hedgewars/HHHandlers.inc
changeset 1507 d18c67b7ad4c
parent 1505 3a96e93572cb
child 1518 4e5796fe3aac
--- a/hedgewars/HHHandlers.inc	Fri Nov 21 21:47:51 2008 +0000
+++ b/hedgewars/HHHandlers.inc	Sat Nov 22 14:39:14 2008 +0000
@@ -169,6 +169,7 @@
                     amSeduction: CurAmmoGear:= AddGear(hwRound(X + xx * cHHRadius * 2), hwRound(Y + yy * cHHRadius * 2), gtSeduction, 0, xx * _0_4, yy * _0_4, 0);
                    amWatermelon: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtWatermelon,  0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);
                   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);
                   end;
 
         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);