tron@2186: /* $Id$ */
tron@2186: 
rubidium@9111: /** @file misc_cmd.cpp Some misc functions that are better fitted in other files, but never got moved there... */
belugas@6201: 
truelight@0: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
rubidium@8116: #include "command_func.h"
rubidium@8116: #include "economy_func.h"
Darkvater@1500: #include "gui.h"
rubidium@8107: #include "window_func.h"
rubidium@8107: #include "textbuf_gui.h"
rubidium@5469: #include "network/network.h"
tron@2159: #include "variables.h"
peter1138@4603: #include "livery.h"
rubidium@10208: #include "company_manager_face.h"
rubidium@8114: #include "strings_func.h"
rubidium@8123: #include "gfx_func.h"
rubidium@8131: #include "functions.h"
rubidium@8144: #include "vehicle_func.h"
rubidium@8214: #include "string_func.h"
rubidium@10208: #include "company_func.h"
rubidium@10208: #include "company_base.h"
rubidium@10208: #include "company_gui.h"
rubidium@8270: #include "settings_type.h"
truelight@0: 
rubidium@8264: #include "table/strings.h"
rubidium@8264: 
rubidium@10207: /** Change the company manager's face.
tron@3491:  * @param tile unused
belugas@6488:  * @param flags operation to perform
Darkvater@1786:  * @param p1 unused
Darkvater@1786:  * @param p2 face bitmasked
truelight@0:  */
rubidium@10207: CommandCost CmdSetCompanyManagerFace(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
rubidium@10207: 	CompanyManagerFace cmf = (CompanyManagerFace)p2;
rubidium@6190: 
rubidium@10207: 	if (!IsValidCompanyManagerFace(cmf)) return CMD_ERROR;
rubidium@6190: 
truelight@0: 	if (flags & DC_EXEC) {
rubidium@10207: 		GetCompany(_current_company)->face = cmf;
truelight@0: 		MarkWholeScreenDirty();
truelight@0: 	}
rubidium@6950: 	return CommandCost();
truelight@0: }
truelight@0: 
rubidium@10207: /** Change the company's company-colour
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
peter1138@4603:  * @param p1 bitstuffed:
peter1138@4603:  * p1 bits 0-7 scheme to set
peter1138@4603:  * p1 bits 8-9 set in use state or first/second colour
Darkvater@1786:  * @param p2 new colour for vehicles, property, etc.
truelight@0:  */
rubidium@10207: CommandCost CmdSetCompanyColor(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
smatz@8819: 	if (p2 >= 16) return CMD_ERROR; // max 16 colours
smatz@8819: 
smatz@8819: 	byte colour = p2;
smatz@8819: 
rubidium@5587: 	LiveryScheme scheme = (LiveryScheme)GB(p1, 0, 8);
peter1138@4603: 	byte state = GB(p1, 8, 2);
Darkvater@1878: 
peter1138@4603: 	if (scheme >= LS_END || state >= 3) return CMD_ERROR;
peter1138@4603: 
rubidium@10207: 	Company *c = GetCompany(_current_company);
truelight@0: 
peter1138@4603: 	/* Ensure no two companies have the same primary colour */
peter1138@4603: 	if (scheme == LS_DEFAULT && state == 0) {
rubidium@10207: 		const Company *cc;
rubidium@10207: 		FOR_ALL_COMPANIES(cc) {
rubidium@10207: 			if (cc != c && cc->colour == colour) return CMD_ERROR;
peter1138@4603: 		}
truelight@0: 	}
truelight@193: 
truelight@0: 	if (flags & DC_EXEC) {
peter1138@4603: 		switch (state) {
peter1138@4603: 			case 0:
rubidium@10207: 				c->livery[scheme].colour1 = colour;
peter1138@4603: 
peter1138@4603: 				/* If setting the first colour of the default scheme, adjust the
rubidium@10207: 				 * original and cached company colours too. */
peter1138@4603: 				if (scheme == LS_DEFAULT) {
rubidium@10207: 					_company_colours[_current_company] = colour;
rubidium@10207: 					c->colour = colour;
peter1138@4603: 				}
peter1138@4603: 				break;
peter1138@4603: 
peter1138@4603: 			case 1:
rubidium@10207: 				c->livery[scheme].colour2 = colour;
peter1138@4603: 				break;
peter1138@4603: 
peter1138@4603: 			case 2:
rubidium@10207: 				c->livery[scheme].in_use = colour != 0;
peter1138@4603: 
peter1138@4603: 				/* Now handle setting the default scheme's in_use flag.
peter1138@4603: 				 * This is different to the other schemes, as it signifies if any
peter1138@4603: 				 * scheme is active at all. If this flag is not set, then no
peter1138@4603: 				 * processing of vehicle types occurs at all, and only the default
peter1138@4603: 				 * colours will be used. */
peter1138@4603: 
peter1138@4603: 				/* If enabling a scheme, set the default scheme to be in use too */
peter1138@4603: 				if (colour != 0) {
rubidium@10207: 					c->livery[LS_DEFAULT].in_use = true;
peter1138@4603: 					break;
peter1138@4603: 				}
peter1138@4603: 
peter1138@4603: 				/* Else loop through all schemes to see if any are left enabled.
peter1138@4603: 				 * If not, disable the default scheme too. */
rubidium@10207: 				c->livery[LS_DEFAULT].in_use = false;
peter1138@4603: 				for (scheme = LS_DEFAULT; scheme < LS_END; scheme++) {
rubidium@10207: 					if (c->livery[scheme].in_use) {
rubidium@10207: 						c->livery[LS_DEFAULT].in_use = true;
peter1138@4603: 						break;
peter1138@4603: 					}
peter1138@4603: 				}
peter1138@4603: 				break;
peter1138@4603: 
peter1138@4603: 			default:
peter1138@4603: 				break;
peter1138@4603: 		}
glx@7802: 		ResetVehicleColorMap();
truelight@0: 		MarkWholeScreenDirty();
truelight@0: 	}
rubidium@6950: 	return CommandCost();
truelight@0: }
truelight@0: 
Darkvater@1786: /** Increase the loan of your company.
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
Darkvater@1786:  * @param p1 unused
rubidium@6909:  * @param p2 when 0: loans LOAN_INTERVAL
rubidium@6909:  *           when 1: loans the maximum loan permitting money (press CTRL),
Darkvater@1786:  */
rubidium@6943: CommandCost CmdIncreaseLoan(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
rubidium@10207: 	Company *c = GetCompany(_current_company);
truelight@0: 
rubidium@10207: 	if (c->current_loan >= _economy.max_loan) {
rubidium@7002: 		SetDParam(0, _economy.max_loan);
truelight@0: 		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);
truelight@0: 	}
truelight@0: 
rubidium@6953: 	Money loan;
rubidium@6909: 	switch (p2) {
rubidium@6909: 		default: return CMD_ERROR; // Invalid method
rubidium@6909: 		case 0: // Take some extra loan
rubidium@10207: 			loan = (IsHumanCompany(_current_company) || _settings_game.ai.ainew_active) ? LOAN_INTERVAL : LOAN_INTERVAL_OLD_AI;
rubidium@6909: 			break;
rubidium@6909: 		case 1: // Take a loan as big as possible
rubidium@10207: 			loan = _economy.max_loan - c->current_loan;
rubidium@6909: 			break;
rubidium@6909: 	}
rubidium@6909: 
rubidium@6957: 	/* Overflow protection */
rubidium@10207: 	if (c->money + c->current_loan + loan < c->money) return CMD_ERROR;
rubidium@6957: 
truelight@0: 	if (flags & DC_EXEC) {
rubidium@10207: 		c->money        += loan;
rubidium@10207: 		c->current_loan += loan;
rubidium@10207: 		InvalidateCompanyWindows(c);
truelight@0: 	}
truelight@0: 
rubidium@8230: 	return CommandCost(EXPENSES_OTHER);
truelight@0: }
truelight@0: 
Darkvater@1786: /** Decrease the loan of your company.
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
Darkvater@1786:  * @param p1 unused
rubidium@6909:  * @param p2 when 0: pays back LOAN_INTERVAL
rubidium@6909:  *           when 1: pays back the maximum loan permitting money (press CTRL),
Darkvater@1786:  */
rubidium@6943: CommandCost CmdDecreaseLoan(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
rubidium@10207: 	Company *c = GetCompany(_current_company);
truelight@0: 
rubidium@10207: 	if (c->current_loan == 0) return_cmd_error(STR_702D_LOAN_ALREADY_REPAYED);
truelight@0: 
rubidium@6957: 	Money loan;
rubidium@6909: 	switch (p2) {
rubidium@6909: 		default: return CMD_ERROR; // Invalid method
rubidium@6909: 		case 0: // Pay back one step
rubidium@10207: 			loan = min(c->current_loan, (Money)(IsHumanCompany(_current_company) || _settings_game.ai.ainew_active) ? LOAN_INTERVAL : LOAN_INTERVAL_OLD_AI);
rubidium@6909: 			break;
rubidium@6909: 		case 1: // Pay back as much as possible
rubidium@10207: 			loan = max(min(c->current_loan, c->money), (Money)LOAN_INTERVAL);
rubidium@6909: 			loan -= loan % LOAN_INTERVAL;
rubidium@6909: 			break;
truelight@0: 	}
truelight@0: 
rubidium@10207: 	if (c->money < loan) {
rubidium@7002: 		SetDParam(0, loan);
truelight@0: 		return_cmd_error(STR_702E_REQUIRED);
truelight@0: 	}
truelight@0: 
truelight@0: 	if (flags & DC_EXEC) {
rubidium@10207: 		c->money        -= loan;
rubidium@10207: 		c->current_loan -= loan;
rubidium@10207: 		InvalidateCompanyWindows(c);
truelight@0: 	}
rubidium@6950: 	return CommandCost();
truelight@0: }
truelight@0: 
peter1138@7097: static bool IsUniqueCompanyName(const char *name)
peter1138@7097: {
rubidium@10207: 	const Company *c;
peter1138@7097: 	char buf[512];
peter1138@7097: 
rubidium@10207: 	FOR_ALL_COMPANIES(c) {
rubidium@10207: 		SetDParam(0, c->index);
peter1138@7097: 		GetString(buf, STR_COMPANY_NAME, lastof(buf));
peter1138@7097: 		if (strcmp(buf, name) == 0) return false;
peter1138@7097: 	}
peter1138@7097: 
peter1138@7097: 	return true;
peter1138@7097: }
peter1138@7097: 
Darkvater@1786: /** Change the name of the company.
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
Darkvater@1786:  * @param p1 unused
Darkvater@1786:  * @param p2 unused
Darkvater@1786:  */
smatz@10151: CommandCost CmdRenameCompany(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
smatz@10148: 	bool reset = StrEmpty(_cmd_text);
Darkvater@1840: 
smatz@10148: 	if (!reset) {
smatz@10148: 		if (strlen(_cmd_text) >= MAX_LENGTH_COMPANY_NAME_BYTES) return CMD_ERROR;
smatz@10148: 		if (!IsUniqueCompanyName(_cmd_text)) return_cmd_error(STR_NAME_MUST_BE_UNIQUE);
smatz@10148: 	}
peter1138@7097: 
truelight@0: 	if (flags & DC_EXEC) {
rubidium@10207: 		Company *c = GetCompany(_current_company);
rubidium@10207: 		free(c->name);
rubidium@10207: 		c->name = reset ? NULL : strdup(_cmd_text);
truelight@0: 		MarkWholeScreenDirty();
tron@4077: 	}
truelight@0: 
rubidium@6950: 	return CommandCost();
truelight@0: }
truelight@0: 
peter1138@7097: static bool IsUniquePresidentName(const char *name)
peter1138@7097: {
rubidium@10207: 	const Company *c;
peter1138@7097: 	char buf[512];
peter1138@7097: 
rubidium@10207: 	FOR_ALL_COMPANIES(c) {
rubidium@10207: 		SetDParam(0, c->index);
rubidium@10209: 		GetString(buf, STR_PRESIDENT_NAME, lastof(buf));
peter1138@7097: 		if (strcmp(buf, name) == 0) return false;
peter1138@7097: 	}
peter1138@7097: 
peter1138@7097: 	return true;
peter1138@7097: }
peter1138@7097: 
Darkvater@1786: /** Change the name of the president.
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
Darkvater@1786:  * @param p1 unused
Darkvater@1786:  * @param p2 unused
Darkvater@1786:  */
smatz@10151: CommandCost CmdRenamePresident(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
smatz@10148: 	bool reset = StrEmpty(_cmd_text);
Darkvater@1840: 
smatz@10148: 	if (!reset) {
smatz@10148: 		if (strlen(_cmd_text) >= MAX_LENGTH_PRESIDENT_NAME_BYTES) return CMD_ERROR;
smatz@10148: 		if (!IsUniquePresidentName(_cmd_text)) return_cmd_error(STR_NAME_MUST_BE_UNIQUE);
smatz@10148: 	}
peter1138@7097: 
truelight@0: 	if (flags & DC_EXEC) {
rubidium@10207: 		Company *c = GetCompany(_current_company);
rubidium@10207: 		free(c->president_name);
truelight@0: 
smatz@10148: 		if (reset) {
rubidium@10207: 			c->president_name = NULL;
smatz@10148: 		} else {
rubidium@10207: 			c->president_name = strdup(_cmd_text);
tron@1820: 
rubidium@10207: 			if (c->name_1 == STR_SV_UNNAMED && c->name == NULL) {
smatz@10148: 				char buf[80];
smatz@10148: 
smatz@10148: 				snprintf(buf, lengthof(buf), "%s Transport", _cmd_text);
smatz@10148: 				_cmd_text = buf;
smatz@10151: 				DoCommand(0, 0, 0, DC_EXEC, CMD_RENAME_COMPANY);
smatz@10148: 			}
truelight@193: 		}
smatz@10148: 
truelight@0: 		MarkWholeScreenDirty();
tron@4077: 	}
truelight@0: 
rubidium@6950: 	return CommandCost();
truelight@0: }
truelight@0: 
rubidium@8013: /**
rubidium@8013:  * In case of an unsafe unpause, we want the
rubidium@8013:  * user to confirm that it might crash.
rubidium@8013:  * @param w         unused
rubidium@8013:  * @param confirmed whether the user confirms his/her action
rubidium@8013:  */
rubidium@8013: static void AskUnsafeUnpauseCallback(Window *w, bool confirmed)
rubidium@8013: {
rubidium@8013: 	DoCommandP(0, confirmed ? 0 : 1, 0, NULL, CMD_PAUSE);
rubidium@8013: }
rubidium@8013: 
Darkvater@1793: /** Pause/Unpause the game (server-only).
Darkvater@1793:  * Increase or decrease the pause counter. If the counter is zero,
Darkvater@1793:  * the game is unpaused. A counter is used instead of a boolean value
Darkvater@1793:  * to have more control over the game when saving/loading, etc.
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
Darkvater@1793:  * @param p1 0 = decrease pause counter; 1 = increase pause counter
Darkvater@1793:  * @param p2 unused
Darkvater@1793:  */
rubidium@6943: CommandCost CmdPause(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
truelight@0: 	if (flags & DC_EXEC) {
skidd13@8065: 		_pause_game += (p1 == 0) ? -1 : 1;
rubidium@8013: 
rubidium@8013: 		switch (_pause_game) {
peter1138@8670: 			case -4:
peter1138@8670: 			case -1:
rubidium@8013: 				_pause_game = 0;
rubidium@8013: 				break;
peter1138@8670: 			case -3:
rubidium@8013: 				ShowQuery(
rubidium@8013: 					STR_NEWGRF_UNPAUSE_WARNING_TITLE,
rubidium@8013: 					STR_NEWGRF_UNPAUSE_WARNING,
rubidium@8013: 					NULL,
rubidium@8013: 					AskUnsafeUnpauseCallback
rubidium@8013: 				);
rubidium@8013: 				break;
rubidium@8013: 
rubidium@8013: 			default: break;
rubidium@8013: 		}
rubidium@8013: 
truelight@0: 		InvalidateWindow(WC_STATUS_BAR, 0);
truelight@0: 		InvalidateWindow(WC_MAIN_TOOLBAR, 0);
truelight@0: 	}
rubidium@6950: 	return CommandCost();
truelight@0: }
truelight@0: 
Darkvater@1796: /** Change the financial flow of your company.
Darkvater@1796:  * This is normally only enabled in offline mode, but if there is a debug
Darkvater@1796:  * build, you can cheat (to test).
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
Darkvater@1796:  * @param p1 the amount of money to receive (if negative), or spend (if positive)
Darkvater@1796:  * @param p2 unused
Darkvater@1796:  */
rubidium@6943: CommandCost CmdMoneyCheat(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@0: {
Darkvater@1796: #ifndef _DEBUG
Darkvater@1796: 	if (_networking) return CMD_ERROR;
Darkvater@1796: #endif
rubidium@8715: 	return CommandCost(EXPENSES_OTHER, -(int32)p1);
truelight@0: }
truelight@0: 
rubidium@10207: /** Transfer funds (money) from one company to another.
rubidium@4434:  * To prevent abuse in multiplayer games you can only send money to other
rubidium@10207:  * companies if you have paid off your loan (either explicitely, or implicitely
Darkvater@1799:  * given the fact that you have more money than loan).
tron@3491:  * @param tile unused
belugas@6481:  * @param flags operation to perform
Darkvater@1799:  * @param p1 the amount of money to transfer; max 20.000.000
rubidium@10207:  * @param p2 the company to transfer the money to
Darkvater@1796:  */
rubidium@6943: CommandCost CmdGiveMoney(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
truelight@543: {
rubidium@9413: 	if (!_settings_game.economy.give_money) return CMD_ERROR;
rubidium@7657: 
rubidium@10207: 	const Company *c = GetCompany(_current_company);
rubidium@8230: 	CommandCost amount(EXPENSES_OTHER, min((Money)p1, (Money)20000000LL));
truelight@543: 
Darkvater@1799: 	/* You can only transfer funds that is in excess of your loan */
rubidium@10207: 	if (c->money - c->current_loan < amount.GetCost() || amount.GetCost() <= 0) return CMD_ERROR;
rubidium@10207: 	if (!_networking || !IsValidCompanyID((CompanyID)p2)) return CMD_ERROR;
truelight@813: 
truelight@543: 	if (flags & DC_EXEC) {
rubidium@10207: 		/* Add money to company */
rubidium@10207: 		CompanyID old_company = _current_company;
rubidium@10207: 		_current_company = (CompanyID)p2;
rubidium@10207: 		SubtractMoneyFromCompany(CommandCost(EXPENSES_OTHER, -amount.GetCost()));
rubidium@10207: 		_current_company = old_company;
truelight@543: 	}
truelight@543: 
rubidium@10207: 	/* Subtract money from local-company */
Darkvater@1799: 	return amount;
truelight@543: }