1

#include "stdafx.h"

     2

#include "openttd.h"

     3

#include "table/sprites.h"

     4

#include "table/strings.h"

     6

#include "map.h"

     7

#include "tile.h"

     8

#include "window.h"

     9

#include "gui.h"

    10

#include "gfx.h"

    11

#include "vehicle.h"

    12

#include "station.h"

    13

#include "town.h"

    14

#include "command.h"

    15

#include "viewport.h"

    16

#include "depot.h"

    17

#include "waypoint.h"

    18

    19

static int OrderGetSel(Window *w)

    20

{

    21

	Vehicle *v = GetVehicle(w->window_number);

    22

	int num = WP(w,order_d).sel;

    23

    24

	if (num < 0 || num > v->num_orders)

    25

		return v->num_orders;

    26

    27

	return num;

    28

}

    29

    30

static StringID StationOrderStrings[] = {

    31

	STR_8806_GO_TO,

    32

	STR_8807_GO_TO_TRANSFER,

    33

	STR_8808_GO_TO_UNLOAD,

    34

	STR_8809_GO_TO_TRANSFER_UNLOAD,

    35

	STR_880A_GO_TO_LOAD,

    36

	STR_880B_GO_TO_TRANSFER_LOAD,

    37

	STR_NULL,

    38

	STR_NULL,

    39

	STR_880C_GO_NON_STOP_TO,

    40

	STR_880D_GO_TO_NON_STOP_TRANSFER,

    41

	STR_880E_GO_NON_STOP_TO_UNLOAD,

    42

	STR_880F_GO_TO_NON_STOP_TRANSFER_UNLOAD,

    43

	STR_8810_GO_NON_STOP_TO_LOAD,

    44

	STR_8811_GO_TO_NON_STOP_TRANSFER_LOAD,

    45

	STR_NULL

    46

};

    47

    48

static void DrawOrdersWindow(Window *w)

    49

{

    50

	const Vehicle *v;

    51

	const Order *order;

    52

	StringID str;

    53

	int sel;

    54

	int y, i;

    55

	bool shared_orders;

    56

	byte color;

    57

    58

	v = GetVehicle(w->window_number);

    59

    60

	w->disabled_state = (v->owner == _local_player) ? 0 : (

    61

		1 << 4 |   //skip

    62

		1 << 5 |   //delete

    63

		1 << 6 |   //non-stop

    64

		1 << 7 |   //go-to

    65

		1 << 8 |   //full load

    66

		1 << 9 |   //unload

    67

		1 << 10    //transfer

    68

		);

    69

    70

	if (v->type != VEH_Train)

    71

		SETBIT(w->disabled_state, 6); //disable non-stop for non-trains

    72

    73

	shared_orders = IsOrderListShared(v);

    74

    75

	if ((uint)v->num_orders + (shared_orders?1:0) <= (uint)WP(w,order_d).sel)

    76

		SETBIT(w->disabled_state, 5); /* delete */

    77

    78

	if (v->num_orders == 0)

    79

		SETBIT(w->disabled_state, 4); /* skip */

    80

    81

	SetVScrollCount(w, v->num_orders + 1);

    82

    83

	sel = OrderGetSel(w);

    84

	SetDParam(2, STR_8827_FULL_LOAD);

    85

    86

	order = GetVehicleOrder(v, sel);

    87

    88

	if (order != NULL) {

    89

		switch (order->type) {

    90

			case OT_GOTO_STATION:

    91

				break;

    92

			case OT_GOTO_DEPOT:

    93

				SETBIT(w->disabled_state, 9);	/* unload */

    94

				SETBIT(w->disabled_state, 10); /* transfer */

    95

				SetDParam(2,STR_SERVICE);

    96

				break;

    97

    98

			case OT_GOTO_WAYPOINT:

    99

				SETBIT(w->disabled_state, 8); /* full load */

   100

				SETBIT(w->disabled_state, 9); /* unload */

   101

				SETBIT(w->disabled_state, 10); /* transfer */

   102

				break;

   103

   104

			default:

   105

				SETBIT(w->disabled_state, 6); /* nonstop */

   106

				SETBIT(w->disabled_state, 8);	/* full load */

   107

				SETBIT(w->disabled_state, 9);	/* unload */

   108

		}

   109

	} else {

   110

		SETBIT(w->disabled_state, 6); /* nonstop */

   111

		SETBIT(w->disabled_state, 8);	/* full load */

   112

		SETBIT(w->disabled_state, 9);	/* unload */

   113

		SETBIT(w->disabled_state, 10); /* transfer */

   114

   115

	}

   116

   117

	SetDParam(0, v->string_id);

   118

	SetDParam(1, v->unitnumber);

   119

	DrawWindowWidgets(w);

   120

   121

	y = 15;

   122

   123

	i = w->vscroll.pos;

   124

	order = GetVehicleOrder(v, i);

   125

	while (order != NULL) {

   126

		str = (v->cur_order_index == i) ? STR_8805 : STR_8804;

   127

   128

		if (i - w->vscroll.pos < w->vscroll.cap) {

   129

			SetDParam(1, 6);

   130

   131

			if (order->type == OT_GOTO_STATION) {

   132

				SetDParam(1, StationOrderStrings[order->flags]);

   133

				SetDParam(2, order->station);

   134

			} else if (order->type == OT_GOTO_DEPOT) {

   135

				StringID s = STR_NULL;

   136

   137

				if (v->type == VEH_Aircraft) {

   138

					s = STR_GO_TO_AIRPORT_HANGAR;

   139

					SetDParam(2, order->station);

   140

				} else {

   141

					SetDParam(2, GetDepot(order->station)->town_index);

   142

   143

					switch (v->type) {

   144

						case VEH_Train: s = STR_GO_TO_TRAIN_DEPOT;   break;

   145

						case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   146

						case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT;         break;

   147

						default:

   148

						break;

   149

					}

   150

   151

					if (v->type == VEH_Train && order->flags & OF_NON_STOP) s += 2;

   152

					SetDParam(1, s);

   153

				}

   154

   155

				if (order->flags & OF_FULL_LOAD)

   156

					s++; /* service at */

   157

   158

				SetDParam(1, s);

   159

			} else if (order->type == OT_GOTO_WAYPOINT) {

   160

				SetDParam(1, (order->flags & OF_NON_STOP) ? STR_GO_NON_STOP_TO_WAYPOINT : STR_GO_TO_WAYPOINT);

   161

				SetDParam(2, order->station);

   162

			}

   163

   164

			color = (i == WP(w,order_d).sel) ? 0xC : 0x10;

   165

			SetDParam(0, i + 1);

   166

			if (order->type != OT_DUMMY) {

   167

				DrawString(2, y, str, color);

   168

			} else {

   169

				SetDParam(1, STR_INVALID_ORDER);

   170

				SetDParam(2, order->station);

   171

				DrawString(2, y, str, color);

   172

			}

   173

			y += 10;

   174

		}

   175

   176

		i++;

   177

		order = order->next;

   178

	}

   179

   180

	if (i - w->vscroll.pos < w->vscroll.cap) {

   181

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   182

		color = (i == WP(w,order_d).sel) ? 0xC : 0x10;

   183

		DrawString(2, y, str, color);

   184

	}

   185

}

   186

   187

static Order GetOrderCmdFromTile(Vehicle *v, TileIndex tile)

   188

{

   189

	Order order;

   190

	Station *st;

   191

	int st_index;

   192

   193

	// check depot first

   194

	if (_patches.gotodepot) {

   195

		switch (GetTileType(tile)) {

   196

		case MP_RAILWAY:

   197

			if (v->type == VEH_Train && IsTileOwner(tile, _local_player)) {

   198

				if ((_m[tile].m5&0xFC)==0xC0) {

   199

					order.type = OT_GOTO_DEPOT;

   200

					order.flags = OF_PART_OF_ORDERS;

   201

					order.station = GetDepotByTile(tile)->index;

   202

					return order;

   203

				}

   204

			}

   205

			break;

   206

   207

		case MP_STREET:

   208

			if ((_m[tile].m5 & 0xF0) == 0x20 && v->type == VEH_Road && IsTileOwner(tile, _local_player)) {

   209

				order.type = OT_GOTO_DEPOT;

   210

				order.flags = OF_PART_OF_ORDERS;

   211

				order.station = GetDepotByTile(tile)->index;

   212

				return order;

   213

			}

   214

			break;

   215

   216

		case MP_STATION:

   217

			if (v->type != VEH_Aircraft) break;

   218

			if (IsAircraftHangarTile(tile) && IsTileOwner(tile, _local_player)) {

   219

				order.type = OT_GOTO_DEPOT;

   220

				order.flags = OF_PART_OF_ORDERS | OF_NON_STOP;	//XXX - whats the nonstop stuff doing here?

   221

				order.station = _m[tile].m2;

   222

				return order;

   223

			}

   224

			break;

   225

   226

		case MP_WATER:

   227

			if (v->type != VEH_Ship) break;

   228

			if (IsTileDepotType(tile, TRANSPORT_WATER) &&

   229

					IsTileOwner(tile, _local_player)) {

   230

				switch (_m[tile].m5) {

   231

					case 0x81: tile -= TileDiffXY(1, 0); break;

   232

					case 0x83: tile -= TileDiffXY(0, 1); break;

   233

				}

   234

				order.type = OT_GOTO_DEPOT;

   235

				order.flags = OF_PART_OF_ORDERS;

   236

				order.station = GetDepotByTile(tile)->index;

   237

				return order;

   238

			}

   239

   240

			default:

   241

				break;

   242

		}

   243

	}

   244

   245

	// check waypoint

   246

	if (IsTileType(tile, MP_RAILWAY) &&

   247

			v->type == VEH_Train &&

   248

			IsTileOwner(tile, _local_player) &&

   249

			(_m[tile].m5 & 0xFE) == 0xC4) {

   250

		order.type = OT_GOTO_WAYPOINT;

   251

		order.flags = 0;

   252

		order.station = GetWaypointByTile(tile)->index;

   253

		return order;

   254

	}

   255

   256

	if (IsTileType(tile, MP_STATION)) {

   257

		st = GetStation(st_index = _m[tile].m2);

   258

   259

		if (st->owner == _current_player || st->owner == OWNER_NONE) {

   260

			byte facil;

   261

			(facil=FACIL_DOCK, v->type == VEH_Ship) ||

   262

			(facil=FACIL_TRAIN, v->type == VEH_Train) ||

   263

			(facil=FACIL_AIRPORT, v->type == VEH_Aircraft) ||

   264

			(facil=FACIL_BUS_STOP, v->type == VEH_Road && v->cargo_type == CT_PASSENGERS) ||

   265

			(facil=FACIL_TRUCK_STOP, 1);

   266

			if (st->facilities & facil) {

   267

				order.type = OT_GOTO_STATION;

   268

				order.flags = 0;

   269

				order.station = st_index;

   270

				return order;

   271

			}

   272

		}

   273

	}

   274

   275

	// not found

   276

	order.type = OT_NOTHING;

   277

	order.flags = 0;

   278

	return order;

   279

}

   280

   281

static bool HandleOrderVehClick(Vehicle *v, Vehicle *u, Window *w)

   282

{

   283

	if (u->type != v->type)

   284

		return false;

   285

   286

	if (u->type == VEH_Train && u->subtype != TS_Front_Engine) {

   287

		u = GetFirstVehicleInChain(u);

   288

		if (u->subtype != TS_Front_Engine)

   289

			return false;

   290

	}

   291

   292

	// v is vehicle getting orders. Only copy/clone orders if vehicle doesn't have any orders yet

   293

	// obviously if you press CTRL on a non-empty orders vehicle you know what you are doing

   294

	if (v->num_orders != 0 && _ctrl_pressed == 0) {return false;}

   295

   296

	if (DoCommandP(v->tile, v->index | (u->index << 16), _ctrl_pressed ? 0 : 1, NULL,

   297

		_ctrl_pressed ? CMD_CLONE_ORDER | CMD_MSG(STR_CANT_SHARE_ORDER_LIST) : CMD_CLONE_ORDER | CMD_MSG(STR_CANT_COPY_ORDER_LIST))) {

   298

		WP(w,order_d).sel = -1;

   299

		ResetObjectToPlace();

   300

	}

   301

   302

	return true;

   303

}

   304

   305

static void OrdersPlaceObj(Vehicle *v, TileIndex tile, Window *w)

   306

{

   307

	Order cmd;

   308

	Vehicle *u;

   309

   310

	// check if we're clicking on a vehicle first.. clone orders in that case.

   311

	u = CheckMouseOverVehicle();

   312

	if (u && HandleOrderVehClick(v, u, w))

   313

		return;

   314

   315

	cmd = GetOrderCmdFromTile(v, tile);

   316

	if (cmd.type == OT_NOTHING) return;

   317

   318

	if (DoCommandP(v->tile, v->index + (OrderGetSel(w) << 16), PackOrder(&cmd), NULL, CMD_INSERT_ORDER | CMD_MSG(STR_8833_CAN_T_INSERT_NEW_ORDER))) {

   319

		if (WP(w,order_d).sel != -1)

   320

			WP(w,order_d).sel++;

   321

		ResetObjectToPlace();

   322

	}

   323

}

   324

   325

static void OrderClick_Goto(Window *w, Vehicle *v)

   326

{

   327

	InvalidateWidget(w, 7);

   328

	TOGGLEBIT(w->click_state, 7);

   329

	if (HASBIT(w->click_state, 7)) {

   330

		_place_clicked_vehicle = NULL;

   331

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   332

	} else {

   333

		ResetObjectToPlace();

   334

	}

   335

}

   336

   337

static void OrderClick_FullLoad(Window *w, Vehicle *v)

   338

{

   339

	DoCommandP(v->tile, v->index + (OrderGetSel(w) << 16), OFB_FULL_LOAD, NULL, CMD_MODIFY_ORDER | CMD_MSG(STR_8835_CAN_T_MODIFY_THIS_ORDER));

   340

}

   341

   342

static void OrderClick_Unload(Window *w, Vehicle *v)

   343

{

   344

	DoCommandP(v->tile, v->index + (OrderGetSel(w) << 16), OFB_UNLOAD,    NULL, CMD_MODIFY_ORDER | CMD_MSG(STR_8835_CAN_T_MODIFY_THIS_ORDER));

   345

}

   346

   347

static void OrderClick_Nonstop(Window *w, Vehicle *v)

   348

{

   349

	DoCommandP(v->tile, v->index + (OrderGetSel(w) << 16), OFB_NON_STOP,  NULL, CMD_MODIFY_ORDER | CMD_MSG(STR_8835_CAN_T_MODIFY_THIS_ORDER));

   350

}

   351

   352

static void OrderClick_Transfer(Window *w, Vehicle *v)

   353

{

   354

	DoCommandP(v->tile, v->index + (OrderGetSel(w) <<  16), OFB_TRANSFER, NULL, CMD_MODIFY_ORDER | CMD_MSG(STR_8835_CAN_T_MODIFY_THIS_ORDER));

   355

}

   356

   357

static void OrderClick_Skip(Window *w, Vehicle *v)

   358

{

   359

	DoCommandP(v->tile, v->index, 0, NULL, CMD_SKIP_ORDER);

   360

}

   361

   362

static void OrderClick_Delete(Window *w, Vehicle *v)

   363

{

   364

	DoCommandP(v->tile, v->index, OrderGetSel(w), NULL, CMD_DELETE_ORDER | CMD_MSG(STR_8834_CAN_T_DELETE_THIS_ORDER));

   365

}

   366

   367

typedef void OnButtonClick(Window *w, Vehicle *v);

   368

   369

static OnButtonClick * const _order_button_proc[] = {

   370

	OrderClick_Skip,

   371

	OrderClick_Delete,

   372

	OrderClick_Nonstop,

   373

	OrderClick_Goto,

   374

	OrderClick_FullLoad,

   375

	OrderClick_Unload,

   376

	OrderClick_Transfer

   377

};

   378

   379

static const uint16 _order_keycodes[] = {

   380

	'D', //skip order

   381

	'F', //delete order

   382

	'G', //non-stop

   383

	'H', //goto order

   384

	'J', //full load

   385

	'K'  //unload

   386

};

   387

   388

static void OrdersWndProc(Window *w, WindowEvent *e)

   389

{

   390

	switch(e->event) {

   391

	case WE_PAINT:

   392

		DrawOrdersWindow(w);

   393

		break;

   394

   395

	case WE_CLICK: {

   396

		Vehicle *v = GetVehicle(w->window_number);

   397

		switch(e->click.widget) {

   398

		case 2: { /* orders list */

   399

			int sel;

   400

			sel = (e->click.pt.y - 15) / 10;

   401

   402

			if ((uint)sel >= w->vscroll.cap)

   403

				return;

   404

   405

			sel += w->vscroll.pos;

   406

   407

			if (_ctrl_pressed && sel < v->num_orders) {

   408

				const Order *ord = GetVehicleOrder(v, sel);

   409

				int xy = 0;

   410

				switch (ord->type) {

   411

				case OT_GOTO_STATION:			/* station order */

   412

					xy = GetStation(ord->station)->xy ;

   413

					break;

   414

				case OT_GOTO_DEPOT:				/* goto depot order */

   415

					xy = GetDepot(ord->station)->xy;

   416

					break;

   417

				case OT_GOTO_WAYPOINT:	/* goto waypoint order */

   418

					xy = GetWaypoint(ord->station)->xy;

   419

				}

   420

   421

				if (xy)

   422

					ScrollMainWindowToTile(xy);

   423

   424

				return;

   425

			}

   426

   427

			if (sel == WP(w,order_d).sel) sel = -1;

   428

			WP(w,order_d).sel = sel;

   429

			SetWindowDirty(w);

   430

		}	break;

   431

   432

		case 4: /* skip button */

   433

			OrderClick_Skip(w, v);

   434

			break;

   435

   436

		case 5: /* delete button */

   437

			OrderClick_Delete(w, v);

   438

			break;

   439

   440

		case 6: /* non stop button */

   441

			OrderClick_Nonstop(w, v);

   442

			break;

   443

   444

		case 7: /* goto button */

   445

			OrderClick_Goto(w, v);

   446

			break;

   447

   448

		case 8: /* full load button */

   449

			OrderClick_FullLoad(w, v);

   450

			break;

   451

   452

		case 9: /* unload button */

   453

			OrderClick_Unload(w, v);

   454

			break;

   455

		case 10: /* transfer button */

   456

			OrderClick_Transfer(w, v);

   457

			break;

   458

		}

   459

	} break;

   460

   461

	case WE_KEYPRESS: {

   462

		Vehicle *v = GetVehicle(w->window_number);

   463

		uint i;

   464

   465

		for(i = 0; i < lengthof(_order_keycodes); i++) {

   466

			if (e->keypress.keycode == _order_keycodes[i]) {

   467

				e->keypress.cont = false;

   468

				//see if the button is disabled

   469

				if (!(HASBIT(w->disabled_state, (i + 4)))) {

   470

					_order_button_proc[i](w, v);

   471

				}

   472

				break;

   473

			}

   474

		}

   475

		break;

   476

	}

   477

   478

	case WE_RCLICK: {

   479

		Vehicle *v = GetVehicle(w->window_number);

   480

		int sel = OrderGetSel(w);

   481

 		if (e->click.widget != 8) break;

   482

		if (sel == v->num_orders || GetVehicleOrder(v, sel)->type != OT_GOTO_DEPOT)

   483

			GuiShowTooltips(STR_8857_MAKE_THE_HIGHLIGHTED_ORDER);

   484

		else

   485

			GuiShowTooltips(STR_SERVICE_HINT);

   486

	} break;

   487

   488

	case WE_4: {

   489

		if (FindWindowById(WC_VEHICLE_VIEW, w->window_number) == NULL)

   490

			DeleteWindow(w);

   491

	} break;

   492

   493

	case WE_PLACE_OBJ: {

   494

		OrdersPlaceObj(GetVehicle(w->window_number), e->place.tile, w);