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

    25

static int OrderGetSel(const Window *w)

    26

{

    27

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

    28

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

    29

    30

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

    31

}

    32

    33

static StringID StationOrderStrings[] = {

    34

	STR_8806_GO_TO,

    35

	STR_8807_GO_TO_TRANSFER,

    36

	STR_8808_GO_TO_UNLOAD,

    37

	STR_8809_GO_TO_TRANSFER_UNLOAD,

    38

	STR_880A_GO_TO_LOAD,

    39

	STR_880B_GO_TO_TRANSFER_LOAD,

    40

	STR_NULL,

    41

	STR_NULL,

    42

	STR_880C_GO_NON_STOP_TO,

    43

	STR_880D_GO_TO_NON_STOP_TRANSFER,

    44

	STR_880E_GO_NON_STOP_TO_UNLOAD,

    45

	STR_880F_GO_TO_NON_STOP_TRANSFER_UNLOAD,

    46

	STR_8810_GO_NON_STOP_TO_LOAD,

    47

	STR_8811_GO_TO_NON_STOP_TRANSFER_LOAD,

    48

	STR_NULL

    49

};

    50

    51

static void DrawOrdersWindow(Window *w)

    52

{

    53

	const Vehicle *v;

    54

	const Order *order;

    55

	StringID str;

    56

	int sel;

    57

	int y, i;

    58

	bool shared_orders;

    59

	byte color;

    60

    61

	v = GetVehicle(w->window_number);

    62

    63

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

    64

		1 << 4 |   //skip

    65

		1 << 5 |   //delete

    66

		1 << 6 |   //non-stop

    67

		1 << 7 |   //go-to

    68

		1 << 8 |   //full load

    69

		1 << 9 |   //unload

    70

		1 << 10    //transfer

    71

		);

    72

    73

	if (v->type != VEH_Train)

    74

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

    75

    76

	shared_orders = IsOrderListShared(v);

    77

    78

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

    79

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

    80

    81

	if (v->num_orders == 0)

    82

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

    83

    84

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

    85

    86

	sel = OrderGetSel(w);

    87

	SetDParam(2, STR_8827_FULL_LOAD);

    88

    89

	order = GetVehicleOrder(v, sel);

    90

    91

	if (order != NULL) {

    92

		switch (order->type) {

    93

			case OT_GOTO_STATION:

    94

				break;

    95

    96

			case OT_GOTO_DEPOT:

    97

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

    98

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

    99

				SetDParam(2,STR_SERVICE);

   100

				break;

   101

   102

			case OT_GOTO_WAYPOINT:

   103

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

   104

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

   105

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

   106

				break;

   107

   108

			default:

   109

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

   110

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

   111

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

   112

		}

   113

	} else {

   114

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

   115

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

   116

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

   117

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

   118

	}

   119

   120

	SetDParam(0, v->string_id);

   121

	SetDParam(1, v->unitnumber);

   122

	DrawWindowWidgets(w);

   123

   124

	y = 15;

   125

   126

	i = w->vscroll.pos;

   127

	order = GetVehicleOrder(v, i);

   128

	while (order != NULL) {

   129

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

   130

   131

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

   132

			SetDParam(1, 6);

   133

   134

			switch (order->type) {

   135

				case OT_GOTO_STATION:

   136

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

   137

					SetDParam(2, order->station);

   138

					break;

   139

   140

				case OT_GOTO_DEPOT: {

   141

					StringID s = STR_NULL;

   142

   143

					if (v->type == VEH_Aircraft) {

   144

						s = STR_GO_TO_AIRPORT_HANGAR;

   145

						SetDParam(2, order->station);

   146

					} else {

   147

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

   148

   149

						switch (v->type) {

   150

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

   151

							case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   152

							case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT; break;

   153

							default: break;

   154

						}

   155

					}

   156

   157

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

   158

   159

					SetDParam(1, s);

   160

					break;

   161

				}

   162

   163

				case OT_GOTO_WAYPOINT:

   164

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

   165

					SetDParam(2, order->station);

   166

					break;

   167

			}

   168

   169

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

   170

			SetDParam(0, i + 1);

   171

			if (order->type != OT_DUMMY) {

   172

				DrawString(2, y, str, color);

   173

			} else {

   174

				SetDParam(1, STR_INVALID_ORDER);

   175

				SetDParam(2, order->station);

   176

				DrawString(2, y, str, color);

   177

			}

   178

			y += 10;

   179

		}

   180

   181

		i++;

   182

		order = order->next;

   183

	}

   184

   185

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

   186

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   187

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

   188

		DrawString(2, y, str, color);

   189

	}

   190

}

   191

   192

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

   193

{

   194

	Order order;

   195

	order.next  = NULL;

   196

	order.index = 0;

   197

   198

	// check depot first

   199

	if (_patches.gotodepot) {

   200

		switch (GetTileType(tile)) {

   201

		case MP_RAILWAY:

   202

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

   203

				if (IsRailDepot(tile)) {

   204

					order.type = OT_GOTO_DEPOT;

   205

					order.flags = OF_PART_OF_ORDERS;

   206

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

   207

					return order;

   208

				}

   209

			}

   210

			break;

   211

   212

		case MP_STREET:

   213

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

   214

				order.type = OT_GOTO_DEPOT;

   215

				order.flags = OF_PART_OF_ORDERS;

   216

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

   217

				return order;

   218

			}

   219

			break;

   220

   221

		case MP_STATION:

   222

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

   223

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

   224

				order.type = OT_GOTO_DEPOT;

   225

				order.flags = OF_PART_OF_ORDERS;

   226

				order.station = GetStationIndex(tile);

   227

				return order;

   228

			}

   229

			break;

   230

   231

		case MP_WATER:

   232

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

   233

			if (IsTileDepotType(tile, TRANSPORT_WATER) &&

   234

					IsTileOwner(tile, _local_player)) {

   235

				TileIndex tile2 = GetOtherShipDepotTile(tile);

   236

   237

				order.type = OT_GOTO_DEPOT;

   238

				order.flags = OF_PART_OF_ORDERS;

   239

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

   240

				return order;

   241

			}

   242

   243

			default:

   244

				break;

   245

		}

   246

	}

   247

   248

	// check waypoint

   249

	if (IsTileType(tile, MP_RAILWAY) &&

   250

			v->type == VEH_Train &&

   251

			IsTileOwner(tile, _local_player) &&

   252

			IsRailWaypoint(tile)) {

   253

		order.type = OT_GOTO_WAYPOINT;

   254

		order.flags = 0;

   255

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

   256

		return order;

   257

	}

   258

   259

	if (IsTileType(tile, MP_STATION)) {

   260

		StationID st_index = GetStationIndex(tile);

   261

		const Station *st = GetStation(st_index);

   262

   263

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

   264

			byte facil;

   265

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

   266

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

   267

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

   268

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

   269

			(facil=FACIL_TRUCK_STOP, 1);

   270

			if (st->facilities & facil) {

   271

				order.type = OT_GOTO_STATION;

   272

				order.flags = 0;

   273

				order.station = st_index;

   274

				return order;

   275

			}

   276

		}

   277

	}

   278

   279

	// not found

   280

	order.type = OT_NOTHING;

   281

	order.flags = 0;

   282

	order.station = INVALID_STATION;

   283

	return order;

   284

}

   285

   286

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

   287

{

   288

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

   289

   290

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

   291

		u = GetFirstVehicleInChain(u);

   292

		if (!IsFrontEngine(u)) return false;

   293

	}

   294

   295

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

   296

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

   297

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

   298

   299

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

   300

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

   301

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

   302

		ResetObjectToPlace();

   303

	}

   304

   305

	return true;

   306

}

   307

   308

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

   309

{

   310

	Order cmd;

   311

	const Vehicle *u;

   312

   313

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

   314

	u = CheckMouseOverVehicle();

   315

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

   316

   317

	cmd = GetOrderCmdFromTile(v, tile);

   318

	if (cmd.type == OT_NOTHING) return;

   319

   320

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

   321

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

   322

		ResetObjectToPlace();

   323

	}

   324

}

   325

   326

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

   327

{

   328

	InvalidateWidget(w, 7);

   329

	TOGGLEBIT(w->click_state, 7);

   330

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

   331

		_place_clicked_vehicle = NULL;

   332

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   333

	} else {

   334

		ResetObjectToPlace();

   335

	}

   336

}

   337

   338

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

   339

{

   340

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

   341

}

   342

   343

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

   344

{

   345

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

   346

}

   347

   348

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

   349

{

   350

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

   351

}

   352

   353

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

   354

{

   355

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

   356

}

   357

   358

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

   359

{

   360

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

   361

}

   362

   363

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

   364

{

   365

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

   366

}

   367

   368

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

   369

   370

static OnButtonVehClick* const _order_button_proc[] = {

   371

	OrderClick_Skip,

   372

	OrderClick_Delete,

   373

	OrderClick_Nonstop,

   374

	OrderClick_Goto,

   375

	OrderClick_FullLoad,

   376

	OrderClick_Unload,

   377

	OrderClick_Transfer

   378

};

   379

   380

static const uint16 _order_keycodes[] = {

   381

	'D', //skip order

   382

	'F', //delete order

   383

	'G', //non-stop

   384

	'H', //goto order

   385

	'J', //full load

   386

	'K'  //unload

   387

};

   388

   389

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

   390

{

   391

	switch (e->event) {

   392

	case WE_PAINT:

   393

		DrawOrdersWindow(w);

   394

		break;

   395

   396

	case WE_CLICK: {

   397

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

   398

		switch (e->click.widget) {

   399

		case 2: { /* orders list */

   400

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

   401

   402

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

   403

   404

			sel += w->vscroll.pos;

   405

   406

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

   407

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

   408

				TileIndex xy;

   409

   410

				switch (ord->type) {

   411

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

   412

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

   413

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

   414

					default:               xy = 0; break;

   415

				}

   416

   417

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

   418

				return;

   419

			}

   420

   421

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

   422

			WP(w,order_d).sel = sel;

   423

			SetWindowDirty(w);

   424

		}	break;

   425

   426

		case 4: /* skip button */

   427

			OrderClick_Skip(w, v);

   428

			break;

   429

   430

		case 5: /* delete button */

   431

			OrderClick_Delete(w, v);

   432

			break;

   433

   434

		case 6: /* non stop button */

   435

			OrderClick_Nonstop(w, v);

   436

			break;

   437

   438

		case 7: /* goto button */

   439

			OrderClick_Goto(w, v);

   440

			break;

   441

   442

		case 8: /* full load button */

   443

			OrderClick_FullLoad(w, v);

   444

			break;

   445

   446

		case 9: /* unload button */

   447

			OrderClick_Unload(w, v);

   448

			break;

   449

		case 10: /* transfer button */

   450

			OrderClick_Transfer(w, v);

   451

			break;

   452

		}

   453

	} break;

   454

   455

	case WE_KEYPRESS: {

   456

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

   457

		uint i;

   458

   459

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

   460

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

   461

				e->keypress.cont = false;

   462

				//see if the button is disabled

   463

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

   464

				break;

   465

			}

   466

		}

   467

		break;

   468

	}

   469

   470

	case WE_RCLICK: {

   471

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

   472

		int s = OrderGetSel(w);

   473

   474

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

   475

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

   476

			GuiShowTooltips(STR_8857_MAKE_THE_HIGHLIGHTED_ORDER);

   477

		} else {

   478

			GuiShowTooltips(STR_SERVICE_HINT);

   479

		}

   480

	} break;

   481

   482

	case WE_PLACE_OBJ: {

   483

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

   484

	} break;

   485

   486

	case WE_ABORT_PLACE_OBJ: {

   487

		CLRBIT(w->click_state, 7);

   488

		InvalidateWidget(w, 7);

   489

	} break;

   490