hedgewars/uGearsUtils.pas
changeset 14008 967ed77d6aef
parent 14007 cfbea054754c
child 14009 d203bb36225f
equal deleted inserted replaced
14007:cfbea054754c 14008:967ed77d6aef
  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])
  1325                        gtFirePunch, gtKamikaze, gtWhip])
  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