hedgewars/uGearsUtils.pas
changeset 14030 d203bb36225f
parent 14029 967ed77d6aef
child 14035 f09276eb0c27
equal deleted inserted replaced
14029:967ed77d6aef 14030:d203bb36225f
  1320 while i > 0 do
  1320 while i > 0 do
  1321     begin
  1321     begin
  1322     dec(i);
  1322     dec(i);
  1323     Gear:= t^.ar[i];
  1323     Gear:= t^.ar[i];
  1324     if (Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet,
  1324     if (Ammo^.Kind in [gtDEagleShot, gtSniperRifleShot, gtMinigunBullet,
  1325                        gtFirePunch, gtKamikaze, gtWhip])
  1325                        gtFirePunch, gtKamikaze, gtWhip, gtShover])
  1326         and (((Ammo^.Data <> nil) and (PGear(Ammo^.Data) = Gear))
  1326         and (((Ammo^.Data <> nil) and (PGear(Ammo^.Data) = Gear))
  1327              or (not UpdateHitOrder(Gear, Ammo^.WDTimer))) then
  1327              or (not UpdateHitOrder(Gear, Ammo^.WDTimer))) then
  1328         continue;
  1328         continue;
  1329 
  1329 
  1330     if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and
  1330     if ((Ammo^.Kind = gtFlame) or (Ammo^.Kind = gtBlowTorch)) and