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

    26

#include "table/strings.h"

    27

    28

/** Change the player's face.

    29

 * @param tile unused

    30

 * @param flags operation to perform

    31

 * @param p1 unused

    32

 * @param p2 face bitmasked

    33

 */

    34

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

    35

{

    36

	PlayerFace pf = (PlayerFace)p2;

    37

    38

	if (!IsValidPlayerFace(pf)) return CMD_ERROR;

    39

    40

	if (flags & DC_EXEC) {

    41

		GetPlayer(_current_player)->face = pf;

    42

		MarkWholeScreenDirty();

    43

	}

    44

	return CommandCost();

    45

}

    46

    47

/** Change the player's company-colour

    48

 * @param tile unused

    49

 * @param flags operation to perform

    50

 * @param p1 bitstuffed:

    51

 * p1 bits 0-7 scheme to set

    52

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

    53

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

    54

 */

    55

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

    56

{

    57

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

    58

    59

	byte colour = p2;

    60

    61

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

    62

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

    63

    64

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

    65

    66

	Player *p = GetPlayer(_current_player);

    67

    68

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

    69

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

    70

		const Player *pp;

    71

		FOR_ALL_PLAYERS(pp) {

    72

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

    73

		}

    74

	}

    75

    76

	if (flags & DC_EXEC) {

    77

		switch (state) {

    78

			case 0:

    79

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

    80

    81

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

    82

				 * original and cached player colours too. */

    83

				if (scheme == LS_DEFAULT) {

    84

					_player_colors[_current_player] = colour;

    85

					p->player_color = colour;

    86

				}

    87

				break;

    88

    89

			case 1:

    90

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

    91

				break;

    92

    93

			case 2:

    94

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

    95

    96

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

    97

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

    98

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

    99

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

   100

				 * colours will be used. */

   101

   102

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

   103

				if (colour != 0) {

   104

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

   105

					break;

   106

				}

   107

   108

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

   109

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

   110

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

   111

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

   112

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

   113

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

   114

						break;

   115

					}

   116

				}

   117

				break;

   118

   119

			default:

   120

				break;

   121

		}

   122

		ResetVehicleColorMap();

   123

		MarkWholeScreenDirty();

   124

	}

   125

	return CommandCost();

   126

}

   127

   128

/** Increase the loan of your company.

   129

 * @param tile unused

   130

 * @param flags operation to perform

   131

 * @param p1 amount to increase the loan with, multitude of LOAN_INTERVAL. Only used when p2 == 2.

   132

 * @param p2 when 0: loans LOAN_INTERVAL

   133

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

   134

 *           when 2: loans the amount specified in p1

   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 = LOAN_INTERVAL;

   150

			break;

   151

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

   152

			loan = _economy.max_loan - p->current_loan;

   153

			break;

   154

		case 2: // Take the given amount of loan

   155

			if ((((int32)p1 < LOAN_INTERVAL) || p->current_loan + (int32)p1 > _economy.max_loan || (p1 % LOAN_INTERVAL) != 0)) return CMD_ERROR;

   156

			loan = p1;

   157

			break;

   158

	}

   159

   160

	/* Overflow protection */

   161

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

   162

   163

	if (flags & DC_EXEC) {

   164

		p->player_money += loan;

   165

		p->current_loan += loan;

   166

		InvalidatePlayerWindows(p);

   167

	}

   168

   169

	return CommandCost(EXPENSES_OTHER);

   170

}

   171

   172

/** Decrease the loan of your company.

   173

 * @param tile unused

   174

 * @param flags operation to perform

   175

 * @param p1 amount to decrease the loan with, multitude of LOAN_INTERVAL. Only used when p2 == 2.

   176

 * @param p2 when 0: pays back LOAN_INTERVAL

   177

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

   178

 *           when 2: pays back the amount specified in p1

   179

 */

   180

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

   181

{

   182

	Player *p = GetPlayer(_current_player);

   183

   184

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

   185

   186

	Money loan;

   187

	switch (p2) {

   188

		default: return CMD_ERROR; // Invalid method

   189

		case 0: // Pay back one step

   190

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

   191

			break;

   192

		case 1: // Pay back as much as possible

   193

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

   194

			loan -= loan % LOAN_INTERVAL;

   195

			break;

   196

		case 2: // Repay the given amount of loan

   197

			if ((p1 % LOAN_INTERVAL != 0) || ((int32)p1 < LOAN_INTERVAL)) return CMD_ERROR; // Invalid amount to loan

   198

			loan = p1;

   199

			break;

   200

	}

   201

   202

	if (p->player_money < loan) {

   203

		SetDParam(0, loan);

   204

		return_cmd_error(STR_702E_REQUIRED);

   205

	}

   206

   207

	if (flags & DC_EXEC) {

   208

		p->player_money -= loan;

   209

		p->current_loan -= loan;

   210

		InvalidatePlayerWindows(p);

   211

	}

   212

	return CommandCost();

   213

}

   214

   215

static bool IsUniqueCompanyName(const char *name)

   216

{

   217

	const Player *p;

   218

	char buf[512];

   219

   220

	FOR_ALL_PLAYERS(p) {

   221

		if (!p->is_active) continue;

   222

		SetDParam(0, p->index);

   223

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

   224

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

   225

	}

   226

   227

	return true;

   228

}

   229

   230

/** Change the name of the company.

   231

 * @param tile unused

   232

 * @param flags operation to perform

   233

 * @param p1 unused

   234

 * @param p2 unused

   235

 */

   236

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

   237

{

   238

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   239

   240

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

   241

   242

	if (flags & DC_EXEC) {

   243

		Player *p = GetPlayer(_current_player);

   244

		free(p->name);

   245

		p->name = strdup(_cmd_text);

   246

		MarkWholeScreenDirty();

   247

	}

   248

   249

	return CommandCost();

   250

}

   251

   252

static bool IsUniquePresidentName(const char *name)

   253

{

   254

	const Player *p;

   255

	char buf[512];

   256

   257

	FOR_ALL_PLAYERS(p) {

   258

		if (!p->is_active) continue;

   259

		SetDParam(0, p->index);

   260

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

   261

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

   262

	}

   263

   264

	return true;

   265

}

   266

   267

/** Change the name of the president.

   268

 * @param tile unused

   269

 * @param flags operation to perform

   270

 * @param p1 unused

   271

 * @param p2 unused

   272

 */

   273

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

   274

{

   275

	if (StrEmpty(_cmd_text)) return CMD_ERROR;

   276

   277

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

   278

   279

	if (flags & DC_EXEC) {

   280

		Player *p = GetPlayer(_current_player);

   281

		free(p->president_name);

   282

		p->president_name = strdup(_cmd_text);

   283

   284

		if (p->name_1 == STR_SV_UNNAMED) {

   285

			char buf[80];

   286

   287

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

   288

			_cmd_text = buf;

   289

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

   290

		}

   291

		MarkWholeScreenDirty();

   292

	}

   293

   294

	return CommandCost();

   295

}

   296

   297

/**

   298

 * In case of an unsafe unpause, we want the

   299

 * user to confirm that it might crash.

   300

 * @param w         unused

   301

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

   302

 */

   303

static void AskUnsafeUnpauseCallback(Window *w, bool confirmed)

   304

{

   305

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

   306

}

   307

   308

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

   309

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

   310

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

   311

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

   312

 * @param tile unused

   313

 * @param flags operation to perform

   314

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

   315

 * @param p2 unused

   316

 */

   317

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

   318

{

   319

	if (flags & DC_EXEC) {

   320

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

   321

   322

		switch (_pause_game) {

   323

			case -4:

   324

			case -1:

   325

				_pause_game = 0;

   326

				break;

   327

			case -3:

   328

				ShowQuery(

   329

					STR_NEWGRF_UNPAUSE_WARNING_TITLE,

   330

					STR_NEWGRF_UNPAUSE_WARNING,

   331

					NULL,

   332

					AskUnsafeUnpauseCallback

   333

				);

   334

				break;

   335

   336

			default: break;

   337

		}

   338

   339

		InvalidateWindow(WC_STATUS_BAR, 0);

   340

		InvalidateWindow(WC_MAIN_TOOLBAR, 0);

   341

	}

   342

	return CommandCost();

   343

}

   344

   345

/** Change the financial flow of your company.

   346

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

   347

 * build, you can cheat (to test).

   348

 * @param tile unused

   349

 * @param flags operation to perform

   350

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

   351

 * @param p2 unused

   352

 */

   353

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

   354

{

   355

#ifndef _DEBUG

   356

	if (_networking) return CMD_ERROR;

   357

#endif

   358

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

   359

}

   360

   361

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

   362

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

   363

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

   364

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

   365

 * @param tile unused

   366

 * @param flags operation to perform

   367

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

   368

 * @param p2 the player to transfer the money to

   369

 */

   370

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

   371

{

   372

	if (!_settings_game.economy.give_money) return CMD_ERROR;

   373

   374

	const Player *p = GetPlayer(_current_player);

   375

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

   376

   377

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

   378

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

   379

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

   380

   381

	if (flags & DC_EXEC) {

   382

		/* Add money to player */

   383

		PlayerID old_cp = _current_player;

   384

		_current_player = (PlayerID)p2;

   385

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

   386

		_current_player = old_cp;

   387

	}

   388

   389

	/* Subtract money from local-player */

   390

	return amount;

   391

}