1

/* $Id$ */

     2

     3

/** @file misc_cmd.cpp */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "table/strings.h"

     8

#include "command_func.h"

     9

#include "economy_func.h"

    10

#include "gui.h"

    11

#include "window_func.h"

    12

#include "textbuf_gui.h"

    13

#include "network/network.h"

    14

#include "variables.h"

    15

#include "livery.h"

    16

#include "player_face.h"

    17

#include "strings_func.h"

    18

#include "gfx_func.h"

    19

#include "functions.h"

    20

#include "vehicle_func.h"

    21

#include "string_func.h"

    22

#include "player_func.h"

    23

#include "player_base.h"

    24

#include "player_gui.h"

    25

    26

/** Change the player's face.

    27

 * @param tile unused

    28

 * @param flags operation to perform

    29

 * @param p1 unused

    30

 * @param p2 face bitmasked

    31

 */

    32

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

    33

{

    34

	PlayerFace pf = (PlayerFace)p2;

    35

    36

	if (!IsValidPlayerFace(pf)) return CMD_ERROR;

    37

    38

	if (flags & DC_EXEC) {

    39

		GetPlayer(_current_player)->face = pf;

    40

		MarkWholeScreenDirty();

    41

	}

    42

	return CommandCost();

    43

}

    44

    45

/** Change the player's company-colour

    46

 * @param tile unused

    47

 * @param flags operation to perform

    48

 * @param p1 bitstuffed:

    49

 * p1 bits 0-7 scheme to set

    50

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

    51

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

    52

 */

    53

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

    54

{

    55

	Player *p, *pp;

    56

	byte colour;

    57

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

    58

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

    59

    60

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

    61

	colour = p2;

    62

    63

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

    64

    65

	p = GetPlayer(_current_player);

    66

    67

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

    68

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

    69

		FOR_ALL_PLAYERS(pp) {

    70

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

    71

		}

    72

	}

    73

    74

	if (flags & DC_EXEC) {

    75

		switch (state) {

    76

			case 0:

    77

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

    78

    79

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

    80

				 * original and cached player colours too. */

    81

				if (scheme == LS_DEFAULT) {

    82

					_player_colors[_current_player] = colour;

    83

					p->player_color = colour;

    84

				}

    85

				break;

    86

    87

			case 1:

    88

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

    89

				break;

    90

    91

			case 2:

    92

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

    93

    94

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

    95

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

    96

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

    97

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

    98

				 * colours will be used. */

    99

   100

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

   101

				if (colour != 0) {

   102

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

   103

					break;

   104

				}

   105

   106

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

   107

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

   108

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

   109

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

   110

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

   111

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

   112

						break;

   113

					}

   114

				}

   115

				break;

   116

   117

			default:

   118

				break;

   119

		}

   120

		ResetVehicleColorMap();

   121

		MarkWholeScreenDirty();

   122

	}

   123

	return CommandCost();

   124

}

   125

   126

/** Increase the loan of your company.

   127

 * @param tile unused

   128

 * @param flags operation to perform

   129

 * @param p1 unused

   130

 * @param p2 when 0: loans LOAN_INTERVAL

   131

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

   132

 */

   133

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

   134

{

   135

	Player *p = GetPlayer(_current_player);

   136

   137

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

   138

		SetDParam(0, _economy.max_loan);

   139

		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);

   140

	}

   141

   142

	Money loan;

   143

	switch (p2) {

   144

		default: return CMD_ERROR; // Invalid method

   145

		case 0: // Take some extra loan

   146

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

   147

			break;

   148

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

   149

			loan = _economy.max_loan - p->current_loan;

   150

			break;

   151

	}

   152

   153

	/* Overflow protection */

   154

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

   155

   156

	if (flags & DC_EXEC) {

   157

		p->player_money += loan;

   158

		p->current_loan += loan;

   159

		InvalidatePlayerWindows(p);

   160

	}

   161

   162

	return CommandCost(EXPENSES_OTHER);

   163

}

   164

   165

/** Decrease the loan of your company.

   166

 * @param tile unused

   167

 * @param flags operation to perform

   168

 * @param p1 unused

   169

 * @param p2 when 0: pays back LOAN_INTERVAL

   170

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

   171

 */

   172

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

   173

{

   174

	Player *p = GetPlayer(_current_player);

   175

   176

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

   177

   178

	Money loan;

   179

	switch (p2) {

   180

		default: return CMD_ERROR; // Invalid method

   181

		case 0: // Pay back one step

   182

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

   183

			break;

   184

		case 1: // Pay back as much as possible

   185

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

   186

			loan -= loan % LOAN_INTERVAL;

   187

			break;

   188

	}

   189

   190

	if (p->player_money < loan) {

   191

		SetDParam(0, loan);

   192

		return_cmd_error(STR_702E_REQUIRED);

   193

	}

   194

   195

	if (flags & DC_EXEC) {

   196

		p->player_money -= loan;

   197

		p->current_loan -= loan;

   198

		InvalidatePlayerWindows(p);

   199

	}

   200

	return CommandCost();

   201

}

   202

   203

static bool IsUniqueCompanyName(const char *name)

   204

{

   205

	const Player *p;

   206

	char buf[512];

   207

   208

	FOR_ALL_PLAYERS(p) {

   209

		if (!p->is_active) continue;

   210

		SetDParam(0, p->index);

   211

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

   212

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

   213

	}

   214

   215

	return true;

   216

}

   217

   218

/** Change the name of the company.

   219

 * @param tile unused

   220

 * @param flags operation to perform

   221

 * @param p1 unused

   222

 * @param p2 unused

   223

 */

   224

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

   225

{

   226

	Player *p;

   227

   228

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   229

   230

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

   231

   232

	if (flags & DC_EXEC) {

   233

		p = GetPlayer(_current_player);

   236

		MarkWholeScreenDirty();

   237

	}

   238

   239

	return CommandCost();

   240

}

   241

   242

static bool IsUniquePresidentName(const char *name)

   243

{

   244

	const Player *p;

   245

	char buf[512];

   246

   247

	FOR_ALL_PLAYERS(p) {

   248

		if (!p->is_active) continue;

   249

		SetDParam(0, p->index);

   250

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

   251

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

   252

	}

   253

   254

	return true;

   255

}

   256

   257

/** Change the name of the president.

   258

 * @param tile unused

   259

 * @param flags operation to perform

   260

 * @param p1 unused

   261

 * @param p2 unused

   262

 */

   263

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

   264

{

   265

	Player *p;

   266

   267

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   268

   269

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

   270

   271

	if (flags & DC_EXEC) {

   272

		p = GetPlayer(_current_player);

   275

   276

		if (p->name_1 == STR_SV_UNNAMED) {

   277

			char buf[80];

   278

   279

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

   280

			_cmd_text = buf;

   281

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

   282

		}

   283

		MarkWholeScreenDirty();

   284

	}

   285

   286

	return CommandCost();

   287

}

   288

   289

/**

   290

 * In case of an unsafe unpause, we want the

   291

 * user to confirm that it might crash.

   292

 * @param w         unused

   293

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

   294

 */

   295

static void AskUnsafeUnpauseCallback(Window *w, bool confirmed)

   296

{

   297

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

   298

}

   299

   300

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

   301

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

   302

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

   303

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

   304

 * @param tile unused

   305

 * @param flags operation to perform

   306

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

   307

 * @param p2 unused

   308

 */

   309

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

   310

{

   311

	if (flags & DC_EXEC) {

   312

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

   313

   314

		switch (_pause_game) {

   315

			case (byte)-4:

   316

			case (byte)-1:

   317

				_pause_game = 0;

   318

				break;

   319

			case (byte)-3:

   320

				ShowQuery(

   321

					STR_NEWGRF_UNPAUSE_WARNING_TITLE,

   322

					STR_NEWGRF_UNPAUSE_WARNING,

   323

					NULL,

   324

					AskUnsafeUnpauseCallback

   325

				);

   326

				break;

   327

   328

			default: break;

   329

		}

   330

   331

		InvalidateWindow(WC_STATUS_BAR, 0);

   332

		InvalidateWindow(WC_MAIN_TOOLBAR, 0);

   333

	}

   334

	return CommandCost();

   335

}

   336

   337

/** Change the financial flow of your company.

   338

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

   339

 * build, you can cheat (to test).

   340

 * @param tile unused

   341

 * @param flags operation to perform

   342

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

   343

 * @param p2 unused

   344

 */

   345

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

   346

{

   347

#ifndef _DEBUG

   348

	if (_networking) return CMD_ERROR;

   349

#endif

   350

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

   351

}

   352

   353

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

   354

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

   355

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

   356

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

   357

 * @param tile unused

   358

 * @param flags operation to perform

   359

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

   360

 * @param p2 the player to transfer the money to

   361

 */

   362

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

   363

{

   364

	if (!_patches.give_money) return CMD_ERROR;

   365

   366

	const Player *p = GetPlayer(_current_player);

   367

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

   368

   369

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

   370

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

   371

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

   372

   373

	if (flags & DC_EXEC) {

   374

		/* Add money to player */

   375

		PlayerID old_cp = _current_player;

   376

		_current_player = (PlayerID)p2;

   377

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

   378

		_current_player = old_cp;

   379

	}

   380

   381

	/* Subtract money from local-player */

   382

	return amount;

   383

}

   384

   385

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

   386

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

   387

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

   388

 * what to do and does this correctly

   389

 * @param tile unused

   390

 * @param flags operation to perform

   391

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

   392

 *           itself is changed. The new value is inside p2

   393

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

   394

 */

   395

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

   396

{

   397

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

   398

   399

	if (flags & DC_EXEC) {

   400

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

   401

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

   402

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

   403

		} else {

   404

			_opt_ptr->diff_level = p2;

   405

		}

   406

   407

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

   408

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

   409

		 * the new difficulty settings */

   410

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

   411

			ShowGameDifficulty();

   412

	}

   413

	return CommandCost();

   414

}