1

#include "stdafx.h"

     2

#include "openttd.h"

     3

#include "debug.h"

     4

#include "table/sprites.h"

     5

#include "table/strings.h"

     6

#include "map.h"

     7

#include "window.h"

     8

#include "gui.h"

     9

#include "gfx.h"

    10

#include "vehicle.h"

    11

#include "viewport.h"

    12

#include "station.h"

    13

#include "command.h"

    14

#include "player.h"

    15

#include "engine.h"

    16

#include "vehicle_gui.h"

    17

#include "depot.h"

    18

    19

int _traininfo_vehicle_pitch = 0;

    20

    21

/**

    22

 * Draw the purchase info details of train engine at a given location.

    23

 * @param x,y location where to draw the info

    24

 * @param engine_number the engine of which to draw the info of

    25

 */

    26

void DrawTrainEnginePurchaseInfo(int x, int y, EngineID engine_number)

    27

{

    28

	const RailVehicleInfo *rvi = RailVehInfo(engine_number);

    29

	const Engine* e = GetEngine(engine_number);

    30

	int multihead = (rvi->flags&RVI_MULTIHEAD?1:0);

    31

	YearMonthDay ymd;

    32

	ConvertDayToYMD(&ymd, e->intro_date);

    33

    34

	/* Purchase Cost - Engine weight */

    35

	SetDParam(0, rvi->base_cost * (_price.build_railvehicle >> 3) >> 5);

    36

	SetDParam(1, rvi->weight << multihead);

    37

	DrawString(x,y, STR_PURCHASE_INFO_COST_WEIGHT, 0);

    38

	y += 10;

    39

    40

	/* Max speed - Engine power */

    41

	SetDParam(0, rvi->max_speed * 10 >> 4);

    42

	SetDParam(1, rvi->power << multihead);

    43

	DrawString(x,y, STR_PURCHASE_INFO_SPEED_POWER, 0);

    44

	y += 10;

    45

    46

	/* Running cost */

    47

	SetDParam(0, (rvi->running_cost_base * _price.running_rail[rvi->engclass] >> 8) << multihead);

    48

	DrawString(x,y, STR_PURCHASE_INFO_RUNNINGCOST, 0);

    49

	y += 10;

    50

    51

	/* Powered wagons power - Powered wagons extra weight */

    52

	if (rvi->pow_wag_power != 0) {

    53

		SetDParam(0, rvi->pow_wag_power);

    54

		SetDParam(1, rvi->pow_wag_weight);

    55

		DrawString(x,y, STR_PURCHASE_INFO_PWAGPOWER_PWAGWEIGHT, 0);

    56

		y += 10;

    57

	};

    58

    59

	/* Cargo type + capacity, or N/A */

    60

	SetDParam(0, STR_8838_N_A);

    61

	SetDParam(2, STR_EMPTY);

    62

	if (rvi->capacity != 0) {

    63

		SetDParam(0, _cargoc.names_long[rvi->cargo_type]);

    64

		SetDParam(1, rvi->capacity << multihead);

    65

		SetDParam(2, STR_9842_REFITTABLE);

    66

	}

    67

	DrawString(x,y, STR_PURCHASE_INFO_CAPACITY, 0);

    68

	y += 10;

    69

    70

	/* Design date - Life length */

    71

	SetDParam(0, ymd.year + 1920);

    72

	SetDParam(1, e->lifelength);

    73

	DrawString(x,y, STR_PURCHASE_INFO_DESIGNED_LIFE, 0);

    74

	y += 10;

    75

    76

	/* Reliability */

    77

	SetDParam(0, e->reliability * 100 >> 16);

    78

	DrawString(x,y, STR_PURCHASE_INFO_RELIABILITY, 0);

    79

	y += 10;

    80

}

    81

    82

/**

    83

 * Draw the purchase info details of a train wagon at a given location.

    84

 * @param x,y location where to draw the info

    85

 * @param engine_number the engine of which to draw the info of

    86

 */

    87

void DrawTrainWagonPurchaseInfo(int x, int y, EngineID engine_number)

    88

{

    89

	const RailVehicleInfo *rvi = RailVehInfo(engine_number);

    90

	bool refittable = (_engine_refit_masks[engine_number] != 0);

    91

    92

	/* Purchase cost */

    93

	SetDParam(0, (rvi->base_cost * _price.build_railwagon) >> 8);

    94

	DrawString(x, y, STR_PURCHASE_INFO_COST, 0);

    95

	y += 10;

    96

    97

	/* Wagon weight - (including cargo) */

    98

	SetDParam(0, rvi->weight);

    99

	SetDParam(1, (_cargoc.weights[rvi->cargo_type] * rvi->capacity >> 4) + rvi->weight);

   100

	DrawString(x, y, STR_PURCHASE_INFO_WEIGHT_CWEIGHT, 0);

   101

	y += 10;

   102

   103

	/* Cargo type + capacity */

   104

	SetDParam(0, _cargoc.names_long[rvi->cargo_type]);

   105

	SetDParam(1, rvi->capacity);

   106

	SetDParam(2, refittable ? STR_9842_REFITTABLE : STR_EMPTY);

   107

	DrawString(x, y, STR_PURCHASE_INFO_CAPACITY, 0);

   108

	y += 10;

   109

}

   110

   111

void CcBuildWagon(bool success, TileIndex tile, uint32 p1, uint32 p2)

   112

{

   113

	Vehicle *v,*found;

   114

   115

	if (!success)

   116

		return;

   117

   118

	// find a locomotive in the depot.

   119

	found = NULL;

   120

	FOR_ALL_VEHICLES(v) {

   121

		if (v->type == VEH_Train && v->subtype == TS_Front_Engine &&

   122

				v->tile == tile &&

   123

				v->u.rail.track == 0x80) {

   124

			if (found != NULL) // must be exactly one.

   125

				return;

   126

			found = v;

   127

		}

   128

	}

   129

   130

	// if we found a loco,

   131

	if (found != NULL) {

   132

		found = GetLastVehicleInChain(found);

   133

		// put the new wagon at the end of the loco.

   134

		DoCommandP(0, _new_wagon_id | (found->index<<16), 0, NULL, CMD_MOVE_RAIL_VEHICLE);

   135

		RebuildVehicleLists();

   136

	}

   137

}

   138

   139

void CcBuildLoco(bool success, TileIndex tile, uint32 p1, uint32 p2)

   140

{

   141

	Vehicle *v;

   142

   143

	if (!success)

   144

		return;

   145

   146

	v = GetVehicle(_new_train_id);

   147

	if (tile == _backup_orders_tile) {

   148

		_backup_orders_tile = 0;

   149

		RestoreVehicleOrders(v, _backup_orders_data);

   150

	}

   151

	ShowTrainViewWindow(v);

   152

}

   153

   154

static void engine_drawing_loop(int *x, int *y, int *pos, int *sel,

   155

	int *selected_id, byte railtype, byte show_max, bool is_engine)

   156

{

   157

	int i;

   158

   159

	for (i = 0; i < NUM_TRAIN_ENGINES; i++) {

   160

		const Engine *e = GetEngine(i);

   161

		const RailVehicleInfo *rvi = RailVehInfo(i);

   162

   163

		if (!IsCompatibleRail(railtype, e->railtype) || !(rvi->flags & RVI_WAGON) != is_engine ||

   164

				!HASBIT(e->player_avail, _local_player))

   165

			continue;

   166

   167

		if (*sel == 0)

   168

			*selected_id = i;

   169

   170

		if (IS_INT_INSIDE(--*pos, -show_max, 0)) {

   171

			DrawString(*x + 59, *y + 2, GetCustomEngineName(i), *sel == 0 ? 0xC : 0x10);

   172

			DrawTrainEngine(*x + 29, *y + 6 + _traininfo_vehicle_pitch, i,

   173

				SPRITE_PALETTE(PLAYER_SPRITE_COLOR(_local_player)));

   174

			*y += 14;

   175

		}

   176

		--*sel;

   177

	}

   178

}

   179

   180

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

   181

{

   182

	switch(e->event) {

   183

	case WE_PAINT:

   184

   185

		if (w->window_number == 0)

   186

			SETBIT(w->disabled_state, 5);

   187

   188

		{

   189

			int count = 0;

   190

			byte railtype = WP(w,buildtrain_d).railtype;

   191

			int i;

   192

   193

			for (i = 0; i < NUM_TRAIN_ENGINES; i++) {

   194

				const Engine *e = GetEngine(i);

   195

				if (IsCompatibleRail(railtype, e->railtype)

   196

				    && HASBIT(e->player_avail, _local_player))

   197

					count++;

   198

			}

   199

			SetVScrollCount(w, count);

   200

		}

   201

   202

		SetDParam(0, WP(w,buildtrain_d).railtype + STR_881C_NEW_RAIL_VEHICLES);

   203

		DrawWindowWidgets(w);

   204

   205

		{

   206

			byte railtype = WP(w,buildtrain_d).railtype;

   207

			int sel = WP(w,buildtrain_d).sel_index;

   208

			int pos = w->vscroll.pos;

   209

			int x = 1;

   210

			int y = 15;

   211

			int selected_id = -1;

   212

   213

			/* Ensure that custom engines which substituted wagons

   214

			 * are sorted correctly.

   215

			 * XXX - DO NOT EVER DO THIS EVER AGAIN! GRRR hacking in wagons as

   216

			 * engines to get more types.. Stays here until we have our own format

   217

			 * then it is exit!!! */

   218

			engine_drawing_loop(&x, &y, &pos, &sel, &selected_id, railtype, w->vscroll.cap, true); // True engines

   219

			engine_drawing_loop(&x, &y, &pos, &sel, &selected_id, railtype, w->vscroll.cap, false); // Feeble wagons

   220

   221

			WP(w,buildtrain_d).sel_engine = selected_id;

   222

   223

			if (selected_id != -1) {

   224

				const RailVehicleInfo *rvi = RailVehInfo(selected_id);

   225

   226

				if (!(rvi->flags & RVI_WAGON)) {

   227

					/* it's an engine */

   228

					DrawTrainEnginePurchaseInfo(2, w->widget[4].top + 1,selected_id);

   229

				} else {

   230

					/* it's a wagon */

   231

					DrawTrainWagonPurchaseInfo(2, w->widget[4].top + 1, selected_id);

   232

				}

   233

			}

   234

		}

   235

	break;

   236

   237

	case WE_CLICK: {

   238

		switch(e->click.widget) {

   239

		case 2: {

   240

			uint i = (e->click.pt.y - 14) / 14;

   241

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

   242

				WP(w,buildtrain_d).sel_index = i + w->vscroll.pos;

   243

				SetWindowDirty(w);

   244

			}

   245

		} break;

   246

		case 5: {

   247

			int sel_eng;

   248

			sel_eng = WP(w,buildtrain_d).sel_engine;

   249

			if (sel_eng != -1)

   250

				DoCommandP(w->window_number, sel_eng, 0, (RailVehInfo(sel_eng)->flags & RVI_WAGON) ? CcBuildWagon : CcBuildLoco, CMD_BUILD_RAIL_VEHICLE | CMD_MSG(STR_882B_CAN_T_BUILD_RAILROAD_VEHICLE));

   251

		}	break;

   252

		case 6: { /* rename */

   253

			int sel_eng = WP(w,buildtrain_d).sel_engine;

   254

			if (sel_eng != -1) {

   255

				WP(w,buildtrain_d).rename_engine = sel_eng;

   256

				ShowQueryString(GetCustomEngineName(sel_eng),

   257

					STR_886A_RENAME_TRAIN_VEHICLE_TYPE, 31, 160, w->window_class, w->window_number);

   258

			}

   259

		} break;

   260

		}

   261

	} break;

   262

   263

	case WE_4:

   264

		if (w->window_number != 0 && !FindWindowById(WC_VEHICLE_DEPOT, w->window_number)) {

   265

			DeleteWindow(w);

   266

		}

   267

		break;

   268

   269

	case WE_ON_EDIT_TEXT: {

   270

		if (e->edittext.str[0] != '\0') {

   271

			_cmd_text = e->edittext.str;

   272

			DoCommandP(0, WP(w,buildtrain_d).rename_engine, 0, NULL,

   273

				CMD_RENAME_ENGINE | CMD_MSG(STR_886B_CAN_T_RENAME_TRAIN_VEHICLE));

   274

		}

   275

	} break;

   276

   277

	case WE_RESIZE: {

   278

		if (e->sizing.diff.y == 0)

   279

			break;

   280

   281

		w->vscroll.cap += e->sizing.diff.y / 14;

   282

		w->widget[2].unkA = (w->vscroll.cap << 8) + 1;

   283

	} break;

   284

	}

   285

}

   286

   287

static const Widget _new_rail_vehicle_widgets[] = {

   288

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

   289

{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   227,     0,    13, STR_JUST_STRING,					STR_018C_WINDOW_TITLE_DRAG_THIS},

   290

{     WWT_MATRIX, RESIZE_BOTTOM,    14,     0,   215,    14,   125, 0x801,										STR_8843_TRAIN_VEHICLE_SELECTION},

   291

{  WWT_SCROLLBAR, RESIZE_BOTTOM,    14,   216,   227,    14,   125, 0x0,											STR_0190_SCROLL_BAR_SCROLLS_LIST},

   292

{      WWT_PANEL,     RESIZE_TB,    14,     0,   227,   126,   197, 0x0,											STR_NULL},

   293

{ WWT_PUSHTXTBTN,     RESIZE_TB,    14,     0,   107,   198,   209, STR_881F_BUILD_VEHICLE,		STR_8844_BUILD_THE_HIGHLIGHTED_TRAIN},

   294

{ WWT_PUSHTXTBTN,     RESIZE_TB,    14,   108,   215,   198,   209, STR_8820_RENAME,					STR_8845_RENAME_TRAIN_VEHICLE_TYPE},

   295

{  WWT_RESIZEBOX,     RESIZE_TB,    14,   216,   227,   198,   209, 0x0,											STR_RESIZE_BUTTON},

   296

{   WIDGETS_END},

   297

};

   298

   299

static const WindowDesc _new_rail_vehicle_desc = {

   300

	-1, -1, 228, 210,

   301

	WC_BUILD_VEHICLE,0,

   302

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_RESIZABLE,

   303

	_new_rail_vehicle_widgets,

   304

	NewRailVehicleWndProc

   305

};

   306

   307

static void ShowBuildTrainWindow(TileIndex tile)

   308

{

   309

	Window *w;

   310

   311

	DeleteWindowById(WC_BUILD_VEHICLE, tile);

   312

   313

	w = AllocateWindowDesc(&_new_rail_vehicle_desc);

   314

	w->window_number = tile;

   315

	w->vscroll.cap = 8;

   316

	w->widget[2].unkA = (w->vscroll.cap << 8) + 1;

   317

   318

	w->resize.step_height = 14;

   319

	w->resize.height = w->height - 14 * 4; /* Minimum of 4 vehicles in the display */

   320

   321

	if (tile != 0) {

   322

		w->caption_color = GetTileOwner(tile);

   323

		WP(w,buildtrain_d).railtype = _m[tile].m3 & 0xF;

   324

	} else {

   325

		w->caption_color = _local_player;

   326

		WP(w,buildtrain_d).railtype = GetPlayer(_local_player)->max_railtype - 1;

   327

	}

   328

}

   329

   330

static void DrawTrainImage(const Vehicle *v, int x, int y, int count, int skip, VehicleID selection)

   331

{

   332

	int max_x = x + count * 29;

   333

   334

	do {

   335

		if (--skip < 0) {

   336

			int image = GetTrainImage(v, 6);

   337

			uint32 ormod = SPRITE_PALETTE(PLAYER_SPRITE_COLOR(v->owner));

   338

			int width = v->u.rail.cached_veh_length * 3;

   339

   340

			if (x + width + 4 <= max_x) {

   341

				if (v->vehstatus & VS_CRASHED)

   342

					ormod = PALETTE_CRASH;

   343

				DrawSprite(image | ormod, x + 14, y + 6 + _traininfo_vehicle_pitch);

   344

				if (v->index == selection)

   345

					DrawFrameRect(x - 1, y - 1, x + width + 4, y + 12, 15, FR_BORDERONLY);

   346

			}

   347

			x += width + 5;

   348

		}

   349

   350

		if (!(v = v->next))

   351

			break;

   352

	} while (x < max_x);

   353

}

   354

   355

static void DrawTrainDepotWindow(Window *w)

   356

{

   357

	TileIndex tile;

   358

	Vehicle *v, *u;

   359

	int num,x,y,i, hnum;

   360

	Depot *depot;

   361

   362

	tile = w->window_number;

   363

   364

	/* setup disabled buttons */

   365

	w->disabled_state =

   366

		IsTileOwner(tile, _local_player) ? 0 : ((1 << 4) | (1 << 5) | (1 << 8));

   367

   368

	/* determine amount of items for scroller */

   369

	num = 0;

   370

	hnum = 1;

   371

	FOR_ALL_VEHICLES(v) {

   372

		if (v->type == VEH_Train &&

   373

			  (v->subtype == TS_Front_Engine || v->subtype == TS_Free_Car) &&

   374

				v->tile == tile &&

   375

				v->u.rail.track == 0x80) {

   376

			num++;

   377

			// determine number of items in the X direction.

   378

			if (v->subtype == TS_Front_Engine) {

   379

				i = 0;

   380

				u = v;

   381

				do i++; while ((u = u->next) != NULL);

   382

				if (i > hnum) hnum = i;

   383

			}

   384

		}

   385

	}

   386

   387

	/* Always have 1 empty row, so people can change the setting of the train */

   388

	num++;

   389

   390

	SetVScrollCount(w, num);

   391

	SetHScrollCount(w, hnum);

   392

   393

	/* locate the depot struct */

   394

	depot = GetDepotByTile(tile);

   395

	assert(depot != NULL);

   396

   397

	SetDParam(0, depot->town_index);

   398

	DrawWindowWidgets(w);

   399

   400

	x = 2;

   401

	y = 15;

   402

	num = w->vscroll.pos;

   403

   404

	// draw all trains

   405

	FOR_ALL_VEHICLES(v) {

   406

		if (v->type == VEH_Train && v->subtype == TS_Front_Engine &&

   407

				v->tile == tile && v->u.rail.track == 0x80 &&

   408

				--num < 0 && num >= -w->vscroll.cap) {

   409

			DrawTrainImage(v, x+21, y, w->hscroll.cap, w->hscroll.pos, WP(w,traindepot_d).sel);

   410

			/* Draw the train number */

   411

			SetDParam(0, v->unitnumber);

   412

			DrawString(x, y, (v->max_age - 366 < v->age) ? STR_00E3 : STR_00E2, 0);

   413

   414

			/*Draw the train counter */

   415

			i = 0;

   416

			u = v;

   417

			do {

   418

				i += u->u.rail.cached_veh_length + 1;

   419

			} while ( (u=u->next) != NULL);			//Determine length of train

   420

   421

			SetDParam(0, (i + 8) / 9);			//Set the counter

   422

			DrawStringRightAligned(w->widget[6].right - 1, y + 4, STR_TINY_BLACK, 0);	//Draw the counter

   423

   424

			/* Draw the pretty flag */

   425

			DrawSprite(v->vehstatus&VS_STOPPED ? 0xC12 : 0xC13, x+15, y);

   426

   427

			y += 14;

   428

		}

   429

	}

   430

   431

	// draw all remaining vehicles

   432

	FOR_ALL_VEHICLES(v) {

   433

		if (v->type == VEH_Train && v->subtype == TS_Free_Car &&

   434

				v->tile == tile && v->u.rail.track == 0x80 &&

   435

				--num < 0 && num >= -w->vscroll.cap) {

   436

			DrawTrainImage(v, x+50, y, w->hscroll.cap - 1, 0, WP(w,traindepot_d).sel);

   437

			DrawString(x, y+2, STR_8816, 0);

   438

   439

			/*Draw the train counter */

   440

			i = 0;

   441

			u = v;

   442

			do i++; while ( (u=u->next) != NULL);		//Determine length of train

   443

			SetDParam(0, i);				//Set the counter

   444

			DrawStringRightAligned(w->widget[6].right - 1, y + 4, STR_TINY_BLACK, 0);	//Draw the counter

   445

			y += 14;

   446

		}

   447

	}

   448

}

   449

   450

typedef struct GetDepotVehiclePtData {

   451

	Vehicle *head;

   452

	Vehicle *wagon;

   453

} GetDepotVehiclePtData;

   454

   455

static int GetVehicleFromTrainDepotWndPt(Window *w, int x, int y, GetDepotVehiclePtData *d)

   456

{

   457

	int row;

   458

	int skip = 0;

   459

	Vehicle *v;

   460

   461

	x = x - 23;

   462

   463

	row = (y - 14) / 14;

   464

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

   465

		return 1; /* means err */

   466

   467

	row += w->vscroll.pos;

   468

   469

	/* go through all the locomotives */

   470

	FOR_ALL_VEHICLES(v) {

   471

		if (v->type == VEH_Train &&

   472

				v->subtype == TS_Front_Engine &&

   473

				v->tile == w->window_number &&

   474

				v->u.rail.track == 0x80 &&

   475

				--row < 0) {

   476

					skip = w->hscroll.pos;

   477

					goto found_it;

   478

		}

   479

	}

   480

   481

	x -= 29; /* free wagons don't have an initial loco. */

   482

   483

	/* and then the list of free wagons */

   484

	FOR_ALL_VEHICLES(v) {

   485

		if (v->type == VEH_Train &&

   486

				v->subtype == TS_Free_Car &&

   487

				v->tile == w->window_number &&

   488

				v->u.rail.track == 0x80 &&

   489

				--row < 0)

   490

					goto found_it;

   491

	}

   492

   493

	d->head = NULL;

   494

	d->wagon = NULL;

   495

   496

	/* didn't find anything, get out */

   497

	return 0;

   498

   499

found_it: