1

/* $Id$ */

     2

     3

/** @file misc_cmd.cpp Some misc functions that are better fitted in other files, but never got moved there... */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "command_func.h"

     8

#include "economy_func.h"

     9

#include "gui.h"

    10

#include "window_func.h"

    11

#include "textbuf_gui.h"

    12

#include "network/network.h"

    13

#include "variables.h"

    14

#include "livery.h"

    15

#include "player_face.h"

    16

#include "strings_func.h"

    17

#include "gfx_func.h"

    18

#include "functions.h"

    19

#include "vehicle_func.h"

    20

#include "string_func.h"

    21

#include "player_func.h"

    22

#include "player_base.h"

    23

#include "player_gui.h"

    24

#include "settings_type.h"

    25

#include "station_func.h"

    26

    27

#include "table/strings.h"

    28

    29

/** Change the player's face.

    30

 * @param tile unused

    31

 * @param flags operation to perform

    32

 * @param p1 unused

    33

 * @param p2 face bitmasked

    34

 */

    35

CommandCost CmdSetPlayerFace(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

    36

{

    37

	PlayerFace pf = (PlayerFace)p2;

    38

    39

	if (!IsValidPlayerFace(pf)) return CMD_ERROR;

    40

    41

	if (flags & DC_EXEC) {

    42

		GetPlayer(_current_player)->face = pf;

    43

		MarkWholeScreenDirty();

    44

	}

    45

	return CommandCost();

    46

}

    47

    48

/** Change the player's company-colour

    49

 * @param tile unused

    50

 * @param flags operation to perform

    51

 * @param p1 bitstuffed:

    52

 * p1 bits 0-7 scheme to set

    53

 * p1 bits 8-9 set in use state or first/second colour

    54

 * @param p2 new colour for vehicles, property, etc.

    55

 */

    56

CommandCost CmdSetPlayerColor(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

    57

{

    58

	if (p2 >= 16) return CMD_ERROR; // max 16 colours

    59

    60

	byte colour = p2;

    61

    62

	LiveryScheme scheme = (LiveryScheme)GB(p1, 0, 8);

    63

	byte state = GB(p1, 8, 2);

    64

    65

	if (scheme >= LS_END || state >= 3) return CMD_ERROR;

    66

    67

	Player *p = GetPlayer(_current_player);

    68

    69

	/* Ensure no two companies have the same primary colour */

    70

	if (scheme == LS_DEFAULT && state == 0) {

    71

		const Player *pp;

    72

		FOR_ALL_PLAYERS(pp) {

    73

			if (pp->is_active && pp != p && pp->player_color == colour) return CMD_ERROR;

    74

		}

    75

	}

    76

    77

	if (flags & DC_EXEC) {

    78

		switch (state) {

    79

			case 0:

    80

				p->livery[scheme].colour1 = colour;

    81

    82

				/* If setting the first colour of the default scheme, adjust the

    83

				 * original and cached player colours too. */

    84

				if (scheme == LS_DEFAULT) {

    85

					_player_colors[_current_player] = colour;

    86

					p->player_color = colour;

    87

				}

    88

				break;

    89

    90

			case 1:

    91

				p->livery[scheme].colour2 = colour;

    92

				break;

    93

    94

			case 2:

    95

				p->livery[scheme].in_use = colour != 0;

    96

    97

				/* Now handle setting the default scheme's in_use flag.

    98

				 * This is different to the other schemes, as it signifies if any

    99

				 * scheme is active at all. If this flag is not set, then no

   100

				 * processing of vehicle types occurs at all, and only the default

   101

				 * colours will be used. */

   102

   103

				/* If enabling a scheme, set the default scheme to be in use too */

   104

				if (colour != 0) {

   105

					p->livery[LS_DEFAULT].in_use = true;

   106

					break;

   107

				}

   108

   109

				/* Else loop through all schemes to see if any are left enabled.

   110

				 * If not, disable the default scheme too. */

   111

				p->livery[LS_DEFAULT].in_use = false;

   112

				for (scheme = LS_DEFAULT; scheme < LS_END; scheme++) {

   113

					if (p->livery[scheme].in_use) {

   114

						p->livery[LS_DEFAULT].in_use = true;

   115

						break;

   116

					}

   117

				}

   118

				break;

   119

   120

			default:

   121

				break;

   122

		}

   123

		ResetVehicleColorMap();

   124

		MarkWholeScreenDirty();

   125

	}

   126

	return CommandCost();

   127

}

   128

   129

/** Increase the loan of your company.

   130

 * @param tile unused

   131

 * @param flags operation to perform

   132

 * @param p1 unused

   133

 * @param p2 when 0: loans LOAN_INTERVAL

   134

 *           when 1: loans the maximum loan permitting money (press CTRL),

   135

 */

   136

CommandCost CmdIncreaseLoan(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   137

{

   138

	Player *p = GetPlayer(_current_player);

   139

   140

	if (p->current_loan >= _economy.max_loan) {

   141

		SetDParam(0, _economy.max_loan);

   142

		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);

   143

	}

   144

   145

	Money loan;

   146

	switch (p2) {

   147

		default: return CMD_ERROR; // Invalid method

   148

		case 0: // Take some extra loan

   149

			loan = (IsHumanPlayer(_current_player) || _patches.ainew_active) ? LOAN_INTERVAL : LOAN_INTERVAL_OLD_AI;

   150

			break;

   151

		case 1: // Take a loan as big as possible

   152

			loan = _economy.max_loan - p->current_loan;

   153

			break;

   154

	}

   155

   156

	/* Overflow protection */

   157

	if (p->player_money + p->current_loan + loan < p->player_money) return CMD_ERROR;

   158

   159

	if (flags & DC_EXEC) {

   160

		p->player_money += loan;

   161

		p->current_loan += loan;

   162

		InvalidatePlayerWindows(p);

   163

	}

   164

   165

	return CommandCost(EXPENSES_OTHER);

   166

}

   167

   168

/** Decrease the loan of your company.

   169

 * @param tile unused

   170

 * @param flags operation to perform

   171

 * @param p1 unused

   172

 * @param p2 when 0: pays back LOAN_INTERVAL

   173

 *           when 1: pays back the maximum loan permitting money (press CTRL),

   174

 */

   175

CommandCost CmdDecreaseLoan(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   176

{

   177

	Player *p = GetPlayer(_current_player);

   178

   179

	if (p->current_loan == 0) return_cmd_error(STR_702D_LOAN_ALREADY_REPAYED);

   180

   181

	Money loan;

   182

	switch (p2) {

   183

		default: return CMD_ERROR; // Invalid method

   184

		case 0: // Pay back one step

   185

			loan = min(p->current_loan, (Money)(IsHumanPlayer(_current_player) || _patches.ainew_active) ? LOAN_INTERVAL : LOAN_INTERVAL_OLD_AI);

   186

			break;

   187

		case 1: // Pay back as much as possible

   188

			loan = max(min(p->current_loan, p->player_money), (Money)LOAN_INTERVAL);

   189

			loan -= loan % LOAN_INTERVAL;

   190

			break;

   191

	}

   192

   193

	if (p->player_money < loan) {

   194

		SetDParam(0, loan);

   195

		return_cmd_error(STR_702E_REQUIRED);

   196

	}

   197

   198

	if (flags & DC_EXEC) {

   199

		p->player_money -= loan;

   200

		p->current_loan -= loan;

   201

		InvalidatePlayerWindows(p);

   202

	}

   203

	return CommandCost();

   204

}

   205

   206

static bool IsUniqueCompanyName(const char *name)

   207

{

   208

	const Player *p;

   209

	char buf[512];

   210

   211

	FOR_ALL_PLAYERS(p) {

   212

		if (!p->is_active) continue;

   213

		SetDParam(0, p->index);

   214

		GetString(buf, STR_COMPANY_NAME, lastof(buf));

   215

		if (strcmp(buf, name) == 0) return false;

   216

	}

   217

   218

	return true;

   219

}

   220

   221

/** Change the name of the company.

   222

 * @param tile unused

   223

 * @param flags operation to perform

   224

 * @param p1 unused

   225

 * @param p2 unused

   226

 */

   227

CommandCost CmdChangeCompanyName(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   228

{

   229

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   230

   231

	if (!IsUniqueCompanyName(_cmd_text)) return_cmd_error(STR_NAME_MUST_BE_UNIQUE);

   232

   233

	if (flags & DC_EXEC) {

   234

		Player *p = GetPlayer(_current_player);

   235

		free(p->name);

   236

		p->name = strdup(_cmd_text);

   237

		MarkWholeScreenDirty();

   238

	}

   239

   240

	return CommandCost();

   241

}

   242

   243

static bool IsUniquePresidentName(const char *name)

   244

{

   245

	const Player *p;

   246

	char buf[512];

   247

   248

	FOR_ALL_PLAYERS(p) {

   249

		if (!p->is_active) continue;

   250

		SetDParam(0, p->index);

   251

		GetString(buf, STR_PLAYER_NAME, lastof(buf));

   252

		if (strcmp(buf, name) == 0) return false;

   253

	}

   254

   255

	return true;

   256

}

   257

   258

/** Change the name of the president.

   259

 * @param tile unused

   260

 * @param flags operation to perform

   261

 * @param p1 unused

   262

 * @param p2 unused

   263

 */

   264

CommandCost CmdChangePresidentName(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   265

{

   266

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   267

   268

	if (!IsUniquePresidentName(_cmd_text)) return_cmd_error(STR_NAME_MUST_BE_UNIQUE);

   269

   270

	if (flags & DC_EXEC) {

   271

		Player *p = GetPlayer(_current_player);

   272

		free(p->president_name);

   273

		p->president_name = strdup(_cmd_text);

   274

   275

		if (p->name_1 == STR_SV_UNNAMED) {

   276

			char buf[80];

   277

   278

			snprintf(buf, lengthof(buf), "%s Transport", _cmd_text);

   279

			_cmd_text = buf;

   280

			DoCommand(0, 0, 0, DC_EXEC, CMD_CHANGE_COMPANY_NAME);

   281

		}

   282

		MarkWholeScreenDirty();

   283

	}

   284

   285

	return CommandCost();

   286

}

   287

   288

/**

   289

 * In case of an unsafe unpause, we want the

   290

 * user to confirm that it might crash.

   291

 * @param w         unused

   292

 * @param confirmed whether the user confirms his/her action

   293

 */

   294

static void AskUnsafeUnpauseCallback(Window *w, bool confirmed)

   295

{

   296

	DoCommandP(0, confirmed ? 0 : 1, 0, NULL, CMD_PAUSE);

   297

}

   298

   299

/** Pause/Unpause the game (server-only).

   300

 * Increase or decrease the pause counter. If the counter is zero,

   301

 * the game is unpaused. A counter is used instead of a boolean value

   302

 * to have more control over the game when saving/loading, etc.

   303

 * @param tile unused

   304

 * @param flags operation to perform

   305

 * @param p1 0 = decrease pause counter; 1 = increase pause counter

   306

 * @param p2 unused

   307

 */

   308

CommandCost CmdPause(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   309

{

   310

	if (flags & DC_EXEC) {

   311

		_pause_game += (p1 == 0) ? -1 : 1;

   312

   313

		switch (_pause_game) {

   314

			case -4:

   315

			case -1:

   316

				_pause_game = 0;

   317

				break;

   318

			case -3:

   319

				ShowQuery(

   320

					STR_NEWGRF_UNPAUSE_WARNING_TITLE,

   321

					STR_NEWGRF_UNPAUSE_WARNING,

   322

					NULL,

   323

					AskUnsafeUnpauseCallback

   324

				);

   325

				break;

   326

   327

			default: break;

   328

		}

   329

   330

		InvalidateWindow(WC_STATUS_BAR, 0);

   331

		InvalidateWindow(WC_MAIN_TOOLBAR, 0);

   332

	}

   333

	return CommandCost();

   334

}

   335

   336

/** Change the financial flow of your company.

   337

 * This is normally only enabled in offline mode, but if there is a debug

   338

 * build, you can cheat (to test).

   339

 * @param tile unused

   340

 * @param flags operation to perform

   341

 * @param p1 the amount of money to receive (if negative), or spend (if positive)

   342

 * @param p2 unused

   343

 */

   344

CommandCost CmdMoneyCheat(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   345

{

   346

#ifndef _DEBUG

   347

	if (_networking) return CMD_ERROR;

   348

#endif

   349

	return CommandCost(EXPENSES_OTHER, -(int32)p1);

   350

}

   351

   352

/** Transfer funds (money) from one player to another.

   353

 * To prevent abuse in multiplayer games you can only send money to other

   354

 * players if you have paid off your loan (either explicitely, or implicitely

   355

 * given the fact that you have more money than loan).

   356

 * @param tile unused

   357

 * @param flags operation to perform

   358

 * @param p1 the amount of money to transfer; max 20.000.000

   359

 * @param p2 the player to transfer the money to

   360

 */

   361

CommandCost CmdGiveMoney(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   362

{

   363

	if (!_patches.give_money) return CMD_ERROR;

   364

   365

	const Player *p = GetPlayer(_current_player);

   366

	CommandCost amount(EXPENSES_OTHER, min((Money)p1, (Money)20000000LL));

   367

   368

	/* You can only transfer funds that is in excess of your loan */

   369

	if (p->player_money - p->current_loan < amount.GetCost() || amount.GetCost() <= 0) return CMD_ERROR;

   370

	if (!_networking || !IsValidPlayer((PlayerID)p2)) return CMD_ERROR;

   371

   372

	if (flags & DC_EXEC) {

   373

		/* Add money to player */

   374

		PlayerID old_cp = _current_player;

   375

		_current_player = (PlayerID)p2;

   376

		SubtractMoneyFromPlayer(CommandCost(EXPENSES_OTHER, -amount.GetCost()));

   377

		_current_player = old_cp;

   378

	}

   379

   380

	/* Subtract money from local-player */

   381

	return amount;

   382

}

   383

   384

/** Change difficulty level/settings (server-only).

   385

 * We cannot really check for valid values of p2 (too much work mostly); stored

   386

 * in file 'settings_gui.c' _game_setting_info[]; we'll just trust the server it knows

   387

 * what to do and does this correctly

   388

 * @param tile unused

   389

 * @param flags operation to perform

   390

 * @param p1 the difficulty setting being changed. If it is -1, the difficulty level

   391

 *           itself is changed. The new value is inside p2

   392

 * @param p2 new value for a difficulty setting or difficulty level

   393

 */

   394

CommandCost CmdChangeDifficultyLevel(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   395

{

   396

	if (p1 != (uint32)-1L && ((int32)p1 >= GAME_DIFFICULTY_NUM || (int32)p1 < 0)) return CMD_ERROR;

   397

   398

	GameOptions *opt_ptr = (_game_mode == GM_MENU) ? &_opt_newgame : &_opt;

   399

   400

	if (flags & DC_EXEC) {

   401

		if (p1 != (uint32)-1L) {

   402

			((GDType*)&opt_ptr->diff)[p1] = p2;

   403

			opt_ptr->diff_level = 3; // custom difficulty level

   404

		} else {

   405

			opt_ptr->diff_level = p2;

   406

		}

   407

   408

		/* Since the tolerance of the town council has a direct impact on the noise generation/tolerance,

   409

		 * launch a re-evaluation of the actual values only when setting has changed */

   410

		if (p2 == GAME_DIFFICULTY_TOWNCOUNCIL_TOLERANCE && _game_mode == GM_NORMAL) {

   411

			UpdateAirportsNoise();

   412

			if (_patches.station_noise_level) {

   413

				InvalidateWindowClassesData(WC_TOWN_VIEW, 0);

   414

			}

   415

		}

   416

   417

		/* If we are a network-client, update the difficult setting (if it is open).

   418

		 * Use this instead of just dirtying the window because we need to load in

   419

		 * the new difficulty settings */

   420

		if (_networking && !_network_server && FindWindowById(WC_GAME_OPTIONS, 0) != NULL) {

   421

			ShowGameDifficulty();

   422

		}

   423

	}

   424

	return CommandCost();

   425

}