You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
168 lines
6.1 KiB
C++
168 lines
6.1 KiB
C++
/*
|
|
* 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/>.
|
|
*/
|
|
|
|
/** @file script_industrytype.cpp Implementation of ScriptIndustryType. */
|
|
|
|
#include "../../stdafx.h"
|
|
#include "script_industrytype.hpp"
|
|
#include "script_base.hpp"
|
|
#include "script_map.hpp"
|
|
#include "script_error.hpp"
|
|
#include "../../strings_func.h"
|
|
#include "../../industry.h"
|
|
#include "../../newgrf_industries.h"
|
|
#include "../../core/random_func.hpp"
|
|
#include "../../industry_cmd.h"
|
|
|
|
#include "../../safeguards.h"
|
|
|
|
/* static */ bool ScriptIndustryType::IsValidIndustryType(IndustryType industry_type)
|
|
{
|
|
if (industry_type >= NUM_INDUSTRYTYPES) return false;
|
|
|
|
return ::GetIndustrySpec(industry_type)->enabled;
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::IsRawIndustry(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
return ::GetIndustrySpec(industry_type)->IsRawIndustry();
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::IsProcessingIndustry(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
return ::GetIndustrySpec(industry_type)->IsProcessingIndustry();
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::ProductionCanIncrease(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
if (_settings_game.game_creation.landscape != LT_TEMPERATE) return true;
|
|
return (::GetIndustrySpec(industry_type)->behaviour & INDUSTRYBEH_DONT_INCR_PROD) == 0;
|
|
}
|
|
|
|
/* static */ Money ScriptIndustryType::GetConstructionCost(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return -1;
|
|
if (::GetIndustrySpec(industry_type)->IsRawIndustry() && _settings_game.construction.raw_industry_construction == 0) return -1;
|
|
|
|
return ::GetIndustrySpec(industry_type)->GetConstructionCost();
|
|
}
|
|
|
|
/* static */ std::optional<std::string> ScriptIndustryType::GetName(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return std::nullopt;
|
|
|
|
return GetString(::GetIndustrySpec(industry_type)->name);
|
|
}
|
|
|
|
/* static */ ScriptList *ScriptIndustryType::GetProducedCargo(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return nullptr;
|
|
|
|
const IndustrySpec *ins = ::GetIndustrySpec(industry_type);
|
|
|
|
ScriptList *list = new ScriptList();
|
|
for (size_t i = 0; i < lengthof(ins->produced_cargo); i++) {
|
|
if (::IsValidCargoID(ins->produced_cargo[i])) list->AddItem(ins->produced_cargo[i]);
|
|
}
|
|
|
|
return list;
|
|
}
|
|
|
|
/* static */ ScriptList *ScriptIndustryType::GetAcceptedCargo(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return nullptr;
|
|
|
|
const IndustrySpec *ins = ::GetIndustrySpec(industry_type);
|
|
|
|
ScriptList *list = new ScriptList();
|
|
for (size_t i = 0; i < lengthof(ins->accepts_cargo); i++) {
|
|
if (::IsValidCargoID(ins->accepts_cargo[i])) list->AddItem(ins->accepts_cargo[i]);
|
|
}
|
|
|
|
return list;
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::CanBuildIndustry(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
const bool deity = ScriptCompanyMode::IsDeity();
|
|
if (::GetIndustryProbabilityCallback(industry_type, deity ? IACT_RANDOMCREATION : IACT_USERCREATION, 1) == 0) return false;
|
|
if (deity) return true;
|
|
if (!::GetIndustrySpec(industry_type)->IsRawIndustry()) return true;
|
|
|
|
/* raw_industry_construction == 1 means "Build as other industries" */
|
|
return _settings_game.construction.raw_industry_construction == 1;
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::CanProspectIndustry(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
const bool deity = ScriptCompanyMode::IsDeity();
|
|
if (!deity && !::GetIndustrySpec(industry_type)->IsRawIndustry()) return false;
|
|
if (::GetIndustryProbabilityCallback(industry_type, deity ? IACT_RANDOMCREATION : IACT_USERCREATION, 1) == 0) return false;
|
|
|
|
/* raw_industry_construction == 2 means "prospect" */
|
|
return deity || _settings_game.construction.raw_industry_construction == 2;
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::BuildIndustry(IndustryType industry_type, TileIndex tile)
|
|
{
|
|
EnforceDeityOrCompanyModeValid(false);
|
|
EnforcePrecondition(false, CanBuildIndustry(industry_type));
|
|
EnforcePrecondition(false, ScriptMap::IsValidTile(tile));
|
|
|
|
uint32 seed = ScriptBase::Rand();
|
|
uint32 layout_index = ScriptBase::RandRange((uint32)::GetIndustrySpec(industry_type)->layouts.size());
|
|
return ScriptObject::Command<CMD_BUILD_INDUSTRY>::Do(tile, industry_type, layout_index, true, seed);
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::ProspectIndustry(IndustryType industry_type)
|
|
{
|
|
EnforceDeityOrCompanyModeValid(false);
|
|
EnforcePrecondition(false, CanProspectIndustry(industry_type));
|
|
|
|
uint32 seed = ScriptBase::Rand();
|
|
return ScriptObject::Command<CMD_BUILD_INDUSTRY>::Do(0, industry_type, 0, false, seed);
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::IsBuiltOnWater(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
return (::GetIndustrySpec(industry_type)->behaviour & INDUSTRYBEH_BUILT_ONWATER) != 0;
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::HasHeliport(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
return (::GetIndustrySpec(industry_type)->behaviour & INDUSTRYBEH_AI_AIRSHIP_ROUTES) != 0;
|
|
}
|
|
|
|
/* static */ bool ScriptIndustryType::HasDock(IndustryType industry_type)
|
|
{
|
|
if (!IsValidIndustryType(industry_type)) return false;
|
|
|
|
return (::GetIndustrySpec(industry_type)->behaviour & INDUSTRYBEH_AI_AIRSHIP_ROUTES) != 0;
|
|
}
|
|
|
|
/* static */ IndustryType ScriptIndustryType::ResolveNewGRFID(SQInteger grfid, SQInteger grf_local_id)
|
|
{
|
|
EnforcePrecondition(INVALID_INDUSTRYTYPE, IsInsideBS(grf_local_id, 0x00, NUM_INDUSTRYTYPES_PER_GRF));
|
|
|
|
grfid = BSWAP32(GB(grfid, 0, 32)); // Match people's expectations.
|
|
return _industry_mngr.GetID(grf_local_id, grfid);
|
|
}
|