1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "debug.h"

     6

#include "functions.h"

     7

#include "table/sprites.h"

     8

#include "table/strings.h"

     9

#include "map.h"

    10

#include "window.h"

    11

#include "gui.h"

    12

#include "gfx.h"

    13

#include "vehicle.h"

    14

#include "viewport.h"

    15

#include "station.h"

    16

#include "command.h"

    17

#include "player.h"

    18

#include "engine.h"

    19

#include "vehicle_gui.h"

    20

#include "depot.h"

    21

    22

int _traininfo_vehicle_pitch = 0;

    23

    24

/**

    25

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

    26

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

    27

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

    28

 */

    29

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

    30

{

    31

	const RailVehicleInfo *rvi = RailVehInfo(engine_number);

    32

	const Engine* e = GetEngine(engine_number);

    33

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

    34

	YearMonthDay ymd;

    35

	ConvertDayToYMD(&ymd, e->intro_date);

    36

    37

	/* Purchase Cost - Engine weight */

    38

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

    39

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

    40

	DrawString(x,y, STR_PURCHASE_INFO_COST_WEIGHT, 0);

    41

	y += 10;

    42

    43

	/* Max speed - Engine power */

    44

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

    45

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

    46

	DrawString(x,y, STR_PURCHASE_INFO_SPEED_POWER, 0);

    47

	y += 10;

    48

    49

	/* Running cost */

    50

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

    51

	DrawString(x,y, STR_PURCHASE_INFO_RUNNINGCOST, 0);

    52

	y += 10;

    53

    54

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

    55

	if (rvi->pow_wag_power != 0) {

    56

		SetDParam(0, rvi->pow_wag_power);

    57

		SetDParam(1, rvi->pow_wag_weight);

    58

		DrawString(x,y, STR_PURCHASE_INFO_PWAGPOWER_PWAGWEIGHT, 0);

    59

		y += 10;

    60

	};

    61

    62

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

    63

	SetDParam(0, STR_8838_N_A);

    64

	SetDParam(2, STR_EMPTY);

    65

	if (rvi->capacity != 0) {

    66

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

    67

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

    68

		SetDParam(2, STR_9842_REFITTABLE);

    69

	}

    70

	DrawString(x,y, STR_PURCHASE_INFO_CAPACITY, 0);

    71

	y += 10;

    72

    73

	/* Design date - Life length */

    74

	SetDParam(0, ymd.year + 1920);

    75

	SetDParam(1, e->lifelength);

    76

	DrawString(x,y, STR_PURCHASE_INFO_DESIGNED_LIFE, 0);

    77

	y += 10;

    78

    79

	/* Reliability */

    80

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

    81

	DrawString(x,y, STR_PURCHASE_INFO_RELIABILITY, 0);

    82

	y += 10;

    83

}

    84

    85

/**

    86

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

    87

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

    88

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

    89

 */

    90

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

    91

{

    92

	const RailVehicleInfo *rvi = RailVehInfo(engine_number);

    93

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

    94

    95

	/* Purchase cost */

    96

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

    97

	DrawString(x, y, STR_PURCHASE_INFO_COST, 0);

    98

	y += 10;

    99

   100

	/* Wagon weight - (including cargo) */

   101

	SetDParam(0, rvi->weight);

   102

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

   103

	DrawString(x, y, STR_PURCHASE_INFO_WEIGHT_CWEIGHT, 0);

   104

	y += 10;

   105

   106

	/* Cargo type + capacity */

   107

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

   108

	SetDParam(1, rvi->capacity);

   109

	SetDParam(2, refittable ? STR_9842_REFITTABLE : STR_EMPTY);

   110

	DrawString(x, y, STR_PURCHASE_INFO_CAPACITY, 0);

   111

	y += 10;

   112

   113

	/* Wagon speed limit, displayed if above zero */

   114

	if (rvi->max_speed > 0 && _patches.wagon_speed_limits) {

   115

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

   116

		DrawString(x,y, STR_PURCHASE_INFO_SPEED, 0);

   117

		y += 10;

   118

	}

   119

}

   120

   121

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

   122

{

   123

	Vehicle *v,*found;

   124

   125

	if (!success)

   126

		return;

   127

   128

	// find a locomotive in the depot.

   129

	found = NULL;

   130

	FOR_ALL_VEHICLES(v) {

   131

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

   132

				v->tile == tile &&

   133

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

   134

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

   135

				return;

   136

			found = v;

   137

		}

   138

	}

   139

   140

	// if we found a loco,

   141

	if (found != NULL) {

   142

		found = GetLastVehicleInChain(found);

   143

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

   144

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

   145

		RebuildVehicleLists();

   146

	}

   147

}

   148

   149

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

   150

{

   151

	Vehicle *v;

   152

   153

	if (!success)

   154

		return;

   155

   156

	v = GetVehicle(_new_train_id);

   157

	if (tile == _backup_orders_tile) {

   158

		_backup_orders_tile = 0;

   159

		RestoreVehicleOrders(v, _backup_orders_data);

   160

	}

   161

	ShowTrainViewWindow(v);

   162

}

   163

   164

void CcCloneTrain(bool success, uint tile, uint32 p1, uint32 p2)

   165

{

   166

	if (success) {

   167

		const Vehicle* v = GetVehicle(_new_train_id);

   168

   169

		ShowTrainViewWindow(v);

   170

	}

   171

}

   172

   173

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

   174

	EngineID* selected_id, RailType railtype, byte show_max, bool is_engine)

   175

{

   176

	EngineID i;

   177

   178

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

   179

		const Engine *e = GetEngine(i);

   180

		const RailVehicleInfo *rvi = RailVehInfo(i);

   181

   182

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

   183

				!HASBIT(e->player_avail, _local_player))

   184

			continue;

   185

   186

		if (*sel == 0)

   187

			*selected_id = i;

   188

   189

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

   190

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

   191

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

   192

				SPRITE_PALETTE(PLAYER_SPRITE_COLOR(_local_player)));

   193

			*y += 14;

   194

		}

   195

		--*sel;

   196

	}

   197

}

   198

   199

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

   200

{

   201

	switch(e->event) {

   202

	case WE_PAINT:

   203

   204

		if (w->window_number == 0)

   205

			SETBIT(w->disabled_state, 5);

   206

   207

		{

   208

			int count = 0;

   209

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

   210

			EngineID i;

   211

   212

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

   213

				const Engine *e = GetEngine(i);

   214

				if (IsCompatibleRail(e->railtype, railtype)

   215

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

   216

					count++;

   217

			}

   218

			SetVScrollCount(w, count);

   219

		}

   220

   221

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

   222

		DrawWindowWidgets(w);

   223

   224

		{

   225

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

   226

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

   227

			int pos = w->vscroll.pos;

   228

			int x = 1;

   229

			int y = 15;

   230

			EngineID selected_id = INVALID_ENGINE;

   231

   232

			/* Ensure that custom engines which substituted wagons

   233

			 * are sorted correctly.

   234

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

   235

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

   236

			 * then it is exit!!! */

   237

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

   238

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

   239

   240

			WP(w,buildtrain_d).sel_engine = selected_id;

   241

   242

			if (selected_id != INVALID_ENGINE) {

   243

				const RailVehicleInfo *rvi = RailVehInfo(selected_id);

   244

   245

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

   246

					/* it's an engine */

   247

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

   248

				} else {

   249

					/* it's a wagon */

   250

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

   251

				}

   252

			}

   253

		}

   254

	break;

   255

   256

	case WE_CLICK: {

   257

		switch(e->click.widget) {

   258

		case 2: {

   259

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

   260

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

   261

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

   262

				SetWindowDirty(w);

   263

			}

   264

		} break;

   265

		case 5: {

   266

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

   267

			if (sel_eng != INVALID_ENGINE)

   268

				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));

   269

		}	break;

   270

		case 6: { /* rename */

   271

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

   272

			if (sel_eng != INVALID_ENGINE) {

   273

				WP(w,buildtrain_d).rename_engine = sel_eng;

   274

				ShowQueryString(GetCustomEngineName(sel_eng),

   275

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

   276

			}

   277

		} break;

   278

		}

   279

	} break;

   280

   281

	case WE_4:

   282

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

   283

			DeleteWindow(w);

   284

		}

   285

		break;

   286

   287

	case WE_ON_EDIT_TEXT: {

   288

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

   289

			_cmd_text = e->edittext.str;

   290

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

   291

				CMD_RENAME_ENGINE | CMD_MSG(STR_886B_CAN_T_RENAME_TRAIN_VEHICLE));

   292

		}

   293

	} break;

   294

   295

	case WE_RESIZE: {

   296

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

   297

			break;

   298

   299

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

   300

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

   301

	} break;

   302

	}

   303

}

   304

   305

static const Widget _new_rail_vehicle_widgets[] = {

   306

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

   307

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

   308

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

   309

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

   310

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

   311

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

   312

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

   313

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

   314

{   WIDGETS_END},

   315

};

   316

   317

static const WindowDesc _new_rail_vehicle_desc = {

   318

	-1, -1, 228, 210,

   319

	WC_BUILD_VEHICLE,0,

   320

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_RESIZABLE,

   321

	_new_rail_vehicle_widgets,

   322

	NewRailVehicleWndProc

   323

};

   324

   325

static void ShowBuildTrainWindow(TileIndex tile)

   326

{

   327

	Window *w;

   328

   329

	DeleteWindowById(WC_BUILD_VEHICLE, tile);

   330

   331

	w = AllocateWindowDesc(&_new_rail_vehicle_desc);

   332

	w->window_number = tile;

   333

	w->vscroll.cap = 8;

   334

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

   335

   336

	w->resize.step_height = 14;

   337

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

   338

   339

	if (tile != 0) {

   340

		w->caption_color = GetTileOwner(tile);

   341

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

   342

	} else {

   343

		w->caption_color = _local_player;

   344

		WP(w,buildtrain_d).railtype = GetBestRailtype(GetPlayer(_local_player));

   345

	}

   346

}

   347

   348

/**

   349

 * Get the number of pixels for the given wagon length.

   350

 * @param len Length measured in 1/8ths of a standard wagon.

   351

 * @return Number of pixels across.

   352

 */

   353

static int WagonLengthToPixels(int len) {

   354

	return (len * 29) / 8;

   355

}

   356

   357

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

   358

{

   359

	int dx = 0;

   360

	count *= 8;

   361

   362

	do {

   363

		if (--skip < 0) {

   364

			int image = GetTrainImage(v, 6);

   365

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

   366

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

   367

   368

			if (dx + width <= count) {

   369

				if (v->vehstatus & VS_CRASHED)

   370

					ormod = PALETTE_CRASH;

   371

				DrawSprite(image | ormod, x + 14 + WagonLengthToPixels(dx), y + 6 + (is_custom_sprite(RailVehInfo(v->engine_type)->image_index) ? _traininfo_vehicle_pitch : 0));

   372

				if (v->index == selection)

   373

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

   374

			}

   375

			dx += width;

   376

		}

   377

   378

		v = v->next;

   379

	} while (dx < count && v != NULL);

   380

}

   381

   382

static void DrawTrainDepotWindow(Window *w)

   383

{

   384

	TileIndex tile;

   385

	Vehicle *v, *u;

   386

	int num,x,y,i, hnum;

   387

	Depot *depot;

   388

   389

	tile = w->window_number;

   390

   391

	/* setup disabled buttons */

   392

	w->disabled_state =

   393

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

   394

   395

	/* determine amount of items for scroller */

   396

	num = 0;

   397

	hnum = 8;

   398

	FOR_ALL_VEHICLES(v) {

   399

		if (v->type == VEH_Train &&

   400

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

   401

				v->tile == tile &&

   402

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

   403

			num++;

   404

			// determine number of items in the X direction.

   405

			if (v->subtype == TS_Front_Engine) {

   406

				hnum = max(hnum, v->u.rail.cached_total_length);

   407

			}

   408

		}

   409

	}

   410

   411

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

   412

	num++;

   413

   414

	SetVScrollCount(w, num);

   415

	SetHScrollCount(w, (hnum + 7) / 8);

   416

   417

	/* locate the depot struct */

   418

	depot = GetDepotByTile(tile);

   419

	assert(depot != NULL);

   420

   421

	SetDParam(0, depot->town_index);

   422

	DrawWindowWidgets(w);

   423

   424

	x = 2;

   425

	y = 15;

   426

	num = w->vscroll.pos;

   427

   428

	// draw all trains

   429

	FOR_ALL_VEHICLES(v) {

   430

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

   431

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

   432

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

   433

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

   434

			/* Draw the train number */

   435

			SetDParam(0, v->unitnumber);

   436

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

   437

   438

			// Number of wagons relative to a standard length wagon (rounded up)

   439

			SetDParam(0, (v->u.rail.cached_total_length + 7) / 8);

   440

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

   441

   442

			/* Draw the pretty flag */

   443

			DrawSprite(v->vehstatus & VS_STOPPED ? SPR_FLAG_VEH_STOPPED : SPR_FLAG_VEH_RUNNING, x + 15, y);

   444

   445

			y += 14;

   446

		}

   447

	}

   448

   449

	// draw all remaining vehicles

   450

	FOR_ALL_VEHICLES(v) {

   451

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

   452

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

   453

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

   454

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

   455

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

   456

   457

			/*Draw the train counter */

   458

			i = 0;

   459

			u = v;

   460

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

   461

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

   462

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

   463

			y += 14;

   464

		}

   465

	}

   466

}

   467

   468

typedef struct GetDepotVehiclePtData {

   469

	Vehicle *head;

   470

	Vehicle *wagon;

   471

} GetDepotVehiclePtData;

   472

   473

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

   474

{

   475

	int row;

   476

	int skip = 0;

   477

	Vehicle *v;

   478

   479

	x = x - 23;

   480

   481

	row = (y - 14) / 14;

   482

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

   483

		return 1; /* means err */

   484

   485

	row += w->vscroll.pos;

   486

   487

	/* go through all the locomotives */

   488

	FOR_ALL_VEHICLES(v) {

   489

		if (v->type == VEH_Train &&

   490

				v->subtype == TS_Front_Engine &&

   491

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

   492

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

   493

				--row < 0) {

   494

					skip = w->hscroll.pos;

   495

					goto found_it;