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

    21

/** Change the player's face.

    22

 * @param tile unused

    24

 * @param p1 unused

    25

 * @param p2 face bitmasked

    26

 */

    27

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

    28

{

    29

	PlayerFace pf = (PlayerFace)p2;

    30

    31

	if (!IsValidPlayerFace(pf)) return CMD_ERROR;

    32

    33

	if (flags & DC_EXEC) {

    34

		GetPlayer(_current_player)->face = pf;

    35

		MarkWholeScreenDirty();

    36

	}

    37

	return 0;

    38

}

    39

    40

/** Change the player's company-colour

    41

 * @param tile unused

    43

 * @param p1 bitstuffed:

    44

 * p1 bits 0-7 scheme to set

    45

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

    46

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

    47

 */

    48

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

    49

{

    50

	Player *p, *pp;

    51

	byte colour;

    52

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

    53

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

    54

    55

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

    56

	colour = p2;

    57

    58

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

    59

    60

	p = GetPlayer(_current_player);

    61

    62

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

    63

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

    64

		FOR_ALL_PLAYERS(pp) {

    65

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

    66

		}

    67

	}

    68

    69

	if (flags & DC_EXEC) {

    70

		switch (state) {

    71

			case 0:

    72

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

    73

    74

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

    75

				 * original and cached player colours too. */

    76

				if (scheme == LS_DEFAULT) {

    77

					_player_colors[_current_player] = colour;

    78

					p->player_color = colour;

    79

				}

    80

				break;

    81

    82

			case 1:

    83

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

    84

				break;

    85

    86

			case 2:

    87

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

    88

    89

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

    90

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

    91

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

    92

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

    93

				 * colours will be used. */

    94

    95

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

    96

				if (colour != 0) {

    97

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

    98

					break;

    99

				}

   100

   101

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

   102

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

   103

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

   104

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

   105

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

   106

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

   107

						break;

   108

					}

   109

				}

   110

				break;

   111

   112

			default:

   113

				break;

   114

		}

   115

		MarkWholeScreenDirty();

   116

	}

   117

	return 0;

   118

}

   119

   120

/** Increase the loan of your company.

   121

 * @param tile unused

   123

 * @param p1 unused

   124

 * @param p2 when set, loans the maximum amount in one go (press CTRL)

   125

 */

   126

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

   127

{

   128

	Player *p;

   129

   130

	p = GetPlayer(_current_player);

   131

   132

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

   133

		SetDParam(0, _economy.max_loan);

   134

		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);

   135

	}

   136

   137

	if (flags & DC_EXEC) {

   138

		/* Loan the maximum amount or not? */

   139

		int32 loan = (p2) ? _economy.max_loan - p->current_loan : (IsHumanPlayer(_current_player) || _patches.ainew_active) ? 10000 : 50000;

   140

   141

		p->money64 += loan;

   142

		p->current_loan += loan;

   143

		UpdatePlayerMoney32(p);

   144

		InvalidatePlayerWindows(p);

   145

	}

   146

   147

	return 0;

   148

}

   149

   150

/** Decrease the loan of your company.

   151

 * @param tile unused

   153

 * @param p1 unused

   154

 * @param p2 when set, pays back the maximum loan permitting money (press CTRL)

   155

 */

   156

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

   157

{

   158

	Player *p;

   159

	int32 loan;

   160

   161

	p = GetPlayer(_current_player);

   162

   163

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

   164

   165

	loan = p->current_loan;

   166

   167

	/* p2 is true while CTRL is pressed (repay all possible loan, or max money you have)

   168

	 * Repay any loan in chunks of 10.000 pounds */

   169

	if (p2) {

   170

		loan = min(loan, p->player_money);

   171

		loan = max(loan, 10000);

   172

		loan -= loan % 10000;

   173

	} else {

   174

		loan = min(loan, (IsHumanPlayer(_current_player) || _patches.ainew_active) ? 10000 : 50000);

   175

	}

   176

   177

	if (p->player_money < loan) {

   178

		SetDParam(0, loan);

   179

		return_cmd_error(STR_702E_REQUIRED);

   180

	}

   181

   182

	if (flags & DC_EXEC) {

   183

		p->money64 -= loan;

   184

		p->current_loan -= loan;

   185

		UpdatePlayerMoney32(p);

   186

		InvalidatePlayerWindows(p);

   187

	}

   188

	return 0;

   189

}

   190

   191

/** Change the name of the company.

   192

 * @param tile unused

   194

 * @param p1 unused

   195

 * @param p2 unused

   196

 */

   197

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

   198

{

   199

	StringID str;

   200

	Player *p;

   201

   202

	if (_cmd_text[0] == '\0') return CMD_ERROR;

   203

   204

	str = AllocateNameUnique(_cmd_text, 4);

   205

	if (str == 0) return CMD_ERROR;

   206

   207

	if (flags & DC_EXEC) {

   208

		p = GetPlayer(_current_player);

   209

		DeleteName(p->name_1);

   210

		p->name_1 = str;

   211

		MarkWholeScreenDirty();

   212

	} else {

   213

		DeleteName(str);

   214

	}

   215

   216

	return 0;

   217

}

   218

   219

/** Change the name of the president.

   220

 * @param tile unused

   222

 * @param p1 unused

   223

 * @param p2 unused

   224

 */

   225

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

   226

{

   227

	StringID str;

   228

	Player *p;

   229

   230

	if (_cmd_text[0] == '\0') return CMD_ERROR;

   231

   232

	str = AllocateNameUnique(_cmd_text, 4);

   233

	if (str == 0) return CMD_ERROR;

   234

   235

	if (flags & DC_EXEC) {

   236

		p = GetPlayer(_current_player);

   237

		DeleteName(p->president_name_1);

   238

		p->president_name_1 = str;

   239

   240

		if (p->name_1 == STR_SV_UNNAMED) {

   241

			char buf[80];

   242

   243

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

   244

			_cmd_text = buf;

   245

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

   246

		}

   247

		MarkWholeScreenDirty();

   248

	} else {

   249

		DeleteName(str);

   250

	}

   251

   252

	return 0;

   253

}

   254

   255

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

   256

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

   257

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

   258

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

   259

 * @param tile unused

   261

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

   262

 * @param p2 unused

   263

 */

   264

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

   265

{

   266

	if (flags & DC_EXEC) {

   267

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

   268

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

   269

		InvalidateWindow(WC_STATUS_BAR, 0);

   270

		InvalidateWindow(WC_MAIN_TOOLBAR, 0);

   271

	}

   272

	return 0;

   273

}

   274

   275

/** Change the financial flow of your company.

   276

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

   277

 * build, you can cheat (to test).

   278

 * @param tile unused

   280

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

   281

 * @param p2 unused

   282

 */

   283

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

   284

{

   285

#ifndef _DEBUG

   286

	if (_networking) return CMD_ERROR;

   287

#endif

   288

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   289

	return -(int32)p1;

   290

}

   291

   292

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

   293

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

   294

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

   295

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

   296

 * @param tile unused

   298

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

   299

 * @param p2 the player to transfer the money to

   300

 */

   301

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

   302

{

   303

	const Player *p = GetPlayer(_current_player);

   304

	int32 amount = min((int32)p1, 20000000);

   305

   306

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   307

   308

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

   309

	if (p->money64 - p->current_loan < amount || amount <= 0) return CMD_ERROR;

   310

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

   311

   312

	if (flags & DC_EXEC) {

   313

		/* Add money to player */

   314

		PlayerID old_cp = _current_player;

   315

		_current_player = (PlayerID)p2;

   316

		SubtractMoneyFromPlayer(-amount);

   317

		_current_player = old_cp;

   318

	}

   319

   320

	/* Subtract money from local-player */

   321

	return amount;

   322

}

   323

   324

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

   325

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

   326

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

   327

 * what to do and does this correctly

   328

 * @param tile unused

   330

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

   331

 *           itself is changed. The new value is inside p2

   332

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

   333

 */

   334

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

   335

{

   336

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

   337

   338

	if (flags & DC_EXEC) {

   339

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

   340

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

   341

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

   342

		} else {

   343

			_opt_ptr->diff_level = p2;

   344

		}

   345

   346

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

   347

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

   348

		 * the new difficulty settings */

   349

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

   350

			ShowGameDifficulty();

   351

	}

   352

	return 0;

   353

}