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

    15

static int OrderGetSel(Window *w)

    16

{

    17

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

    18

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

    19

    20

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

    21

		return v->num_orders;

    22

    23

	return num;

    24

}

    25

    26

static void DrawOrdersWindow(Window *w)

    27

{

    28

	const Vehicle *v;

    29

	const Order *order;

    30

	StringID str;

    31

	int sel;

    32

	int y, i;

    33

	bool shared_orders;

    34

	byte color;

    35

    36

	v = GetVehicle(w->window_number);

    37

    38

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

    39

		1 << 4 |   //skip

    40

		1 << 5 |   //delete

    41

		1 << 6 |   //non-stop

    42

		1 << 7 |   //go-to

    43

		1 << 8 |   //full load

    44

		1 << 9     //unload

    45

		);

    46

    47

	//disable non-stop for non-trains

    48

	if (v->type != VEH_Train) {

    49

		w->disabled_state |= 1 << 6;

    50

	}

    51

    52

	shared_orders = IsOrderListShared(v);

    53

    54

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

    55

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

    56

    57

	if (v->num_orders == 0)

    58

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

    59

    60

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

    61

    62

	sel = OrderGetSel(w);

    63

	SetDParam(2, STR_8827_FULL_LOAD);

    64

    65

	order = GetVehicleOrder(v, sel);

    66

    67

	if (order != NULL) {

    68

		switch (order->type) {

    69

			case OT_GOTO_STATION:

    70

				break;

    71

			case OT_GOTO_DEPOT:

    72

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

    73

				SetDParam(2,STR_SERVICE);

    74

				break;

    75

    76

			case OT_GOTO_WAYPOINT:

    77

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

    78

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

    79

				break;

    80

    81

			default:

    82

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

    83

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

    84

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

    85

		}

    86

	} else {

    87

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

    88

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

    89

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

    90

	}

    91

    92

	SetDParam(0, v->string_id);

    93

	SetDParam(1, v->unitnumber);

    94

	DrawWindowWidgets(w);

    95

    96

	y = 15;

    97

    98

	i = w->vscroll.pos;

    99

	order = GetVehicleOrder(v, i);

   100

	while (order != NULL) {

   101

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

   102

   103

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

   104

			SetDParam(1, 6);

   105

   106

			if (order->type == OT_GOTO_STATION) {

   107

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

   108

				SetDParam(2, order->station);

   109

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

   110

				StringID s = STR_NULL;

   111

				if (v->type == VEH_Aircraft) {

   112

					s = STR_GO_TO_AIRPORT_HANGAR;

   113

					SetDParam(2, order->station);

   114

				} else {

   115

					SetDParam(2, _depots[order->station].town_index);

   116

					switch (v->type) {

   117

						case VEH_Train: s = STR_880E_GO_TO_TRAIN_DEPOT;   break;

   118

						case VEH_Road:  s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   119

						case VEH_Ship:  s = STR_GO_TO_SHIP_DEPOT;         break;

   120

					}

   121

				}

   122

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

   123

					s += 2;

   124

   125

				if (order->flags & OF_FULL_LOAD)

   126

					s++; /* XXX service */

   127

   128

				SetDParam(1, s);

   129

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

   130

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

   131

				SetDParam(2, order->station);

   132

			}

   133

   134

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

   135

			SetDParam(0, i + 1);

   136

			if (order->type != OT_DUMMY) {

   137

				DrawString(2, y, str, color);

   138

			} else {

   139

				SetDParam(1, STR_INVALID_ORDER);

   140

				SetDParam(2, order->station);

   141

				DrawString(2, y, str, color);

   142

			}

   143

			y += 10;

   144

		}

   145

   146

		i++;

   147

		order = order->next;

   148

	}

   149

   150

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

   151

		str = shared_orders ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   152

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

   153

		DrawString(2, y, str, color);

   154

	}

   155

}

   156

   157

   158

// lookup a vehicle on a tile

   159

typedef struct {

   160

	TileIndex tile;

   161

	byte owner;

   162

	byte type;

   163

} FindVehS;

   164

   165

static void *FindVehicleCallb(Vehicle *v, FindVehS *f)

   166

{

   167

	if (v->tile != f->tile || v->owner != f->owner || v->vehstatus & VS_HIDDEN ) return NULL;

   168

	return v;

   169

}

   170

   171

static Vehicle *GetVehicleOnTile(TileIndex tile, byte owner)

   172

{

   173

	FindVehS fs;

   174

	fs.tile = tile;

   175

	fs.owner = owner;

   176

	fs.type = 0;

   177

	return VehicleFromPos(tile, &fs, (VehicleFromPosProc*)FindVehicleCallb);

   178

}

   179

   180

static Order GetOrderCmdFromTile(Vehicle *v, uint tile)

   181

{

   182

	Order order;

   183

	Station *st;

   184

	int st_index;

   185

   186

	// check depot first

   187

	if (_patches.gotodepot) {

   189

		case MP_RAILWAY:

   190

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

   191

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

   192

					order.type = OT_GOTO_DEPOT;

   193

					order.flags = OF_UNLOAD;

   194

					order.station = GetDepotByTile(tile);

   195

					return order;

   196

				}

   197

			}

   198

			break;

   199

   200

		case MP_STREET:

   201

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

   202

				order.type = OT_GOTO_DEPOT;

   203

				order.flags = OF_UNLOAD;

   204

				order.station = GetDepotByTile(tile);

   205

				return order;

   206

			}

   207

			break;

   208

   209

		case MP_STATION:

   210

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

   211

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

   212

				order.type = OT_GOTO_DEPOT;

   213

				order.flags = OF_UNLOAD | OF_NON_STOP;

   214

				order.station = _map2[tile];

   215

				return order;

   216

			}

   217

			break;

   218

   219

		case MP_WATER:

   220

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

   221

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

   222

				switch (_map5[tile]) {

   223

				case 0x81: tile--; break;

   224

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

   225

				}

   226

				order.type = OT_GOTO_DEPOT;

   227

				order.flags = OF_UNLOAD;

   228

				order.station = GetDepotByTile(tile);

   229

				return order;

   230

			}

   234

		}

   235

	}

   236

   237

	// check waypoint

   238

	if (IsTileType(tile, MP_RAILWAY)

   239

	&& v->type == VEH_Train

   240

	&& _map_owner[tile] == _local_player

   241

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

   242

		order.type = OT_GOTO_WAYPOINT;

   243

		order.flags = 0;

   244

		order.station = GetWaypointByTile(tile);

   245

		return order;

   246

	}

   247

   248

	if (IsTileType(tile, MP_STATION)) {

   249

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

   250

   251

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

   252

			byte facil;

   253

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

   254

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

   255

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

   256

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

   257

			(facil=FACIL_TRUCK_STOP, 1);

   258

			if (st->facilities & facil) {

   259

				order.type = OT_GOTO_STATION;

   260

				order.flags = 0;

   261

				order.station = st_index;

   262

				return order;

   263

			}

   264

		}

   265

	}

   266

   267

	// not found

   268

	order.type = OT_NOTHING;

   269

	order.flags = 0;

   270

	return order;

   271

}

   272

   273

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

   274

{

   275

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

   276

		return false;

   277

   278

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

   279

		u = GetFirstVehicleInChain(u);

   280

		if (u->subtype != TS_Front_Engine)

   281

			return false;

   282

	}

   283

   284

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

   285

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

   286

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

   287

   288

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

   289

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

   290

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

   291

		ResetObjectToPlace();

   292

	}

   293

   294

	return true;

   295

}

   296

   297

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

   298

{

   299

	Order cmd;

   300

	Vehicle *u;

   301

   302

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

   303

	u = CheckMouseOverVehicle();

   304

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

   305

		return;

   306

   307

	cmd = GetOrderCmdFromTile(v, tile);

   308

	if (cmd.type == OT_NOTHING) return;

   309

   310

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

   311

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

   312

			WP(w,order_d).sel++;

   313

		ResetObjectToPlace();

   314

	}

   315

}

   316

   317

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

   318

{

   319

	InvalidateWidget(w, 7);

   320

	TOGGLEBIT(w->click_state, 7);

   321

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

   322

		_place_clicked_vehicle = NULL;

   323

		SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   324

	} else {

   325

		ResetObjectToPlace();

   326

	}

   327

}

   328

   329

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

   330

{

   331

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

   332

}

   333

   334

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

   335

{

   336

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

   337

}

   338

   339

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

   340

{

   341

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

   342

}

   343

   344

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

   345

{

   346

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

   347

}

   348

   349

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

   350

{

   351

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

   352

}

   353

   354

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

   355

   356

static OnButtonClick * const _order_button_proc[] = {

   357

	OrderClick_Skip,

   358

	OrderClick_Delete,

   359

	OrderClick_Nonstop,

   360

	OrderClick_Goto,

   361

	OrderClick_FullLoad,

   362

	OrderClick_Unload

   363

};

   364

   365

static const uint16 _order_keycodes[] = {

   366

	'D', //skip order

   367

	'F', //delete order

   368

	'G', //non-stop

   369

	'H', //goto order

   370

	'J', //full load

   371

	'K'  //unload

   372

};

   373

   374

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

   375

{

   376

	switch(e->event) {

   377

	case WE_PAINT:

   378

		DrawOrdersWindow(w);

   379

		break;

   380

   381

	case WE_CLICK: {

   382

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

   383

		switch(e->click.widget) {

   384

		case 2:	{/* orders list */

   385

			int sel;

   386

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

   387

   388

			if ( (uint) sel >= 6)

   389

				return;

   390

   391

			sel += w->vscroll.pos;

   392

   393

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

   394

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

   395

				int xy = 0;

   396

				switch (ord->type) {

   397

				case OT_GOTO_STATION:			/* station order */

   398

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

   399

					break;

   400

				case OT_GOTO_DEPOT:				/* goto depot order */

   401

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

   402

					break;

   403

				case OT_GOTO_WAYPOINT:	/* goto waypoint order */

   404

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

   405

				}

   406

   407

				if (xy)

   408

					ScrollMainWindowToTile(xy);

   409

   410

				return;

   411

			}

   412

   413

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

   414

			WP(w,order_d).sel = sel;

   415

			SetWindowDirty(w);

   416

		}	break;

   417

   418

		case 4: /* skip button */

   419

			OrderClick_Skip(w, v);

   420

			break;

   421

   422

		case 5: /* delete button */

   423

			OrderClick_Delete(w, v);

   424

			break;

   425

   426

		case 6: /* non stop button */

   427

			OrderClick_Nonstop(w, v);

   428

			break;

   429

   430

		case 7: /* goto button */

   431

			OrderClick_Goto(w, v);

   432

			break;

   433

   434

		case 8: /* full load button */

   435

			OrderClick_FullLoad(w, v);

   436

			break;

   437

   438

		case 9: /* unload button */

   439

			OrderClick_Unload(w, v);

   440

			break;

   441

		}

   442

	} break;

   443

   444

	case WE_KEYPRESS: {

   445

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

   446

		uint i;

   447

   448

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

   449

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

   450

				e->keypress.cont = false;

   451

				//see if the button is disabled

   452

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

   453

					_order_button_proc[i](w, v);

   454

				}

   455

				break;

   456

			}

   457

		}

   458

		break;

   459

	}

   460

   461

   462

   463

	case WE_RCLICK: {

   464

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

   465

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

   466

		if (GetVehicleOrder(v, OrderGetSel(w))->type == OT_GOTO_DEPOT)

   467

			GuiShowTooltips(STR_SERVICE_HINT);

   468

		else

   469

			GuiShowTooltips(STR_8857_MAKE_THE_HIGHLIGHTED_ORDER);

   470

		} break;

   471

   472

	case WE_4: {

   473

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

   474

			DeleteWindow(w);

   475

	} break;

   476

   477

	case WE_PLACE_OBJ: {

   478

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

   479

	} break;

   480

   481

	case WE_ABORT_PLACE_OBJ: {

   482

		w->click_state &= ~(1<<7);

   483

		InvalidateWidget(w, 7);

   484

	} break;

   485

   486

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

   487

	case WE_MOUSELOOP: {

   488

		Vehicle *v = _place_clicked_vehicle;

   489

		/*

   490

		 * Check if we clicked on a vehicle

   491

		 * and if the GOTO button of this window is pressed

   492

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

   493

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

   494

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

   495

		 * one where GOTO is enalbed

   496

		 */

   497

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

   498

			_place_clicked_vehicle = NULL;

   499

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

   500