hedgewars/HHHandlers.inc
changeset 1507 d18c67b7ad4c
parent 1505 3a96e93572cb
child 1518 4e5796fe3aac
equal deleted inserted replaced
1506:a4ab75470ce1 1507:d18c67b7ad4c
   167                                  PlaySound(sndLaugh, false)
   167                                  PlaySound(sndLaugh, false)
   168                                  end;
   168                                  end;
   169                     amSeduction: CurAmmoGear:= AddGear(hwRound(X + xx * cHHRadius * 2), hwRound(Y + yy * cHHRadius * 2), gtSeduction, 0, xx * _0_4, yy * _0_4, 0);
   169                     amSeduction: CurAmmoGear:= AddGear(hwRound(X + xx * cHHRadius * 2), hwRound(Y + yy * cHHRadius * 2), gtSeduction, 0, xx * _0_4, yy * _0_4, 0);
   170                    amWatermelon: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtWatermelon,  0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);
   170                    amWatermelon: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtWatermelon,  0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, Ammo^[CurSlot, CurAmmo].Timer);
   171                   amHellishBomb: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtHellishBomb,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 5000);
   171                   amHellishBomb: FollowGear:= AddGear(hwRound(X), hwRound(Y), gtHellishBomb,    0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 5000);
       
   172                        amNapalm: AddGear(Ammo^[CurSlot, CurAmmo].Pos, 0, gtAirAttack, 2, _0, _0, 0);
   172                   end;
   173                   end;
   173 
   174 
   174         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   175         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   175 
   176 
   176         Power:= 0;
   177         Power:= 0;