hedgewars/uGearsUtils.pas
changeset 14005 31bdb759d98b
parent 14001 fd336864382e
child 14006 105793e575d6
equal deleted inserted replaced
14004:97e48a6c2535 14005:31bdb759d98b
  1318     Ammo^.Health:= 0;
  1318     Ammo^.Health:= 0;
  1319 while i > 0 do
  1319 while i > 0 do
  1320     begin
  1320     begin
  1321     dec(i);
  1321     dec(i);
  1322     Gear:= t^.ar[i];
  1322     Gear:= t^.ar[i];
  1323     if (Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet])
  1323     if (Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet, gtFirePunch])
  1324         and (((Ammo^.Data <> nil) and (PGear(Ammo^.Data) = Gear))
  1324         and (((Ammo^.Data <> nil) and (PGear(Ammo^.Data) = Gear))
  1325              or (not UpdateHitOrder(Gear, Ammo^.WDTimer))) then
  1325              or (not UpdateHitOrder(Gear, Ammo^.WDTimer))) then
  1326         continue;
  1326         continue;
  1327 
  1327 
  1328     if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and
  1328     if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and