1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "gui.h"

     4

#include "command.h"

     5

#include "player.h"

     6

     7

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

     8

     9

DEF_COMMAND(CmdBuildRailroadTrack);

    10

DEF_COMMAND(CmdRemoveRailroadTrack);

    11

DEF_COMMAND(CmdBuildSingleRail);

    12

DEF_COMMAND(CmdRemoveSingleRail);

    13

    14

DEF_COMMAND(CmdLandscapeClear);

    15

    16

DEF_COMMAND(CmdBuildBridge);

    17

    18

DEF_COMMAND(CmdBuildRailroadStation);

    19

DEF_COMMAND(CmdRemoveFromRailroadStation);

    20

DEF_COMMAND(CmdConvertRail);

    21

    22

DEF_COMMAND(CmdBuildSignals);

    23

DEF_COMMAND(CmdRemoveSignals);

    24

    25

DEF_COMMAND(CmdTerraformLand);

    26

    27

DEF_COMMAND(CmdPurchaseLandArea);

    28

DEF_COMMAND(CmdSellLandArea);

    29

    30

DEF_COMMAND(CmdBuildTunnel);

    31

    32

DEF_COMMAND(CmdBuildTrainDepot);

    33

DEF_COMMAND(CmdBuildTrainCheckpoint);

    34

DEF_COMMAND(CmdRenameCheckpoint);

    35

DEF_COMMAND(CmdRemoveTrainCheckpoint);

    36

    37

DEF_COMMAND(CmdBuildTruckStation);

    38

    39

DEF_COMMAND(CmdBuildBusStation);

    40

    41

DEF_COMMAND(CmdBuildLongRoad);

    42

DEF_COMMAND(CmdRemoveLongRoad);

    43

DEF_COMMAND(CmdBuildRoad);

    44

DEF_COMMAND(CmdRemoveRoad);

    45

    46

DEF_COMMAND(CmdBuildRoadDepot);

    47

    48

DEF_COMMAND(CmdBuildAirport);

    49

    50

DEF_COMMAND(CmdBuildDock);

    51

    52

DEF_COMMAND(CmdBuildShipDepot);

    53

    54

DEF_COMMAND(CmdBuildBuoy);

    55

    56

DEF_COMMAND(CmdPlantTree);

    57

    58

DEF_COMMAND(CmdBuildRailVehicle);

    59

DEF_COMMAND(CmdMoveRailVehicle);

    60

    61

DEF_COMMAND(CmdStartStopTrain);

    62

    63

DEF_COMMAND(CmdSellRailWagon);

    64

    65

DEF_COMMAND(CmdTrainGotoDepot);

    66

DEF_COMMAND(CmdForceTrainProceed);

    67

DEF_COMMAND(CmdReverseTrainDirection);

    68

    69

DEF_COMMAND(CmdModifyOrder);

    70

DEF_COMMAND(CmdSkipOrder);

    71

DEF_COMMAND(CmdDeleteOrder);

    72

DEF_COMMAND(CmdInsertOrder);

    73

DEF_COMMAND(CmdChangeTrainServiceInt);

    74

DEF_COMMAND(CmdRestoreOrderIndex);

    75

    76

DEF_COMMAND(CmdBuildIndustry);

    77

//DEF_COMMAND(CmdDestroyIndustry);

    78

    79

DEF_COMMAND(CmdBuildCompanyHQ);

    80

DEF_COMMAND(CmdDestroyCompanyHQ);

    81

DEF_COMMAND(CmdSetPlayerFace);

    82

DEF_COMMAND(CmdSetPlayerColor);

    83

    84

DEF_COMMAND(CmdIncreaseLoan);

    85

DEF_COMMAND(CmdDecreaseLoan);

    86

    87

DEF_COMMAND(CmdWantEnginePreview);

    88

    89

DEF_COMMAND(CmdNameVehicle);

    90

DEF_COMMAND(CmdRenameEngine);

    91

    92

DEF_COMMAND(CmdChangeCompanyName);

    93

DEF_COMMAND(CmdChangePresidentName);

    94

    95

DEF_COMMAND(CmdRenameStation);

    96

    97

DEF_COMMAND(CmdSellAircraft);

    98

DEF_COMMAND(CmdStartStopAircraft);

    99

DEF_COMMAND(CmdBuildAircraft);

   100

DEF_COMMAND(CmdSendAircraftToHangar);

   101

DEF_COMMAND(CmdChangeAircraftServiceInt);

   102

DEF_COMMAND(CmdRefitAircraft);

   103

   104

DEF_COMMAND(CmdPlaceSign);

   105

DEF_COMMAND(CmdRenameSign);

   106

   107

DEF_COMMAND(CmdBuildRoadVeh);

   108

DEF_COMMAND(CmdStartStopRoadVeh);

   109

DEF_COMMAND(CmdSellRoadVeh);

   110

DEF_COMMAND(CmdSendRoadVehToDepot);

   111

DEF_COMMAND(CmdTurnRoadVeh);

   112

DEF_COMMAND(CmdChangeRoadVehServiceInt);

   113

   114

DEF_COMMAND(CmdPause);

   115

DEF_COMMAND(CmdResume);

   116

   117

DEF_COMMAND(CmdBuyShareInCompany);

   118

DEF_COMMAND(CmdSellShareInCompany);

   119

DEF_COMMAND(CmdBuyCompany);

   120

   121

DEF_COMMAND(CmdBuildTown);

   122

   123

DEF_COMMAND(CmdRenameTown);

   124

DEF_COMMAND(CmdDoTownAction);

   125

   126

DEF_COMMAND(CmdSetRoadDriveSide);

   127

DEF_COMMAND(CmdSetTownNameType);

   128

   129

DEF_COMMAND(CmdChangeDifficultyLevel);

   130

   131

DEF_COMMAND(CmdStartStopShip);

   132

DEF_COMMAND(CmdSellShip);

   133

DEF_COMMAND(CmdBuildShip);

   134

DEF_COMMAND(CmdSendShipToDepot);

   135

DEF_COMMAND(CmdChangeShipServiceInt);

   136

DEF_COMMAND(CmdRefitShip);

   137

   138

   139

DEF_COMMAND(CmdStartNewGame);

   140

DEF_COMMAND(CmdLoadGame);

   141

DEF_COMMAND(CmdCreateScenario);

   142

DEF_COMMAND(CmdSetSinglePlayer);

   143

   144

DEF_COMMAND(CmdSetNewLandscapeType);

   145

   146

DEF_COMMAND(CmdGenRandomNewGame);

   147

DEF_COMMAND(CmdCloneOrder);

   148

   149

DEF_COMMAND(CmdClearArea);

   150

   151

DEF_COMMAND(CmdMoneyCheat);

   152

DEF_COMMAND(CmdBuildCanal);

   153

DEF_COMMAND(CmdBuildLock);

   154

   155

DEF_COMMAND(CmdPlayerCtrl);

   156

   157

DEF_COMMAND(CmdLevelLand);

   158

   159

DEF_COMMAND(CmdRefitRailVehicle);

   160

   161

DEF_COMMAND(CmdStartScenario);

   162

   163

DEF_COMMAND(CmdBuildManySignals);

   164

   165

/* The master command table */

   166

static CommandProc * const _command_proc_table[] = {

   167

	CmdBuildRailroadTrack,				/* 0  */

   168

	CmdRemoveRailroadTrack,				/* 1  */

   169

	CmdBuildSingleRail,						/* 2  */

   170

	CmdRemoveSingleRail,					/* 3  */

   171

	CmdLandscapeClear,						/* 4  */

   172

	CmdBuildBridge,								/* 5  */

   173

	CmdBuildRailroadStation,			/* 6  */

   174

	CmdBuildTrainDepot,						/* 7  */

   175

	CmdBuildSignals,							/* 8  */

   176

	CmdRemoveSignals,							/* 9  */

   177

	CmdTerraformLand,							/* 10 */

   178

	CmdPurchaseLandArea,					/* 11 */

   179

	CmdSellLandArea,							/* 12 */

   180

	CmdBuildTunnel,								/* 13 */

   181

	CmdRemoveFromRailroadStation,	/* 14 */

   182

	CmdConvertRail,								/* 15 */

   183

	CmdBuildTrainCheckpoint,			/* 16 */

   184

	CmdRenameCheckpoint,					/* 17 */

   185

	CmdRemoveTrainCheckpoint,			/* 18 */

   186

	CmdBuildTruckStation,					/* 19 */

   187

	NULL,													/* 20 */

   188

	CmdBuildBusStation,						/* 21 */

   189

	NULL,													/* 22 */

   190

	CmdBuildLongRoad,							/* 23 */

   191

	CmdRemoveLongRoad,						/* 24 */

   192

	CmdBuildRoad,									/* 25 */

   193

	CmdRemoveRoad,								/* 26 */

   194

	CmdBuildRoadDepot,						/* 27 */

   195

	NULL,													/* 28 */

   196

	CmdBuildAirport,							/* 29 */

   197

	CmdBuildDock,									/* 30 */

   198

	CmdBuildShipDepot,						/* 31 */

   199

	CmdBuildBuoy,									/* 32 */

   200

	CmdPlantTree,									/* 33 */

   201

	CmdBuildRailVehicle,					/* 34 */

   202

	CmdMoveRailVehicle,						/* 35 */

   203

	CmdStartStopTrain,						/* 36 */

   204

	NULL,													/* 37 */

   205

	CmdSellRailWagon,							/* 38 */

   206

	CmdTrainGotoDepot,						/* 39 */

   207

	CmdForceTrainProceed,					/* 40 */

   208

	CmdReverseTrainDirection,			/* 41 */

   209

   210

	CmdModifyOrder,								/* 42 */

   211

	CmdSkipOrder,									/* 43 */

   212

	CmdDeleteOrder,								/* 44 */

   213

	CmdInsertOrder,								/* 45 */

   214

   215

	CmdChangeTrainServiceInt,			/* 46 */

   216

   217

	CmdBuildIndustry,							/* 47 */

   218

	CmdBuildCompanyHQ,						/* 48 */

   219

	CmdSetPlayerFace,							/* 49 */

   220

	CmdSetPlayerColor,						/* 50 */

   221

   222

	CmdIncreaseLoan,							/* 51 */

   223

	CmdDecreaseLoan,							/* 52 */

   224

   225

	CmdWantEnginePreview,					/* 53 */

   226

   227

	CmdNameVehicle,								/* 54 */

   228

	CmdRenameEngine,							/* 55 */

   229

   230

	CmdChangeCompanyName,					/* 56 */

   231

	CmdChangePresidentName,				/* 57 */

   232

   233

	CmdRenameStation,							/* 58 */

   234

   235

	CmdSellAircraft,							/* 59 */

   236

	CmdStartStopAircraft,					/* 60 */

   237

	CmdBuildAircraft,							/* 61 */

   238

	CmdSendAircraftToHangar,			/* 62 */

   239

	CmdChangeAircraftServiceInt,	/* 63 */

   240

	CmdRefitAircraft,							/* 64 */

   241

   242

	CmdPlaceSign,									/* 65 */

   243

	CmdRenameSign,								/* 66 */

   244

   245

	CmdBuildRoadVeh,							/* 67 */

   246

	CmdStartStopRoadVeh,					/* 68 */

   247

	CmdSellRoadVeh,								/* 69 */

   248

	CmdSendRoadVehToDepot,				/* 70 */

   249

	CmdTurnRoadVeh,								/* 71 */

   250

	CmdChangeRoadVehServiceInt,		/* 72 */

   251

   252

	CmdPause,											/* 73 */

   253

   254

	CmdBuyShareInCompany,					/* 74 */

   255

	CmdSellShareInCompany,				/* 75 */

   256

	CmdBuyCompany,								/* 76 */

   257

   258

	CmdBuildTown,									/* 77 */

   259

	NULL,													/* 78 */

   260

	NULL,													/* 79 */

   261

	CmdRenameTown,								/* 80 */

   262

	CmdDoTownAction,							/* 81 */

   263

   264

	CmdSetRoadDriveSide,					/* 82 */

   265

	CmdSetTownNameType,						/* 83 */

   266

	NULL,													/* 84 */

   267

	CmdChangeDifficultyLevel,			/* 85 */

   268

   269

	CmdStartStopShip,							/* 86 */

   270

	CmdSellShip,									/* 87 */

   271

	CmdBuildShip,									/* 88 */

   272

	CmdSendShipToDepot,						/* 89 */

   273

	CmdChangeShipServiceInt,			/* 90 */

   274

	CmdRefitShip,									/* 91 */

   275

   276

	CmdStartNewGame,							/* 92 */

   277

	CmdLoadGame,									/* 93 */

   278

	CmdCreateScenario,						/* 94 */

   279

	CmdSetSinglePlayer,						/* 95 */

   280

	NULL,													/* 96 */

   281

	CmdSetNewLandscapeType,				/* 97 */

   282

   283

	CmdGenRandomNewGame,					/* 98 */

   284

   285

	CmdCloneOrder,								/* 99 */

   286

   287

	CmdClearArea,									/* 100 */

   288

	CmdResume,										/* 101 */

   289

   290

	CmdMoneyCheat,								/* 102 */

   291

	CmdBuildCanal,								/* 103 */

   292

	CmdPlayerCtrl,								/* 104 */

   293

   294

	CmdLevelLand,									/* 105 */

   295

   296

	CmdRefitRailVehicle,					/* 106 */

   297

	CmdRestoreOrderIndex,					/* 107 */

   298

	CmdBuildLock,									/* 108 */

   299

	CmdStartScenario,							/* 109 */

   300

	CmdBuildManySignals,					/* 110 */

   301

	//CmdDestroyIndustry,						/* 109 */

   302

	CmdDestroyCompanyHQ,					/* 111 */

   303

};

   304

   305

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

   306

{

   307

	return DoCommand(GET_TILE_X(tile)*16, GET_TILE_Y(tile)*16, p1, p2, flags, procc);

   308

}

   309

   310

   311

//extern void _stdcall Sleep(int s);

   312

   313

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

   314

{

   315

	int32 res;

   316

	CommandProc *proc;

   317

   318

	proc = _command_proc_table[procc];

   319

   320

	if (_docommand_recursive == 0) {

   321

		_error_message = INVALID_STRING_ID;

   322

		// update last build coord of player

   323

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

   324

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

   325

		}

   326

	}

   327

   328

	_docommand_recursive++;

   329

   330

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

   331

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

   332

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

   333

		if ((uint32)res >> 16 == 0x8000) {

   334

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

   335

			goto error;

   336

		}

   337

   338

		if (_docommand_recursive == 1) {

   339

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

   340

				goto error;

   341

		}

   342

   343

		if (!(flags & DC_EXEC)) {

   344

			_docommand_recursive--;

   345

			return res;

   346

		}

   347

	}

   348

   349

	// execute the command here.

   350

	_yearly_expenses_type = 0;

   351

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

   352

	if ((uint32)res >> 16 == 0x8000) {

   353

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

   354

error:

   355

		_docommand_recursive--;

   356

		return CMD_ERROR;

   357

	}

   358

   359

	// if toplevel, subtract the money.

   360

	if (--_docommand_recursive == 0) {

   361

		SubtractMoneyFromPlayer(res);

   362

	}

   363

   364

	return res;

   365

}

   366

   367

int32 GetAvailableMoneyForCommand()

   368

{

   369

	uint pid = _current_player;

   370

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

   371

	return DEREF_PLAYER(pid)->player_money;

   372

}

   373

   374

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

   375

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

   376

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

   377

{

   378

	int32 res = 0,res2;

   379

	CommandProc *proc;

   380

	uint32 flags;

   381

	bool notest;

   382

   383

	int x = GET_TILE_X(tile)*16;

   384

	int y = GET_TILE_Y(tile)*16;

   385

   386

	assert(_docommand_recursive == 0);

   387

   397

	_error_message = INVALID_STRING_ID;

   398

	_error_message_2 = cmd >> 16;

   399

	_additional_cash_required = 0;

   400

   401

	// spectator has no rights.

   402

	if (_current_player == OWNER_SPECTATOR) {

   403

		ShowErrorMessage(_error_message, _error_message_2, x, y);

   404

		return false;

   405

	}

   406

   407

	flags = 0;

   408

	if (cmd & CMD_AUTO) flags |= DC_AUTO;

   409

	if (cmd & CMD_NO_WATER) flags |= DC_NO_WATER;

   410

   411

	// get pointer to command handler

   412

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

   413

	proc = _command_proc_table[cmd & 0xFF];

   414

   415

	// this command is a notest command?

   416

	notest =

   417

		(cmd & 0xFF) == CMD_CLEAR_AREA ||

   418

		(cmd & 0xFF) == CMD_CONVERT_RAIL ||

   419

		(cmd & 0xFF) == CMD_LEVEL_LAND ||

   420

		(cmd & 0xFF) == CMD_TRAIN_GOTO_DEPOT;

   421

   422

	if (_networking && (cmd & CMD_ASYNC)) notest = true;

   423

   424

	_docommand_recursive = 1;

   425

   426

	// cost estimation only?

   427

	if (_shift_pressed && _current_player == _local_player && !(cmd & CMD_DONT_NETWORK)) {

   428

		// estimate the cost.

   429

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

   430

		if ((uint32)res >> 16 == 0x8000) {

   431

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

   432

			ShowErrorMessage(_error_message, _error_message_2, x, y);

   433

		} else {

   434

			ShowEstimatedCostOrIncome(res, x, y);

   435

		}

   436

   437

		_docommand_recursive = 0;

   438

		return false;

   439

	}

   440

   441

   442

   443

	// unless the command is a notest command, check if it can be executed.

   444

	if (!notest) {

   445

		// first test if the command can be executed.

   446

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

   447

		if ((uint32)res >> 16 == 0x8000) {

   448

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

   449

			goto show_error;

   450

		}

   451

		// no money?

   452

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

   453

	}

   454

   455

	// put the command in a network queue and execute it later?

   456

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

   457

		if (!(cmd & CMD_NET_INSTANT)) {

   458

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

   459

			_docommand_recursive = 0;

   460

			return true;

   461

		} else {

   462

			// Instant Command ... Relay and Process then

   463

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

   464

		}

   465

	}

   466

   467

	// update last build coordinate of player.

   468

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

   469

   470

	// actually try and execute the command.

   471

	_yearly_expenses_type = 0;

   472

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

   473

   474

	if (!notest) {

   475

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

   476

	} else {

   477

		if ((uint32)res2 >> 16 == 0x8000) {

   478

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

   479

			goto show_error;

   480

		}

   481

	}

   482

   483

	SubtractMoneyFromPlayer(res2);

   484

   485

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

   486

		if (res2 != 0)

   487

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

   488

		if (_additional_cash_required) {

   489

			SET_DPARAM32(0, _additional_cash_required);

   490

			ShowErrorMessage(STR_0003_NOT_ENOUGH_CASH_REQUIRES, _error_message_2, x,y);

   491

			if (res2 == 0) goto callb_err;

   492

		}

   493

	}

   494

   495

	_docommand_recursive = 0;

   496

   497

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

   498

	return true;

   499

   500

show_error:

   501

	// show error message if the command fails?

   502

	if (_current_player == _local_player && _error_message_2 != 0)

   503

		ShowErrorMessage(_error_message, _error_message_2, x,y);

   504

   505

callb_err:

   506

	_docommand_recursive = 0;

   507

   508

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

   509

	return false;

   510

}