1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "road_map.h"

     6

#include "station_map.h"

     7

#include "table/sprites.h"

     8

#include "table/strings.h"

     9

#include "functions.h"

    10

#include "map.h"

    11

#include "tile.h"

    12

#include "window.h"

    13

#include "gui.h"

    14

#include "gfx.h"

    15

#include "vehicle.h"

    16

#include "station.h"

    17

#include "town.h"

    18

#include "command.h"

    19

#include "viewport.h"

    20

#include "depot.h"

    21

#include "waypoint.h"

    22

#include "train.h"

    23

#include "water_map.h"

    24

#include "vehicle_gui.h"

    25

    26

static int OrderGetSel(const Window *w)

    27

{

    28

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

    29

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

    30

    31

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

    32

}

    33

    34

static StringID StationOrderStrings[] = {

    35

	STR_8806_GO_TO,

    36

	STR_8807_GO_TO_TRANSFER,

    37

	STR_8808_GO_TO_UNLOAD,

    38

	STR_8809_GO_TO_TRANSFER_UNLOAD,

    39

	STR_880A_GO_TO_LOAD,

    40

	STR_880B_GO_TO_TRANSFER_LOAD,

    41

	STR_NULL,

    42

	STR_NULL,

    43

	STR_880C_GO_NON_STOP_TO,

    44

	STR_880D_GO_TO_NON_STOP_TRANSFER,

    45

	STR_880E_GO_NON_STOP_TO_UNLOAD,

    46

	STR_880F_GO_TO_NON_STOP_TRANSFER_UNLOAD,

    47

	STR_8810_GO_NON_STOP_TO_LOAD,

    48

	STR_8811_GO_TO_NON_STOP_TRANSFER_LOAD,

    49

	STR_NULL

    50

};

    51

    52

static void DrawOrdersWindow(Window *w)

    53

{

    54

	const Vehicle *v;

    55

	const Order *order;

    56

	StringID str;

    57

	int sel;

    58

	int y, i;

    59

	bool shared_orders;

    60

	bool not_localplayer;

    61

	byte color;

    62

    63

	v = GetVehicle(w->window_number);

    64

	not_localplayer = v->owner != _local_player;

    65

    66

	if (v->type != VEH_Train) {

    67

		switch (v->type) {

    68

			case VEH_Road:     w->widget[11].data = STR_LORRY; break;

    69

			case VEH_Ship:     w->widget[11].data = STR_SHIP;  break;

    70

			case VEH_Aircraft: w->widget[11].data = STR_PLANE; break;

    71

			default: NOT_REACHED(); break;

    72

		}

    73

	}

    74

    75

	shared_orders = IsOrderListShared(v);

    76

    77

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

    78

    79

	sel = OrderGetSel(w);

    80

	SetDParam(2, STR_8827_FULL_LOAD);

    81

    82

	order = GetVehicleOrder(v, sel);

    83

    84

	/* skip */

    85

	SetWindowWidgetDisabledState(w,  4, not_localplayer || v->num_orders == 0);

    86

    87

	/* delete */

    88

	SetWindowWidgetDisabledState(w,  5, not_localplayer ||

    89

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

    90

    91

	/* non-stop only for trains */

    92

	SetWindowWidgetDisabledState(w,  6, not_localplayer || v->type != VEH_Train

    93

			|| order == NULL);

    94

	SetWindowWidgetDisabledState(w,  7, not_localplayer); // go-to

    95

	SetWindowWidgetDisabledState(w,  8, not_localplayer || order == NULL); // full load

    96

	SetWindowWidgetDisabledState(w,  9, not_localplayer || order == NULL); // unload

    97

	SetWindowWidgetDisabledState(w, 10, not_localplayer || order == NULL); // transfer

    98

	SetWindowWidgetDisabledState(w, 11, !shared_orders || v->orders == NULL); // Disable list of vehicles with the same shared orders if there are no list

    99

	SetWindowWidgetDisabledState(w, 12, not_localplayer || order == NULL); // Refit

   100

   101

   102

	ShowWindowWidget(w, 9); // Unload

   103

	HideWindowWidget(w, 12); // Refit

   104

   105

	if (order != NULL) {

   106

		switch (order->type) {

   107

			case OT_GOTO_STATION:

   108

				break;

   109

   110

			case OT_GOTO_DEPOT:

   111

				DisableWindowWidget(w, 10);

   112

   113

				/* Remove unload and replace it with refit */

   114

				HideWindowWidget(w,  9);

   115

				ShowWindowWidget(w, 12);

   116

				SetDParam(2,STR_SERVICE);

   117

				break;

   118

   119

			case OT_GOTO_WAYPOINT:

   120

				DisableWindowWidget(w,  8);

   121

				DisableWindowWidget(w,  9);

   122

				DisableWindowWidget(w, 10);

   123

				break;

   124

   125

			default: // every other orders

   126

				DisableWindowWidget(w, 6);

   127

				DisableWindowWidget(w, 8);

   128

				DisableWindowWidget(w, 9);

   129

		}

   130

	}

   131

   132

	SetDParam(0, v->string_id);

   133

	SetDParam(1, v->unitnumber);

   134

	DrawWindowWidgets(w);

   135

   136

	y = 15;

   137

   138

	i = w->vscroll.pos;

   139

	order = GetVehicleOrder(v, i);

   140

	while (order != NULL) {

   141

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

   142

		SetDParam(3, STR_EMPTY);

   143

   144

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

   145

			SetDParam(1, 6);

   146

   147

			switch (order->type) {

   148

				case OT_GOTO_STATION:

   149

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

   150

					SetDParam(2, order->dest);

   151

					break;

   152

   153

				case OT_GOTO_DEPOT: {

   154

					StringID s = STR_NULL;

   155

   156

					if (v->type == VEH_Aircraft) {

   157

						s = STR_GO_TO_AIRPORT_HANGAR;

   158

						SetDParam(2, order->dest);

   159

					} else {

   160

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

   161

   162

						switch (v->type) {

   163

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

   164

							case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   165

							case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT; break;

   166

							default: break;

   167

						}

   168

					}

   169

   170

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

   171

   172

					SetDParam(1, s);

   173

					if (order->refit_cargo < NUM_CARGO) {

   174

						SetDParam(3, STR_REFIT_ORDER);

   175

						SetDParam(4, _cargoc.names_s[order->refit_cargo]);

   176

					} else {

   177

						SetDParam(3, STR_EMPTY);

   178

					}

   179

					break;

   180

				}

   181

   182

				case OT_GOTO_WAYPOINT:

   183

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

   184

					SetDParam(2, order->dest);

   185

					break;

   186

   187

				default: break;

   188

			}

   189

   190

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

   191

			SetDParam(0, i + 1);

   192

			if (order->type != OT_DUMMY) {

   193

				DrawString(2, y, str, color);

   194

			} else {

   195

				SetDParam(1, STR_INVALID_ORDER);

   196

				SetDParam(2, order->dest);

   197

				DrawString(2, y, str, color);

   198

			}

   199

			y += 10;

   200

		}

   201

   202

		i++;

   203

		order = order->next;

   204

	}

   205

   206

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

   207

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   208

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

   209

		DrawString(2, y, str, color);

   210

	}

   211

}

   212

   213

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

   214

{

   215

	Order order;

   216

	order.next  = NULL;

   217

	order.index = 0;

   218

	order.refit_cargo   = CT_INVALID;

   219

	order.refit_subtype = 0;

   220

   221

	// check depot first

   222

	if (_patches.gotodepot) {

   223

		switch (GetTileType(tile)) {

   224

		case MP_RAILWAY:

   225

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

   226

				if (IsRailDepot(tile)) {

   227

					order.type = OT_GOTO_DEPOT;

   228

					order.flags = OF_PART_OF_ORDERS;

   229

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

   230

					return order;

   231

				}

   232

			}

   233

			break;

   234

   235

		case MP_STREET:

   236

			if (GetRoadTileType(tile) == ROAD_TILE_DEPOT && v->type == VEH_Road && IsTileOwner(tile, _local_player)) {

   237

				order.type = OT_GOTO_DEPOT;

   238

				order.flags = OF_PART_OF_ORDERS;

   239

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

   240

				return order;

   241

			}

   242

			break;

   243

   244

		case MP_STATION:

   245

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

   246

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

   247

				order.type = OT_GOTO_DEPOT;

   248

				order.flags = OF_PART_OF_ORDERS;

   249

				order.dest = GetStationIndex(tile);

   250

				return order;

   251

			}

   252

			break;

   253

   254

		case MP_WATER:

   255

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

   256

			if (IsTileDepotType(tile, TRANSPORT_WATER) &&

   257

					IsTileOwner(tile, _local_player)) {

   258

				TileIndex tile2 = GetOtherShipDepotTile(tile);

   259

   260

				order.type = OT_GOTO_DEPOT;

   261

				order.flags = OF_PART_OF_ORDERS;

   262

				order.dest = GetDepotByTile(tile < tile2 ? tile : tile2)->index;

   263

				return order;

   264

			}

   265

   266

			default:

   267

				break;

   268

		}

   269

	}

   270

   271

	// check waypoint

   272

	if (IsTileType(tile, MP_RAILWAY) &&

   273

			v->type == VEH_Train &&

   274

			IsTileOwner(tile, _local_player) &&

   275

			IsRailWaypoint(tile)) {

   276

		order.type = OT_GOTO_WAYPOINT;

   277

		order.flags = 0;

   278

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

   279

		return order;

   280

	}

   281

   282

	if (IsTileType(tile, MP_STATION)) {

   283

		StationID st_index = GetStationIndex(tile);

   284

		const Station *st = GetStation(st_index);

   285

   286

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

   287

			byte facil;

   288

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

   289

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

   290

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

   291

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

   292

			(facil=FACIL_TRUCK_STOP, 1);

   293

			if (st->facilities & facil) {

   294

				order.type = OT_GOTO_STATION;

   295

				order.flags = 0;

   296

				order.dest = st_index;

   297

				return order;

   298

			}

   299

		}

   300

	}

   301

   302

	// not found

   303

	order.type = OT_NOTHING;

   304

	order.flags = 0;

   305

	order.dest = INVALID_STATION;

   306

	return order;

   307

}

   308

   309

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

   310

{

   311

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

   312

   313

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

   314

		u = GetFirstVehicleInChain(u);

   315

		if (!IsFrontEngine(u)) return false;

   316

	}

   317

   318

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

   319

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

   320

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

   321

   322

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

   323

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

   324

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

   325

		ResetObjectToPlace();

   326

	}

   327

   328

	return true;

   329

}

   330

   331

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

   332

{

   333

	Order cmd;

   334

	const Vehicle *u;

   335

   336

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

   337

	u = CheckMouseOverVehicle();

   338

	if (u != NULL && HandleOrderVehClick(v, u, w)) return;

   339

   340

	cmd = GetOrderCmdFromTile(v, tile);

   341

	if (cmd.type == OT_NOTHING) return;

   342

   343

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

   344

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

   345

		ResetObjectToPlace();

   346

	}

   347

}

   348

   349

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

   350

{

   351

	InvalidateWidget(w, 7);

   352

	ToggleWidgetLoweredState(w, 7);

   353

	if (IsWindowWidgetLowered(w, 7)) {

   354

		_place_clicked_vehicle = NULL;

   355

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   356

	} else {

   357

		ResetObjectToPlace();

   358

	}

   359

}

   360

   361

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

   362

{

   363

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

   364

}

   365

   366

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

   367

{

   368

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

   369

}

   370

   371

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

   372

{

   373

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

   374

}

   375

   376

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

   377

{

   378

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

   379

}

   380

   381

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

   382

{

   383

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

   384

}

   385

   386

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

   387

{

   388

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

   389

}

   390

   391

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

   392

{

   393

	if (_ctrl_pressed) {

   394

		/* Cancel refitting */

   395

		DoCommandP(v->tile, v->index, (WP(w,order_d).sel << 16) | (CT_NO_REFIT << 8) | CT_NO_REFIT, NULL, CMD_ORDER_REFIT);

   396

	} else {

   397

		ShowVehicleRefitWindow(v, WP(w,order_d).sel);

   398

	}

   399

}

   400

   401

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

   402

   403

static OnButtonVehClick* const _order_button_proc[] = {

   404

	OrderClick_Skip,

   405

	OrderClick_Delete,

   406

	OrderClick_Nonstop,

   407

	OrderClick_Goto,

   408

	OrderClick_FullLoad,

   409

	OrderClick_Unload,

   410

	OrderClick_Transfer

   411

};

   412

   413

static const uint16 _order_keycodes[] = {

   414

	'D', //skip order

   415

	'F', //delete order

   416

	'G', //non-stop

   417

	'H', //goto order

   418

	'J', //full load

   419

	'K'  //unload

   420

};

   421

   422

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

   423

{

   424

	switch (e->event) {

   425

		case WE_CREATE:

   426

			/* Move Refit to the same location as Unload

   427

			 * This will ensure that they always stay at the same location even if Unload is moved in a later commit */

   428

			w->widget[12].left   = w->widget[9].left;

   429

			w->widget[12].right  = w->widget[9].right;

   430

			w->widget[12].top    = w->widget[9].top;

   431

			w->widget[12].bottom = w->widget[9].bottom;

   432

			break;

   433

   434

	case WE_PAINT:

   435

		DrawOrdersWindow(w);

   436

		break;

   437

   438

	case WE_CLICK: {

   439

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

   440

		switch (e->we.click.widget) {

   441

		case 2: { /* orders list */

   442

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

   443

   444

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

   445

   446

			sel += w->vscroll.pos;

   447

   448

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

   449

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

   450

				TileIndex xy;

   451

   452

				switch (ord->type) {

   453

					case OT_GOTO_STATION:  xy = GetStation(ord->dest)->xy ; break;

   454

					case OT_GOTO_DEPOT:    xy = GetDepot(ord->dest)->xy;    break;

   455

					case OT_GOTO_WAYPOINT: xy = GetWaypoint(ord->dest)->xy; break;

   456

					default:               xy = 0; break;

   457

				}

   458

   459

				if (xy != 0) ScrollMainWindowToTile(xy);

   460

				return;

   461

			}

   462

   463

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

   464

			WP(w,order_d).sel = sel;

   465

			SetWindowDirty(w);

   466

		}	break;

   467

   468

		case 4: /* skip button */

   469

			OrderClick_Skip(w, v);

   470

			break;

   471

   472

		case 5: /* delete button */

   473

			OrderClick_Delete(w, v);

   474

			break;

   475

   476

		case 6: /* non stop button */

   477

			OrderClick_Nonstop(w, v);

   478

			break;

   479

   480

		case 7: /* goto button */

   481

			OrderClick_Goto(w, v);

   482

			break;

   483

   484

		case 8: /* full load button */

   485

			OrderClick_FullLoad(w, v);

   486

			break;

   487

   488

		case 9: /* unload button */

   489

			OrderClick_Unload(w, v);