1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "map.h"

     5

#include "window.h"

     6

#include "gui.h"

     7

#include "gfx.h"

     8

#include "vehicle.h"

     9

#include "station.h"

    10

#include "town.h"

    11

#include "command.h"

    12

#include "viewport.h"

    13

    14

static int OrderGetSel(Window *w)

    15

{

    16

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

    17

	const Order *sched = v->schedule_ptr;

    18

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

    19

	int count = 0;

    20

    21

	if (num == 0)

    22

		return 0;

    23

    24

	while (sched->type != OT_NOTHING) {

    25

		sched++;

    26

		count++;

    27

		if (--num == 0)

    28

			break;

    29

	}

    30

    31

	return count;

    32

}

    33

    34

static void DrawOrdersWindow(Window *w)

    35

{

    36

	Vehicle *v;

    37

	int num, sel;

    38

	const Order *sched;

    39

	Order ord;

    40

	int y, i;

    41

	StringID str;

    42

	bool shared_schedule;

    43

    44

	v = GetVehicle(w->window_number);

    45

    46

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

    47

		1 << 4 |   //skip

    48

		1 << 5 |   //delete

    49

		1 << 6 |   //non-stop

    50

		1 << 7 |   //go-to

    51

		1 << 8 |   //full load

    52

		1 << 9     //unload

    53

		);

    55

	//disable non-stop for non-trains

    56

	if (v->type != VEH_Train) {

    57

		w->disabled_state |= 1 << 6;

    58

	}

    59

    60

	shared_schedule = IsScheduleShared(v) != NULL;

    61

    62

	sched = v->schedule_ptr;

    63

	num=0;

    64

	while (sched->type != OT_NOTHING) {

    65

		sched++;

    66

		num++;

    67

	}

    68

    69

	if ((uint)num + shared_schedule <= (uint)WP(w,order_d).sel)

    70

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

    71

    72

	if (num == 0)

    73

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

    74

    75

	SetVScrollCount(w, num+1);

    76

    77

	sel = OrderGetSel(w);

    78

    79

	SetDParam(2,STR_8827_FULL_LOAD);

    80

	switch (v->schedule_ptr[sel].type) {

    81

	case OT_GOTO_STATION:

    82

		break;

    83

	case OT_GOTO_DEPOT:

    84

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

    85

		SetDParam(2,STR_SERVICE);

    86

		break;

    87

    88

	case OT_GOTO_WAYPOINT:

    89

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

    90

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

    91

		break;

    92

    93

	default:

    94

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

    95

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

    96

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

    97

	}

    98

    99

	SetDParam(0, v->string_id);

   100

	SetDParam(1, v->unitnumber);

   101

	DrawWindowWidgets(w);

   102

   103

	y = 15;

   104

   105

	i = 0;

   106

	for(;;) {

   107

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

   108

   109

		ord = v->schedule_ptr[i];

   110

   111

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

   112

   113

			if (ord.type == OT_NOTHING) {

   114

				str = shared_schedule ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   115

			} else {

   116

				SetDParam(1, 6);

   117

   118

				if (ord.type == OT_GOTO_STATION) {

   119

					SetDParam(1, STR_8806_GO_TO + (ord.flags >> 1));

   120

					SetDParam(2, ord.station);

   121

				} else if (ord.type == OT_GOTO_DEPOT) {

   122

					StringID s = STR_NULL;

   123

					if (v->type == VEH_Aircraft) {

   124

						s = STR_GO_TO_AIRPORT_HANGAR;

   125

					  SetDParam(2, ord.station);

   126

					} else {

   127

						SetDParam(2, _depots[ord.station].town_index);

   128

						switch (v->type) {

   129

						case VEH_Train:	s = STR_880E_GO_TO_TRAIN_DEPOT; break;

   130

						case VEH_Road:	s = STR_9038_GO_TO_ROADVEH_DEPOT; break;

   131

						case VEH_Ship:	s = STR_GO_TO_SHIP_DEPOT; break;

   132

						}

   133

					}

   134

					if (v->type == VEH_Train && ord.flags & OF_NON_STOP) s += 2;

   135

					if (ord.flags & OF_FULL_LOAD) ++s; /* XXX service */

   136

					SetDParam(1, s);

   137

				} else if (ord.type == OT_GOTO_WAYPOINT) {

   138

					SetDParam(2, ord.station);

   139

					SetDParam(1, (ord.flags & OF_NON_STOP) ? STR_GO_NON_STOP_TO_WAYPOINT : STR_GO_TO_WAYPOINT);

   140

				}

   141

			}

   142

			{

   143

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

   144

				SetDParam(0, i+1);

   145

				if (ord.type != OT_DUMMY) {

   146

					DrawString(2, y, str, color);

   147

				} else {

   148

					SetDParam(1, STR_INVALID_ORDER);

   149

					SetDParam(2, ord.station);

   150

					DrawString(2, y, str, color);

   151

				}

   152

			}

   153

			y += 10;

   154

		}

   155

   156

		i++;

   157

   158

		if (ord.type == OT_NOTHING)

   159

			break;

   160

	}

   161

}

   162

   163

   164

// lookup a vehicle on a tile

   165

typedef struct {

   166

	TileIndex tile;

   167

	byte owner;

   168

	byte type;

   169

} FindVehS;

   170

   171

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

   172

{

   173

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

   174

	return v;

   175

}

   176

   177

Vehicle *GetVehicleOnTile(TileIndex tile, byte owner)

   178

{

   179

	FindVehS fs;

   180

	fs.tile = tile;

   181

	fs.owner = owner;

   182

	fs.type = 0;

   183

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

   184

}

   185

   186

static Order GetOrderCmdFromTile(Vehicle *v, uint tile)

   187

{

   188

	Order order;

   189

	Station *st;

   190

	int st_index;

   191

   192

	// check depot first

   193

	if (_patches.gotodepot) {

   194

		switch(GET_TILETYPE(tile)) {

   195

		case MP_RAILWAY:

   196

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

   197

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

   198

					order.type = OT_GOTO_DEPOT;

   199

					order.flags = OF_UNLOAD;

   200

					order.station = GetDepotByTile(tile);

   201

					return order;

   202

				}

   203

			}

   204

			break;

   205

   206

		case MP_STREET:

   207

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

   208

				order.type = OT_GOTO_DEPOT;

   209

				order.flags = OF_UNLOAD;

   210

				order.station = GetDepotByTile(tile);

   211

				return order;

   212

			}

   213

			break;

   214

   215

		case MP_STATION:

   216

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

   217

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

   218

				order.type = OT_GOTO_DEPOT;

   219

				order.flags = OF_UNLOAD | OF_NON_STOP;

   220

				order.station = _map2[tile];

   221

				return order;

   222

			}

   223

			break;

   224

   225

		case MP_WATER:

   226

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

   227

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

   228

				switch (_map5[tile]) {

   229

				case 0x81: tile--; break;

   230

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

   231

				}

   232

				order.type = OT_GOTO_DEPOT;

   233

				order.flags = OF_UNLOAD;

   234

				order.station = GetDepotByTile(tile);

   235

				return order;

   236

			}

   237

		}

   238

	}

   239

   240

	// check waypoint

   241

	if (IS_TILETYPE(tile, MP_RAILWAY)

   242

	&& v->type == VEH_Train

   243

	&& _map_owner[tile] == _local_player

   244

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

   245

		order.type = OT_GOTO_WAYPOINT;

   246

		order.flags = 0;

   247

		order.station = GetWaypointByTile(tile);

   248

		return order;

   249

	}

   250

   251

	if (IS_TILETYPE(tile, MP_STATION)) {

   252

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

   253

   254

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

   255

			byte facil;

   256

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

   257

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

   258

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

   259

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

   260

			(facil=FACIL_TRUCK_STOP, 1);

   261

			if (st->facilities & facil) {

   262

				order.type = OT_GOTO_STATION;

   263

				order.flags = 0;

   264

				order.station = st_index;

   265

				return order;

   266

			}

   267

		}

   268

	}

   269

   270

	// not found

   271

	order.type = OT_NOTHING;

   272

	order.flags = 0;

   273

	return order;

   274

}

   275

   276

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

   277

{

   278

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

   279

		return false;

   280

   281

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

   282

		u = GetFirstVehicleInChain(u);

   283

		if (u->subtype != 0)

   284

			return false;

   285

	}

   286

   287

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

   288

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

   289

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

   290

   291

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

   292

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

   293

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

   294

		ResetObjectToPlace();

   295

	}

   296

   297

	return true;

   298

}

   299

   300

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

   301

{

   302

	Order cmd;

   303

	Vehicle *u;

   304

   305

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

   306

	u = CheckMouseOverVehicle();

   307

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

   308

		return;

   309

   310

	cmd = GetOrderCmdFromTile(v, tile);

   311

	if (cmd.type == OT_NOTHING) return;

   312

   313

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

   314

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

   315

			WP(w,order_d).sel++;

   316

		ResetObjectToPlace();

   317

	}

   318

}

   319

   320

enum OrderFlags {

   321

	FULL_LOAD = 0,

   322

	UNLOAD = 1,

   323

	NON_STOP = 2

   324

};

   325

   326

static void OrderClick_Goto(Window *w, 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, Vehicle *v)

   339

{

   340

	DoCommandP(v->tile, v->index, OrderGetSel(w) | (FULL_LOAD << 8), NULL, CMD_MODIFY_ORDER | CMD_MSG(STR_8835_CAN_T_MODIFY_THIS_ORDER));

   341

}

   342

   343

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

   344

{

   345

	DoCommandP(v->tile, v->index, OrderGetSel(w) | (UNLOAD << 8), NULL, CMD_MODIFY_ORDER | CMD_MSG(STR_8835_CAN_T_MODIFY_THIS_ORDER));

   346

}

   347

   348

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

   349

{

   350

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

   351

}

   352

   353

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

   354

{

   355

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

   356

}

   357

   358

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

   359

{

   360

	DoCommandP(v->tile, v->index, OrderGetSel(w) | (NON_STOP << 8), NULL, CMD_MODIFY_ORDER | CMD_MSG(STR_8835_CAN_T_MODIFY_THIS_ORDER));

   361

}

   362

   363

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

   364

   365

static OnButtonClick * const _order_button_proc[] = {

   366

	OrderClick_Skip,

   367

	OrderClick_Delete,

   368

	OrderClick_Nonstop,

   369

	OrderClick_Goto,

   370

	OrderClick_FullLoad,

   371

	OrderClick_Unload

   372

};

   373

   374

static const uint16 _order_keycodes[] = {

   375

	'D', //skip order

   376

	'F', //delete order

   377

	'G', //non-stop

   378

	'H', //goto order

   379

	'J', //full load

   380

	'K'  //unload

   381

};

   382

   383

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

   384

{

   385

	switch(e->event) {

   386

	case WE_PAINT:

   387

		DrawOrdersWindow(w);

   388

		break;

   389

   390

	case WE_CLICK: {

   391

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

   392

		switch(e->click.widget) {

   393

		case 2:	{/* orders list */

   394

			int sel;

   395

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

   396

   397

			if ( (uint) sel >= 6)

   398

				return;

   399

   400

			sel += w->vscroll.pos;

   401

   402

			if (_ctrl_pressed && sel < v->num_orders) { // watch out for schedule_ptr overflow

   403

				Order ord = v->schedule_ptr[sel];

   404

				int xy = 0;

   405

				switch (ord.type) {

   406

				case OT_GOTO_STATION:			/* station order */

   407

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

   408

					break;

   409

				case OT_GOTO_DEPOT:				/* goto depot order */

   410

					xy = _depots[ord.station].xy;

   411

					break;

   412

				case OT_GOTO_WAYPOINT:	/* goto waypoint order */

   413

					xy = _waypoints[ord.station].xy;

   414

				}

   415

   416

				if (xy)

   417

					ScrollMainWindowToTile(xy);

   418

   419

				return;

   420

			}

   421

   422

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

   423

			WP(w,order_d).sel = sel;

   424

			SetWindowDirty(w);

   425

		}	break;

   426

   427

		case 4: /* skip button */

   428

			OrderClick_Skip(w, v);

   429

			break;

   430

   431

		case 5: /* delete button */

   432

			OrderClick_Delete(w, v);

   433

			break;

   434

   435

		case 6: /* non stop button */

   436

			OrderClick_Nonstop(w, v);

   437

			break;

   439

		case 7: /* goto button */

   440

			OrderClick_Goto(w, v);

   441

			break;

   442

   443

		case 8: /* full load button */

   444

			OrderClick_FullLoad(w, v);

   445

			break;

   446

   447

		case 9: /* unload button */

   448

			OrderClick_Unload(w, v);

   449

			break;

   450

   451

		}

   452

	} break;

   454

	case WE_KEYPRESS: {

   455

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

   456

		uint i;

   457

   458

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

   459

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

   460

				e->keypress.cont = false;

   462

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

   463

					_order_button_proc[i](w, v);

   464

				}

   465

				break;

   466

			}

   467

		}

   468

		break;

   469

	}

   470

   471

   472

   473

	case WE_RCLICK: {

   474

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

   475

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

   476

		if (v->schedule_ptr[OrderGetSel(w)].type == OT_GOTO_DEPOT)

   477

			GuiShowTooltips(STR_SERVICE_HINT);

   478

		else

   479

			GuiShowTooltips(STR_8857_MAKE_THE_HIGHLIGHTED_ORDER);

   480

		} break;

   481

   482

	case WE_4: {

   483

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

   484

			DeleteWindow(w);

   485

	} break;

   486

   487

	case WE_PLACE_OBJ: {

   488

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

   489

	} break;

   490

   491

	case WE_ABORT_PLACE_OBJ: {

   492

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

   493

		InvalidateWidget(w, 7);

   494

	} break;

   495

   496

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

   497

	case WE_MOUSELOOP: {

   498

		Vehicle *v = _place_clicked_vehicle;

   499

		/*

   500

		 * Check if we clicked on a vehicle

   501

		 * and if the GOTO button of this window is pressed

   502

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

   503

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

   504

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