/* Check if matching cargo has been found */

		if (cargo_index >= lengthof(ind->accepts_cargo)) continue;

		/* Check if industry temporarily refuses acceptance */

		if (IndustryTemporarilyRefusesCargo(ind, cargo_type)) continue;

		/* Insert the industry into _cargo_delivery_destinations, if not yet contained */

		include(_cargo_delivery_destinations, ind);

		uint amount = min(num_pieces, 0xFFFFU - ind->incoming_cargo_waiting[cargo_index]);

		ind->incoming_cargo_waiting[cargo_index] += amount;

		ind->last_cargo_accepted_at[cargo_index] = _date;

extern Prices _price;

int UpdateCompanyRatingAndValue(Company *c, bool update);

void StartupIndustryDailyChanges(bool init_counter);

Money GetTransportedGoodsIncome(uint num_pieces, uint dist, byte transit_days, CargoID cargo_type);

void PrepareUnload(Vehicle *front_v);

void LoadUnloadStation(Station *st);

Money GetPrice(Price index, uint cost_factor, const struct GRFFile *grf_file, int shift = 0);

	Owner founder;                 ///< Founder of the industry

	Date construction_date;        ///< Date of the construction of the industry

	uint8 construction_type;       ///< Way the industry was constructed (@see IndustryConstructionType)

	Date last_cargo_accepted_at[INDUSTRY_NUM_INPUTS]; ///< Last day each cargo type was accepted by this industry

	byte selected_layout;          ///< Which tile layout was used when creating the industry

	uint16 random;                 ///< Random value used for randomisation of all kinds of things

	PersistentStorage *psa;        ///< Persistent storage for NewGRF industries.

	Industry(TileIndex tile = INVALID_TILE) : location(tile, 0, 0) {}

#include "landscape.h"

#include "viewport_func.h"

#include "command_func.h"

#include "town.h"

#include "news_func.h"

#include "cheat_type.h"

#include "genworld.h"

#include "tree_map.h"

#include "newgrf_cargo.h"

#include "newgrf_debug.h"

#include "newgrf_industrytiles.h"

#include "autoslope.h"

			/* fluctuating economy? */

			if (EconomyIsInRecession()) cw = (cw + 1) / 2;

			i->this_month_production[j] += cw;

			i->this_month_transported[j] += am;

			moved_cargo |= (am != 0);

		}

	}

static void ChangeTileOwner_Industry(TileIndex tile, Owner old_owner, Owner new_owner)

{

	/* If the founder merges, the industry was created by the merged company */

	Industry *i = Industry::GetByTile(tile);

	if (i->founder == old_owner) i->founder = (new_owner == INVALID_OWNER) ? OWNER_NONE : new_owner;

}

/**

 * Check whether the tile is a forest.

 * @param tile the tile to investigate.

 * @return true if and only if the tile is a forest

	/* Adding 1 here makes it conform to specs of var44 of varaction2 for industries

	 * 0 = created prior of newindustries

	 * else, chosen layout + 1 */

	i->selected_layout = (byte)(layout_index + 1);

	i->prod_level = PRODLEVEL_DEFAULT;

	/* Call callbacks after the regular fields got initialised. */

	if (HasBit(indspec->callback_mask, CBM_IND_PROD_CHANGE_BUILD)) {

		uint16 res = GetIndustryCallback(CBID_INDUSTRY_PROD_CHANGE_BUILD, 0, Random(), i, type, INVALID_TILE);

 * @param tile Unused.

 * @param flags Type of operation.

 * @param p1 IndustryID

 * @param p2 various bitstuffed elements

 * - p2 = (bit 0 - 7) - action to perform:

 *                      0 = set control flags

 * - p2 = (bit 8 - 15) - IndustryControlFlags

 *                       (only used with set control flags)

 * @param text unused

 * @return Empty cost or an error.

 */

CommandCost CmdIndustryCtrl(TileIndex tile, DoCommandFlag flags, uint32 p1, uint32 p2, const char *text)

{

	if (_current_company != OWNER_DEITY) return CMD_ERROR;

			if (flags & DC_EXEC) ind->ctlflags = ctlflags;

			break;

		}

		default:

			NOT_REACHED();

	}

	return CommandCost();

}

			if (IsTileType(t, MP_TUNNELBRIDGE) && GetTunnelBridgeTransportType(t) != TRANSPORT_ROAD) {

				SetRoadTypes(t, INVALID_ROADTYPE, INVALID_ROADTYPE);

			}

		}

	}

	/* Compute station catchment areas. This is needed here in case UpdateStationAcceptance is called below. */

	Station::RecomputeCatchmentForAll();

	/* Station acceptance is some kind of cache */

	if (IsSavegameVersionBefore(SLV_127)) {

		for (Station *st : Station::Iterate()) UpdateStationAcceptance(st, false);

	SLE_CONDVAR(Industry, founder,                    SLE_UINT8,                 SLV_70, SL_MAX_VERSION),

	SLE_CONDVAR(Industry, construction_date,          SLE_INT32,                 SLV_70, SL_MAX_VERSION),

	SLE_CONDVAR(Industry, construction_type,          SLE_UINT8,                 SLV_70, SL_MAX_VERSION),

	SLE_CONDVAR(Industry, last_cargo_accepted_at[0],  SLE_INT32,                 SLV_70, SLV_EXTEND_INDUSTRY_CARGO_SLOTS),

	SLE_CONDARR(Industry, last_cargo_accepted_at,     SLE_INT32, 16,            SLV_EXTEND_INDUSTRY_CARGO_SLOTS, SL_MAX_VERSION),

	SLE_CONDVAR(Industry, selected_layout,            SLE_UINT8,                 SLV_73, SL_MAX_VERSION),

	SLEG_CONDARR(_old_ind_persistent_storage.storage, SLE_UINT32, 16,            SLV_76, SLV_161),

	SLE_CONDREF(Industry, psa,                        REF_STORAGE,              SLV_161, SL_MAX_VERSION),

	SLE_CONDNULL(1, SLV_82, SLV_197), // random_triggers

	SLE_CONDVAR(Industry, random,                     SLE_UINT16,                SLV_82, SL_MAX_VERSION),

	 * the version is masked with 0x8000, and the true version is stored in

	 * its own chunk with feature toggles.

	 */

	SLV_START_PATCHPACKS,                   ///< 220  First known patchpack to use a version just above ours.

	SLV_END_PATCHPACKS = 286,               ///< 286  Last known patchpack to use a version just above ours.

	SL_MAX_VERSION,                         ///< Highest possible saveload version

};

/** Save or load result codes. */

enum SaveOrLoadResult {

 * API additions:

 * \li GSEventStoryPageButtonClick

 * \li GSEventStoryPageTileSelect

 * \li GSEventStoryPageVehicleSelect

 * \li GSIndustry::GetCargoLastAcceptedDate

 * \li GSIndustry::GetControlFlags

 * \li GSIndustry::GetLastProductionYear

 * \li GSIndustry::SetControlFlags

 * \li GSStoryPage::MakePushButtonReference

 * \li GSStoryPage::MakeTileButtonReference

 * \li GSStoryPage::MakeVehicleButtonReference

 * \li GSPriorityQueue

 *

 * \b 1.10.0

/** @file script_industry.cpp Implementation of ScriptIndustry. */

#include "../../stdafx.h"

#include "script_industry.hpp"

#include "script_cargo.hpp"

#include "script_map.hpp"

#include "../../industry.h"

#include "../../strings_func.h"

#include "../../station_base.h"

#include "../../newgrf_industries.h"

#include "table/strings.h"

#include <numeric>

{

	if (ScriptObject::GetCompany() != OWNER_DEITY) return false;

	if (!IsValidIndustry(industry_id)) return false;

	return ScriptObject::DoCommand(0, industry_id, 0 | ((control_flags & ::INDCTL_MASK) << 8), CMD_INDUSTRY_CTRL);

}

/** @file script_industry.hpp Everything to query and build industries. */

#ifndef SCRIPT_INDUSTRY_HPP

#define SCRIPT_INDUSTRY_HPP

#include "script_object.hpp"

#include "../../industry.h"

/**

 * Class that handles all industry related functions.

 * @api ai game

 */

	 * @pre IsValidIndustry(industry_id).

	 * @pre No ScriptCompanyMode may be in scope.

	 * @return True if the action succeeded.

	 * @api -ai

	 */

	static bool SetControlFlags(IndustryID industry_id, uint32 control_flags);

};

#endif /* SCRIPT_INDUSTRY_HPP */

		/* Non-passengers are never served by just a bus stop. */

		if (st->facilities == FACIL_BUS_STOP) return false;

	}

	return true;

}

{

	/* Return if nothing to do. Also the rounding below fails for 0. */

	if (all_stations->empty()) return 0;

	if (amount == 0) return 0;

	Station *first_station = nullptr;

	typedef std::pair<Station *, uint> StationInfo;

	std::vector<StationInfo> used_stations;

	for (Station *st : *all_stations) {

		if (!CanMoveGoodsToStation(st, type)) continue;

		/* Avoid allocating a vector if there is only one station to significantly

		 * improve performance in this common case. */

		if (first_station == nullptr) {

			first_station = st;