1

/* $Id$ */

     2

     3

/** @file command.cpp */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "table/strings.h"

     9

#include "functions.h"

    10

#include "landscape.h"

    11

#include "map.h"

    12

#include "gui.h"

    13

#include "command.h"

    14

#include "player.h"

    15

#include "network/network.h"

    16

#include "variables.h"

    17

#include "genworld.h"

    18

    19

const char* _cmd_text = NULL;

    20

    21

#define DEF_COMMAND(yyyy) CommandCost yyyy(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

    22

    23

DEF_COMMAND(CmdBuildRailroadTrack);

    24

DEF_COMMAND(CmdRemoveRailroadTrack);

    25

DEF_COMMAND(CmdBuildSingleRail);

    26

DEF_COMMAND(CmdRemoveSingleRail);

    27

    28

DEF_COMMAND(CmdLandscapeClear);

    29

    30

DEF_COMMAND(CmdBuildBridge);

    31

    32

DEF_COMMAND(CmdBuildRailroadStation);

    33

DEF_COMMAND(CmdRemoveFromRailroadStation);

    34

DEF_COMMAND(CmdConvertRail);

    35

    36

DEF_COMMAND(CmdBuildSingleSignal);

    37

DEF_COMMAND(CmdRemoveSingleSignal);

    38

    39

DEF_COMMAND(CmdTerraformLand);

    40

    41

DEF_COMMAND(CmdPurchaseLandArea);

    42

DEF_COMMAND(CmdSellLandArea);

    43

    44

DEF_COMMAND(CmdBuildTunnel);

    45

    46

DEF_COMMAND(CmdBuildTrainDepot);

    47

DEF_COMMAND(CmdBuildTrainWaypoint);

    48

DEF_COMMAND(CmdRenameWaypoint);

    49

DEF_COMMAND(CmdRemoveTrainWaypoint);

    50

    51

DEF_COMMAND(CmdBuildRoadStop);

    52

DEF_COMMAND(CmdRemoveRoadStop);

    53

    54

DEF_COMMAND(CmdBuildLongRoad);

    55

DEF_COMMAND(CmdRemoveLongRoad);

    56

DEF_COMMAND(CmdBuildRoad);

    57

DEF_COMMAND(CmdRemoveRoad);

    58

    59

DEF_COMMAND(CmdBuildRoadDepot);

    60

    61

DEF_COMMAND(CmdBuildAirport);

    62

    63

DEF_COMMAND(CmdBuildDock);

    64

    65

DEF_COMMAND(CmdBuildShipDepot);

    66

    67

DEF_COMMAND(CmdBuildBuoy);

    68

    69

DEF_COMMAND(CmdPlantTree);

    70

    71

DEF_COMMAND(CmdBuildRailVehicle);

    72

DEF_COMMAND(CmdMoveRailVehicle);

    73

    74

DEF_COMMAND(CmdStartStopTrain);

    75

    76

DEF_COMMAND(CmdSellRailWagon);

    77

    78

DEF_COMMAND(CmdSendTrainToDepot);

    79

DEF_COMMAND(CmdForceTrainProceed);

    80

DEF_COMMAND(CmdReverseTrainDirection);

    81

    82

DEF_COMMAND(CmdModifyOrder);

    83

DEF_COMMAND(CmdSkipToOrder);

    84

DEF_COMMAND(CmdDeleteOrder);

    85

DEF_COMMAND(CmdInsertOrder);

    86

DEF_COMMAND(CmdChangeServiceInt);

    87

DEF_COMMAND(CmdRestoreOrderIndex);

    88

    89

DEF_COMMAND(CmdBuildIndustry);

    90

    91

DEF_COMMAND(CmdBuildCompanyHQ);

    92

DEF_COMMAND(CmdSetPlayerFace);

    93

DEF_COMMAND(CmdSetPlayerColor);

    94

    95

DEF_COMMAND(CmdIncreaseLoan);

    96

DEF_COMMAND(CmdDecreaseLoan);

    97

    98

DEF_COMMAND(CmdWantEnginePreview);

    99

   100

DEF_COMMAND(CmdNameVehicle);

   101

DEF_COMMAND(CmdRenameEngine);

   102

   103

DEF_COMMAND(CmdChangeCompanyName);

   104

DEF_COMMAND(CmdChangePresidentName);

   105

   106

DEF_COMMAND(CmdRenameStation);

   107

   108

DEF_COMMAND(CmdSellAircraft);

   109

DEF_COMMAND(CmdStartStopAircraft);

   110

DEF_COMMAND(CmdBuildAircraft);

   111

DEF_COMMAND(CmdSendAircraftToHangar);

   112

DEF_COMMAND(CmdRefitAircraft);

   113

   114

DEF_COMMAND(CmdPlaceSign);

   115

DEF_COMMAND(CmdRenameSign);

   116

   117

DEF_COMMAND(CmdBuildRoadVeh);

   118

DEF_COMMAND(CmdStartStopRoadVeh);

   119

DEF_COMMAND(CmdSellRoadVeh);

   120

DEF_COMMAND(CmdSendRoadVehToDepot);

   121

DEF_COMMAND(CmdTurnRoadVeh);

   122

DEF_COMMAND(CmdRefitRoadVeh);

   123

   124

DEF_COMMAND(CmdPause);

   125

   126

DEF_COMMAND(CmdBuyShareInCompany);

   127

DEF_COMMAND(CmdSellShareInCompany);

   128

DEF_COMMAND(CmdBuyCompany);

   129

   130

DEF_COMMAND(CmdBuildTown);

   131

   132

DEF_COMMAND(CmdRenameTown);

   133

DEF_COMMAND(CmdDoTownAction);

   134

   135

DEF_COMMAND(CmdSetRoadDriveSide);

   136

   137

DEF_COMMAND(CmdChangeDifficultyLevel);

   138

DEF_COMMAND(CmdChangePatchSetting);

   139

   140

DEF_COMMAND(CmdStartStopShip);

   141

DEF_COMMAND(CmdSellShip);

   142

DEF_COMMAND(CmdBuildShip);

   143

DEF_COMMAND(CmdSendShipToDepot);

   144

DEF_COMMAND(CmdRefitShip);

   145

   146

DEF_COMMAND(CmdOrderRefit);

   147

DEF_COMMAND(CmdCloneOrder);

   148

   149

DEF_COMMAND(CmdClearArea);

   150

   151

DEF_COMMAND(CmdGiveMoney);

   152

DEF_COMMAND(CmdMoneyCheat);

   153

DEF_COMMAND(CmdBuildCanal);

   154

DEF_COMMAND(CmdBuildLock);

   155

   156

DEF_COMMAND(CmdPlayerCtrl);

   157

   158

DEF_COMMAND(CmdLevelLand);

   159

   160

DEF_COMMAND(CmdRefitRailVehicle);

   161

   162

DEF_COMMAND(CmdBuildSignalTrack);

   163

DEF_COMMAND(CmdRemoveSignalTrack);

   164

   165

DEF_COMMAND(CmdSetAutoReplace);

   166

   167

DEF_COMMAND(CmdCloneVehicle);

   168

DEF_COMMAND(CmdMassStartStopVehicle);

   169

DEF_COMMAND(CmdDepotSellAllVehicles);

   170

DEF_COMMAND(CmdDepotMassAutoReplace);

   171

   172

DEF_COMMAND(CmdCreateGroup);

   173

DEF_COMMAND(CmdRenameGroup);

   174

DEF_COMMAND(CmdDeleteGroup);

   175

DEF_COMMAND(CmdAddVehicleGroup);

   176

DEF_COMMAND(CmdAddSharedVehicleGroup);

   177

DEF_COMMAND(CmdRemoveAllVehiclesGroup);

   178

DEF_COMMAND(CmdSetGroupReplaceProtection);

   179

   180

DEF_COMMAND(CmdMoveOrder);

   181

DEF_COMMAND(CmdChangeTimetable);

   182

DEF_COMMAND(CmdSetVehicleOnTime);

   183

DEF_COMMAND(CmdAutofillTimetable);

   184

   185

/* The master command table */

   186

static const Command _command_proc_table[] = {

   187

	{CmdBuildRailroadTrack,                  0}, /*   0 */

   188

	{CmdRemoveRailroadTrack,                 0}, /*   1 */

   189

	{CmdBuildSingleRail,                     0}, /*   2 */

   190

	{CmdRemoveSingleRail,                    0}, /*   3 */

   191

	{CmdLandscapeClear,                      0}, /*   4 */

   192

	{CmdBuildBridge,                         0}, /*   5 */

   193

	{CmdBuildRailroadStation,                0}, /*   6 */

   194

	{CmdBuildTrainDepot,                     0}, /*   7 */

   195

	{CmdBuildSingleSignal,                   0}, /*   8 */

   196

	{CmdRemoveSingleSignal,                  0}, /*   9 */

   197

	{CmdTerraformLand,                       0}, /*  10 */

   198

	{CmdPurchaseLandArea,                    0}, /*  11 */

   199

	{CmdSellLandArea,                        0}, /*  12 */

   200

	{CmdBuildTunnel,                         0}, /*  13 */

   201

	{CmdRemoveFromRailroadStation,           0}, /*  14 */

   202

	{CmdConvertRail,                         0}, /*  15 */

   203

	{CmdBuildTrainWaypoint,                  0}, /*  16 */

   204

	{CmdRenameWaypoint,                      0}, /*  17 */

   205

	{CmdRemoveTrainWaypoint,                 0}, /*  18 */

   206

	{NULL,                                   0}, /*  19 */

   207

	{NULL,                                   0}, /*  20 */

   208

	{CmdBuildRoadStop,                       0}, /*  21 */

   209

	{CmdRemoveRoadStop,                      0}, /*  22 */

   210

	{CmdBuildLongRoad,                       0}, /*  23 */

   211

	{CmdRemoveLongRoad,                      0}, /*  24 */

   212

	{CmdBuildRoad,                           0}, /*  25 */

   213

	{CmdRemoveRoad,                          0}, /*  26 */

   214

	{CmdBuildRoadDepot,                      0}, /*  27 */

   215

	{NULL,                                   0}, /*  28 */

   216

	{CmdBuildAirport,                        0}, /*  29 */

   217

	{CmdBuildDock,                           0}, /*  30 */

   218

	{CmdBuildShipDepot,                      0}, /*  31 */

   219

	{CmdBuildBuoy,                           0}, /*  32 */

   220

	{CmdPlantTree,                           0}, /*  33 */

   221

	{CmdBuildRailVehicle,                    0}, /*  34 */

   222

	{CmdMoveRailVehicle,                     0}, /*  35 */

   223

	{CmdStartStopTrain,                      0}, /*  36 */

   224

	{NULL,                                   0}, /*  37 */

   225

	{CmdSellRailWagon,                       0}, /*  38 */

   226

	{CmdSendTrainToDepot,                    0}, /*  39 */

   227

	{CmdForceTrainProceed,                   0}, /*  40 */

   228

	{CmdReverseTrainDirection,               0}, /*  41 */

   229

   230

	{CmdModifyOrder,                         0}, /*  42 */

   231

	{CmdSkipToOrder,                         0}, /*  43 */

   232

	{CmdDeleteOrder,                         0}, /*  44 */

   233

	{CmdInsertOrder,                         0}, /*  45 */

   234

   235

	{CmdChangeServiceInt,                    0}, /*  46 */

   236

   237

	{CmdBuildIndustry,                       0}, /*  47 */

   238

	{CmdBuildCompanyHQ,                      0}, /*  48 */

   239

	{CmdSetPlayerFace,                       0}, /*  49 */

   240

	{CmdSetPlayerColor,                      0}, /*  50 */

   241

   242

	{CmdIncreaseLoan,                        0}, /*  51 */

   243

	{CmdDecreaseLoan,                        0}, /*  52 */

   244

   245

	{CmdWantEnginePreview,                   0}, /*  53 */

   246

   247

	{CmdNameVehicle,                         0}, /*  54 */

   248

	{CmdRenameEngine,                        0}, /*  55 */

   249

   250

	{CmdChangeCompanyName,                   0}, /*  56 */

   251

	{CmdChangePresidentName,                 0}, /*  57 */

   252

   253

	{CmdRenameStation,                       0}, /*  58 */

   254

   255

	{CmdSellAircraft,                        0}, /*  59 */

   256

	{CmdStartStopAircraft,                   0}, /*  60 */

   257

   258

	{CmdBuildAircraft,                       0}, /*  61 */

   259

	{CmdSendAircraftToHangar,                0}, /*  62 */

   260

	{NULL,                                   0}, /*  63 */

   261

	{CmdRefitAircraft,                       0}, /*  64 */

   262

   263

	{CmdPlaceSign,                           0}, /*  65 */

   264

	{CmdRenameSign,                          0}, /*  66 */

   265

   266

	{CmdBuildRoadVeh,                        0}, /*  67 */

   267

	{CmdStartStopRoadVeh,                    0}, /*  68 */

   268

	{CmdSellRoadVeh,                         0}, /*  69 */

   269

	{CmdSendRoadVehToDepot,                  0}, /*  70 */

   270

	{CmdTurnRoadVeh,                         0}, /*  71 */

   271

	{CmdRefitRoadVeh,                        0}, /*  72 */

   272

   273

	{CmdPause,                      CMD_SERVER}, /*  73 */

   274

   275

	{CmdBuyShareInCompany,                   0}, /*  74 */

   276

	{CmdSellShareInCompany,                  0}, /*  75 */

   277

	{CmdBuyCompany,                          0}, /*  76 */

   278

   279

	{CmdBuildTown,                 CMD_OFFLINE}, /*  77 */

   280

	{NULL,                                   0}, /*  78 */

   281

	{NULL,                                   0}, /*  79 */

   282

	{CmdRenameTown,                 CMD_SERVER}, /*  80 */

   283

	{CmdDoTownAction,                        0}, /*  81 */

   284

   285

	{CmdSetRoadDriveSide,           CMD_SERVER}, /*  82 */

   286

	{NULL,                                   0}, /*  83 */

   287

	{NULL,                                   0}, /*  84 */

   288

	{CmdChangeDifficultyLevel,      CMD_SERVER}, /*  85 */

   289

   290

	{CmdStartStopShip,                       0}, /*  86 */

   291

	{CmdSellShip,                            0}, /*  87 */

   292

	{CmdBuildShip,                           0}, /*  88 */

   293

	{CmdSendShipToDepot,                     0}, /*  89 */

   294

	{NULL,                                   0}, /*  90 */

   295

	{CmdRefitShip,                           0}, /*  91 */

   296

   297

	{NULL,                                   0}, /*  92 */

   298

	{NULL,                                   0}, /*  93 */

   299

	{NULL,                                   0}, /*  94 */

   300

	{NULL,                                   0}, /*  95 */

   301

	{NULL,                                   0}, /*  96 */

   302

	{NULL,                                   0}, /*  97 */

   303

   304

	{CmdOrderRefit,                          0}, /*  98 */

   305

	{CmdCloneOrder,                          0}, /*  99 */

   306

   307

	{CmdClearArea,                           0}, /* 100 */

   308

	{NULL,                                   0}, /* 101 */

   309

   310

	{CmdMoneyCheat,                CMD_OFFLINE}, /* 102 */

   311

	{CmdBuildCanal,                          0}, /* 103 */

   312

	{CmdPlayerCtrl,                          0}, /* 104 */

   313

   314

	{CmdLevelLand,                           0}, /* 105 */

   315

   316

	{CmdRefitRailVehicle,                    0}, /* 106 */

   317

	{CmdRestoreOrderIndex,                   0}, /* 107 */

   318

	{CmdBuildLock,                           0}, /* 108 */

   319

	{NULL,                                   0}, /* 109 */

   320

	{CmdBuildSignalTrack,                    0}, /* 110 */

   321

	{CmdRemoveSignalTrack,                   0}, /* 111 */

   322

	{NULL,                                   0}, /* 112 */

   323

	{CmdGiveMoney,                           0}, /* 113 */

   324

	{CmdChangePatchSetting,         CMD_SERVER}, /* 114 */

   325

	{CmdSetAutoReplace,                      0}, /* 115 */

   326

	{CmdCloneVehicle,                        0}, /* 116 */

   327

	{CmdMassStartStopVehicle,                0}, /* 117 */

   328

	{CmdDepotSellAllVehicles,                0}, /* 118 */

   329

	{CmdDepotMassAutoReplace,                0}, /* 119 */

   330

	{CmdCreateGroup,                         0}, /* 120 */

   331

	{CmdDeleteGroup,                         0}, /* 121 */

   332

	{CmdRenameGroup,                         0}, /* 122 */

   333

	{CmdAddVehicleGroup,                     0}, /* 123 */

   334

	{CmdAddSharedVehicleGroup,               0}, /* 124 */

   335

	{CmdRemoveAllVehiclesGroup,              0}, /* 125 */

   336

	{CmdSetGroupReplaceProtection,           0}, /* 126 */

   337

	{CmdMoveOrder,                           0}, /* 127 */

   338

	{CmdChangeTimetable,                     0}, /* 128 */

   339

	{CmdSetVehicleOnTime,                    0}, /* 129 */

   340

	{CmdAutofillTimetable,                   0}, /* 130 */

   341

};

   342

   343

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

   344

bool IsValidCommand(uint cmd)

   345

{

   346

	cmd &= 0xFF;

   347

   348

	return

   349

		cmd < lengthof(_command_proc_table) &&

   350

		_command_proc_table[cmd].proc != NULL;

   351

}

   352

   353

byte GetCommandFlags(uint cmd)

   354

{

   355

	return _command_proc_table[cmd & 0xFF].flags;

   356

}

   357

   358

   359

static int _docommand_recursive;

   360

   361

CommandCost DoCommand(TileIndex tile, uint32 p1, uint32 p2, uint32 flags, uint procc)

   362

{

   363

	CommandCost res;

   364

	CommandProc *proc;

   365

   366

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

   367

	if (tile >= MapSize() || IsTileType(tile, MP_VOID)) {

   368

		_cmd_text = NULL;

   369

		return CMD_ERROR;

   370

	}

   371

   372

	proc = _command_proc_table[procc].proc;

   373

   374

	if (_docommand_recursive == 0) _error_message = INVALID_STRING_ID;

   375

   376

	_docommand_recursive++;

   377

   378

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

   379

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

   380

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

   381

		if (CmdFailed(res)) {

   382

			res.SetGlobalErrorMessage();

   383

			goto error;

   384

		}

   385

   386

		if (_docommand_recursive == 1 &&

   387

				!(flags & DC_QUERY_COST) &&

   388

				res.GetCost() != 0 &&

   389

				!CheckPlayerHasMoney(res)) {

   390

			goto error;

   391

		}

   392

   393

		if (!(flags & DC_EXEC)) {

   394

			_docommand_recursive--;

   395

			_cmd_text = NULL;

   396

			return res;

   397

		}

   398

	}

   399

   400

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

   401

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

   402

	res = proc(tile, flags, p1, p2);

   403

	if (CmdFailed(res)) {

   404

		res.SetGlobalErrorMessage();

   405

error:

   406

		_docommand_recursive--;

   407

		_cmd_text = NULL;

   408

		return CMD_ERROR;

   409

	}

   410

   411

	/* if toplevel, subtract the money. */

   412

	if (--_docommand_recursive == 0) {

   413

		SubtractMoneyFromPlayer(res);

   414

		/* XXX - Old AI hack which doesn't use DoCommandDP; update last build coord of player */

   415

		if (tile != 0 && IsValidPlayer(_current_player)) {

   416

			GetPlayer(_current_player)->last_build_coordinate = tile;

   417

		}

   418

	}

   419

   420

	_cmd_text = NULL;

   421

	return res;

   422

}

   423

   424

Money GetAvailableMoneyForCommand()

   425

{

   426

	PlayerID pid = _current_player;

   427

	if (!IsValidPlayer(pid)) return INT64_MAX;

   428

	return GetPlayer(pid)->player_money;

   429

}

   430

   431

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

   432

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

   433

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

   434

{

   435

	CommandCost res, res2;

   436

	CommandProc *proc;

   437

	uint32 flags;

   438

	bool notest;

   439

	StringID error_part1;

   440

   441

	int x = TileX(tile) * TILE_SIZE;

   442

	int y = TileY(tile) * TILE_SIZE;

   443

   444

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

   445

	if (tile >= MapSize() || IsTileType(tile, MP_VOID)) {

   446

		_cmd_text = NULL;

   447

		return false;

   448

	}

   449

   450

	assert(_docommand_recursive == 0);

   451

   452

	_error_message = INVALID_STRING_ID;

   453

	error_part1 = GB(cmd, 16, 16);

   454

	_additional_cash_required = 0;

   455

   456

	/** Spectator has no rights except for the (dedicated) server which

   457

	 * is/can be a spectator but as the server it can do anything */

   458

	if (_current_player == PLAYER_SPECTATOR && !_network_server) {

   459

		if (my_cmd) ShowErrorMessage(_error_message, error_part1, x, y);

   460

		_cmd_text = NULL;

   461

		return false;

   462

	}

   463

   464

	flags = 0;

   465

	if (cmd & CMD_AUTO) flags |= DC_AUTO;

   466

	if (cmd & CMD_NO_WATER) flags |= DC_NO_WATER;

   467

   468

	/* get pointer to command handler */

   469

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

   470

	proc = _command_proc_table[cmd & 0xFF].proc;

   471

	if (proc == NULL) {

   472

		_cmd_text = NULL;

   473

		return false;

   474

	}

   475

   476

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

   477

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

   478

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

   479

	 *  it will fail. so res and res2 are different

   480

	 * CMD_REMOVE_ROAD: This command has special local authority

   481

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

   482

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

   483

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

   484

	 * fact will trigger an assertion failure. --pasky

   485

	 * CMD_CLONE_VEHICLE: Both building new vehicles and refitting them can be

   486

	 * influenced by newgrf callbacks, which makes it impossible to accurately

   487

	 * estimate the cost of cloning a vehicle. */

   488

	notest =

   489

		(cmd & 0xFF) == CMD_CLEAR_AREA ||

   490

		(cmd & 0xFF) == CMD_CONVERT_RAIL ||

   491

		(cmd & 0xFF) == CMD_LEVEL_LAND ||

   492

		(cmd & 0xFF) == CMD_REMOVE_ROAD ||

   493

		(cmd & 0xFF) == CMD_REMOVE_LONG_ROAD ||

   494

		(cmd & 0xFF) == CMD_CLONE_VEHICLE;

   495

   496

	_docommand_recursive = 1;

   497