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

    44

static int OrderGetSel(const Window *w)

    45

{

    46

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

    47

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

    48

    49

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

    50

}

    51

    52

static StringID StationOrderStrings[] = {

    53

	STR_8806_GO_TO,

    54

	STR_8807_GO_TO_TRANSFER,

    55

	STR_8808_GO_TO_UNLOAD,

    56

	STR_8809_GO_TO_TRANSFER_UNLOAD,

    57

	STR_880A_GO_TO_LOAD,

    58

	STR_880B_GO_TO_TRANSFER_LOAD,

    59

	STR_NULL,

    60

	STR_NULL,

    61

	STR_880C_GO_NON_STOP_TO,

    62

	STR_880D_GO_TO_NON_STOP_TRANSFER,

    63

	STR_880E_GO_NON_STOP_TO_UNLOAD,

    64

	STR_880F_GO_TO_NON_STOP_TRANSFER_UNLOAD,

    65

	STR_8810_GO_NON_STOP_TO_LOAD,

    66

	STR_8811_GO_TO_NON_STOP_TRANSFER_LOAD,

    67

	STR_NULL

    68

};

    69

    70

static void DrawOrdersWindow(Window *w)

    71

{

    72

	const Vehicle *v;

    73

	const Order *order;

    74

	StringID str;

    75

	int sel;

    76

	int y, i;

    77

	bool shared_orders;

    78

	byte color;

    79

    80

	v = GetVehicle(w->window_number);

    81

    82

	shared_orders = IsOrderListShared(v);

    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 (v->owner == _local_player) {

    92

		/* skip */

    94

    95

		/* delete */

    97

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

    98

    99

		/* non-stop only for trains */

   104

		/* Disable list of vehicles with the same shared orders if there is no list */

   108

	} else {

   110

	}

   111

   113

   114

	if (order != NULL) {

   115

		switch (order->type) {

   116

			case OT_GOTO_STATION: break;

   117

   118

			case OT_GOTO_DEPOT:

   120

   121

				/* Remove unload and replace it with refit */

   124

				SetDParam(2,STR_SERVICE);

   125

				break;

   126

   127

			case OT_GOTO_WAYPOINT:

   131

				break;

   132

   133

			default: // every other orders

   137

		}

   138

	}

   139

   140

	SetDParam(0, v->string_id);

   141

	SetDParam(1, v->unitnumber);

   142

	DrawWindowWidgets(w);

   143

   144

	y = 15;

   145

   146

	i = w->vscroll.pos;

   147

	order = GetVehicleOrder(v, i);

   148

	while (order != NULL) {

   149

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

   150

		SetDParam(3, STR_EMPTY);

   151

   152

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

   153

			SetDParam(1, 6);

   154

   155

			switch (order->type) {

   156

				case OT_GOTO_STATION:

   157

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

   158

					SetDParam(2, order->dest);

   159

					break;

   160

   161

				case OT_GOTO_DEPOT: {

   162

					StringID s = STR_NULL;

   163

   164

					if (v->type == VEH_Aircraft) {

   165

						s = STR_GO_TO_AIRPORT_HANGAR;

   166

						SetDParam(2, order->dest);

   167

					} else {

   168

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

   169

   170

						switch (v->type) {

   171

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

   172

							case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   173

							case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT; break;

   174

							default: break;

   175

						}

   176

					}

   177

   178

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

   179

   180

					SetDParam(1, s);

   181

					if (order->refit_cargo < NUM_CARGO) {

   182

						SetDParam(3, STR_REFIT_ORDER);

   183

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

   184

					} else {

   185

						SetDParam(3, STR_EMPTY);

   186

					}

   187

					break;

   188

				}

   189

   190

				case OT_GOTO_WAYPOINT:

   191

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

   192

					SetDParam(2, order->dest);

   193

					break;

   194

   195

				default: break;

   196

			}

   197

   198

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

   199

			SetDParam(0, i + 1);

   200

			if (order->type != OT_DUMMY) {

   201

				DrawString(2, y, str, color);

   202

			} else {

   203

				SetDParam(1, STR_INVALID_ORDER);

   204

				SetDParam(2, order->dest);

   205

				DrawString(2, y, str, color);

   206

			}

   207

			y += 10;

   208

		}

   209

   210

		i++;

   211

		order = order->next;

   212

	}

   213

   214

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

   215

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   216

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

   217

		DrawString(2, y, str, color);

   218

	}

   219

}

   220

   221

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

   222

{

   223

	Order order;

   224

	order.next  = NULL;

   225

	order.index = 0;

   226

	order.refit_cargo   = CT_INVALID;

   227

	order.refit_subtype = 0;

   228

   229

	// check depot first

   230

	if (_patches.gotodepot) {

   231

		switch (GetTileType(tile)) {

   232

		case MP_RAILWAY:

   233

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

   234

				if (IsRailDepot(tile)) {

   235

					order.type = OT_GOTO_DEPOT;

   236

					order.flags = OF_PART_OF_ORDERS;

   237

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

   238

					return order;

   239

				}

   240

			}

   241

			break;

   242

   243

		case MP_STREET:

   244

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

   245

				order.type = OT_GOTO_DEPOT;

   246

				order.flags = OF_PART_OF_ORDERS;

   247

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

   248

				return order;

   249

			}

   250

			break;

   251

   252

		case MP_STATION:

   253

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

   254

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

   255

				order.type = OT_GOTO_DEPOT;

   256

				order.flags = OF_PART_OF_ORDERS;

   257

				order.dest = GetStationIndex(tile);

   258

				return order;

   259

			}

   260

			break;

   261

   262

		case MP_WATER:

   263

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

   264

			if (IsTileDepotType(tile, TRANSPORT_WATER) &&

   265

					IsTileOwner(tile, _local_player)) {

   266

				TileIndex tile2 = GetOtherShipDepotTile(tile);

   267

   268

				order.type = OT_GOTO_DEPOT;

   269

				order.flags = OF_PART_OF_ORDERS;

   270

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

   271

				return order;

   272

			}

   273

   274

			default:

   275

				break;

   276

		}

   277

	}

   278

   279

	// check waypoint

   280

	if (IsTileType(tile, MP_RAILWAY) &&

   281

			v->type == VEH_Train &&

   282

			IsTileOwner(tile, _local_player) &&

   283

			IsRailWaypoint(tile)) {

   284

		order.type = OT_GOTO_WAYPOINT;

   285

		order.flags = 0;

   286

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

   287

		return order;

   288

	}

   289

   290

	if (IsTileType(tile, MP_STATION)) {

   291

		StationID st_index = GetStationIndex(tile);

   292

		const Station *st = GetStation(st_index);

   293

   294

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

   295

			byte facil;

   296

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

   297

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

   298

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

   299

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

   300

			(facil=FACIL_TRUCK_STOP, 1);

   301

			if (st->facilities & facil) {

   302

				order.type = OT_GOTO_STATION;

   303

				order.flags = 0;

   304

				order.dest = st_index;

   305

				return order;

   306

			}

   307

		}

   308

	}

   309

   310

	// not found

   311

	order.type = OT_NOTHING;

   312

	order.flags = 0;

   313

	order.dest = INVALID_STATION;

   314

	return order;

   315

}

   316

   317

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

   318

{

   319

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

   320

   321

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

   322

		u = GetFirstVehicleInChain(u);

   323

		if (!IsFrontEngine(u)) return false;

   324

	}

   325

   326

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

   327

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

   328

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

   329

   330

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

   331

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

   332

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

   333

		ResetObjectToPlace();

   334

	}

   335

   336

	return true;

   337

}

   338

   339

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

   340

{

   341

	Order cmd;

   342

	const Vehicle *u;

   343

   344

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

   345

	u = CheckMouseOverVehicle();

   346

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

   347

   348

	cmd = GetOrderCmdFromTile(v, tile);

   349

	if (cmd.type == OT_NOTHING) return;

   350

   351

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

   352

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

   353

		ResetObjectToPlace();

   354

	}

   355

}

   356

   357

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

   358

{

   362

		_place_clicked_vehicle = NULL;

   363

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, PAL_NONE, 1, w);

   364

	} else {

   365

		ResetObjectToPlace();

   366

	}

   367

}

   368

   369

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

   370

{

   371

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

   372

}

   373

   374

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

   375

{

   376

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

   377

}

   378

   379

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

   380

{

   381

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

   382

}

   383

   384

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

   385

{

   386

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

   387

}

   388

   389

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

   390

{

   391

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

   392

}

   393

   394

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

   395

{

   396

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

   397

}

   398

   399

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

   400

{

   401

	if (_ctrl_pressed) {

   402

		/* Cancel refitting */

   403

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

   404

	} else {

   405

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

   406

	}

   407

}

   408

   409

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

   410

   411

static OnButtonVehClick* const _order_button_proc[] = {

   412

	OrderClick_Skip,

   413

	OrderClick_Delete,

   414

	OrderClick_Nonstop,

   415

	OrderClick_Goto,

   416

	OrderClick_FullLoad,

   417

	OrderClick_Unload,

   418

	OrderClick_Transfer

   419

};

   420

   421

static const uint16 _order_keycodes[] = {

   422

	'D', //skip order

   423

	'F', //delete order

   424

	'G', //non-stop

   425

	'H', //goto order

   426

	'J', //full load

   427

	'K'  //unload

   428

};

   429

   430

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

   431

{

   432

	switch (e->event) {

   433

		case WE_CREATE:

   434

			/* Move Refit to the same location as Unload

   435

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

   440

			break;

   441

   442

	case WE_PAINT:

   443

		DrawOrdersWindow(w);

   444

		break;

   445

   446

	case WE_CLICK: {

   447

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

   448

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

   450

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

   451

   452

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

   453

   454

			sel += w->vscroll.pos;

   455

   456

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

   457

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

   458

				TileIndex xy;

   459

   460

				switch (ord->type) {

   461

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

   462

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

   463

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

   464

					default:               xy = 0; break;

   465

				}

   466

   467

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

   468

				return;

   469

			}

   470

   471

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

   472

			WP(w,order_d).sel = sel;

   473

			SetWindowDirty(w);

   474

		}	break;

   475

   477

			OrderClick_Skip(w, v);

   478

			break;

   479

   481

			OrderClick_Delete(w, v);

   482

			break;

   483

   485

			OrderClick_Nonstop(w, v);

   486

			break;

   487