group_cmd.cpp

Go to the documentation of this file.

/*
 * This file is part of OpenTTD.
 * OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
 * OpenTTD is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 * See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
 */
 
#include "stdafx.h"
#include "command_func.h"
#include "train.h"
#include "vehiclelist.h"
#include "vehicle_func.h"
#include "autoreplace_base.h"
#include "autoreplace_func.h"
#include "string_func.h"
#include "company_func.h"
#include "core/pool_func.hpp"
#include "order_backup.h"
#include "group_cmd.h"
 
#include "table/strings.h"
 
#include "safeguards.h"
 
GroupPool _group_pool("Group");
INSTANTIATE_POOL_METHODS(Group)
 
 
void GroupStatistics::Clear()
{
  this->num_vehicle = 0;
  this->profit_last_year = 0;
  this->num_vehicle_min_age = 0;
  this->profit_last_year_min_age = 0;
 
  /* This is also called when NewGRF change. So the number of engines might have changed. Reset. */
  this->num_engines.clear();
}
 
uint16_t GroupStatistics::GetNumEngines(EngineID engine) const
{
  auto found = this->num_engines.find(engine);
  if (found != std::end(this->num_engines)) return found->second;
  return 0;
}
 
/* static */ GroupStatistics &GroupStatistics::Get(CompanyID company, GroupID id_g, VehicleType type)
{
  if (Group::IsValidID(id_g)) {
    Group *g = Group::Get(id_g);
    assert(g->owner == company);
    assert(g->vehicle_type == type);
    return g->statistics;
  }
 
  if (IsDefaultGroupID(id_g)) return Company::Get(company)->group_default[type];
  if (IsAllGroupID(id_g)) return Company::Get(company)->group_all[type];
 
  NOT_REACHED();
}
 
/* static */ GroupStatistics &GroupStatistics::Get(const Vehicle *v)
{
  return GroupStatistics::Get(v->owner, v->group_id, v->type);
}
 
/* static */ GroupStatistics &GroupStatistics::GetAllGroup(const Vehicle *v)
{
  return GroupStatistics::Get(v->owner, ALL_GROUP, v->type);
}
 
/* static */ void GroupStatistics::UpdateAfterLoad()
{
  /* Set up the engine count for all companies */
  for (Company *c : Company::Iterate()) {
    for (VehicleType type = VEH_BEGIN; type < VEH_COMPANY_END; type++) {
      c->group_all[type].Clear();
      c->group_default[type].Clear();
    }
  }
 
  /* Recalculate */
  for (Group *g : Group::Iterate()) {
    g->statistics.Clear();
  }
 
  for (const Vehicle *v : Vehicle::Iterate()) {
    if (!v->IsEngineCountable()) continue;
 
    GroupStatistics::CountEngine(v, 1);
    if (v->IsPrimaryVehicle()) GroupStatistics::CountVehicle(v, 1);
  }
 
  for (const Company *c : Company::Iterate()) {
    GroupStatistics::UpdateAutoreplace(c->index);
  }
}
 
/* static */ void GroupStatistics::CountVehicle(const Vehicle *v, int delta)
{
  assert(delta == 1 || delta == -1);
 
  GroupStatistics &stats_all = GroupStatistics::GetAllGroup(v);
  GroupStatistics &stats = GroupStatistics::Get(v);
 
  stats_all.num_vehicle += delta;
  stats_all.profit_last_year += v->GetDisplayProfitLastYear() * delta;
  stats.num_vehicle += delta;
  stats.profit_last_year += v->GetDisplayProfitLastYear() * delta;
 
  if (v->economy_age > VEHICLE_PROFIT_MIN_AGE) {
    stats_all.num_vehicle_min_age += delta;
    stats_all.profit_last_year_min_age += v->GetDisplayProfitLastYear() * delta;
    stats.num_vehicle_min_age += delta;
    stats.profit_last_year_min_age += v->GetDisplayProfitLastYear() * delta;
  }
}
 
/* static */ void GroupStatistics::CountEngine(const Vehicle *v, int delta)
{
  assert(delta == 1 || delta == -1);
  GroupStatistics::GetAllGroup(v).num_engines[v->engine_type] += delta;
  GroupStatistics::Get(v).num_engines[v->engine_type] += delta;
}
 
/* static */ void GroupStatistics::AddProfitLastYear(const Vehicle *v)
{
  GroupStatistics &stats_all = GroupStatistics::GetAllGroup(v);
  GroupStatistics &stats = GroupStatistics::Get(v);
 
  stats_all.profit_last_year += v->GetDisplayProfitLastYear();
  stats.profit_last_year += v->GetDisplayProfitLastYear();
}
 
/* static */ void GroupStatistics::VehicleReachedMinAge(const Vehicle *v)
{
  GroupStatistics &stats_all = GroupStatistics::GetAllGroup(v);
  GroupStatistics &stats = GroupStatistics::Get(v);
 
  stats_all.num_vehicle_min_age++;
  stats_all.profit_last_year_min_age += v->GetDisplayProfitLastYear();
  stats.num_vehicle_min_age++;
  stats.profit_last_year_min_age += v->GetDisplayProfitLastYear();
}
 
/* static */ void GroupStatistics::UpdateProfits()
{
  /* Set up the engine count for all companies */
  for (Company *c : Company::Iterate()) {
    for (VehicleType type = VEH_BEGIN; type < VEH_COMPANY_END; type++) {
      c->group_all[type].ClearProfits();
      c->group_default[type].ClearProfits();
    }
  }
 
  /* Recalculate */
  for (Group *g : Group::Iterate()) {
    g->statistics.ClearProfits();
  }
 
  for (const Vehicle *v : Vehicle::Iterate()) {
    if (v->IsPrimaryVehicle()) {
      GroupStatistics::AddProfitLastYear(v);
      if (v->economy_age > VEHICLE_PROFIT_MIN_AGE) GroupStatistics::VehicleReachedMinAge(v);
    }
  }
}
 
/* static */ void GroupStatistics::UpdateAutoreplace(CompanyID company)
{
  /* Set up the engine count for all companies */
  Company *c = Company::Get(company);
  for (VehicleType type = VEH_BEGIN; type < VEH_COMPANY_END; type++) {
    c->group_all[type].ClearAutoreplace();
    c->group_default[type].ClearAutoreplace();
  }
 
  /* Recalculate */
  for (Group *g : Group::Iterate()) {
    if (g->owner != company) continue;
    g->statistics.ClearAutoreplace();
  }
 
  for (EngineRenewList erl = c->engine_renew_list; erl != nullptr; erl = erl->next) {
    const Engine *e = Engine::Get(erl->from);
    GroupStatistics &stats = GroupStatistics::Get(company, erl->group_id, e->type);
    if (!stats.autoreplace_defined) {
      stats.autoreplace_defined = true;
      stats.autoreplace_finished = true;
    }
    if (GetGroupNumEngines(company, erl->group_id, erl->from) > 0) stats.autoreplace_finished = false;
  }
}
 
static inline void UpdateNumEngineGroup(const Vehicle *v, GroupID old_g, GroupID new_g)
{
  if (old_g != new_g) {
    /* Decrease the num engines in the old group */
    GroupStatistics::Get(v->owner, old_g, v->type).num_engines[v->engine_type]--;
 
    /* Increase the num engines in the new group */
    GroupStatistics::Get(v->owner, new_g, v->type).num_engines[v->engine_type]++;
  }
}
 
 
const Livery *GetParentLivery(const Group *g)
{
  if (g->parent == GroupID::Invalid()) {
    const Company *c = Company::Get(g->owner);
    return &c->livery[LS_DEFAULT];
  }
 
  const Group *pg = Group::Get(g->parent);
  return &pg->livery;
}
 
 
static void PropagateChildLivery(const Group *g, bool reset_cache)
{
  if (reset_cache) {
    /* Company colour data is indirectly cached. */
    for (Vehicle *v : Vehicle::Iterate()) {
      if (v->group_id == g->index && (!v->IsGroundVehicle() || v->IsFrontEngine())) {
        for (Vehicle *u = v; u != nullptr; u = u->Next()) {
          u->colourmap = PAL_NONE;
          u->InvalidateNewGRFCache();
        }
      }
    }
  }
 
  for (Group *cg : Group::Iterate()) {
    if (cg->parent == g->index) {
      if (!HasBit(cg->livery.in_use, 0)) cg->livery.colour1 = g->livery.colour1;
      if (!HasBit(cg->livery.in_use, 1)) cg->livery.colour2 = g->livery.colour2;
      PropagateChildLivery(cg, reset_cache);
    }
  }
}
 
void UpdateCompanyGroupLiveries(const Company *c)
{
  for (Group *g : Group::Iterate()) {
    if (g->owner == c->index && g->parent == GroupID::Invalid()) {
      if (!HasBit(g->livery.in_use, 0)) g->livery.colour1 = c->livery[LS_DEFAULT].colour1;
      if (!HasBit(g->livery.in_use, 1)) g->livery.colour2 = c->livery[LS_DEFAULT].colour2;
      PropagateChildLivery(g, false);
    }
  }
}
 
 
std::tuple<CommandCost, GroupID> CmdCreateGroup(DoCommandFlags flags, VehicleType vt, GroupID parent_group)
{
  if (!IsCompanyBuildableVehicleType(vt)) return { CMD_ERROR, GroupID::Invalid() };
 
  if (!Group::CanAllocateItem()) return { CMD_ERROR, GroupID::Invalid() };
 
  const Group *pg = Group::GetIfValid(parent_group);
  if (pg != nullptr) {
    if (pg->owner != _current_company) return { CMD_ERROR, GroupID::Invalid() };
    if (pg->vehicle_type != vt) return { CMD_ERROR, GroupID::Invalid() };
  }
 
  if (flags.Test(DoCommandFlag::Execute)) {
    Group *g = new Group(_current_company, vt);
 
    Company *c = Company::Get(g->owner);
    g->number = c->freegroups.UseID(c->freegroups.NextID());
    if (pg == nullptr) {
      g->livery.colour1 = c->livery[LS_DEFAULT].colour1;
      g->livery.colour2 = c->livery[LS_DEFAULT].colour2;
      if (c->settings.renew_keep_length) g->flags.Set(GroupFlag::ReplaceWagonRemoval);
    } else {
      g->parent = pg->index;
      g->livery.colour1 = pg->livery.colour1;
      g->livery.colour2 = pg->livery.colour2;
      g->flags = pg->flags;
    }
 
    InvalidateWindowData(GetWindowClassForVehicleType(vt), VehicleListIdentifier(VL_GROUP_LIST, vt, _current_company).ToWindowNumber());
    InvalidateWindowData(WC_COMPANY_COLOUR, g->owner, g->vehicle_type);
 
    return { CommandCost(), g->index };
  }
 
  return { CommandCost(), GroupID::Invalid()};
}
 
 
CommandCost CmdDeleteGroup(DoCommandFlags flags, GroupID group_id)
{
  Group *g = Group::GetIfValid(group_id);
  if (g == nullptr || g->owner != _current_company) return CMD_ERROR;
 
  /* Remove all vehicles from the group */
  Command<CMD_REMOVE_ALL_VEHICLES_GROUP>::Do(flags, group_id);
 
  /* Delete sub-groups */
  for (const Group *gp : Group::Iterate()) {
    if (gp->parent == g->index) {
      Command<CMD_DELETE_GROUP>::Do(flags, gp->index);
    }
  }
 
  if (flags.Test(DoCommandFlag::Execute)) {
    /* Update backupped orders if needed */
    OrderBackup::ClearGroup(g->index);
 
    if (g->owner < MAX_COMPANIES) {
      Company *c = Company::Get(g->owner);
 
      /* If we set an autoreplace for the group we delete, remove it. */
      for (EngineRenew *er : EngineRenew::Iterate()) {
        if (er->group_id == g->index) RemoveEngineReplacementForCompany(c, er->from, g->index, flags);
      }
 
      c->freegroups.ReleaseID(g->number);
    }
 
    VehicleType vt = g->vehicle_type;
 
    /* Delete the Replace Vehicle Windows */
    CloseWindowById(WC_REPLACE_VEHICLE, g->vehicle_type);
    delete g;
 
    InvalidateWindowData(GetWindowClassForVehicleType(vt), VehicleListIdentifier(VL_GROUP_LIST, vt, _current_company).ToWindowNumber());
    InvalidateWindowData(WC_COMPANY_COLOUR, _current_company, vt);
  }
 
  return CommandCost();
}
 
CommandCost CmdAlterGroup(DoCommandFlags flags, AlterGroupMode mode, GroupID group_id, GroupID parent_id, const std::string &text)
{
  Group *g = Group::GetIfValid(group_id);
  if (g == nullptr || g->owner != _current_company) return CMD_ERROR;
 
  if (mode == AlterGroupMode::Rename) {
    /* Rename group */
    bool reset = text.empty();
 
    if (!reset) {
      if (Utf8StringLength(text) >= MAX_LENGTH_GROUP_NAME_CHARS) return CMD_ERROR;
    }
 
    if (flags.Test(DoCommandFlag::Execute)) {
      /* Assign the new one */
      if (reset) {
        g->name.clear();
      } else {
        g->name = text;
      }
    }
  } else if (mode == AlterGroupMode::SetParent) {
    /* Set group parent */
    const Group *pg = Group::GetIfValid(parent_id);
 
    if (pg != nullptr) {
      if (pg->owner != _current_company) return CMD_ERROR;
      if (pg->vehicle_type != g->vehicle_type) return CMD_ERROR;
 
      /* Ensure request parent isn't child of group.
       * This is the only place that infinite loops are prevented. */
      if (GroupIsInGroup(pg->index, g->index)) return CommandCost(STR_ERROR_GROUP_CAN_T_SET_PARENT_RECURSION);
    }
 
    if (flags.Test(DoCommandFlag::Execute)) {
      g->parent = (pg == nullptr) ? GroupID::Invalid() : pg->index;
      GroupStatistics::UpdateAutoreplace(g->owner);
 
      if (!HasBit(g->livery.in_use, 0) || !HasBit(g->livery.in_use, 1)) {
        /* Update livery with new parent's colours if either colour is default. */
        const Livery *livery = GetParentLivery(g);
        if (!HasBit(g->livery.in_use, 0)) g->livery.colour1 = livery->colour1;
        if (!HasBit(g->livery.in_use, 1)) g->livery.colour2 = livery->colour2;
 
        PropagateChildLivery(g, true);
        MarkWholeScreenDirty();
      }
    }
  } else {
    return CMD_ERROR;
  }
 
  if (flags.Test(DoCommandFlag::Execute)) {
    InvalidateWindowData(WC_REPLACE_VEHICLE, g->vehicle_type, 1);
    InvalidateWindowData(GetWindowClassForVehicleType(g->vehicle_type), VehicleListIdentifier(VL_GROUP_LIST, g->vehicle_type, _current_company).ToWindowNumber());
    InvalidateWindowData(WC_COMPANY_COLOUR, g->owner, g->vehicle_type);
    InvalidateWindowClassesData(WC_VEHICLE_VIEW);
    InvalidateWindowClassesData(WC_VEHICLE_DETAILS);
  }
 
  return CommandCost();
}
 
 
static void AddVehicleToGroup(Vehicle *v, GroupID new_g)
{
  GroupStatistics::CountVehicle(v, -1);
 
  switch (v->type) {
    default: NOT_REACHED();
    case VEH_TRAIN:
      SetTrainGroupID(Train::From(v), new_g);
      break;
 
    case VEH_ROAD:
    case VEH_SHIP:
    case VEH_AIRCRAFT:
      if (v->IsEngineCountable()) UpdateNumEngineGroup(v, v->group_id, new_g);
      v->group_id = new_g;
      for (Vehicle *u = v; u != nullptr; u = u->Next()) {
        u->colourmap = PAL_NONE;
        u->InvalidateNewGRFCache();
        u->UpdateViewport(true);
      }
      break;
  }
 
  GroupStatistics::CountVehicle(v, 1);
}
 
std::tuple<CommandCost, GroupID> CmdAddVehicleGroup(DoCommandFlags flags, GroupID group_id, VehicleID veh_id, bool add_shared, const VehicleListIdentifier &vli)
{
  GroupID new_g = group_id;
  if (!Group::IsValidID(new_g) && !IsDefaultGroupID(new_g) && new_g != NEW_GROUP) return { CMD_ERROR, GroupID::Invalid() };
 
  VehicleList list;
  if (veh_id == VehicleID::Invalid() && vli.Valid()) {
    if (!GenerateVehicleSortList(&list, vli) || list.empty()) return { CMD_ERROR, GroupID::Invalid() };
  } else {
    Vehicle *v = Vehicle::GetIfValid(veh_id);
    if (v == nullptr) return { CMD_ERROR, GroupID::Invalid() };
    list.push_back(v);
  }
 
  VehicleType vtype = list.front()->type;
  for (const Vehicle *v : list) {
    if (v->owner != _current_company || !v->IsPrimaryVehicle()) return { CMD_ERROR, GroupID::Invalid() };
  }
 
  if (Group::IsValidID(new_g)) {
    Group *g = Group::Get(new_g);
    if (g->owner != _current_company || g->vehicle_type != vtype) return { CMD_ERROR, GroupID::Invalid() };
  }
 
  if (new_g == NEW_GROUP) {
    /* Create new group. */
    auto [ret, new_group_id] = CmdCreateGroup(flags, vtype, GroupID::Invalid());
    if (ret.Failed()) return { ret, new_group_id };
 
    new_g = new_group_id;
  }
 
  if (flags.Test(DoCommandFlag::Execute)) {
    for (const Vehicle *vc : list) {
      /* VehicleList is const but we need to modify the vehicle. */
      Vehicle *v = Vehicle::Get(vc->index);
      AddVehicleToGroup(v, new_g);
 
      if (add_shared) {
        /* Add vehicles in the shared order list as well. */
        for (Vehicle *v2 = v->FirstShared(); v2 != nullptr; v2 = v2->NextShared()) {
          if (v2->group_id != new_g) AddVehicleToGroup(v2, new_g);
        }
      }
 
      SetWindowDirty(WC_VEHICLE_DEPOT, v->tile);
      SetWindowDirty(WC_VEHICLE_VIEW, v->index);
      SetWindowDirty(WC_VEHICLE_DETAILS, v->index);
      InvalidateWindowData(WC_VEHICLE_VIEW, v->index);
      InvalidateWindowData(WC_VEHICLE_DETAILS, v->index);
    }
 
    GroupStatistics::UpdateAutoreplace(_current_company);
 
    /* Update the Replace Vehicle Windows */
    SetWindowDirty(WC_REPLACE_VEHICLE, vtype);
    InvalidateWindowData(GetWindowClassForVehicleType(vtype), VehicleListIdentifier(VL_GROUP_LIST, vtype, _current_company).ToWindowNumber());
  }
 
  return { CommandCost(), new_g };
}
 
CommandCost CmdAddSharedVehicleGroup(DoCommandFlags flags, GroupID id_g, VehicleType type)
{
  if (!Group::IsValidID(id_g) || !IsCompanyBuildableVehicleType(type)) return CMD_ERROR;
 
  if (flags.Test(DoCommandFlag::Execute)) {
    /* Find the first front engine which belong to the group id_g
     * then add all shared vehicles of this front engine to the group id_g */
    for (const Vehicle *v : Vehicle::Iterate()) {
      if (v->type == type && v->IsPrimaryVehicle()) {
        if (v->group_id != id_g) continue;
 
        /* For each shared vehicles add it to the group */
        for (Vehicle *v2 = v->FirstShared(); v2 != nullptr; v2 = v2->NextShared()) {
          if (v2->group_id != id_g) Command<CMD_ADD_VEHICLE_GROUP>::Do(flags, id_g, v2->index, false, VehicleListIdentifier{});
        }
      }
    }
 
    InvalidateWindowData(GetWindowClassForVehicleType(type), VehicleListIdentifier(VL_GROUP_LIST, type, _current_company).ToWindowNumber());
  }
 
  return CommandCost();
}
 
 
CommandCost CmdRemoveAllVehiclesGroup(DoCommandFlags flags, GroupID group_id)
{
  Group *g = Group::GetIfValid(group_id);
 
  if (g == nullptr || g->owner != _current_company) return CMD_ERROR;
 
  if (flags.Test(DoCommandFlag::Execute)) {
    /* Find each Vehicle that belongs to the group old_g and add it to the default group */
    for (const Vehicle *v : Vehicle::Iterate()) {
      if (v->IsPrimaryVehicle()) {
        if (v->group_id != group_id) continue;
 
        /* Add The Vehicle to the default group */
        Command<CMD_ADD_VEHICLE_GROUP>::Do(flags, DEFAULT_GROUP, v->index, false, VehicleListIdentifier{});
      }
    }
 
    InvalidateWindowData(GetWindowClassForVehicleType(g->vehicle_type), VehicleListIdentifier(VL_GROUP_LIST, g->vehicle_type, _current_company).ToWindowNumber());
  }
 
  return CommandCost();
}
 
CommandCost CmdSetGroupLivery(DoCommandFlags flags, GroupID group_id, bool primary, Colours colour)
{
  Group *g = Group::GetIfValid(group_id);
 
  if (g == nullptr || g->owner != _current_company) return CMD_ERROR;
 
  if (colour >= COLOUR_END && colour != INVALID_COLOUR) return CMD_ERROR;
 
  if (flags.Test(DoCommandFlag::Execute)) {
    if (primary) {
      AssignBit(g->livery.in_use, 0, colour != INVALID_COLOUR);
      if (colour == INVALID_COLOUR) colour = GetParentLivery(g)->colour1;
      g->livery.colour1 = colour;
    } else {
      AssignBit(g->livery.in_use, 1, colour != INVALID_COLOUR);
      if (colour == INVALID_COLOUR) colour = GetParentLivery(g)->colour2;
      g->livery.colour2 = colour;
    }
 
    PropagateChildLivery(g, true);
    MarkWholeScreenDirty();
  }
 
  return CommandCost();
}
 
static void SetGroupFlag(Group *g, GroupFlag flag, bool set, bool children)
{
  if (set) {
    g->flags.Set(flag);
  } else {
    g->flags.Reset(flag);
  }
 
  if (!children) return;
 
  for (Group *pg : Group::Iterate()) {
    if (pg->parent == g->index) SetGroupFlag(pg, flag, set, true);
  }
}
 
CommandCost CmdSetGroupFlag(DoCommandFlags flags, GroupID group_id, GroupFlag flag, bool value, bool recursive)
{
  Group *g = Group::GetIfValid(group_id);
  if (g == nullptr || g->owner != _current_company) return CMD_ERROR;
 
  if (flag != GroupFlag::ReplaceProtection && flag != GroupFlag::ReplaceWagonRemoval) return CMD_ERROR;
 
  if (flags.Test(DoCommandFlag::Execute)) {
    SetGroupFlag(g, flag, value, recursive);
 
    SetWindowDirty(GetWindowClassForVehicleType(g->vehicle_type), VehicleListIdentifier(VL_GROUP_LIST, g->vehicle_type, _current_company).ToWindowNumber());
    InvalidateWindowData(WC_REPLACE_VEHICLE, g->vehicle_type);
  }
 
  return CommandCost();
}
 
void SetTrainGroupID(Train *v, GroupID new_g)
{
  if (!Group::IsValidID(new_g) && !IsDefaultGroupID(new_g)) return;
 
  assert(v->IsFrontEngine() || IsDefaultGroupID(new_g));
 
  for (Vehicle *u = v; u != nullptr; u = u->Next()) {
    if (u->IsEngineCountable()) UpdateNumEngineGroup(u, u->group_id, new_g);
 
    u->group_id = new_g;
    u->colourmap = PAL_NONE;
    u->InvalidateNewGRFCache();
    u->UpdateViewport(true);
  }
 
  /* Update the Replace Vehicle Windows */
  GroupStatistics::UpdateAutoreplace(v->owner);
  SetWindowDirty(WC_REPLACE_VEHICLE, VEH_TRAIN);
}
 
 
void UpdateTrainGroupID(Train *v)
{
  assert(v->IsFrontEngine() || v->IsFreeWagon());
 
  GroupID new_g = v->IsFrontEngine() ? v->group_id : (GroupID)DEFAULT_GROUP;
  for (Vehicle *u = v; u != nullptr; u = u->Next()) {
    if (u->IsEngineCountable()) UpdateNumEngineGroup(u, u->group_id, new_g);
 
    u->group_id = new_g;
    u->colourmap = PAL_NONE;
    u->InvalidateNewGRFCache();
  }
 
  /* Update the Replace Vehicle Windows */
  GroupStatistics::UpdateAutoreplace(v->owner);
  SetWindowDirty(WC_REPLACE_VEHICLE, VEH_TRAIN);
}
 
uint GetGroupNumEngines(CompanyID company, GroupID id_g, EngineID id_e)
{
  uint count = 0;
  const Engine *e = Engine::Get(id_e);
  for (const Group *g : Group::Iterate()) {
    if (g->parent == id_g) count += GetGroupNumEngines(company, g->index, id_e);
  }
  return count + GroupStatistics::Get(company, id_g, e->type).GetNumEngines(id_e);
}
 
uint GetGroupNumVehicle(CompanyID company, GroupID id_g, VehicleType type)
{
  uint count = 0;
  for (const Group *g : Group::Iterate()) {
    if (g->parent == id_g) count += GetGroupNumVehicle(company, g->index, type);
  }
  return count + GroupStatistics::Get(company, id_g, type).num_vehicle;
}
 
uint GetGroupNumVehicleMinAge(CompanyID company, GroupID id_g, VehicleType type)
{
  uint count = 0;
  for (const Group *g : Group::Iterate()) {
    if (g->parent == id_g) count += GetGroupNumVehicleMinAge(company, g->index, type);
  }
  return count + GroupStatistics::Get(company, id_g, type).num_vehicle_min_age;
}
 
Money GetGroupProfitLastYearMinAge(CompanyID company, GroupID id_g, VehicleType type)
{
  Money sum = 0;
  for (const Group *g : Group::Iterate()) {
    if (g->parent == id_g) sum += GetGroupProfitLastYearMinAge(company, g->index, type);
  }
  return sum + GroupStatistics::Get(company, id_g, type).profit_last_year_min_age;
}
 
void RemoveAllGroupsForCompany(const CompanyID company)
{
  for (Group *g : Group::Iterate()) {
    if (company == g->owner) delete g;
  }
}
 
 
bool GroupIsInGroup(GroupID search, GroupID group)
{
  if (!Group::IsValidID(search)) return search == group;
 
  do {
    if (search == group) return true;
    search = Group::Get(search)->parent;
  } while (search != GroupID::Invalid());
 
  return false;
}