hedgewars/uGearsUtils.pas
changeset 14357 9e8e64b2bb9e
parent 14313 1d4f1d700cdc
child 14358 94e50f346c57
equal deleted inserted replaced
14356:97be4f6bf264 14357:9e8e64b2bb9e
  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])
  1339                        gtFirePunch, gtKamikaze, gtWhip, gtShover, gtBlowtorch])
  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