hedgewars/uGearsUtils.pas
changeset 14337 94e50f346c57
parent 14336 9e8e64b2bb9e
child 14514 5ac181cb2396
equal deleted inserted replaced
14336:9e8e64b2bb9e 14337:94e50f346c57
  1334 while i > 0 do
  1334 while i > 0 do
  1335     begin
  1335     begin
  1336     dec(i);
  1336     dec(i);
  1337     Gear:= t^.ar[i];
  1337     Gear:= t^.ar[i];
  1338     if (Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet,
  1338     if (Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet,
  1339                        gtFirePunch, gtKamikaze, gtWhip, gtShover, gtBlowtorch])
  1339                        gtFirePunch, gtKamikaze, gtWhip, gtShover])
  1340         and (((Ammo^.Data <> nil) and (PGear(Ammo^.Data) = Gear))
  1340         and (((Ammo^.Data <> nil) and (PGear(Ammo^.Data) = Gear))
  1341              or (not UpdateHitOrder(Gear, Ammo^.WDTimer))) then
  1341              or (not UpdateHitOrder(Gear, Ammo^.WDTimer))) then
  1342         continue;
  1342         continue;
  1343 
  1343 
  1344     if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and
  1344     if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and