1

/* $Id$ */

     2

     3

/** @file misc_cmd.cpp */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "functions.h"

     8

#include "string.h"

     9

#include "table/strings.h"

    10

#include "command.h"

    11

#include "player.h"

    12

#include "gfx.h"

    13

#include "window.h"

    14

#include "gui.h"

    15

#include "economy.h"

    16

#include "network/network.h"

    17

#include "variables.h"

    18

#include "livery.h"

    19

#include "player_face.h"

    20

#include "strings.h"

    21

    22

/** Change the player's face.

    23

 * @param tile unused

    24

 * @param flags operation to perform

    25

 * @param p1 unused

    26

 * @param p2 face bitmasked

    27

 */

    28

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

    29

{

    30

	PlayerFace pf = (PlayerFace)p2;

    31

    32

	if (!IsValidPlayerFace(pf)) return CMD_ERROR;

    33

    34

	if (flags & DC_EXEC) {

    35

		GetPlayer(_current_player)->face = pf;

    36

		MarkWholeScreenDirty();

    37

	}

    38

	return CommandCost();

    39

}

    40

    41

/** Change the player's company-colour

    42

 * @param tile unused

    43

 * @param flags operation to perform

    44

 * @param p1 bitstuffed:

    45

 * p1 bits 0-7 scheme to set

    46

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

    47

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

    48

 */

    49

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

    50

{

    51

	Player *p, *pp;

    52

	byte colour;

    53

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

    54

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

    55

    56

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

    57

	colour = p2;

    58

    59

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

    60

    61

	p = GetPlayer(_current_player);

    62

    63

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

    64

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

    65

		FOR_ALL_PLAYERS(pp) {

    66

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

    67

		}

    68

	}

    69

    70

	if (flags & DC_EXEC) {

    71

		switch (state) {

    72

			case 0:

    73

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

    74

    75

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

    76

				 * original and cached player colours too. */

    77

				if (scheme == LS_DEFAULT) {

    78

					_player_colors[_current_player] = colour;

    79

					p->player_color = colour;

    80

				}

    81

				break;

    82

    83

			case 1:

    84

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

    85

				break;

    86

    87

			case 2:

    88

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

    89

    90

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

    91

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

    92

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

    93

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

    94

				 * colours will be used. */

    95

    96

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

    97

				if (colour != 0) {

    98

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

    99

					break;

   100

				}

   101

   102

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

   103

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

   104

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

   105

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

   106

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

   107

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

   108

						break;

   109

					}

   110

				}

   111

				break;

   112

   113

			default:

   114

				break;

   115

		}

   116

		ResetVehicleColorMap();

   117

		MarkWholeScreenDirty();

   118

	}

   119

	return CommandCost();

   120

}

   121

   122

/** Increase the loan of your company.

   123

 * @param tile unused

   124

 * @param flags operation to perform

   125

 * @param p1 unused

   126

 * @param p2 when 0: loans LOAN_INTERVAL

   127

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

   128

 */

   129

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

   130

{

   131

	Player *p = GetPlayer(_current_player);

   132

   133

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

   134

		SetDParam(0, _economy.max_loan);

   135

		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);

   136

	}

   137

   138

	Money loan;

   139

	switch (p2) {

   140

		default: return CMD_ERROR; // Invalid method

   141

		case 0: // Take some extra loan

   142

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

   143

			break;

   144

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

   145

			loan = _economy.max_loan - p->current_loan;

   146

			break;

   147

	}

   148

   149

	/* Overflow protection */

   150

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

   151

   152

	if (flags & DC_EXEC) {

   153

		p->player_money += loan;

   154

		p->current_loan += loan;

   155

		InvalidatePlayerWindows(p);

   156

	}

   157

   158

	return CommandCost();

   159

}

   160

   161

/** Decrease the loan of your company.

   162

 * @param tile unused

   163

 * @param flags operation to perform

   164

 * @param p1 unused

   165

 * @param p2 when 0: pays back LOAN_INTERVAL

   166

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

   167

 */

   168

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

   169

{

   170

	Player *p = GetPlayer(_current_player);

   171

   172

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

   173

   174

	Money loan;

   175

	switch (p2) {

   176

		default: return CMD_ERROR; // Invalid method

   177

		case 0: // Pay back one step

   178

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

   179

			break;

   180

		case 1: // Pay back as much as possible

   181

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

   182

			loan -= loan % LOAN_INTERVAL;

   183

			break;

   184

	}

   185

   186

	if (p->player_money < loan) {

   187

		SetDParam(0, loan);

   188

		return_cmd_error(STR_702E_REQUIRED);

   189

	}

   190

   191

	if (flags & DC_EXEC) {

   192

		p->player_money -= loan;

   193

		p->current_loan -= loan;

   194

		InvalidatePlayerWindows(p);

   195

	}

   196

	return CommandCost();

   197

}

   198

   199

static bool IsUniqueCompanyName(const char *name)

   200

{

   201

	const Player *p;

   202

	char buf[512];

   203

   204

	FOR_ALL_PLAYERS(p) {

   205

		if (!p->is_active) continue;

   206

		SetDParam(0, p->index);

   207

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

   208

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

   209

	}

   210

   211

	return true;

   212

}

   213

   214

/** Change the name of the company.

   215

 * @param tile unused

   216

 * @param flags operation to perform

   217

 * @param p1 unused

   218

 * @param p2 unused

   219

 */

   220

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

   221

{

   222

	StringID str;

   223

	Player *p;

   224

   225

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   226

   227

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

   228

   229

	str = AllocateName(_cmd_text, 4);

   230

	if (str == 0) return CMD_ERROR;

   231

   232

	if (flags & DC_EXEC) {

   233

		p = GetPlayer(_current_player);

   234

		DeleteName(p->name_1);

   235

		p->name_1 = str;

   236

		MarkWholeScreenDirty();

   237

	} else {

   238

		DeleteName(str);

   239

	}

   240

   241

	return CommandCost();

   242

}

   243

   244

static bool IsUniquePresidentName(const char *name)

   245

{

   246

	const Player *p;

   247

	char buf[512];

   248

   249

	FOR_ALL_PLAYERS(p) {

   250

		if (!p->is_active) continue;

   251

		SetDParam(0, p->index);

   252

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

   253

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

   254

	}

   255

   256

	return true;

   257

}

   258

   259

/** Change the name of the president.

   260

 * @param tile unused

   261

 * @param flags operation to perform

   262

 * @param p1 unused

   263

 * @param p2 unused

   264

 */

   265

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

   266

{

   267

	StringID str;

   268

	Player *p;

   269

   270

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   271

   272

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

   273

   274

	str = AllocateName(_cmd_text, 4);

   275

	if (str == 0) return CMD_ERROR;

   276

   277

	if (flags & DC_EXEC) {

   278

		p = GetPlayer(_current_player);

   279

		DeleteName(p->president_name_1);

   280

		p->president_name_1 = str;

   281

   282

		if (p->name_1 == STR_SV_UNNAMED) {

   283

			char buf[80];

   284

   285

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

   286

			_cmd_text = buf;

   287

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

   288

		}

   289

		MarkWholeScreenDirty();

   290

	} else {

   291

		DeleteName(str);

   292

	}

   293

   294

	return CommandCost();

   295

}

   296

   297

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

   298

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

   299

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

   300

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

   301

 * @param tile unused

   302

 * @param flags operation to perform

   303

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

   304

 * @param p2 unused

   305

 */

   306

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

   307

{

   308

	if (flags & DC_EXEC) {

   309

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

   310

		if (_pause_game == (byte)-1) _pause_game = 0;

   311

		InvalidateWindow(WC_STATUS_BAR, 0);

   312

		InvalidateWindow(WC_MAIN_TOOLBAR, 0);

   313

	}

   314

	return CommandCost();

   315

}

   316

   317

/** Change the financial flow of your company.

   318

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

   319

 * build, you can cheat (to test).

   320

 * @param tile unused

   321

 * @param flags operation to perform

   322

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

   323

 * @param p2 unused

   324

 */

   325

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

   326

{

   327

#ifndef _DEBUG

   328

	if (_networking) return CMD_ERROR;

   329

#endif

   330

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   331

	return CommandCost(-(Money)p1);

   332

}

   333

   334

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

   335

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

   336

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

   337

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

   338

 * @param tile unused

   339

 * @param flags operation to perform

   340

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

   341

 * @param p2 the player to transfer the money to

   342

 */

   343

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

   344

{

   345

	if (!_patches.give_money) return CMD_ERROR;

   346

   347

	const Player *p = GetPlayer(_current_player);

   348

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

   349

   350

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   351

   352

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

   353

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

   354

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

   355

   356

	if (flags & DC_EXEC) {

   357

		/* Add money to player */

   358

		PlayerID old_cp = _current_player;

   359

		_current_player = (PlayerID)p2;

   360

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

   361

		_current_player = old_cp;

   362

	}

   363

   364

	/* Subtract money from local-player */

   365

	return amount;

   366

}

   367

   368

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

   369

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

   370

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

   371

 * what to do and does this correctly

   372

 * @param tile unused

   373

 * @param flags operation to perform

   374

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

   375

 *           itself is changed. The new value is inside p2

   376

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

   377

 */

   378

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

   379

{

   380

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

   381

   382

	if (flags & DC_EXEC) {

   383

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

   384

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

   385

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

   386

		} else {

   387

			_opt_ptr->diff_level = p2;

   388

		}

   389

   390

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

   391

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

   392

		 * the new difficulty settings */

   393

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

   394

			ShowGameDifficulty();

   395

	}

   396

	return CommandCost();

   397

}