1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "map.h"

     5

#include "gui.h"

     6

#include "command.h"

     7

#include "player.h"

     8

#include "network.h"

     9

    10

#define DEF_COMMAND(yyyy) int32 yyyy(int x, int y, uint32 flags, uint32 p1, uint32 p2)

    11

    12

DEF_COMMAND(CmdBuildRailroadTrack);

    13

DEF_COMMAND(CmdRemoveRailroadTrack);

    14

DEF_COMMAND(CmdBuildSingleRail);

    15

DEF_COMMAND(CmdRemoveSingleRail);

    16

    17

DEF_COMMAND(CmdLandscapeClear);

    18

    19

DEF_COMMAND(CmdBuildBridge);

    20

    21

DEF_COMMAND(CmdBuildRailroadStation);

    22

DEF_COMMAND(CmdRemoveFromRailroadStation);

    23

DEF_COMMAND(CmdConvertRail);

    24

    25

DEF_COMMAND(CmdBuildSingleSignal);

    26

DEF_COMMAND(CmdRemoveSingleSignal);

    27

    28

DEF_COMMAND(CmdTerraformLand);

    29

    30

DEF_COMMAND(CmdPurchaseLandArea);

    31

DEF_COMMAND(CmdSellLandArea);

    32

    33

DEF_COMMAND(CmdBuildTunnel);

    34

    35

DEF_COMMAND(CmdBuildTrainDepot);

    36

DEF_COMMAND(CmdBuildTrainWaypoint);

    37

DEF_COMMAND(CmdRenameWaypoint);

    38

DEF_COMMAND(CmdRemoveTrainWaypoint);

    39

    40

DEF_COMMAND(CmdBuildRoadStop);

    41

    42

DEF_COMMAND(CmdBuildLongRoad);

    43

DEF_COMMAND(CmdRemoveLongRoad);

    44

DEF_COMMAND(CmdBuildRoad);

    45

DEF_COMMAND(CmdRemoveRoad);

    46

    47

DEF_COMMAND(CmdBuildRoadDepot);

    48

    49

DEF_COMMAND(CmdBuildAirport);

    50

    51

DEF_COMMAND(CmdBuildDock);

    52

    53

DEF_COMMAND(CmdBuildShipDepot);

    54

    55

DEF_COMMAND(CmdBuildBuoy);

    56

    57

DEF_COMMAND(CmdPlantTree);

    58

    59

DEF_COMMAND(CmdBuildRailVehicle);

    60

DEF_COMMAND(CmdMoveRailVehicle);

    61

    62

DEF_COMMAND(CmdStartStopTrain);

    63

    64

DEF_COMMAND(CmdSellRailWagon);

    65

    66

DEF_COMMAND(CmdSendTrainToDepot);

    67

DEF_COMMAND(CmdForceTrainProceed);

    68

DEF_COMMAND(CmdReverseTrainDirection);

    69

    70

DEF_COMMAND(CmdModifyOrder);

    71

DEF_COMMAND(CmdSkipOrder);

    72

DEF_COMMAND(CmdDeleteOrder);

    73

DEF_COMMAND(CmdInsertOrder);

    74

DEF_COMMAND(CmdChangeTrainServiceInt);

    75

DEF_COMMAND(CmdRestoreOrderIndex);

    76

    77

DEF_COMMAND(CmdBuildIndustry);

    78

    79

DEF_COMMAND(CmdBuildCompanyHQ);

    80

DEF_COMMAND(CmdSetPlayerFace);

    81

DEF_COMMAND(CmdSetPlayerColor);

    82

    83

DEF_COMMAND(CmdIncreaseLoan);

    84

DEF_COMMAND(CmdDecreaseLoan);

    85

    86

DEF_COMMAND(CmdWantEnginePreview);

    87

    88

DEF_COMMAND(CmdNameVehicle);

    89

DEF_COMMAND(CmdRenameEngine);

    90

    91

DEF_COMMAND(CmdChangeCompanyName);

    92

DEF_COMMAND(CmdChangePresidentName);

    93

    94

DEF_COMMAND(CmdRenameStation);

    95

    96

DEF_COMMAND(CmdSellAircraft);

    97

DEF_COMMAND(CmdStartStopAircraft);

    98

DEF_COMMAND(CmdBuildAircraft);

    99

DEF_COMMAND(CmdSendAircraftToHangar);

   100

DEF_COMMAND(CmdChangeAircraftServiceInt);

   101

DEF_COMMAND(CmdRefitAircraft);

   102

   103

DEF_COMMAND(CmdPlaceSign);

   104

DEF_COMMAND(CmdRenameSign);

   105

   106

DEF_COMMAND(CmdBuildRoadVeh);

   107

DEF_COMMAND(CmdStartStopRoadVeh);

   108

DEF_COMMAND(CmdSellRoadVeh);

   109

DEF_COMMAND(CmdSendRoadVehToDepot);

   110

DEF_COMMAND(CmdTurnRoadVeh);

   111

DEF_COMMAND(CmdChangeRoadVehServiceInt);

   112

   113

DEF_COMMAND(CmdPause);

   114

   115

DEF_COMMAND(CmdBuyShareInCompany);

   116

DEF_COMMAND(CmdSellShareInCompany);

   117

DEF_COMMAND(CmdBuyCompany);

   118

   119

DEF_COMMAND(CmdBuildTown);

   120

   121

DEF_COMMAND(CmdRenameTown);

   122

DEF_COMMAND(CmdDoTownAction);

   123

   124

DEF_COMMAND(CmdSetRoadDriveSide);

   125

   126

DEF_COMMAND(CmdChangeDifficultyLevel);

   127

DEF_COMMAND(CmdChangePatchSetting);

   128

   129

DEF_COMMAND(CmdStartStopShip);

   130

DEF_COMMAND(CmdSellShip);

   131

DEF_COMMAND(CmdBuildShip);

   132

DEF_COMMAND(CmdSendShipToDepot);

   133

DEF_COMMAND(CmdChangeShipServiceInt);

   134

DEF_COMMAND(CmdRefitShip);

   135

   136

DEF_COMMAND(CmdCloneOrder);

   137

   138

DEF_COMMAND(CmdClearArea);

   139

   140

DEF_COMMAND(CmdGiveMoney);

   141

DEF_COMMAND(CmdMoneyCheat);

   142

DEF_COMMAND(CmdBuildCanal);

   143

DEF_COMMAND(CmdBuildLock);

   144

   145

DEF_COMMAND(CmdPlayerCtrl);

   146

   147

DEF_COMMAND(CmdLevelLand);

   148

   149

DEF_COMMAND(CmdRefitRailVehicle);

   150

   151

DEF_COMMAND(CmdBuildSignalTrack);

   152

DEF_COMMAND(CmdRemoveSignalTrack);

   153

   154

DEF_COMMAND(CmdReplaceVehicle);

   155

   156

/* The master command table */

   157

static CommandProc * const _command_proc_table[] = {

   158

	CmdBuildRailroadTrack,				/* 0  */

   159

	CmdRemoveRailroadTrack,				/* 1  */

   160

	CmdBuildSingleRail,						/* 2  */

   161

	CmdRemoveSingleRail,					/* 3  */

   162

	CmdLandscapeClear,						/* 4  */

   163

	CmdBuildBridge,								/* 5  */

   164

	CmdBuildRailroadStation,			/* 6  */

   165

	CmdBuildTrainDepot,						/* 7  */

   166

	CmdBuildSingleSignal,					/* 8  */

   167

	CmdRemoveSingleSignal,				/* 9  */

   168

	CmdTerraformLand,							/* 10 */

   169

	CmdPurchaseLandArea,					/* 11 */

   170

	CmdSellLandArea,							/* 12 */

   171

	CmdBuildTunnel,								/* 13 */

   172

	CmdRemoveFromRailroadStation,	/* 14 */

   173

	CmdConvertRail,								/* 15 */

   174

	CmdBuildTrainWaypoint,				/* 16 */

   175

	CmdRenameWaypoint,						/* 17 */

   176

	CmdRemoveTrainWaypoint,				/* 18 */

   177

	NULL,                         /* 19 */

   178

	NULL,													/* 20 */

   179

	CmdBuildRoadStop,							/* 21 */

   180

	NULL,													/* 22 */

   181

	CmdBuildLongRoad,							/* 23 */

   182

	CmdRemoveLongRoad,						/* 24 */

   183

	CmdBuildRoad,									/* 25 */

   184

	CmdRemoveRoad,								/* 26 */

   185

	CmdBuildRoadDepot,						/* 27 */

   186

	NULL,													/* 28 */

   187

	CmdBuildAirport,							/* 29 */

   188

	CmdBuildDock,									/* 30 */

   189

	CmdBuildShipDepot,						/* 31 */

   190

	CmdBuildBuoy,									/* 32 */

   191

	CmdPlantTree,									/* 33 */

   192

	CmdBuildRailVehicle,					/* 34 */

   193

	CmdMoveRailVehicle,						/* 35 */

   194

	CmdStartStopTrain,						/* 36 */

   195

	NULL,													/* 37 */

   196

	CmdSellRailWagon,							/* 38 */

   197

	CmdSendTrainToDepot,		  	  /* 39 */

   198

	CmdForceTrainProceed,					/* 40 */

   199

	CmdReverseTrainDirection,			/* 41 */

   200

   201

	CmdModifyOrder,								/* 42 */

   202

	CmdSkipOrder,									/* 43 */

   203

	CmdDeleteOrder,								/* 44 */

   204

	CmdInsertOrder,								/* 45 */

   205

   206

	CmdChangeTrainServiceInt,			/* 46 */

   207

   208

	CmdBuildIndustry,							/* 47 */

   209

	CmdBuildCompanyHQ,						/* 48 */

   210

	CmdSetPlayerFace,							/* 49 */

   211

	CmdSetPlayerColor,						/* 50 */

   212

   213

	CmdIncreaseLoan,							/* 51 */

   214

	CmdDecreaseLoan,							/* 52 */

   215

   216

	CmdWantEnginePreview,					/* 53 */

   217

   218

	CmdNameVehicle,								/* 54 */

   219

	CmdRenameEngine,							/* 55 */

   220

   221

	CmdChangeCompanyName,					/* 56 */

   222

	CmdChangePresidentName,				/* 57 */

   223

   224

	CmdRenameStation,							/* 58 */

   225

   226

	CmdSellAircraft,							/* 59 */

   227

	CmdStartStopAircraft,					/* 60 */

   228

   229

	CmdBuildAircraft,							/* 61 */

   230

	CmdSendAircraftToHangar,			/* 62 */

   231

	CmdChangeAircraftServiceInt,	/* 63 */

   233

   234

	CmdPlaceSign,									/* 65 */

   235

	CmdRenameSign,								/* 66 */

   236

   237

	CmdBuildRoadVeh,							/* 67 */

   238

	CmdStartStopRoadVeh,					/* 68 */

   239

	CmdSellRoadVeh,								/* 69 */

   240

	CmdSendRoadVehToDepot,				/* 70 */

   241

	CmdTurnRoadVeh,								/* 71 */

   242

	CmdChangeRoadVehServiceInt,		/* 72 */

   243

   244

	CmdPause,											/* 73 <-- TODO: check/enforce by server */

   245

   246

	CmdBuyShareInCompany,					/* 74 */

   247

	CmdSellShareInCompany,				/* 75 */

   248

	CmdBuyCompany,								/* 76 */

   249

   250

	CmdBuildTown,									/* 77 <-- offline */

   251

	NULL,													/* 78 */

   252

	NULL,													/* 79 */

   253

	CmdRenameTown,								/* 80 <-- TODO: check/enforce by server */

   254

	CmdDoTownAction,							/* 81 */

   255

   256

	CmdSetRoadDriveSide,					/* 82 <-- TODO: check/enforce by server */

   257

	NULL,              						/* 83 */

   258

	NULL,													/* 84 */

   259

	CmdChangeDifficultyLevel,			/* 85 <-- TODO: check/enforce by server */

   260

   261

	CmdStartStopShip,							/* 86 */

   262

	CmdSellShip,									/* 87 */

   263

	CmdBuildShip,									/* 88 */

   264

	CmdSendShipToDepot,						/* 89 */

   265

	CmdChangeShipServiceInt,			/* 90 */

   267

   268

	NULL,            							/* 92 */

   269

	NULL,                         /* 93 */

   270

	NULL,             						/* 94 */

   271

	NULL,                         /* 95 */

   272

	NULL,													/* 96 */

   273

	NULL,                 				/* 97 */

   274

	NULL,                					/* 98 */

   275

   276

	CmdCloneOrder,								/* 99 */

   277

   278

	CmdClearArea,									/* 100 */

   279

	NULL,                         /* 101 */

   280

   281

	CmdMoneyCheat,								/* 102 <-- offline (debug) */

   282

	CmdBuildCanal,								/* 103 */

   283

	CmdPlayerCtrl,								/* 104 */

   284

   285

	CmdLevelLand,									/* 105 */

   286

   288

	CmdRestoreOrderIndex,					/* 107 */

   289

	CmdBuildLock,									/* 108 */

   290

	NULL,           							/* 109 */

   291

	CmdBuildSignalTrack,					/* 110 */

   292

	CmdRemoveSignalTrack,					/* 111 */

   293

	NULL,               					/* 112 */

   294

	CmdGiveMoney,									/* 113 */

   295

	CmdChangePatchSetting,				/* 114 <-- TODO: check/enforce by server */

   296

	CmdReplaceVehicle,						/* 115 */

   297

};

   298

   299

/* This function range-checks a cmd, and checks if the cmd is not NULL */

   300

bool IsValidCommand(uint cmd)

   301

{

   302

	cmd = cmd & 0xFF;

   303

   304

	if (cmd >= lengthof(_command_proc_table) || _command_proc_table[cmd] == NULL)

   305

		return false;

   306

   307

	return true;

   308

}

   309

   310

int32 DoCommandByTile(TileIndex tile, uint32 p1, uint32 p2, uint32 flags, uint procc)

   311

{

   312

	return DoCommand(TileX(tile) * 16, TileY(tile) * 16, p1, p2, flags, procc);

   313

}

   314

   315

   316

//extern void _stdcall Sleep(int s);

   317

   318

int32 DoCommand(int x, int y, uint32 p1, uint32 p2, uint32 flags, uint procc)

   319

{

   320

	int32 res;

   321

	CommandProc *proc;

   322

   323

	/* Do not even think about executing out-of-bounds tile-commands */

   324

	if (TILE_FROM_XY(x,y) > MapSize()) return CMD_ERROR;

   325

   326

	proc = _command_proc_table[procc];

   327

   328

	if (_docommand_recursive == 0) {

   329

		_error_message = INVALID_STRING_ID;

   330

		// update last build coord of player

   331

		if ( (x|y) != 0 && _current_player < MAX_PLAYERS) {

   332

			DEREF_PLAYER(_current_player)->last_build_coordinate = TILE_FROM_XY(x,y);

   333

		}

   334

	}

   335

   336

	_docommand_recursive++;

   337

   338

	// only execute the test call if it's toplevel, or we're not execing.

   339

	if (_docommand_recursive == 1 || !(flags & DC_EXEC) || (flags & DC_FORCETEST) ) {

   340

		res = proc(x, y, flags&~DC_EXEC, p1, p2);

   341

		if (CmdFailed(res)) {

   342

			if (res & 0xFFFF) _error_message = res & 0xFFFF;

   343

			goto error;

   344

		}

   345

   346

		if (_docommand_recursive == 1) {

   347

			if (!(flags&DC_QUERY_COST) && res != 0 && !CheckPlayerHasMoney(res))

   348

				goto error;

   349

		}

   350

   351

		if (!(flags & DC_EXEC)) {

   352

			_docommand_recursive--;

   353

			return res;

   354

		}

   355

	}

   356

   357

	/* Execute the command here. All cost-relevant functions set the expenses type

   358

	 * themselves with "SET_EXPENSES_TYPE(...);" at the beginning of the function */

   359

	res = proc(x, y, flags, p1, p2);

   360

	if (CmdFailed(res)) {

   361

		if (res & 0xFFFF) _error_message = res & 0xFFFF;

   362

error:

   363

		_docommand_recursive--;

   364

		return CMD_ERROR;

   365

	}

   366

   367

	// if toplevel, subtract the money.

   368

	if (--_docommand_recursive == 0) {

   369

		SubtractMoneyFromPlayer(res);

   370

	}

   371

   372

	return res;

   373

}

   374

   375

int32 GetAvailableMoneyForCommand(void)

   376

{

   377

	PlayerID pid = _current_player;

   378

	if (pid >= MAX_PLAYERS) return 0x7FFFFFFF; // max int

   379

	return DEREF_PLAYER(pid)->player_money;

   380

}

   381

   382

// toplevel network safe docommand function for the current player. must not be called recursively.

   383

// the callback is called when the command succeeded or failed.

   384

bool DoCommandP(TileIndex tile, uint32 p1, uint32 p2, CommandCallback *callback, uint32 cmd)

   385

{

   386

	int32 res = 0,res2;

   387

	CommandProc *proc;

   388

	uint32 flags;

   389

	bool notest;

   390

   391

	int x = TileX(tile) * 16;

   392

	int y = TileY(tile) * 16;

   393

   394

	/* Do not even think about executing out-of-bounds tile-commands */

   395

	if (tile > MapSize()) return false;

   396

   397

	assert(_docommand_recursive == 0);

   398

   399

	_error_message = INVALID_STRING_ID;

   400

	_error_message_2 = cmd >> 16;

   401

	_additional_cash_required = 0;

   402

   403

	// spectator has no rights.

   404

	if (_current_player == OWNER_SPECTATOR) {

   405

		ShowErrorMessage(_error_message, _error_message_2, x, y);

   406

		return false;

   407

	}

   408

   409

	flags = 0;

   410

	if (cmd & CMD_AUTO) flags |= DC_AUTO;

   411

	if (cmd & CMD_NO_WATER) flags |= DC_NO_WATER;

   412

   413

	// get pointer to command handler

   414

	assert((cmd & 0xFF) < lengthof(_command_proc_table));

   415

	proc = _command_proc_table[cmd & 0xFF];

   416

   417

	// Some commands have a different output in dryrun than the realrun

   418

	//  e.g.: if you demolish a whole town, the dryrun would say okay.

   419

	//  but by really destroying, your rating drops and at a certain point

   420

	//  it will fail. so res and res2 are different

   421

	// CMD_REMOVE_ROAD: This command has special local authority

   422

	// restrictions which may cause the test run to fail (the previous

   423

	// road fragments still stay there and the town won't let you

   424

	// disconnect the road system), but the exec will succeed and this

   425

	// fact will trigger an assertion failure. --pasky

   426

	notest =

   427

		(cmd & 0xFF) == CMD_CLEAR_AREA ||

   428

		(cmd & 0xFF) == CMD_CONVERT_RAIL ||

   429

		(cmd & 0xFF) == CMD_LEVEL_LAND ||

   430

		(cmd & 0xFF) == CMD_REMOVE_ROAD ||

   431

		(cmd & 0xFF) == CMD_REMOVE_LONG_ROAD;

   432

   433

	_docommand_recursive = 1;

   434

   435

	// cost estimation only?

   436

	if (_shift_pressed && _current_player == _local_player && !(cmd & (CMD_NETWORK_COMMAND | CMD_SHOW_NO_ERROR))) {

   437

		// estimate the cost.

   438

		res = proc(x, y, flags, p1, p2);

   439

		if (CmdFailed(res)) {

   440

			if (res & 0xFFFF) _error_message = res & 0xFFFF;

   441

			ShowErrorMessage(_error_message, _error_message_2, x, y);

   442

		} else {

   443

			ShowEstimatedCostOrIncome(res, x, y);

   444

		}

   445

   446

		_docommand_recursive = 0;

   447

		return false;

   448

	}

   449

   450

   451

	if (!((cmd & CMD_NO_TEST_IF_IN_NETWORK) && _networking)) {

   452

		// first test if the command can be executed.

   453

		res = proc(x,y, flags, p1, p2);

   454

		if (CmdFailed(res)) {

   455

			if (res & 0xFFFF) _error_message = res & 0xFFFF;

   456

			goto show_error;

   457

		}

   458

		// no money? Only check if notest is off

   459

		if (!notest && res != 0 && !CheckPlayerHasMoney(res)) goto show_error;

   460

	}

   461

   462

#ifdef ENABLE_NETWORK

   463

	// If we are in network, and the command is not from the network

   464

	//   send it to the command-queue and abort execution

   465

	if (_networking && !(cmd & CMD_NETWORK_COMMAND)) {

   466

		NetworkSend_Command(tile, p1, p2, cmd, callback);

   467

		_docommand_recursive = 0;

   468

		return true;

   469

	}

   470

#endif /* ENABLE_NETWORK */

   471

   472

	// update last build coordinate of player.

   473

	if ( tile != 0 && _current_player < MAX_PLAYERS) DEREF_PLAYER(_current_player)->last_build_coordinate = tile;

   474

   475

	/* Actually try and execute the command. If no cost-type is given

   476

	 * use the construction one */

   477

	_yearly_expenses_type = EXPENSES_CONSTRUCTION;

   478

	res2 = proc(x,y, flags|DC_EXEC, p1, p2);

   479

   480

	// If notest is on, it means the result of the test can be different than

   481

	//   the real command.. so ignore the test

   482

	if (!notest && !((cmd & CMD_NO_TEST_IF_IN_NETWORK) && _networking)) {

   483

		assert(res == res2); // sanity check

   484

	} else {

   485

		if (CmdFailed(res2)) {

   486

			if (res2 & 0xFFFF) _error_message = res2 & 0xFFFF;

   487

			goto show_error;

   488

		}

   489

	}

   490

   491

	SubtractMoneyFromPlayer(res2);

   492

   493

	if (_current_player == _local_player && _game_mode != GM_EDITOR) {

   494

		if (res2 != 0)

   495

			ShowCostOrIncomeAnimation(x, y, GetSlopeZ(x, y), res2);

   496

		if (_additional_cash_required) {

   497

			SetDParam(0, _additional_cash_required);

   498

			ShowErrorMessage(STR_0003_NOT_ENOUGH_CASH_REQUIRES, _error_message_2, x,y);

   499

			if (res2 == 0) goto callb_err;

   500

		}

   501

	}

   502

   503

	_docommand_recursive = 0;

   504

   505

	if (callback) callback(true, tile, p1, p2);