1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "road.h"

     6

#include "table/sprites.h"

     7

#include "table/strings.h"

     8

#include "functions.h"

     9

#include "map.h"

    10

#include "tile.h"

    11

#include "window.h"

    12

#include "gui.h"

    13

#include "gfx.h"

    14

#include "vehicle.h"

    15

#include "station.h"

    16

#include "town.h"

    17

#include "command.h"

    18

#include "viewport.h"

    19

#include "depot.h"

    20

#include "waypoint.h"

    21

#include "train.h"

    22

    23

static int OrderGetSel(const Window* w)

    24

{

    25

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

    26

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

    27

    28

	return (num >= 0 && num < v->num_orders) ? num : v->num_orders;

    29

}

    30

    31

static StringID StationOrderStrings[] = {

    32

	STR_8806_GO_TO,

    33

	STR_8807_GO_TO_TRANSFER,

    34

	STR_8808_GO_TO_UNLOAD,

    35

	STR_8809_GO_TO_TRANSFER_UNLOAD,

    36

	STR_880A_GO_TO_LOAD,

    37

	STR_880B_GO_TO_TRANSFER_LOAD,

    38

	STR_NULL,

    39

	STR_NULL,

    40

	STR_880C_GO_NON_STOP_TO,

    41

	STR_880D_GO_TO_NON_STOP_TRANSFER,

    42

	STR_880E_GO_NON_STOP_TO_UNLOAD,

    43

	STR_880F_GO_TO_NON_STOP_TRANSFER_UNLOAD,

    44

	STR_8810_GO_NON_STOP_TO_LOAD,

    45

	STR_8811_GO_TO_NON_STOP_TRANSFER_LOAD,

    46

	STR_NULL

    47

};

    48

    49

static void DrawOrdersWindow(Window *w)

    50

{

    51

	const Vehicle *v;

    52

	const Order *order;

    53

	StringID str;

    54

	int sel;

    55

	int y, i;

    56

	bool shared_orders;

    57

	byte color;

    58

    59

	v = GetVehicle(w->window_number);

    60

    61

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

    62

		1 << 4 |   //skip

    63

		1 << 5 |   //delete

    64

		1 << 6 |   //non-stop

    65

		1 << 7 |   //go-to

    66

		1 << 8 |   //full load

    67

		1 << 9 |   //unload

    68

		1 << 10    //transfer

    69

		);

    70

    71

	if (v->type != VEH_Train)

    72

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

    73

    74

	shared_orders = IsOrderListShared(v);

    75

    76

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

    77

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

    78

    79

	if (v->num_orders == 0)

    80

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

    81

    82

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

    83

    84

	sel = OrderGetSel(w);

    85

	SetDParam(2, STR_8827_FULL_LOAD);

    86

    87

	order = GetVehicleOrder(v, sel);

    88

    89

	if (order != NULL) {

    90

		switch (order->type) {

    91

			case OT_GOTO_STATION:

    92

				break;

    93

    94

			case OT_GOTO_DEPOT:

    95

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

    96

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

    97

				SetDParam(2,STR_SERVICE);

    98

				break;

    99

   100

			case OT_GOTO_WAYPOINT:

   101

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

   102

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

   103

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

   104

				break;

   105

   106

			default:

   107

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

   108

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

   109

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

   110

		}

   111

	} else {

   112

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

   113

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

   114

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

   115

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

   116

	}

   117

   118

	SetDParam(0, v->string_id);

   119

	SetDParam(1, v->unitnumber);

   120

	DrawWindowWidgets(w);

   121

   122

	y = 15;

   123

   124

	i = w->vscroll.pos;

   125

	order = GetVehicleOrder(v, i);

   126

	while (order != NULL) {

   127

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

   128

   129

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

   130

			SetDParam(1, 6);

   131

   132

			switch (order->type) {

   133

				case OT_GOTO_STATION:

   134

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

   135

					SetDParam(2, order->station);

   136

					break;

   137

   138

				case OT_GOTO_DEPOT: {

   139

					StringID s = STR_NULL;

   140

   141

					if (v->type == VEH_Aircraft) {

   142

						s = STR_GO_TO_AIRPORT_HANGAR;

   143

						SetDParam(2, order->station);

   144

					} else {

   145

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

   146

   147

						switch (v->type) {

   148

							case VEH_Train: s = (order->flags & OF_NON_STOP) ? STR_880F_GO_NON_STOP_TO_TRAIN_DEPOT : STR_GO_TO_TRAIN_DEPOT; break;

   149

							case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   150

							case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT; break;

   151

							default: break;

   152

						}

   153

					}

   154

   155

					if (order->flags & OF_FULL_LOAD) s++; /* service at */

   156

   157

					SetDParam(1, s);

   158

					break;

   159

				}

   160

   161

				case OT_GOTO_WAYPOINT:

   162

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

   163

					SetDParam(2, order->station);

   164

					break;

   165

			}

   166

   167

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

   168

			SetDParam(0, i + 1);

   169

			if (order->type != OT_DUMMY) {

   170

				DrawString(2, y, str, color);

   171

			} else {

   172

				SetDParam(1, STR_INVALID_ORDER);

   173

				SetDParam(2, order->station);

   174

				DrawString(2, y, str, color);

   175

			}

   176

			y += 10;

   177

		}

   178

   179

		i++;

   180

		order = order->next;

   181

	}

   182

   183

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

   184

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   185

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

   186

		DrawString(2, y, str, color);

   187

	}

   188

}

   189

   190

static Order GetOrderCmdFromTile(const Vehicle *v, TileIndex tile)

   191

{

   192

	Order order;

   193

	int st_index;

   194

   195

	// check depot first

   196

	if (_patches.gotodepot) {

   197

		switch (GetTileType(tile)) {

   198

		case MP_RAILWAY:

   199

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

   200

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

   201

					order.type = OT_GOTO_DEPOT;

   202

					order.flags = OF_PART_OF_ORDERS;

   203

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

   204

					return order;

   205

				}

   206

			}

   207

			break;

   208

   209

		case MP_STREET:

   210

			if (GetRoadType(tile) == ROAD_DEPOT && v->type == VEH_Road && IsTileOwner(tile, _local_player)) {

   211

				order.type = OT_GOTO_DEPOT;

   212

				order.flags = OF_PART_OF_ORDERS;

   213

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

   214

				return order;

   215

			}

   216

			break;

   217

   218

		case MP_STATION:

   219

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

   220

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

   221

				order.type = OT_GOTO_DEPOT;

   222

				order.flags = OF_PART_OF_ORDERS;

   223

				order.station = _m[tile].m2;

   224

				return order;

   225

			}

   226

			break;

   227

   228

		case MP_WATER:

   229

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

   230

			if (IsTileDepotType(tile, TRANSPORT_WATER) &&

   231

					IsTileOwner(tile, _local_player)) {

   232

				switch (_m[tile].m5) {

   233

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

   234

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

   235

				}

   236

				order.type = OT_GOTO_DEPOT;

   237

				order.flags = OF_PART_OF_ORDERS;

   238

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

   239

				return order;

   240

			}

   241

   242

			default:

   243

				break;

   244

		}

   245

	}

   246

   247

	// check waypoint

   248

	if (IsTileType(tile, MP_RAILWAY) &&

   249

			v->type == VEH_Train &&

   250

			IsTileOwner(tile, _local_player) &&

   251

			IsRailWaypoint(tile)) {

   252

		order.type = OT_GOTO_WAYPOINT;

   253

		order.flags = 0;

   254

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

   255

		return order;

   256

	}

   257

   258

	if (IsTileType(tile, MP_STATION)) {

   259

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

   260

   261

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

   262

			byte facil;

   263

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

   264

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

   265

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

   266

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

   267

			(facil=FACIL_TRUCK_STOP, 1);

   268

			if (st->facilities & facil) {

   269

				order.type = OT_GOTO_STATION;

   270

				order.flags = 0;

   271

				order.station = st_index;

   272

				return order;

   273

			}

   274

		}

   275

	}

   276

   277

	// not found

   278

	order.type = OT_NOTHING;

   279

	order.flags = 0;

   280

	order.station = INVALID_STATION;

   281

	return order;

   282

}

   283

   284

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

   285

{

   286

	if (u->type != v->type) return false;

   287

   288

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

   289

		u = GetFirstVehicleInChain(u);

   290

		if (!IsFrontEngine(u)) return false;

   291

	}

   292

   293

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

   294

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

   295

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

   296

   297

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

   298

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

   299

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

   300

		ResetObjectToPlace();

   301

	}

   302

   303

	return true;

   304

}

   305

   306

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

   307

{

   308

	Order cmd;

   309

	const Vehicle* u;

   310

   311

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

   312

	u = CheckMouseOverVehicle();

   313

	if (u != NULL && HandleOrderVehClick(v, u, w)) 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) WP(w,order_d).sel++;

   320

		ResetObjectToPlace();

   321

	}

   322

}

   323

   324

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

   325

{

   326

	InvalidateWidget(w, 7);

   327

	TOGGLEBIT(w->click_state, 7);

   328

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

   329

		_place_clicked_vehicle = NULL;

   330

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   331

	} else {

   332

		ResetObjectToPlace();

   333

	}

   334

}

   335

   336

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

   337

{

   338

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

   339

}

   340

   341

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

   342

{

   343

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

   344

}

   345

   346

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

   347

{

   348

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

   349

}

   350

   351

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

   352

{

   353

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

   354

}

   355

   356

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

   357

{

   358

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

   359

}

   360

   361

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

   362

{

   363

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

   364

}

   365

   366

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

   367

   368

static OnButtonClick* const _order_button_proc[] = {

   369

	OrderClick_Skip,

   370

	OrderClick_Delete,

   371

	OrderClick_Nonstop,

   372

	OrderClick_Goto,

   373

	OrderClick_FullLoad,

   374

	OrderClick_Unload,

   375

	OrderClick_Transfer

   376

};

   377

   378

static const uint16 _order_keycodes[] = {

   379

	'D', //skip order

   380

	'F', //delete order

   381

	'G', //non-stop

   382

	'H', //goto order

   383

	'J', //full load

   384

	'K'  //unload

   385

};

   386

   387

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

   388

{

   389

	switch (e->event) {

   390

	case WE_PAINT:

   391

		DrawOrdersWindow(w);

   392

		break;

   393

   394

	case WE_CLICK: {

   395

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

   396

		switch (e->click.widget) {

   397

		case 2: { /* orders list */

   398

			int sel;

   399

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

   400

   401

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

   402

				return;

   403

   404

			sel += w->vscroll.pos;

   405

   406

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

   407

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

   408

				int xy = 0;

   409

				switch (ord->type) {

   410

				case OT_GOTO_STATION:			/* station order */

   411

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

   412

					break;

   413

				case OT_GOTO_DEPOT:				/* goto depot order */

   414

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

   415

					break;

   416

				case OT_GOTO_WAYPOINT:	/* goto waypoint order */

   417

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

   418

				}

   419

   420

				if (xy)

   421

					ScrollMainWindowToTile(xy);

   422

   423

				return;

   424

			}

   425

   426

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

   427

			WP(w,order_d).sel = sel;

   428

			SetWindowDirty(w);

   429

		}	break;

   430

   431

		case 4: /* skip button */

   432

			OrderClick_Skip(w, v);

   433

			break;

   434

   435

		case 5: /* delete button */

   436

			OrderClick_Delete(w, v);

   437

			break;

   438

   439

		case 6: /* non stop button */

   440

			OrderClick_Nonstop(w, v);

   441

			break;

   442

   443

		case 7: /* goto button */

   444

			OrderClick_Goto(w, v);

   445

			break;

   446

   447

		case 8: /* full load button */

   448

			OrderClick_FullLoad(w, v);

   449

			break;

   450

   451

		case 9: /* unload button */

   452

			OrderClick_Unload(w, v);

   453

			break;

   454

		case 10: /* transfer button */

   455

			OrderClick_Transfer(w, v);

   456

			break;

   457

		}

   458

	} break;

   459

   460

	case WE_KEYPRESS: {

   461

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

   462

		uint i;

   463

   464

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

   465

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

   466

				e->keypress.cont = false;

   467

				//see if the button is disabled

   468

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

   469

					_order_button_proc[i](w, v);

   470

				}

   471

				break;

   472

			}

   473

		}

   474

		break;

   475

	}

   476

   477

	case WE_RCLICK: {

   478

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

   479

		int s = OrderGetSel(w);

   480

   481

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

   482

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

   483

			GuiShowTooltips(STR_8857_MAKE_THE_HIGHLIGHTED_ORDER);

   484

		} else {

   485

			GuiShowTooltips(STR_SERVICE_HINT);

   486

		}

   487

	} break;

   488

   489

	case WE_4: {

   490

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

   491