1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "string.h"

     4

#include "table/strings.h"

     5

#include "command.h"

     6

#include "player.h"

     7

#include "gfx.h"

     8

#include "window.h"

     9

#include "gui.h"

    10

#include "saveload.h"

    11

#include "economy.h"

    12

#include "network.h"

    13

    14

/** Change the player's face.

    15

 * @param x,y unused

    16

 * @param p1 unused

    17

 * @param p2 face bitmasked

    18

 */

    19

int32 CmdSetPlayerFace(int x, int y, uint32 flags, uint32 p1, uint32 p2)

    20

{

    21

	if (flags & DC_EXEC) {

    22

		GetPlayer(_current_player)->face = p2;

    23

		MarkWholeScreenDirty();

    24

	}

    25

	return 0;

    26

}

    27

    28

/** Change the player's company-colour

    29

 * @param x,y unused

    30

 * @param p1 unused

    31

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

    32

 */

    33

int32 CmdSetPlayerColor(int x, int y, uint32 flags, uint32 p1, uint32 p2)

    34

{

    35

	Player *p, *pp;

    36

    37

	p = GetPlayer(_current_player);

    38

    39

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

    40

	FOR_ALL_PLAYERS(pp) {

    41

		if (pp->is_active && pp != p && pp->player_color == (byte)p2)

    42

			return CMD_ERROR;

    43

	}

    44

    45

	if (flags & DC_EXEC) {

    46

		_player_colors[_current_player] = (byte)p2;

    47

		p->player_color = (byte)p2;

    48

		MarkWholeScreenDirty();

    49

	}

    50

	return 0;

    51

}

    52

    53

/** Increase the loan of your company.

    54

 * @param x,y unused

    55

 * @param p1 unused

    56

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

    57

 */

    58

int32 CmdIncreaseLoan(int x, int y, uint32 flags, uint32 p1, uint32 p2)

    59

{

    60

	Player *p;

    61

    62

	p = GetPlayer(_current_player);

    63

    64

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

    65

		SetDParam(0, _economy.max_loan);

    66

		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);

    67

	}

    68

    69

	if (flags & DC_EXEC) {

    70

		/* Loan the maximum amount or not? */

    71

		int32 loan = (p2) ? _economy.max_loan - p->current_loan : IS_HUMAN_PLAYER(_current_player) ? 10000 : 50000;

    72

    73

		p->money64 += loan;

    74

		p->current_loan += loan;

    75

		UpdatePlayerMoney32(p);

    76

		InvalidatePlayerWindows(p);

    77

	}

    78

    79

	return 0;

    80

}

    81

    82

/** Decrease the loan of your company.

    83

 * @param x,y unused

    84

 * @param p1 unused

    85

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

    86

 */

    87

int32 CmdDecreaseLoan(int x, int y, uint32 flags, uint32 p1, uint32 p2)

    88

{

    89

	Player *p;

    90

	int32 loan;

    91

    92

	p = GetPlayer(_current_player);

    93

    94

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

    95

    96

	loan = p->current_loan;

    97

    98

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

    99

	 * Repay any loan in chunks of 10.000 pounds */

   100

	if (p2) {

   101

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

   102

		loan = max(loan, 10000);

   103

		loan -= loan % 10000;

   104

	} else {

   105

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

   106

	}

   107

   108

	if (p->player_money < loan) {

   109

		SetDParam(0, loan);

   110

		return_cmd_error(STR_702E_REQUIRED);

   111

	}

   112

   113

	if (flags & DC_EXEC) {

   114

		p->money64 -= loan;

   115

		p->current_loan -= loan;

   116

		UpdatePlayerMoney32(p);

   117

		InvalidatePlayerWindows(p);

   118

	}

   119

	return 0;

   120

}

   121

   122

/** Change the name of the company.

   123

 * @param x,y unused

   124

 * @param p1 unused

   125

 * @param p2 unused

   126

 */

   127

int32 CmdChangeCompanyName(int x, int y, uint32 flags, uint32 p1, uint32 p2)

   128

{

   129

	StringID str;

   130

	Player *p;

   131

   132

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

   133

   134

	str = AllocateNameUnique(_cmd_text, 4);

   135

	if (str == 0) return CMD_ERROR;

   136

   137

	if (flags & DC_EXEC) {

   138

		p = DEREF_PLAYER(_current_player);

   139

		DeleteName(p->name_1);

   140

		p->name_1 = str;

   141

		MarkWholeScreenDirty();

   142

	} else

   143

		DeleteName(str);

   144

   145

	return 0;

   146

}

   147

   148

/** Change the name of the president.

   149

 * @param x,y unused

   150

 * @param p1 unused

   151

 * @param p2 unused

   152

 */

   153

int32 CmdChangePresidentName(int x, int y, uint32 flags, uint32 p1, uint32 p2)

   154

{

   155

	StringID str;

   156

	Player *p;

   157

   158

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

   159

   160

	str = AllocateNameUnique(_cmd_text, 4);

   161

	if (str == 0) return CMD_ERROR;

   162

   163

	if (flags & DC_EXEC) {

   164

		p = DEREF_PLAYER(_current_player);

   165

		DeleteName(p->president_name_1);

   166

		p->president_name_1 = str;

   167

   168

		if (p->name_1 == STR_SV_UNNAMED) {

   169

			char buf[80];

   170

   171

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

   172

			_cmd_text = buf;

   173

			DoCommandByTile(0, 0, 0, DC_EXEC, CMD_CHANGE_COMPANY_NAME);

   174

		}

   175

		MarkWholeScreenDirty();

   176

	} else

   177

		DeleteName(str);

   178

   179

	return 0;

   180

}

   181

   182

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

   183

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

   184

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

   185

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

   186

 * @param x,y unused

   187

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

   188

 * @param p2 unused

   189

 */

   190

int32 CmdPause(int x, int y, uint32 flags, uint32 p1, uint32 p2)

   191

{

   192

	if (flags & DC_EXEC) {

   193

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

   194

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

   195

		InvalidateWindow(WC_STATUS_BAR, 0);

   196

		InvalidateWindow(WC_MAIN_TOOLBAR, 0);

   197

	}

   198

	return 0;

   199

}

   200

   201

/** Change the financial flow of your company.

   202

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

   203

 * build, you can cheat (to test).

   204

 * @param x,y unused

   205

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

   206

 * @param p2 unused

   207

 */

   208

int32 CmdMoneyCheat(int x, int y, uint32 flags, uint32 p1, uint32 p2)

   209

{

   210

#ifndef _DEBUG

   211

	if (_networking) return CMD_ERROR;

   212

#endif

   213

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   214

	return (int32)p1;

   215

}

   216

   217

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

   218

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

   219

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

   220

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

   221

 * @param x,y unused

   222

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

   223

 * @param p2 the player to transfer the money to

   224

 */

   225

int32 CmdGiveMoney(int x, int y, uint32 flags, uint32 p1, uint32 p2)

   226

{

   227

	const Player *p = DEREF_PLAYER(_current_player);

   228

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

   229

   230

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   231

   232

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

   233

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

   234

	if (!_networking || p2 >= MAX_PLAYERS) return CMD_ERROR;

   235

   236

	if (flags & DC_EXEC) {

   237

		/* Add money to player */

   238

		PlayerID old_cp = _current_player;

   239

		_current_player = p2;

   240

		SubtractMoneyFromPlayer(-amount);

   241

		_current_player = old_cp;

   242

	}

   243

   244

	/* Subtract money from local-player */

   245

	return amount;

   246

}

   247

   248

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

   249

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

   250

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

   251

 * what to do and does this correctly

   252

 * @param x,y unused

   253

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

   254

 *           itself is changed. The new value is inside p2

   255

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

   256

 */

   257

int32 CmdChangeDifficultyLevel(int x, int y, uint32 flags, uint32 p1, uint32 p2)

   258

{

   259

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

   260

   261

	if (flags & DC_EXEC) {

   262

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

   263

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

   264

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

   265

		} else

   266

			_opt_ptr->diff_level = p2;

   267

   268

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

   269

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

   270

		* the new difficulty settings */

   271

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

   272

			ShowGameDifficulty();

   273

	}

   274

	return 0;

   275

}