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"

    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

	byte color;

    61

    62

	v = GetVehicle(w->window_number);

    63

    64

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

    65

		1 << 4 |   //skip

    66

		1 << 5 |   //delete

    67

		1 << 6 |   //non-stop

    68

		1 << 7 |   //go-to

    69

		1 << 8 |   //full load

    70

		1 << 9 |   //unload

    71

		1 << 10    //transfer

    72

		);

    73

    74

	if (v->type != VEH_Train) {

    75

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

    76

		switch (v->type) {

    77

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

    78

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

    79

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

    80

			default: NOT_REACHED(); break;

    81

		}

    82

	}

    83

    84

	shared_orders = IsOrderListShared(v);

    85

    86

	if (!shared_orders || v->orders == NULL) {

    87

		SETBIT(w->disabled_state, 11); // Disable list of vehicles with the same shared orders if there are no list

    88

	}

    89

    90

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

    91

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

    92

    93

	if (v->num_orders == 0)

    94

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

    95

    96

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

    97

    98

	sel = OrderGetSel(w);

    99

	SetDParam(2, STR_8827_FULL_LOAD);

   100

   101

	order = GetVehicleOrder(v, sel);

   102

   103

	if (order != NULL) {

   104

		switch (order->type) {

   105

			case OT_GOTO_STATION:

   106

				break;

   107

   108

			case OT_GOTO_DEPOT:

   109

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

   110

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

   111

				SetDParam(2,STR_SERVICE);

   112

				break;

   113

   114

			case OT_GOTO_WAYPOINT:

   115

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

   116

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

   117

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

   118

				break;

   119

   120

			default:

   121

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

   122

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

   123

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

   124

		}

   125

	} else {

   126

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

   127

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

   128

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

   129

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

   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

   143

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

   144

			SetDParam(1, 6);

   145

   146

			switch (order->type) {

   147

				case OT_GOTO_STATION:

   148

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

   149

					SetDParam(2, order->dest);

   150

					break;

   151

   152

				case OT_GOTO_DEPOT: {

   153

					StringID s = STR_NULL;

   154

   155

					if (v->type == VEH_Aircraft) {

   156

						s = STR_GO_TO_AIRPORT_HANGAR;

   157

						SetDParam(2, order->dest);

   158

					} else {

   159

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

   160

   161

						switch (v->type) {

   162

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

   163

							case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   164

							case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT; break;

   165

							default: break;

   166

						}

   167

					}

   168

   169

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

   170

   171

					SetDParam(1, s);

   172

					break;

   173

				}

   174

   175

				case OT_GOTO_WAYPOINT:

   176

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

   177

					SetDParam(2, order->dest);

   178

					break;

   179

   180

				default: break;

   181

			}

   182

   183

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

   184

			SetDParam(0, i + 1);

   185

			if (order->type != OT_DUMMY) {

   186

				DrawString(2, y, str, color);

   187

			} else {

   188

				SetDParam(1, STR_INVALID_ORDER);

   189

				SetDParam(2, order->dest);

   190

				DrawString(2, y, str, color);

   191

			}

   192

			y += 10;

   193

		}

   194

   195

		i++;

   196

		order = order->next;

   197

	}

   198

   199

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

   200

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   201

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

   202

		DrawString(2, y, str, color);

   203

	}

   204

}

   205

   206

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

   207

{

   208

	Order order;

   209

	order.next  = NULL;

   210

	order.index = 0;

   211

   212

	// check depot first

   213

	if (_patches.gotodepot) {

   214

		switch (GetTileType(tile)) {

   215

		case MP_RAILWAY:

   216

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

   217

				if (IsRailDepot(tile)) {

   218

					order.type = OT_GOTO_DEPOT;

   219

					order.flags = OF_PART_OF_ORDERS;

   220

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

   221

					return order;

   222

				}

   223

			}

   224

			break;

   225

   226

		case MP_STREET:

   227

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

   228

				order.type = OT_GOTO_DEPOT;

   229

				order.flags = OF_PART_OF_ORDERS;

   230

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

   231

				return order;

   232

			}

   233

			break;

   234

   235

		case MP_STATION:

   236

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

   237

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

   238

				order.type = OT_GOTO_DEPOT;

   239

				order.flags = OF_PART_OF_ORDERS;

   240

				order.dest = GetStationIndex(tile);

   241

				return order;

   242

			}

   243

			break;

   244

   245

		case MP_WATER:

   246

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

   247

			if (IsTileDepotType(tile, TRANSPORT_WATER) &&

   248

					IsTileOwner(tile, _local_player)) {

   249

				TileIndex tile2 = GetOtherShipDepotTile(tile);

   250

   251

				order.type = OT_GOTO_DEPOT;

   252

				order.flags = OF_PART_OF_ORDERS;

   253

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

   254

				return order;

   255

			}

   256

   257

			default:

   258

				break;

   259

		}

   260

	}

   261

   262

	// check waypoint

   263

	if (IsTileType(tile, MP_RAILWAY) &&

   264

			v->type == VEH_Train &&

   265

			IsTileOwner(tile, _local_player) &&

   266

			IsRailWaypoint(tile)) {

   267

		order.type = OT_GOTO_WAYPOINT;

   268

		order.flags = 0;

   269

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

   270

		return order;

   271

	}

   272

   273

	if (IsTileType(tile, MP_STATION)) {

   274

		StationID st_index = GetStationIndex(tile);

   275

		const Station *st = GetStation(st_index);

   276

   277

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

   278

			byte facil;

   279

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

   280

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

   281

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

   282

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

   283

			(facil=FACIL_TRUCK_STOP, 1);

   284

			if (st->facilities & facil) {

   285

				order.type = OT_GOTO_STATION;

   286

				order.flags = 0;

   287

				order.dest = st_index;

   288

				return order;

   289

			}

   290

		}

   291

	}

   292

   293

	// not found

   294

	order.type = OT_NOTHING;

   295

	order.flags = 0;

   296

	order.dest = INVALID_STATION;

   297

	return order;

   298

}

   299

   300

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

   301

{

   302

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

   303

   304

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

   305

		u = GetFirstVehicleInChain(u);

   306

		if (!IsFrontEngine(u)) return false;

   307

	}

   308

   309

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

   310

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

   311

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

   312

   313

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

   314

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

   315

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

   316

		ResetObjectToPlace();

   317

	}

   318

   319

	return true;

   320

}

   321

   322

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

   323

{

   324

	Order cmd;

   325

	const Vehicle *u;

   326

   327

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

   328

	u = CheckMouseOverVehicle();

   329

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

   330

   331

	cmd = GetOrderCmdFromTile(v, tile);

   332

	if (cmd.type == OT_NOTHING) return;

   333

   334

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

   335

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

   336

		ResetObjectToPlace();

   337

	}

   338

}

   339

   340

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

   341

{

   342

	InvalidateWidget(w, 7);

   343

	TOGGLEBIT(w->click_state, 7);

   344

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

   345

		_place_clicked_vehicle = NULL;

   346

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   347

	} else {

   348

		ResetObjectToPlace();

   349

	}

   350

}

   351

   352

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

   353

{

   354

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

   355

}

   356

   357

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

   358

{

   359

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

   360

}

   361

   362

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

   363

{

   364

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

   365

}

   366

   367

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

   368

{

   369

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

   370

}

   371

   372

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

   373

{

   374

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

   375

}

   376

   377

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

   378

{

   379

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

   380

}

   381

   382

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

   383

   384

static OnButtonVehClick* const _order_button_proc[] = {

   385

	OrderClick_Skip,

   386

	OrderClick_Delete,

   387

	OrderClick_Nonstop,

   388

	OrderClick_Goto,

   389

	OrderClick_FullLoad,

   390

	OrderClick_Unload,

   391

	OrderClick_Transfer

   392

};

   393

   394

static const uint16 _order_keycodes[] = {

   395

	'D', //skip order

   396

	'F', //delete order

   397

	'G', //non-stop

   398

	'H', //goto order

   399

	'J', //full load

   400

	'K'  //unload

   401

};

   402

   403

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

   404

{

   405

	switch (e->event) {

   406

	case WE_PAINT:

   407

		DrawOrdersWindow(w);

   408

		break;

   409

   410

	case WE_CLICK: {

   411

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

   412

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

   413

		case 2: { /* orders list */

   414

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

   415

   416

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

   417

   418

			sel += w->vscroll.pos;

   419

   420

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

   421

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

   422

				TileIndex xy;

   423

   424

				switch (ord->type) {

   425

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

   426

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

   427

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

   428

					default:               xy = 0; break;

   429

				}

   430

   431

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

   432

				return;

   433

			}

   434

   435

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

   436

			WP(w,order_d).sel = sel;

   437

			SetWindowDirty(w);

   438

		}	break;

   439

   440

		case 4: /* skip button */

   441

			OrderClick_Skip(w, v);

   442

			break;

   443

   444

		case 5: /* delete button */

   445

			OrderClick_Delete(w, v);

   446

			break;

   447

   448

		case 6: /* non stop button */

   449

			OrderClick_Nonstop(w, v);

   450

			break;

   451

   452

		case 7: /* goto button */

   453

			OrderClick_Goto(w, v);

   454

			break;

   455

   456

		case 8: /* full load button */

   457

			OrderClick_FullLoad(w, v);

   458

			break;

   459

   460

		case 9: /* unload button */

   461

			OrderClick_Unload(w, v);

   462

			break;

   463

		case 10: /* transfer button */

   464

			OrderClick_Transfer(w, v);

   465

			break;

   466

		case 11: /* Vehicle with same shared Orders button */

   468

			break;

   469

		}

   470

	} break;

   471

   472

	case WE_KEYPRESS: {

   473

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

   474

		uint i;

   475

   476

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

   477

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

   478

				e->we.keypress.cont = false;

   479

				//see if the button is disabled

   480

				if (!HASBIT(w->disabled_state, i + 4)) _order_button_proc[i](w, v);

   481

				break;

   482

			}

   483

		}

   484

		break;

   485

	}

   486

   487

	case WE_RCLICK: {

   488

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

   489

		int s = OrderGetSel(w);