1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "map.h"

     5

#include "tile.h"

     6

#include "window.h"

     7

#include "gui.h"

     8

#include "gfx.h"

     9

#include "vehicle.h"

    10

#include "station.h"

    11

#include "town.h"

    12

#include "command.h"

    13

#include "viewport.h"

    14

#include "depot.h"

    15

    16

static int OrderGetSel(Window *w)

    17

{

    18

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

    19

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

    20

    21

	if (num < 0 || num > v->num_orders)

    22

		return v->num_orders;

    23

    24

	return num;

    25

}

    26

    27

static void DrawOrdersWindow(Window *w)

    28

{

    29

	const Vehicle *v;

    30

	const Order *order;

    31

	StringID str;

    32

	int sel;

    33

	int y, i;

    34

	bool shared_orders;

    35

	byte color;

    36

    37

	v = GetVehicle(w->window_number);

    38

    39

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

    40

		1 << 4 |   //skip

    41

		1 << 5 |   //delete

    42

		1 << 6 |   //non-stop

    43

		1 << 7 |   //go-to

    44

		1 << 8 |   //full load

    45

		1 << 9     //unload

    46

		);

    47

    48

	if (v->type != VEH_Train)

    49

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

    50

    51

	shared_orders = IsOrderListShared(v);

    52

    53

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

    54

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

    55

    56

	if (v->num_orders == 0)

    57

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

    58

    59

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

    60

    61

	sel = OrderGetSel(w);

    62

	SetDParam(2, STR_8827_FULL_LOAD);

    63

    64

	order = GetVehicleOrder(v, sel);

    65

    66

	if (order != NULL) {

    67

		switch (order->type) {

    68

			case OT_GOTO_STATION:

    69

				break;

    70

			case OT_GOTO_DEPOT:

    71

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

    72

				SetDParam(2,STR_SERVICE);

    73

				break;

    74

    75

			case OT_GOTO_WAYPOINT:

    76

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

    77

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

    78

				break;

    79

    80

			default:

    81

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

    82

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

    83

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

    84

		}

    85

	} else {

    86

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

    87

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

    88

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

    89

	}

    90

    91

	SetDParam(0, v->string_id);

    92

	SetDParam(1, v->unitnumber);

    93

	DrawWindowWidgets(w);

    94

    95

	y = 15;

    96

    97

	i = w->vscroll.pos;

    98

	order = GetVehicleOrder(v, i);

    99

	while (order != NULL) {

   100

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

   101

   102

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

   103

			SetDParam(1, 6);

   104

   105

			if (order->type == OT_GOTO_STATION) {

   106

				SetDParam(1, STR_8806_GO_TO + (order->flags >> 1));

   107

				SetDParam(2, order->station);

   108

			} else if (order->type == OT_GOTO_DEPOT) {

   109

				StringID s = STR_NULL;

   110

				if (v->type == VEH_Aircraft) {

   111

					s = STR_GO_TO_AIRPORT_HANGAR;

   112

					SetDParam(2, order->station);

   113

				} else {

   114

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

   115

					switch (v->type) {

   116

						case VEH_Train: s = STR_880E_GO_TO_TRAIN_DEPOT;   break;

   117

						case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   118

						case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT;         break;

   119

					}

   120

				}

   121

				if (v->type == VEH_Train && order->flags & OF_NON_STOP)

   122

					s += 2;

   123

   124

				if (order->flags & OF_FULL_LOAD)

   125

					s++; /* XXX service */

   126

   127

				SetDParam(1, s);

   128

			} else if (order->type == OT_GOTO_WAYPOINT) {

   129

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

   130

				SetDParam(2, order->station);

   131

			}

   132

   133

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

   134

			SetDParam(0, i + 1);

   135

			if (order->type != OT_DUMMY) {

   136

				DrawString(2, y, str, color);

   137

			} else {

   138

				SetDParam(1, STR_INVALID_ORDER);

   139

				SetDParam(2, order->station);

   140

				DrawString(2, y, str, color);

   141

			}

   142

			y += 10;

   143

		}

   144

   145

		i++;

   146

		order = order->next;

   147

	}

   148

   149

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

   150

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   151

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

   152

		DrawString(2, y, str, color);

   153

	}

   154

}

   155

   156

static Order GetOrderCmdFromTile(Vehicle *v, uint tile)

   157

{

   158

	Order order;

   159

	Station *st;

   160

	int st_index;

   161

   162

	// check depot first

   163

	if (_patches.gotodepot) {

   164

		switch (GetTileType(tile)) {

   165

		case MP_RAILWAY:

   166

			if (v->type == VEH_Train && _map_owner[tile] == _local_player) {

   167

				if ((_map5[tile]&0xFC)==0xC0) {

   168

					order.type = OT_GOTO_DEPOT;

   169

					order.flags = OF_UNLOAD;

   170

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

   171

					return order;

   172

				}

   173

			}

   174

			break;

   175

   176

		case MP_STREET:

   177

			if ((_map5[tile] & 0xF0) == 0x20 && v->type == VEH_Road && _map_owner[tile] == _local_player) {

   178

				order.type = OT_GOTO_DEPOT;

   179

				order.flags = OF_UNLOAD;

   180

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

   181

				return order;

   182

			}

   183

			break;

   184

   185

		case MP_STATION:

   186

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

   187

			if ( IsAircraftHangarTile(tile) && _map_owner[tile] == _local_player) {

   188

				order.type = OT_GOTO_DEPOT;

   189

				order.flags = OF_UNLOAD | OF_NON_STOP;

   190

				order.station = _map2[tile];

   191

				return order;

   192

			}

   193

			break;

   194

   195

		case MP_WATER:

   196

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

   197

			if ( IsShipDepotTile(tile) && _map_owner[tile] == _local_player) {

   198

				switch (_map5[tile]) {

   199

				case 0x81: tile--; break;

   200

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

   201

				}

   202

				order.type = OT_GOTO_DEPOT;

   203

				order.flags = OF_UNLOAD;

   204

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

   205

				return order;

   206

			}

   207

   208

			default:

   209

				break;

   210

		}

   211

	}

   212

   213

	// check waypoint

   214

	if (IsTileType(tile, MP_RAILWAY)

   215

	&& v->type == VEH_Train

   216

	&& _map_owner[tile] == _local_player

   217

	&& (_map5[tile]&0xFE)==0xC4) {

   218

		order.type = OT_GOTO_WAYPOINT;

   219

		order.flags = 0;

   220

		order.station = GetWaypointByTile(tile);

   221

		return order;

   222

	}

   223

   224

	if (IsTileType(tile, MP_STATION)) {

   225

		st = GetStation(st_index = _map2[tile]);

   226

   227

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

   228

			byte facil;

   229

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

   230

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

   231

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

   232

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

   233

			(facil=FACIL_TRUCK_STOP, 1);

   234

			if (st->facilities & facil) {

   235

				order.type = OT_GOTO_STATION;

   236

				order.flags = 0;

   237

				order.station = st_index;

   238

				return order;

   239

			}

   240

		}

   241

	}

   242

   243

	// not found

   244

	order.type = OT_NOTHING;

   245

	order.flags = 0;

   246

	return order;

   247

}

   248

   249

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

   250

{

   251

	if (u->type != v->type)

   252

		return false;

   253

   254

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

   255

		u = GetFirstVehicleInChain(u);

   256

		if (u->subtype != TS_Front_Engine)

   257

			return false;

   258

	}

   259

   260

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

   261

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

   262

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

   263

   264

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

   265

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

   266

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

   267

		ResetObjectToPlace();

   268

	}

   269

   270

	return true;

   271

}

   272

   273

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

   274

{

   275

	Order cmd;

   276

	Vehicle *u;

   277

   278

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

   279

	u = CheckMouseOverVehicle();

   280

	if (u && HandleOrderVehClick(v, u, w))

   281

		return;

   282

   283

	cmd = GetOrderCmdFromTile(v, tile);

   284

	if (cmd.type == OT_NOTHING) return;

   285

   286

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

   287

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

   288

			WP(w,order_d).sel++;

   289

		ResetObjectToPlace();

   290

	}

   291

}

   292

   293

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

   294

{

   295

	InvalidateWidget(w, 7);

   296

	TOGGLEBIT(w->click_state, 7);

   297

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

   298

		_place_clicked_vehicle = NULL;

   299

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   300

	} else {

   301

		ResetObjectToPlace();

   302

	}

   303

}

   304

   305

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

   306

{

   307

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

   308

}

   309

   310

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

   311

{

   312

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

   313

}

   314

   315

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

   316

{

   317

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

   318

}

   319

   320

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

   321

{

   322

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

   323

}

   324

   325

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

   326

{

   327

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

   328

}

   329

   330

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

   331

   332

static OnButtonClick * const _order_button_proc[] = {

   333

	OrderClick_Skip,

   334

	OrderClick_Delete,

   335

	OrderClick_Nonstop,

   336

	OrderClick_Goto,

   337

	OrderClick_FullLoad,

   338

	OrderClick_Unload

   339

};

   340

   341

static const uint16 _order_keycodes[] = {

   342

	'D', //skip order

   343

	'F', //delete order

   344

	'G', //non-stop

   345

	'H', //goto order

   346

	'J', //full load

   347

	'K'  //unload

   348

};

   349

   350

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

   351

{

   352

	switch(e->event) {

   353

	case WE_PAINT:

   354

		DrawOrdersWindow(w);

   355

		break;

   356

   357

	case WE_CLICK: {

   358

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

   359

		switch(e->click.widget) {

   360

		case 2: { /* orders list */

   361

			int sel;

   362

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

   363

   364

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

   365

				return;

   366

   367

			sel += w->vscroll.pos;

   368

   369

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

   370

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

   371

				int xy = 0;

   372

				switch (ord->type) {

   373

				case OT_GOTO_STATION:			/* station order */

   374

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

   375

					break;

   376

				case OT_GOTO_DEPOT:				/* goto depot order */

   377

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

   378

					break;

   379

				case OT_GOTO_WAYPOINT:	/* goto waypoint order */

   380

					xy = _waypoints[ord->station].xy;

   381

				}

   382

   383

				if (xy)

   384

					ScrollMainWindowToTile(xy);

   385

   386

				return;

   387

			}

   388

   389

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

   390

			WP(w,order_d).sel = sel;

   391

			SetWindowDirty(w);

   392

		}	break;

   393

   394

		case 4: /* skip button */

   395

			OrderClick_Skip(w, v);

   396

			break;

   397

   398

		case 5: /* delete button */

   399

			OrderClick_Delete(w, v);

   400

			break;

   401

   402

		case 6: /* non stop button */

   403

			OrderClick_Nonstop(w, v);

   404

			break;

   405

   406

		case 7: /* goto button */

   407

			OrderClick_Goto(w, v);

   408

			break;

   409

   410

		case 8: /* full load button */

   411

			OrderClick_FullLoad(w, v);

   412

			break;

   413

   414

		case 9: /* unload button */

   415

			OrderClick_Unload(w, v);

   416

			break;

   417

		}

   418

	} break;

   419

   420

	case WE_KEYPRESS: {

   421

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

   422

		uint i;

   423

   424

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

   425

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

   426

				e->keypress.cont = false;

   427

				//see if the button is disabled

   428

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

   429

					_order_button_proc[i](w, v);

   430

				}

   431

				break;

   432

			}

   433

		}

   434

		break;

   435

	}

   436

   437

	case WE_RCLICK: {

   438

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

   439

		int sel = OrderGetSel(w);

   440

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

   441

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

   442

			GuiShowTooltips(STR_8857_MAKE_THE_HIGHLIGHTED_ORDER);

   443

		else

   444

			GuiShowTooltips(STR_SERVICE_HINT);

   445

	} break;

   446

   447

	case WE_4: {

   448

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

   449

			DeleteWindow(w);

   450

	} break;

   451

   452

	case WE_PLACE_OBJ: {

   453

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

   454

	} break;

   455

   456

	case WE_ABORT_PLACE_OBJ: {

   457

		CLRBIT(w->click_state, 7);

   458

		InvalidateWidget(w, 7);

   459

	} break;

   460

   461

	// check if a vehicle in a depot was clicked..

   462

	case WE_MOUSELOOP: {

   463

		Vehicle *v = _place_clicked_vehicle;

   464

		/*

   465

		 * Check if we clicked on a vehicle

   466

		 * and if the GOTO button of this window is pressed

   467

		 * This is because of all open order windows WE_MOUSELOOP is called

   468

		 * and if you have 3 windows open, and this check is not done

   469

		 * the order is copied to the last open window instead of the

   470

		 * one where GOTO is enalbed

   471

		 */

   472

		if (v != NULL && HASBIT(w->click_state, 7)) {

   473

			_place_clicked_vehicle = NULL;

   474

			HandleOrderVehClick(GetVehicle(w->window_number), v, w);

   475

		}

   476

	} break;

   477

   478

	case WE_RESIZE:

   479

		/* Update the scroll + matrix */

   480

		w->vscroll.cap = (w->widget[2].bottom - w->widget[2].top) / 10;

   481

		break;

   482

	}

   483

   484

}

   485

   486

static const Widget _orders_train_widgets[] = {

   487

{   WWT_CLOSEBOX,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,									STR_018B_CLOSE_WINDOW},

   488

{    WWT_CAPTION,   RESIZE_RIGHT,   14,    11,   331,     0,    13, STR_8829_ORDERS,					STR_018C_WINDOW_TITLE_DRAG_THIS},

   489

{      WWT_PANEL,   RESIZE_RB,      14,     0,   319,    14,    75, 0x0,											STR_8852_ORDERS_LIST_CLICK_ON_ORDER},

   490

{  WWT_SCROLLBAR,   RESIZE_LRB,     14,   320,   331,    14,    75, 0x0,											STR_0190_SCROLL_BAR_SCROLLS_LIST},

   491

{ WWT_PUSHTXTBTN,   RESIZE_TB,      14,     0,    52,    76,    87, STR_8823_SKIP,						STR_8853_SKIP_THE_CURRENT_ORDER},

   492

{ WWT_PUSHTXTBTN,   RESIZE_TB,      14,    53,   105,    76,    87, STR_8824_DELETE,					STR_8854_DELETE_THE_HIGHLIGHTED},

   493

{ WWT_PUSHTXTBTN,   RESIZE_TB,      14,   106,   158,    76,    87, STR_8825_NON_STOP,				STR_8855_MAKE_THE_HIGHLIGHTED_ORDER},

   494

{WWT_NODISTXTBTN,   RESIZE_TB,      14,   159,   211,    76,    87, STR_8826_GO_TO,						STR_8856_INSERT_A_NEW_ORDER_BEFORE},

   495

{ WWT_PUSHTXTBTN,   RESIZE_TB,      14,   212,   264,    76,    87, STR_FULLLOAD_OR_SERVICE,	STR_NULL},

   496

{ WWT_PUSHTXTBTN,   RESIZE_TB,      14,   265,   319,    76,    87, STR_8828_UNLOAD,					STR_8858_MAKE_THE_HIGHLIGHTED_ORDER},

   497

{      WWT_PANEL,   RESIZE_RTB,     14,   320,   319,    76,    87, 0x0,											STR_NULL},