1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "functions.h"

     6

#include "string.h"

     7

#include "table/strings.h"

     8

#include "command.h"

     9

#include "player.h"

    10

#include "gfx.h"

    11

#include "window.h"

    12

#include "gui.h"

    13

#include "economy.h"

    14

#include "network.h"

    15

#include "variables.h"

    16

#include "ai/ai.h"

    17

    18

/** Change the player's face.

    19

 * @param x,y unused

    20

 * @param p1 unused

    21

 * @param p2 face bitmasked

    22

 */

    23

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

    24

{

    25

	if (flags & DC_EXEC) {

    26

		GetPlayer(_current_player)->face = p2;

    27

		MarkWholeScreenDirty();

    28

	}

    29

	return 0;

    30

}

    31

    32

/** Change the player's company-colour

    33

 * @param x,y unused

    34

 * @param p1 unused

    35

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

    36

 */

    37

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

    38

{

    39

	Player *p, *pp;

    40

	byte colour;

    41

    42

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

    43

	colour = p2;

    44

    45

	p = GetPlayer(_current_player);

    46

    47

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

    48

	FOR_ALL_PLAYERS(pp) {

    49

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

    50

			return CMD_ERROR;

    51

	}

    52

    53

	if (flags & DC_EXEC) {

    54

		_player_colors[_current_player] = colour;

    55

		p->player_color = colour;

    56

		MarkWholeScreenDirty();

    57

	}

    58

	return 0;

    59

}

    60

    61

/** Increase the loan of your company.

    62

 * @param x,y unused

    63

 * @param p1 unused

    64

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

    65

 */

    66

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

    67

{

    68

	Player *p;

    69

    70

	p = GetPlayer(_current_player);

    71

    72

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

    73

		SetDParam(0, _economy.max_loan);

    74

		return_cmd_error(STR_702B_MAXIMUM_PERMITTED_LOAN);

    75

	}

    76

    77

	if (flags & DC_EXEC) {

    78

		/* Loan the maximum amount or not? */

    79

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

    80

    81

		p->money64 += loan;

    82

		p->current_loan += loan;

    83

		UpdatePlayerMoney32(p);

    84

		InvalidatePlayerWindows(p);

    85

	}

    86

    87

	return 0;

    88

}

    89

    90

/** Decrease the loan of your company.

    91

 * @param x,y unused

    92

 * @param p1 unused

    93

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

    94

 */

    95

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

    96

{

    97

	Player *p;

    98

	int32 loan;

    99

   100

	p = GetPlayer(_current_player);

   101

   102

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

   103

   104

	loan = p->current_loan;

   105

   106

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

   107

	 * Repay any loan in chunks of 10.000 pounds */

   108

	if (p2) {

   109

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

   110

		loan = max(loan, 10000);

   111

		loan -= loan % 10000;

   112

	} else {

   113

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

   114

	}

   115

   116

	if (p->player_money < loan) {

   117

		SetDParam(0, loan);

   118

		return_cmd_error(STR_702E_REQUIRED);

   119

	}

   120

   121

	if (flags & DC_EXEC) {

   122

		p->money64 -= loan;

   123

		p->current_loan -= loan;

   124

		UpdatePlayerMoney32(p);

   125

		InvalidatePlayerWindows(p);

   126

	}

   127

	return 0;

   128

}

   129

   130

/** Change the name of the company.

   131

 * @param x,y unused

   132

 * @param p1 unused

   133

 * @param p2 unused

   134

 */

   135

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

   136

{

   137

	StringID str;

   138

	Player *p;

   139

   140

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

   141

   142

	str = AllocateNameUnique(_cmd_text, 4);

   143

	if (str == 0) return CMD_ERROR;

   144

   145

	if (flags & DC_EXEC) {

   146

		p = GetPlayer(_current_player);

   147

		DeleteName(p->name_1);

   148

		p->name_1 = str;

   149

		MarkWholeScreenDirty();

   150

	} else

   151

		DeleteName(str);

   152

   153

	return 0;

   154

}

   155

   156

/** Change the name of the president.

   157

 * @param x,y unused

   158

 * @param p1 unused

   159

 * @param p2 unused

   160

 */

   161

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

   162

{

   163

	StringID str;

   164

	Player *p;

   165

   166

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

   167

   168

	str = AllocateNameUnique(_cmd_text, 4);

   169

	if (str == 0) return CMD_ERROR;

   170

   171

	if (flags & DC_EXEC) {

   172

		p = GetPlayer(_current_player);

   173

		DeleteName(p->president_name_1);

   174

		p->president_name_1 = str;

   175

   176

		if (p->name_1 == STR_SV_UNNAMED) {

   177

			char buf[80];

   178

   179

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

   180

			_cmd_text = buf;

   181

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

   182

		}

   183

		MarkWholeScreenDirty();

   184

	} else

   185

		DeleteName(str);

   186

   187

	return 0;

   188

}

   189

   190

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

   191

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

   192

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

   193

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

   194

 * @param x,y unused

   195

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

   196

 * @param p2 unused

   197

 */

   198

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

   199

{

   200

	if (flags & DC_EXEC) {

   201

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

   202

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

   203

		InvalidateWindow(WC_STATUS_BAR, 0);

   204

		InvalidateWindow(WC_MAIN_TOOLBAR, 0);

   205

	}

   206

	return 0;

   207

}

   208

   209

/** Change the financial flow of your company.

   210

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

   211

 * build, you can cheat (to test).

   212

 * @param x,y unused

   213

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

   214

 * @param p2 unused

   215

 */

   216

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

   217

{

   218

#ifndef _DEBUG

   219

	if (_networking) return CMD_ERROR;

   220

#endif

   221

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   222

	return (int32)p1;

   223

}

   224

   225

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

   226

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

   227

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

   228

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

   229

 * @param x,y unused

   230

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

   231

 * @param p2 the player to transfer the money to

   232

 */

   233

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

   234

{

   235

	const Player *p = GetPlayer(_current_player);

   236

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

   237

   238

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   239

   240

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

   241

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

   242

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

   243

   244

	if (flags & DC_EXEC) {

   245

		/* Add money to player */

   246

		PlayerID old_cp = _current_player;

   247

		_current_player = p2;

   248

		SubtractMoneyFromPlayer(-amount);

   249

		_current_player = old_cp;

   250

	}

   251

   252

	/* Subtract money from local-player */

   253

	return amount;

   254

}

   255

   256

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

   257

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

   258

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

   259

 * what to do and does this correctly

   260

 * @param x,y unused

   261

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

   262

 *           itself is changed. The new value is inside p2

   263

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

   264

 */

   265

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

   266

{

   267

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

   268

   269

	if (flags & DC_EXEC) {

   270

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

   271

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

   272

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

   273

		} else

   274

			_opt_ptr->diff_level = p2;

   275

   276

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

   277

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

   278

		 * the new difficulty settings */

   279

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

   280

			ShowGameDifficulty();

   281

	}

   282

	return 0;

   283

}