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 = &_vehicles[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 = &_vehicles[w->window_number];

    45

    46

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

    47

    48

	shared_schedule = IsScheduleShared(v) != NULL;

    49

    50

	sched = v->schedule_ptr;

    51

	num=0;

    52

	while (sched->type != OT_NOTHING) {

    53

		sched++;

    54

		num++;

    55

	}

    56

    57

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

    58

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

    59

    60

	if (num == 0)

    61

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

    62

    63

	SetVScrollCount(w, num+1);

    64

    65

	sel = OrderGetSel(w);

    66

    67

	SetDParam(2,STR_8827_FULL_LOAD);

    68

	switch (v->schedule_ptr[sel].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

    87

	SetDParam(0, v->string_id);

    88

	SetDParam(1, v->unitnumber);

    89

	DrawWindowWidgets(w);

    90

    91

	y = 15;

    92

    93

	i = 0;

    94

	for(;;) {

    95

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

    96

    97

		ord = v->schedule_ptr[i];

    98

    99

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

   100

   101

			if (ord.type == OT_NOTHING) {

   102

				str = shared_schedule ? STR_END_OF_SHARED_ORDERS : STR_882A_END_OF_ORDERS;

   103

			} else {

   104

				SetDParam(1, 6);

   105

   106

				if (ord.type == OT_GOTO_STATION) {

   107

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

   108

					SetDParam(2, ord.station);

   109

				} else if (ord.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, ord.station);

   114

					} else {

   115

						SetDParam(2, _depots[ord.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 && ord.flags & OF_NON_STOP) s += 2;

   123

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

   124

					SetDParam(1, s);

   125

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

   126

					SetDParam(2, ord.station);

   127

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

   128

				}

   129

			}

   130

			{

   131

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

   132

				SetDParam(0, i+1);

   133

				if (ord.type != OT_DUMMY) {

   134

					DrawString(2, y, str, color);

   135

				} else {

   136

					SetDParam(1, STR_INVALID_ORDER);

   137

					SetDParam(2, ord.station);

   138

					DrawString(2, y, str, color);

   139

				}

   140

			}

   141

			y += 10;

   142

		}

   143

   144

		i++;

   145

   146

		if (ord.type == OT_NOTHING)

   147

			break;

   148

	}

   149

}

   150

   151

   152

// lookup a vehicle on a tile

   153

typedef struct {

   154

	TileIndex tile;

   155

	byte owner;

   156

	byte type;

   157

} FindVehS;

   158

   159

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

   160

{

   161

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

   162

	return v;

   163

}

   164

   165

Vehicle *GetVehicleOnTile(TileIndex tile, byte owner)

   166

{

   167

	FindVehS fs;

   168

	fs.tile = tile;

   169

	fs.owner = owner;

   170

	fs.type = 0;

   171

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

   172

}

   173

   174

static Order GetOrderCmdFromTile(Vehicle *v, uint tile)

   175

{

   176

	Order order;

   177

	Station *st;

   178

	int st_index;

   179

   180

	// check depot first

   181

	if (_patches.gotodepot) {

   182

		switch(GET_TILETYPE(tile)) {

   183

		case MP_RAILWAY:

   184

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

   185

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

   186

					order.type = OT_GOTO_DEPOT;

   187

					order.flags = OF_UNLOAD;

   188

					order.station = GetDepotByTile(tile);

   189

					return order;

   190

				}

   191

			}

   192

			break;

   193

   194

		case MP_STREET:

   195

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

   196

				order.type = OT_GOTO_DEPOT;

   197

				order.flags = OF_UNLOAD;

   198

				order.station = GetDepotByTile(tile);

   199

				return order;

   200

			}

   201

			break;

   202

   203

		case MP_STATION:

   204

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

   205

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

   206

				order.type = OT_GOTO_DEPOT;

   207

				order.flags = OF_UNLOAD | OF_NON_STOP;

   208

				order.station = _map2[tile];

   209

				return order;

   210

			}

   211

			break;

   212

   213

		case MP_WATER:

   214

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

   215

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

   216

				switch (_map5[tile]) {

   217

				case 0x81: tile--; break;

   218

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

   219

				}

   220

				order.type = OT_GOTO_DEPOT;

   221

				order.flags = OF_UNLOAD;

   222

				order.station = GetDepotByTile(tile);

   223

				return order;

   224

			}

   225

		}

   226

	}

   227

   228

	// check waypoint

   229

	if (IS_TILETYPE(tile, MP_RAILWAY)

   230

	&& v->type == VEH_Train

   231

	&& _map_owner[tile] == _local_player

   232

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

   233

		order.type = OT_GOTO_WAYPOINT;

   234

		order.flags = 0;

   235

		order.station = GetWaypointByTile(tile);

   236

		return order;

   237

	}

   238

   239

	if (IS_TILETYPE(tile, MP_STATION)) {

   240

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

   241

   242

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

   243

			byte facil;

   244

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

   245

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

   246

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

   247

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

   248

			(facil=FACIL_TRUCK_STOP, 1);

   249

			if (st->facilities & facil) {

   250

				order.type = OT_GOTO_STATION;

   251

				order.flags = 0;

   252

				order.station = st_index;

   253

				return order;

   254

			}

   255

		}

   256

	}

   257

   258

	// not found

   259

	order.type = OT_NOTHING;

   260

	order.flags = 0;

   261

	return order;

   262

}

   263

   264

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

   265

{

   266

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

   267

		return false;

   268

   269

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

   270

		u = GetFirstVehicleInChain(u);

   271

		if (u->subtype != 0)

   272

			return false;

   273

	}

   274

   275

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

   276

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

   277

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

   278

   279

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

   280

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

   281

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

   282

		ResetObjectToPlace();

   283

	}

   284

   285

	return true;

   286

}

   287

   288

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

   289

{

   290

	Order cmd;

   291

	Vehicle *u;

   292

   293

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

   294

	u = CheckMouseOverVehicle();

   295

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

   296

		return;

   297

   298

	cmd = GetOrderCmdFromTile(v, tile);

   299

	if (cmd.type == OT_NOTHING) return;

   300

   301

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

   302

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

   303

			WP(w,order_d).sel++;

   304

		ResetObjectToPlace();

   305

	}

   306

}

   307

   308

   309

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

   310

{

   311

	switch(e->event) {

   312

	case WE_PAINT:

   313

		DrawOrdersWindow(w);

   314

		break;

   315

   316

	case WE_CLICK: {

   317

		Vehicle *v = &_vehicles[w->window_number];

   318

		int mode;

   319

		switch(e->click.widget) {

   320

		case 2:	{/* orders list */

   321

			int sel;

   322

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

   323

   324

			if ( (uint) sel >= 6)

   325

				return;

   326

   327

			sel += w->vscroll.pos;

   328

   329

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

   330

				Order ord = v->schedule_ptr[sel];

   331

				int xy = 0;

   332

				switch (ord.type) {

   333

				case OT_GOTO_STATION:			/* station order */

   334

					xy = _stations[ord.station].xy ;

   335

					break;

   336

				case OT_GOTO_DEPOT:				/* goto depot order */

   337

					xy = _depots[ord.station].xy;

   338

					break;

   339

				case OT_GOTO_WAYPOINT:	/* goto waypoint order */

   340

					xy = _waypoints[ord.station].xy;

   341

				}

   342

   343

				if (xy)

   344

					ScrollMainWindowToTile(xy);

   345

   346

				return;

   347

			}

   348

   349

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

   350

			WP(w,order_d).sel = sel;

   351

			SetWindowDirty(w);

   352

		}	break;

   353

   354

		case 4: /* skip button */

   355

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

   356

			break;

   357

   358

		case 5: /* delete button */

   359

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

   360

			break;

   361

   362

		case 7: /* goto button */

   363

			InvalidateWidget(w, 7);

   364

			w->click_state ^= 1<<7;

   365

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

   366

				_place_clicked_vehicle = NULL;

   367

				SetObjectToPlaceWnd(ANIMCURSOR_PICKSTATION, 1, w);

   368

			} else {

   369

				ResetObjectToPlace();

   370

			}

   371

			break;

   372

   373

		case 8: /* full load button */

   374

			mode = 0;

   375

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

   376

			break;

   377

   378

		case 9: /* unload button */

   379

			mode = 1;

   380

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

   381

			break;

   382

   383

		case 6: /* non stop button */

   384

			mode = 2;

   385

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

   386

			break;

   387

		}

   388

	} break;

   389

   390

   391

	case WE_RCLICK: {

   392

		Vehicle *v = &_vehicles[w->window_number];

   393

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

   394

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

   395

			GuiShowTooltips(STR_SERVICE_HINT);

   396

		else

   397

			GuiShowTooltips(STR_8857_MAKE_THE_HIGHLIGHTED_ORDER);

   398

		} break;

   399

   400

	case WE_4: {

   401

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

   402

			DeleteWindow(w);

   403

	} break;

   404

   405

	case WE_PLACE_OBJ: {

   406

		OrdersPlaceObj(&_vehicles[w->window_number], e->place.tile, w);

   407

	} break;

   408

   409

	case WE_ABORT_PLACE_OBJ: {

   410

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

   411

		InvalidateWidget(w, 7);

   412

	} break;

   413

   414

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

   415

	case WE_MOUSELOOP: {

   416

		Vehicle *v = _place_clicked_vehicle;

   417

		/*

   418

		 * Check if we clicked on a vehicle

   419

		 * and if the GOTO button of this window is pressed

   420

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

   421

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

   422

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

   423

		 * one where GOTO is enalbed

   424

		 */

   425

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

   426

			_place_clicked_vehicle = NULL;

   427

			HandleOrderVehClick(&_vehicles[w->window_number], v, w);

   428

		}

   429

	} break;

   430

   431

	}

   432

}

   433

   434

static const Widget _train_orders_widgets[] = {

   435

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

   436

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   319,     0,    13, STR_8829_ORDERS,					STR_018C_WINDOW_TITLE_DRAG_THIS},

   439

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

   440

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

   441

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

   442

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

   443

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

   444

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

   445

{   WIDGETS_END},

   446

};

   447

   448

static const WindowDesc _train_orders_desc = {

   449

	-1,-1, 320, 88,

   450

	WC_VEHICLE_ORDERS,WC_VEHICLE_VIEW,

   451

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_RESTORE_DPARAM,

   452

	_train_orders_widgets,

   453

	OrdersWndProc

   454

};

   455

   456

static const Widget _other_train_orders_widgets[] = {

   457

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

   458

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   319,     0,    13, STR_8829_ORDERS, STR_018C_WINDOW_TITLE_DRAG_THIS},

   461

{   WIDGETS_END},

   462

};

   463

   464

static const WindowDesc _other_train_orders_desc = {

   465

	-1,-1, 320, 76,

   466

	WC_VEHICLE_ORDERS,WC_VEHICLE_VIEW,

   467

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,

   468

	_other_train_orders_widgets,

   469

	OrdersWndProc

   470

};

   471

   472

   473

static const Widget _roadveh_orders_widgets[] = {

   474

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

   475

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   319,     0,    13, STR_900B_ORDERS,	STR_018C_WINDOW_TITLE_DRAG_THIS},

   478

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,     0,    63,    76,    87, STR_8823_SKIP,		STR_8853_SKIP_THE_CURRENT_ORDER},

   479

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,    64,   127,    76,    87, STR_8824_DELETE,	STR_8854_DELETE_THE_HIGHLIGHTED},

   480

{      WWT_EMPTY,   RESIZE_NONE,     0,     0,     0,     0,     0, 0x0,							STR_NULL},

   481

{WWT_NODISTXTBTN,   RESIZE_NONE,    14,   128,   191,    76,    87, STR_8826_GO_TO,	STR_8856_INSERT_A_NEW_ORDER_BEFORE},

   482

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,   192,   255,    76,    87, STR_FULLLOAD_OR_SERVICE, STR_NULL},

   483

{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,   256,   319,    76,    87, STR_8828_UNLOAD,	STR_8858_MAKE_THE_HIGHLIGHTED_ORDER},

   484

{   WIDGETS_END},

   485

};

   486

   487

static const WindowDesc _roadveh_orders_desc = {

   488

	-1,-1, 320, 88,

   489

	WC_VEHICLE_ORDERS,WC_VEHICLE_VIEW,

   490

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_RESTORE_DPARAM,

   491

	_roadveh_orders_widgets,

   492

	OrdersWndProc

   493

};

   494

   495

static const Widget _other_roadveh_orders_widgets[] = {

   496

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

   497

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   319,     0,    13, STR_900B_ORDERS,	STR_018C_WINDOW_TITLE_DRAG_THIS},

   500

{   WIDGETS_END},

   501

};

   502

   503

static const WindowDesc _other_roadveh_orders_desc = {

   504

	-1,-1, 320, 76,

   505

	WC_VEHICLE_ORDERS,WC_VEHICLE_VIEW,

   506

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,

   507

	_other_roadveh_orders_widgets,

   508

	OrdersWndProc

   509

};

   510