|
|
|
@ -226,17 +226,19 @@
|
|
|
|
|
return GetLoanAmount() == loan;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* static */ bool ScriptCompany::ChangeBankBalance(CompanyID company, Money delta, ExpensesType expenses_type)
|
|
|
|
|
/* static */ bool ScriptCompany::ChangeBankBalance(CompanyID company, Money delta, ExpensesType expenses_type, TileIndex tile)
|
|
|
|
|
{
|
|
|
|
|
EnforcePrecondition(false, ScriptObject::GetCompany() == OWNER_DEITY);
|
|
|
|
|
EnforcePrecondition(false, expenses_type < (ExpensesType)::EXPENSES_END);
|
|
|
|
|
EnforcePrecondition(false, (int64)delta >= INT32_MIN);
|
|
|
|
|
EnforcePrecondition(false, (int64)delta <= INT32_MAX);
|
|
|
|
|
EnforcePrecondition(false, tile == INVALID_TILE || ::IsValidTile(tile));
|
|
|
|
|
|
|
|
|
|
company = ResolveCompanyID(company);
|
|
|
|
|
EnforcePrecondition(false, company != COMPANY_INVALID);
|
|
|
|
|
|
|
|
|
|
return ScriptObject::DoCommand(0, (uint32)(delta), company | expenses_type << 8 , CMD_CHANGE_BANK_BALANCE);
|
|
|
|
|
/* Network commands only allow 0 to indicate invalid tiles, not INVALID_TILE */
|
|
|
|
|
return ScriptObject::DoCommand(tile == INVALID_TILE ? 0 : tile , (uint32)(delta), company | expenses_type << 8 , CMD_CHANGE_BANK_BALANCE);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* static */ bool ScriptCompany::BuildCompanyHQ(TileIndex tile)
|
|
|
|
|