bjarni@4800: /* $Id$ */
bjarni@4800: 
belugas@6449: /** @file build_vehicle_gui.cpp */
belugas@6449: 
bjarni@4800: #include "stdafx.h"
bjarni@4800: #include "openttd.h"
bjarni@6030: #include "train.h"
bjarni@6037: #include "roadveh.h"
bjarni@6034: #include "ship.h"
bjarni@4800: #include "aircraft.h"
bjarni@4800: #include "debug.h"
bjarni@4800: #include "gui.h"
maedhros@7268: #include "articulated_vehicles.h"
rubidium@8603: #include "textbuf_gui.h"
bjarni@4800: #include "station.h"
rubidium@8612: #include "command_func.h"
bjarni@4800: #include "engine.h"
rubidium@8750: #include "player_func.h"
bjarni@4800: #include "depot.h"
bjarni@4800: #include "airport.h"
bjarni@4800: #include "vehicle_gui.h"
bjarni@4800: #include "newgrf_engine.h"
peter1138@6417: #include "cargotype.h"
rubidium@7139: #include "group.h"
rubidium@7181: #include "road_map.h"
rubidium@8610: #include "strings_func.h"
rubidium@8627: #include "window_func.h"
rubidium@8636: #include "date_func.h"
rubidium@8640: #include "vehicle_func.h"
rubidium@8707: #include "settings_type.h"
rubidium@8720: #include "gfx_func.h"
peter1138@8780: #include "widgets/dropdown_func.h"
bjarni@4800: 
rubidium@8760: #include "table/sprites.h"
rubidium@8760: #include "table/strings.h"
rubidium@8760: 
rubidium@8718: struct buildvehicle_d {
rubidium@8718: 	VehicleType vehicle_type;
rubidium@8718: 	union {
rubidium@8718: 		RailTypeByte railtype;
rubidium@8718: 		AirportFTAClass::Flags flags;
rubidium@8718: 		RoadTypes roadtypes;
rubidium@8718: 	} filter;
rubidium@8718: 	byte sel_index;  ///< deprecated value, used for 'unified' ship and road
rubidium@8718: 	bool descending_sort_order;
rubidium@8718: 	byte sort_criteria;
rubidium@8718: 	bool regenerate_list;
rubidium@8718: 	EngineID sel_engine;
rubidium@8718: 	EngineID rename_engine;
rubidium@8718: 	EngineList eng_list;
rubidium@8718: };
rubidium@8718: assert_compile(WINDOW_CUSTOM_SIZE >= sizeof(buildvehicle_d));
bjarni@4800: 
Darkvater@5273: enum BuildVehicleWidgets {
bjarni@4800: 	BUILD_VEHICLE_WIDGET_CLOSEBOX = 0,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_CAPTION,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_SORT_ASSENDING_DESCENDING,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_SORT_DROPDOWN,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_LIST,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_SCROLLBAR,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_PANEL,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_BUILD,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_RENAME,
bjarni@4800: 	BUILD_VEHICLE_WIDGET_RESIZE,
maedhros@6711: 	BUILD_VEHICLE_WIDGET_END
Darkvater@5273: };
bjarni@4800: 
bjarni@4800: static const Widget _build_vehicle_widgets[] = {
bjarni@4800: 	{   WWT_CLOSEBOX,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,                STR_018B_CLOSE_WINDOW },
maedhros@6712: 	{    WWT_CAPTION,  RESIZE_RIGHT,    14,    11,   239,     0,    13, 0x0,                     STR_018C_WINDOW_TITLE_DRAG_THIS },
bjarni@4800: 	{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,     0,    80,    14,    25, STR_SORT_BY,             STR_SORT_ORDER_TIP},
peter1138@8834: 	{   WWT_DROPDOWN,  RESIZE_RIGHT,    14,    81,   239,    14,    25, 0x0,                     STR_SORT_CRITERIA_TIP},
rubidium@7864: 	{     WWT_MATRIX,     RESIZE_RB,    14,     0,   227,    26,    39, 0x101,                   STR_NULL },
rubidium@7864: 	{  WWT_SCROLLBAR,    RESIZE_LRB,    14,   228,   239,    26,    39, 0x0,                     STR_0190_SCROLL_BAR_SCROLLS_LIST },
rubidium@7864: 	{      WWT_PANEL,    RESIZE_RTB,    14,     0,   239,    40,   161, 0x0,                     STR_NULL },
bjarni@4800: 
rubidium@7864: 	{ WWT_PUSHTXTBTN,     RESIZE_TB,    14,     0,   114,   162,   173, 0x0,                     STR_NULL },
rubidium@7864: 	{ WWT_PUSHTXTBTN,    RESIZE_RTB,    14,   115,   227,   162,   173, 0x0,                     STR_NULL },
rubidium@7864: 	{  WWT_RESIZEBOX,   RESIZE_LRTB,    14,   228,   239,   162,   173, 0x0,                     STR_RESIZE_BUTTON },
bjarni@4800: 	{   WIDGETS_END},
bjarni@4800: };
bjarni@4800: 
bjarni@6030: /* Setup widget strings to fit the different types of vehicles */
peter1138@8975: static void SetupWindowStrings(Window *w, VehicleType type)
bjarni@6030: {
bjarni@6030: 	switch (type) {
peter1138@8975: 		default: NOT_REACHED();
peter1138@8975: 
rubidium@6585: 		case VEH_TRAIN:
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_CAPTION].data    = STR_JUST_STRING;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_LIST].tooltips   = STR_8843_TRAIN_VEHICLE_SELECTION;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].data      = STR_881F_BUILD_VEHICLE;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].tooltips  = STR_8844_BUILD_THE_HIGHLIGHTED_TRAIN;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].data     = STR_8820_RENAME;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].tooltips = STR_8845_RENAME_TRAIN_VEHICLE_TYPE;
bjarni@6030: 			break;
peter1138@8975: 
rubidium@6585: 		case VEH_ROAD:
bjarni@6037: 			w->widget[BUILD_VEHICLE_WIDGET_CAPTION].data    = STR_9006_NEW_ROAD_VEHICLES;
bjarni@6037: 			w->widget[BUILD_VEHICLE_WIDGET_LIST].tooltips   = STR_9026_ROAD_VEHICLE_SELECTION;
bjarni@6037: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].data      = STR_9007_BUILD_VEHICLE;
bjarni@6037: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].tooltips  = STR_9027_BUILD_THE_HIGHLIGHTED_ROAD;
bjarni@6037: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].data     = STR_9034_RENAME;
bjarni@6037: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].tooltips = STR_9035_RENAME_ROAD_VEHICLE_TYPE;
bjarni@6037: 			break;
peter1138@8975: 
rubidium@6585: 		case VEH_SHIP:
bjarni@6034: 			w->widget[BUILD_VEHICLE_WIDGET_CAPTION].data    = STR_9808_NEW_SHIPS;
bjarni@6034: 			w->widget[BUILD_VEHICLE_WIDGET_LIST].tooltips   = STR_9825_SHIP_SELECTION_LIST_CLICK;
bjarni@6034: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].data      = STR_9809_BUILD_SHIP;
bjarni@6034: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].tooltips  = STR_9826_BUILD_THE_HIGHLIGHTED_SHIP;
bjarni@6034: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].data     = STR_9836_RENAME;
bjarni@6034: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].tooltips = STR_9837_RENAME_SHIP_TYPE;
bjarni@6034: 			break;
peter1138@8975: 
rubidium@6585: 		case VEH_AIRCRAFT:
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_CAPTION].data    = STR_A005_NEW_AIRCRAFT;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_LIST].tooltips   = STR_A025_AIRCRAFT_SELECTION_LIST;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].data      = STR_A006_BUILD_AIRCRAFT;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_BUILD].tooltips  = STR_A026_BUILD_THE_HIGHLIGHTED_AIRCRAFT;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].data     = STR_A037_RENAME;
bjarni@6030: 			w->widget[BUILD_VEHICLE_WIDGET_RENAME].tooltips = STR_A038_RENAME_AIRCRAFT_TYPE;
bjarni@6030: 			break;
bjarni@6030: 	}
bjarni@6030: }
bjarni@6030: 
bjarni@4800: static bool _internal_sort_order; // descending/ascending
bjarni@6030: 
bjarni@6035: static byte _last_sort_criteria[]    = {0, 0, 0, 0};
bjarni@6035: static bool _last_sort_order[]       = {false, false, false, false};
bjarni@4800: 
bjarni@4800: static int CDECL EngineNumberSorter(const void *a, const void *b)
bjarni@4800: {
bjarni@4800: 	const EngineID va = *(const EngineID*)a;
bjarni@4800: 	const EngineID vb = *(const EngineID*)b;
bjarni@4800: 	int r = va - vb;
bjarni@4800: 
bjarni@4800: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@4800: static int CDECL EngineIntroDateSorter(const void *a, const void *b)
bjarni@4800: {
bjarni@4800: 	const int va = GetEngine(*(const EngineID*)a)->intro_date;
bjarni@4800: 	const int vb = GetEngine(*(const EngineID*)b)->intro_date;
bjarni@4800: 	const int r = va - vb;
bjarni@4800: 
bjarni@4800: 	if (r == 0) {
bjarni@4800: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@4800: 		return EngineNumberSorter(a, b);
bjarni@4800: 	}
bjarni@4800: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@4800: static int CDECL EngineNameSorter(const void *a, const void *b)
bjarni@4800: {
bjarni@4804: 	static EngineID last_engine[2] = { INVALID_ENGINE, INVALID_ENGINE };
bjarni@4804: 	static char     last_name[2][64] = { "\0", "\0" };
bjarni@4804: 
bjarni@4800: 	const EngineID va = *(const EngineID*)a;
bjarni@4800: 	const EngineID vb = *(const EngineID*)b;
bjarni@4800: 	int r;
bjarni@4800: 
bjarni@4804: 	if (va != last_engine[0]) {
bjarni@4804: 		last_engine[0] = va;
peter1138@7555: 		SetDParam(0, va);
peter1138@7555: 		GetString(last_name[0], STR_ENGINE_NAME, lastof(last_name[0]));
bjarni@4800: 	}
bjarni@4800: 
bjarni@4804: 	if (vb != last_engine[1]) {
bjarni@4804: 		last_engine[1] = vb;
peter1138@7555: 		SetDParam(0, vb);
peter1138@7555: 		GetString(last_name[1], STR_ENGINE_NAME, lastof(last_name[1]));
bjarni@4804: 	}
bjarni@4804: 
bjarni@4804: 	r = strcmp(last_name[0], last_name[1]); // sort by name
bjarni@4800: 
bjarni@4800: 	if (r == 0) {
bjarni@4800: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@4800: 		return EngineNumberSorter(a, b);
bjarni@4800: 	}
bjarni@4804: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@4800: static int CDECL EngineReliabilitySorter(const void *a, const void *b)
bjarni@4800: {
bjarni@4800: 	const int va = GetEngine(*(const EngineID*)a)->reliability;
bjarni@4800: 	const int vb = GetEngine(*(const EngineID*)b)->reliability;
bjarni@4800: 	const int r = va - vb;
bjarni@4800: 
bjarni@4800: 	if (r == 0) {
bjarni@4800: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@4800: 		return EngineNumberSorter(a, b);
bjarni@4800: 	}
bjarni@4800: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@6030: /* Train sorting functions */
bjarni@6030: static int CDECL TrainEngineCostSorter(const void *a, const void *b)
bjarni@6030: {
bjarni@6030: 	int va = RailVehInfo(*(const EngineID*)a)->base_cost;
bjarni@6030: 	int vb = RailVehInfo(*(const EngineID*)b)->base_cost;
bjarni@6030: 	int r = va - vb;
bjarni@6030: 
bjarni@6030: 	return _internal_sort_order ? -r : r;
bjarni@6030: }
bjarni@6030: 
bjarni@6030: static int CDECL TrainEngineSpeedSorter(const void *a, const void *b)
bjarni@6030: {
bjarni@6030: 	int va = RailVehInfo(*(const EngineID*)a)->max_speed;
bjarni@6030: 	int vb = RailVehInfo(*(const EngineID*)b)->max_speed;
bjarni@6030: 	int r = va - vb;
bjarni@6030: 
bjarni@6030: 	return _internal_sort_order ? -r : r;
bjarni@6030: }
bjarni@6030: 
bjarni@6030: static int CDECL TrainEnginePowerSorter(const void *a, const void *b)
bjarni@6030: {
bjarni@6030: 	const RailVehicleInfo *rvi_a = RailVehInfo(*(const EngineID*)a);
bjarni@6030: 	const RailVehicleInfo *rvi_b = RailVehInfo(*(const EngineID*)b);
bjarni@6030: 
belugas@6119: 	int va = rvi_a->power << (rvi_a->railveh_type == RAILVEH_MULTIHEAD ? 1 : 0);
belugas@6119: 	int vb = rvi_b->power << (rvi_b->railveh_type == RAILVEH_MULTIHEAD ? 1 : 0);
bjarni@6030: 	int r = va - vb;
bjarni@6030: 
bjarni@6030: 	return _internal_sort_order ? -r : r;
bjarni@6030: }
bjarni@6030: 
bjarni@6030: static int CDECL TrainEngineRunningCostSorter(const void *a, const void *b)
bjarni@6030: {
bjarni@6030: 	const RailVehicleInfo *rvi_a = RailVehInfo(*(const EngineID*)a);
bjarni@6030: 	const RailVehicleInfo *rvi_b = RailVehInfo(*(const EngineID*)b);
bjarni@6030: 
peter1138@9122: 	Money va = rvi_a->running_cost * GetPriceByIndex(rvi_a->running_cost_class) * (rvi_a->railveh_type == RAILVEH_MULTIHEAD ? 2 : 1);
peter1138@9122: 	Money vb = rvi_b->running_cost * GetPriceByIndex(rvi_b->running_cost_class) * (rvi_b->railveh_type == RAILVEH_MULTIHEAD ? 2 : 1);
rubidium@7486: 	int r = ClampToI32(va - vb);
bjarni@6030: 
bjarni@6030: 	return _internal_sort_order ? -r : r;
bjarni@6030: }
bjarni@6030: 
bjarni@6030: static int CDECL TrainEnginePowerVsRunningCostSorter(const void *a, const void *b)
bjarni@6030: {
bjarni@6030: 	const RailVehicleInfo *rvi_a = RailVehInfo(*(const EngineID*)a);
bjarni@6030: 	const RailVehicleInfo *rvi_b = RailVehInfo(*(const EngineID*)b);
bjarni@6030: 
bjarni@6030: 	/* Here we are using a few tricks to get the right sort.
bjarni@6030: 		* We want power/running cost, but since we usually got higher running cost than power and we store the result in an int,
bjarni@6030: 		* we will actually calculate cunning cost/power (to make it more than 1).
bjarni@6030: 		* Because of this, the return value have to be reversed as well and we return b - a instead of a - b.
bjarni@6030: 		* Another thing is that both power and running costs should be doubled for multiheaded engines.
bjarni@6030: 		* Since it would be multipling with 2 in both numerator and denumerator, it will even themselves out and we skip checking for multiheaded. */
peter1138@9122: 	Money va = (rvi_a->running_cost * GetPriceByIndex(rvi_a->running_cost_class)) / max(1U, (uint)rvi_a->power);
peter1138@9122: 	Money vb = (rvi_b->running_cost * GetPriceByIndex(rvi_b->running_cost_class)) / max(1U, (uint)rvi_b->power);
rubidium@7486: 	int r = ClampToI32(vb - va);
bjarni@6030: 
bjarni@6030: 	return _internal_sort_order ? -r : r;
bjarni@6030: }
bjarni@6030: 
bjarni@6349: static int CDECL TrainEngineNumberSorter(const void *a, const void *b)
bjarni@6349: {
bjarni@6349: 	const EngineID va = *(const EngineID*)a;
bjarni@6349: 	const EngineID vb = *(const EngineID*)b;
bjarni@6349: 	int r = ListPositionOfEngine(va) - ListPositionOfEngine(vb);
bjarni@6349: 
bjarni@6349: 	return _internal_sort_order ? -r : r;
bjarni@6349: }
bjarni@6349: 
bjarni@7282: static int CDECL TrainEngineCapacitySorter(const void *a, const void *b)
bjarni@7282: {
bjarni@7282: 	int va = RailVehInfo(*(const EngineID*)a)->capacity;
bjarni@7282: 	int vb = RailVehInfo(*(const EngineID*)b)->capacity;
bjarni@7282: 	int r = va - vb;
bjarni@7282: 
bjarni@7282: 	if (r == 0) {
bjarni@7282: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@7282: 		return EngineNumberSorter(a, b);
bjarni@7282: 	}
bjarni@7282: 	return _internal_sort_order ? -r : r;
bjarni@7282: }
bjarni@7282: 
bjarni@6030: static int CDECL TrainEnginesThenWagonsSorter(const void *a, const void *b)
bjarni@6030: {
bjarni@6030: 	EngineID va = *(const EngineID*)a;
bjarni@6030: 	EngineID vb = *(const EngineID*)b;
bjarni@6122: 	int val_a = (RailVehInfo(va)->railveh_type == RAILVEH_WAGON ? 1 : 0);
bjarni@6122: 	int val_b = (RailVehInfo(vb)->railveh_type == RAILVEH_WAGON ? 1 : 0);
bjarni@6030: 	int r = val_a - val_b;
bjarni@6030: 
bjarni@6030: 	/* Use EngineID to sort instead since we want consistent sorting */
bjarni@6030: 	if (r == 0) return EngineNumberSorter(a, b);
bjarni@6030: 
bjarni@6030: 	return _internal_sort_order ? -r : r;
bjarni@6030: }
bjarni@6030: 
bjarni@8644: /* Road vehicle sorting functions */
bjarni@8644: static int CDECL RoadVehEngineCostSorter(const void *a, const void *b)
bjarni@8644: {
bjarni@8644: 	int va = RoadVehInfo(*(const EngineID*)a)->base_cost;
bjarni@8644: 	int vb = RoadVehInfo(*(const EngineID*)b)->base_cost;
bjarni@8644: 	int r = va - vb;
bjarni@8644: 
bjarni@8644: 	return _internal_sort_order ? -r : r;
bjarni@8644: }
bjarni@8644: 
bjarni@8644: static int CDECL RoadVehEngineSpeedSorter(const void *a, const void *b)
bjarni@8644: {
bjarni@8644: 	int va = RoadVehInfo(*(const EngineID*)a)->max_speed;
bjarni@8644: 	int vb = RoadVehInfo(*(const EngineID*)b)->max_speed;
bjarni@8644: 	int r = va - vb;
bjarni@8644: 
bjarni@8644: 	return _internal_sort_order ? -r : r;
bjarni@8644: }
bjarni@8644: 
bjarni@8644: static int CDECL RoadVehEngineRunningCostSorter(const void *a, const void *b)
bjarni@8644: {
peter1138@9122: 	const RoadVehicleInfo *rvi_a = RoadVehInfo(*(const EngineID*)a);
peter1138@9122: 	const RoadVehicleInfo *rvi_b = RoadVehInfo(*(const EngineID*)b);
peter1138@9122: 
peter1138@9122: 	Money va = rvi_a->running_cost * GetPriceByIndex(rvi_a->running_cost_class);
peter1138@9122: 	Money vb = rvi_b->running_cost * GetPriceByIndex(rvi_b->running_cost_class);
peter1138@9122: 	int r = ClampToI32(va - vb);
bjarni@8644: 
bjarni@8644: 	if (r == 0) {
bjarni@8644: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@8644: 		return EngineNumberSorter(a, b);
bjarni@8644: 	}
bjarni@8644: 	return _internal_sort_order ? -r : r;
bjarni@8644: }
bjarni@8644: 
bjarni@7282: static int CDECL RoadVehEngineCapacitySorter(const void *a, const void *b)
bjarni@7282: {
bjarni@7282: 	int va = RoadVehInfo(*(const EngineID*)a)->capacity;
bjarni@7282: 	int vb = RoadVehInfo(*(const EngineID*)b)->capacity;
bjarni@7282: 	int r = va - vb;
bjarni@7282: 
bjarni@7282: 	if (r == 0) {
bjarni@7282: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@7282: 		return EngineNumberSorter(a, b);
bjarni@7282: 	}
bjarni@7282: 	return _internal_sort_order ? -r : r;
bjarni@7282: }
bjarni@7282: 
bjarni@8644: /* Road vehicle sorting functions */
bjarni@8644: static int CDECL ShipEngineCostSorter(const void *a, const void *b)
bjarni@8644: {
bjarni@8644: 	int va = ShipVehInfo(*(const EngineID*)a)->base_cost;
bjarni@8644: 	int vb = ShipVehInfo(*(const EngineID*)b)->base_cost;
bjarni@8644: 	int r = va - vb;
bjarni@8644: 
bjarni@8644: 	return _internal_sort_order ? -r : r;
bjarni@8644: }
bjarni@8644: 
bjarni@8644: static int CDECL ShipEngineSpeedSorter(const void *a, const void *b)
bjarni@8644: {
bjarni@8644: 	int va = ShipVehInfo(*(const EngineID*)a)->max_speed;
bjarni@8644: 	int vb = ShipVehInfo(*(const EngineID*)b)->max_speed;
bjarni@8644: 	int r = va - vb;
bjarni@8644: 
bjarni@8644: 	return _internal_sort_order ? -r : r;
bjarni@8644: }
bjarni@8644: 
bjarni@8644: static int CDECL ShipEngineRunningCostSorter(const void *a, const void *b)
bjarni@8644: {
bjarni@8644: 	const int va = ShipVehInfo(*(const EngineID*)a)->running_cost;
bjarni@8644: 	const int vb = ShipVehInfo(*(const EngineID*)b)->running_cost;
bjarni@8644: 	const int r = va - vb;
bjarni@8644: 
bjarni@8644: 	if (r == 0) {
bjarni@8644: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@8644: 		return EngineNumberSorter(a, b);
bjarni@8644: 	}
bjarni@8644: 	return _internal_sort_order ? -r : r;
bjarni@8644: }
bjarni@8644: 
bjarni@7282: static int CDECL ShipEngineCapacitySorter(const void *a, const void *b)
bjarni@7282: {
bjarni@7282: 	int va = ShipVehInfo(*(const EngineID*)a)->capacity;
bjarni@7282: 	int vb = ShipVehInfo(*(const EngineID*)b)->capacity;
bjarni@7282: 	int r = va - vb;
bjarni@7282: 
bjarni@7282: 	if (r == 0) {
bjarni@7282: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@7282: 		return EngineNumberSorter(a, b);
bjarni@7282: 	}
bjarni@7282: 	return _internal_sort_order ? -r : r;
bjarni@7282: }
bjarni@7282: 
bjarni@4800: /* Aircraft sorting functions */
bjarni@4800: 
bjarni@4800: static int CDECL AircraftEngineCostSorter(const void *a, const void *b)
bjarni@4800: {
bjarni@4800: 	const int va = AircraftVehInfo(*(const EngineID*)a)->base_cost;
bjarni@4800: 	const int vb = AircraftVehInfo(*(const EngineID*)b)->base_cost;
bjarni@4800: 	int r = va - vb;
bjarni@4800: 
bjarni@4800: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@4800: static int CDECL AircraftEngineSpeedSorter(const void *a, const void *b)
bjarni@4800: {
bjarni@4800: 	const int va = AircraftVehInfo(*(const EngineID*)a)->max_speed;
bjarni@4800: 	const int vb = AircraftVehInfo(*(const EngineID*)b)->max_speed;
bjarni@4800: 	const int r = va - vb;
bjarni@4800: 
bjarni@4800: 	if (r == 0) {
bjarni@4800: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@4800: 		return EngineNumberSorter(a, b);
bjarni@4800: 	}
bjarni@4800: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@4800: static int CDECL AircraftEngineRunningCostSorter(const void *a, const void *b)
bjarni@4800: {
bjarni@4800: 	const int va = AircraftVehInfo(*(const EngineID*)a)->running_cost;
bjarni@4800: 	const int vb = AircraftVehInfo(*(const EngineID*)b)->running_cost;
bjarni@4800: 	const int r = va - vb;
bjarni@4800: 
bjarni@4800: 	if (r == 0) {
bjarni@4800: 		/* Use EngineID to sort instead since we want consistent sorting */
bjarni@4800: 		return EngineNumberSorter(a, b);
bjarni@4800: 	}
bjarni@4800: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@4800: static int CDECL AircraftEngineCargoSorter(const void *a, const void *b)
bjarni@4800: {
bjarni@7283: 	int va = AircraftVehInfo(*(const EngineID*)a)->passenger_capacity;
bjarni@7283: 	int vb = AircraftVehInfo(*(const EngineID*)b)->passenger_capacity;
bjarni@7283: 	int r = va - vb;
bjarni@4800: 
bjarni@4800: 	if (r == 0) {
bjarni@7283: 		/* The planes has the same passenger capacity. Check mail capacity instead */
bjarni@7283: 		va = AircraftVehInfo(*(const EngineID*)a)->mail_capacity;
bjarni@7283: 		vb = AircraftVehInfo(*(const EngineID*)b)->mail_capacity;
bjarni@7283: 		r = va - vb;
bjarni@7283: 
bjarni@7283: 		if (r == 0) {
bjarni@7283: 			/* Use EngineID to sort instead since we want consistent sorting */
bjarni@7283: 			return EngineNumberSorter(a, b);
bjarni@7283: 		}
bjarni@4800: 	}
bjarni@4800: 	return _internal_sort_order ? -r : r;
bjarni@4800: }
bjarni@4800: 
bjarni@7282: static EngList_SortTypeFunction * const _sorter[][10] = {{
bjarni@6041: 	/* Trains */
bjarni@6349: 	&TrainEngineNumberSorter,
bjarni@6030: 	&TrainEngineCostSorter,
bjarni@6030: 	&TrainEngineSpeedSorter,
bjarni@6030: 	&TrainEnginePowerSorter,
bjarni@6030: 	&EngineIntroDateSorter,
bjarni@6030: 	&EngineNameSorter,
bjarni@6030: 	&TrainEngineRunningCostSorter,
bjarni@6030: 	&TrainEnginePowerVsRunningCostSorter,
bjarni@6030: 	&EngineReliabilitySorter,
bjarni@7282: 	&TrainEngineCapacitySorter,
rubidium@6987: }, {
bjarni@6041: 	/* Road vehicles */
bjarni@6036: 	&EngineNumberSorter,
bjarni@8644: 	&RoadVehEngineCostSorter,
bjarni@8644: 	&RoadVehEngineSpeedSorter,
bjarni@6036: 	&EngineIntroDateSorter,
bjarni@6036: 	&EngineNameSorter,
bjarni@8644: 	&RoadVehEngineRunningCostSorter,
bjarni@6036: 	&EngineReliabilitySorter,
bjarni@7282: 	&RoadVehEngineCapacitySorter,
rubidium@6987: }, {
bjarni@6041: 	/* Ships */
bjarni@6036: 	&EngineNumberSorter,
bjarni@8644: 	&ShipEngineCostSorter,
bjarni@8644: 	&ShipEngineSpeedSorter,
bjarni@6036: 	&EngineIntroDateSorter,
bjarni@6036: 	&EngineNameSorter,
bjarni@8644: 	&ShipEngineRunningCostSorter,
bjarni@6036: 	&EngineReliabilitySorter,
bjarni@7282: 	&ShipEngineCapacitySorter,
rubidium@6987: }, {
bjarni@6041: 	/* Aircraft */
bjarni@6036: 	&EngineNumberSorter,
bjarni@6036: 	&AircraftEngineCostSorter,
bjarni@6036: 	&AircraftEngineSpeedSorter,
bjarni@6036: 	&EngineIntroDateSorter,
bjarni@6036: 	&EngineNameSorter,
bjarni@6036: 	&AircraftEngineRunningCostSorter,
bjarni@6036: 	&EngineReliabilitySorter,
bjarni@6036: 	&AircraftEngineCargoSorter,
bjarni@6036: }};
bjarni@6030: 
bjarni@7282: static const StringID _sort_listing[][11] = {{
bjarni@6041: 	/* Trains */
bjarni@6030: 	STR_ENGINE_SORT_ENGINE_ID,
bjarni@6030: 	STR_ENGINE_SORT_COST,
bjarni@6030: 	STR_SORT_BY_MAX_SPEED,
bjarni@6030: 	STR_ENGINE_SORT_POWER,
bjarni@6030: 	STR_ENGINE_SORT_INTRO_DATE,
bjarni@6030: 	STR_SORT_BY_DROPDOWN_NAME,
bjarni@6030: 	STR_ENGINE_SORT_RUNNING_COST,
bjarni@6030: 	STR_ENGINE_SORT_POWER_VS_RUNNING_COST,
bjarni@6030: 	STR_SORT_BY_RELIABILITY,
bjarni@7282: 	STR_ENGINE_SORT_CARGO_CAPACITY,
bjarni@6030: 	INVALID_STRING_ID
rubidium@6987: }, {
bjarni@6041: 	/* Road vehicles */
bjarni@6034: 	STR_ENGINE_SORT_ENGINE_ID,
bjarni@8644: 	STR_ENGINE_SORT_COST,
bjarni@8644: 	STR_SORT_BY_MAX_SPEED,
bjarni@6034: 	STR_ENGINE_SORT_INTRO_DATE,
bjarni@6034: 	STR_SORT_BY_DROPDOWN_NAME,
bjarni@8644: 	STR_ENGINE_SORT_RUNNING_COST,
bjarni@6034: 	STR_SORT_BY_RELIABILITY,
bjarni@7282: 	STR_ENGINE_SORT_CARGO_CAPACITY,
bjarni@6034: 	INVALID_STRING_ID
rubidium@6987: }, {
bjarni@6041: 	/* Ships */
bjarni@6036: 	STR_ENGINE_SORT_ENGINE_ID,
bjarni@8644: 	STR_ENGINE_SORT_COST,
bjarni@8644: 	STR_SORT_BY_MAX_SPEED,
bjarni@6036: 	STR_ENGINE_SORT_INTRO_DATE,
bjarni@6036: 	STR_SORT_BY_DROPDOWN_NAME,
bjarni@8644: 	STR_ENGINE_SORT_RUNNING_COST,
bjarni@6036: 	STR_SORT_BY_RELIABILITY,
bjarni@7282: 	STR_ENGINE_SORT_CARGO_CAPACITY,
bjarni@6036: 	INVALID_STRING_ID
rubidium@6987: }, {
bjarni@6041: 	/* Aircraft */
bjarni@4800: 	STR_ENGINE_SORT_ENGINE_ID,
bjarni@4800: 	STR_ENGINE_SORT_COST,
bjarni@4800: 	STR_SORT_BY_MAX_SPEED,
bjarni@4800: 	STR_ENGINE_SORT_INTRO_DATE,
bjarni@4800: 	STR_SORT_BY_DROPDOWN_NAME,
bjarni@4800: 	STR_ENGINE_SORT_RUNNING_COST,
bjarni@4800: 	STR_SORT_BY_RELIABILITY,
bjarni@4800: 	STR_ENGINE_SORT_CARGO_CAPACITY,
bjarni@4800: 	INVALID_STRING_ID
bjarni@6036: }};
bjarni@4800: 
peter1138@9055: static int DrawCargoCapacityInfo(int x, int y, EngineID engine, VehicleType type, bool refittable)
peter1138@9055: {
peter1138@9055: 	uint16 *cap = GetCapacityOfArticulatedParts(engine, type);
peter1138@9055: 
peter1138@9055: 	for (uint c = 0; c < NUM_CARGO; c++) {
peter1138@9055: 		if (cap[c] == 0) continue;
peter1138@9055: 
peter1138@9055: 		SetDParam(0, c);
peter1138@9055: 		SetDParam(1, cap[c]);
peter1138@9055: 		SetDParam(2, refittable ? STR_9842_REFITTABLE : STR_EMPTY);
peter1138@9055: 		DrawString(x, y, STR_PURCHASE_INFO_CAPACITY, TC_FROMSTRING);
peter1138@9055: 		y += 10;
peter1138@9055: 
peter1138@9055: 		/* Only show as refittable once */
peter1138@9055: 		refittable = false;
peter1138@9055: 	}
peter1138@9055: 
peter1138@9055: 	return y;
peter1138@9055: }
peter1138@9055: 
bjarni@6030: /* Draw rail wagon specific details */
bjarni@6068: static int DrawRailWagonPurchaseInfo(int x, int y, EngineID engine_number, const RailVehicleInfo *rvi)
bjarni@4800: {
bjarni@6030: 	/* Purchase cost */
rubidium@7498: 	SetDParam(0, (GetEngineProperty(engine_number, 0x17, rvi->base_cost) * _price.build_railwagon) >> 8);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_COST, TC_FROMSTRING);
bjarni@6030: 	y += 10;
bjarni@6030: 
bjarni@6030: 	/* Wagon weight - (including cargo) */
peter1138@7091: 	uint weight = GetEngineProperty(engine_number, 0x16, rvi->weight);
peter1138@7091: 	SetDParam(0, weight);
peter1138@7104: 	SetDParam(1, (GetCargo(rvi->cargo_type)->weight * GetEngineProperty(engine_number, 0x14, rvi->capacity) >> 4) + weight);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_WEIGHT_CWEIGHT, TC_FROMSTRING);
bjarni@6030: 	y += 10;
bjarni@6030: 
bjarni@6030: 	/* Wagon speed limit, displayed if above zero */
peter1138@7091: 	if (_patches.wagon_speed_limits) {
peter1138@7091: 		uint max_speed = GetEngineProperty(engine_number, 0x09, rvi->max_speed);
peter1138@7091: 		if (max_speed > 0) {
peter1138@7091: 			SetDParam(0, max_speed * 10 / 16);
belugas@8320: 			DrawString(x, y, STR_PURCHASE_INFO_SPEED, TC_FROMSTRING);
peter1138@7091: 			y += 10;
peter1138@7091: 		}
bjarni@6030: 	}
peter1138@9122: 
peter1138@9122: 	/* Running cost */
peter1138@9122: 	if (rvi->running_cost_class != 0xFF) {
peter1138@9122: 		SetDParam(0, GetEngineProperty(engine_number, 0x0D, rvi->running_cost) * GetPriceByIndex(rvi->running_cost_class) >> 8);
peter1138@9122: 		DrawString(x, y, STR_PURCHASE_INFO_RUNNINGCOST, TC_FROMSTRING);
peter1138@9122: 		y += 10;
peter1138@9122: 	}
peter1138@9122: 
bjarni@6030: 	return y;
bjarni@6030: }
bjarni@6030: 
bjarni@6030: /* Draw locomotive specific details */
tron@6074: static int DrawRailEnginePurchaseInfo(int x, int y, EngineID engine_number, const RailVehicleInfo *rvi)
bjarni@6030: {
belugas@6119: 	int multihead = (rvi->railveh_type == RAILVEH_MULTIHEAD ? 1 : 0);
peter1138@7091: 	uint weight = GetEngineProperty(engine_number, 0x16, rvi->weight);
bjarni@6030: 
bjarni@6030: 	/* Purchase Cost - Engine weight */
rubidium@7498: 	SetDParam(0, GetEngineProperty(engine_number, 0x17, rvi->base_cost) * (_price.build_railvehicle >> 3) >> 5);
peter1138@7091: 	SetDParam(1, weight << multihead);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_COST_WEIGHT, TC_FROMSTRING);
bjarni@6030: 	y += 10;
bjarni@6030: 
bjarni@6030: 	/* Max speed - Engine power */
peter1138@7091: 	SetDParam(0, GetEngineProperty(engine_number, 0x09, rvi->max_speed) * 10 / 16);
peter1138@7091: 	SetDParam(1, GetEngineProperty(engine_number, 0x0B, rvi->power) << multihead);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_SPEED_POWER, TC_FROMSTRING);
bjarni@6030: 	y += 10;
bjarni@6030: 
bjarni@6030: 	/* Max tractive effort - not applicable if old acceleration or maglev */
tron@6074: 	if (_patches.realistic_acceleration && rvi->railtype != RAILTYPE_MAGLEV) {
peter1138@7091: 		SetDParam(0, ((weight << multihead) * 10 * GetEngineProperty(engine_number, 0x1F, rvi->tractive_effort)) / 256);
belugas@8320: 		DrawString(x, y, STR_PURCHASE_INFO_MAX_TE, TC_FROMSTRING);
bjarni@6030: 		y += 10;
bjarni@6030: 	}
bjarni@6030: 
bjarni@6030: 	/* Running cost */
peter1138@9122: 	if (rvi->running_cost_class != 0xFF) {
peter1138@9122: 		SetDParam(0, (GetEngineProperty(engine_number, 0x0D, rvi->running_cost) * GetPriceByIndex(rvi->running_cost_class) >> 8) << multihead);
peter1138@9122: 		DrawString(x, y, STR_PURCHASE_INFO_RUNNINGCOST, TC_FROMSTRING);
peter1138@9122: 		y += 10;
peter1138@9122: 	}
bjarni@6030: 
bjarni@6030: 	/* Powered wagons power - Powered wagons extra weight */
bjarni@6030: 	if (rvi->pow_wag_power != 0) {
bjarni@6030: 		SetDParam(0, rvi->pow_wag_power);
bjarni@6030: 		SetDParam(1, rvi->pow_wag_weight);
belugas@8320: 		DrawString(x, y, STR_PURCHASE_INFO_PWAGPOWER_PWAGWEIGHT, TC_FROMSTRING);
bjarni@6030: 		y += 10;
bjarni@6030: 	};
bjarni@6030: 
bjarni@6030: 	return y;
bjarni@6030: }
bjarni@6030: 
bjarni@6037: /* Draw road vehicle specific details */
bjarni@6068: static int DrawRoadVehPurchaseInfo(int x, int y, EngineID engine_number, const RoadVehicleInfo *rvi)
bjarni@6037: {
peter1138@7769: 	bool refittable = (EngInfo(engine_number)->refit_mask != 0);
bjarni@6037: 
bjarni@6037: 	/* Purchase cost - Max speed */
rubidium@7498: 	SetDParam(0, GetEngineProperty(engine_number, 0x11, rvi->base_cost) * (_price.roadveh_base >> 3) >> 5);
peter1138@6125: 	SetDParam(1, rvi->max_speed * 10 / 32);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_COST_SPEED, TC_FROMSTRING);
bjarni@6037: 	y += 10;
bjarni@6037: 
bjarni@6037: 	/* Running cost */
peter1138@9122: 	SetDParam(0, rvi->running_cost * GetPriceByIndex(rvi->running_cost_class) >> 8);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_RUNNINGCOST, TC_FROMSTRING);
bjarni@6037: 	y += 10;
bjarni@6037: 
bjarni@6037: 	/* Cargo type + capacity */
peter1138@9055: 	return DrawCargoCapacityInfo(x, y, engine_number, VEH_ROAD, refittable);
bjarni@6037: }
bjarni@6037: 
bjarni@6034: /* Draw ship specific details */
bjarni@6068: static int DrawShipPurchaseInfo(int x, int y, EngineID engine_number, const ShipVehicleInfo *svi)
bjarni@6034: {
bjarni@6034: 	/* Purchase cost - Max speed */
rubidium@7498: 	SetDParam(0, GetEngineProperty(engine_number, 0x0A, svi->base_cost) * (_price.ship_base >> 3) >> 5);
peter1138@7091: 	SetDParam(1, GetEngineProperty(engine_number, 0x0B, svi->max_speed) * 10 / 32);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_COST_SPEED, TC_FROMSTRING);
bjarni@6034: 	y += 10;
bjarni@6034: 
bjarni@6034: 	/* Cargo type + capacity */
bjarni@6034: 	SetDParam(0, svi->cargo_type);
peter1138@7104: 	SetDParam(1, GetEngineProperty(engine_number, 0x0D, svi->capacity));
bjarni@6034: 	SetDParam(2, svi->refittable ? STR_9842_REFITTABLE : STR_EMPTY);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_CAPACITY, TC_FROMSTRING);
bjarni@6034: 	y += 10;
bjarni@6034: 
bjarni@6034: 	/* Running cost */
rubidium@7498: 	SetDParam(0, GetEngineProperty(engine_number, 0x0F, svi->running_cost) * _price.ship_running >> 8);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_RUNNINGCOST, TC_FROMSTRING);
bjarni@6034: 	y += 10;
bjarni@6034: 
bjarni@6034: 	return y;
bjarni@6034: }
bjarni@6034: 
bjarni@6030: /* Draw aircraft specific details */
bjarni@6068: static int DrawAircraftPurchaseInfo(int x, int y, EngineID engine_number, const AircraftVehicleInfo *avi)
bjarni@6030: {
bjarni@4800: 	CargoID cargo;
bjarni@4800: 
bjarni@4800: 	/* Purchase cost - Max speed */
rubidium@7498: 	SetDParam(0, GetEngineProperty(engine_number, 0x0B, avi->base_cost) * (_price.aircraft_base >> 3) >> 5);
celestar@6519: 	SetDParam(1, avi->max_speed * 10 / 16);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_COST_SPEED, TC_FROMSTRING);
bjarni@4800: 	y += 10;
bjarni@4800: 
bjarni@4800: 	/* Cargo capacity */
bjarni@4800: 	cargo = FindFirstRefittableCargo(engine_number);
bjarni@4800: 	if (cargo == CT_INVALID || cargo == CT_PASSENGERS) {
bjarni@4800: 		SetDParam(0, avi->passenger_capacity);
bjarni@4800: 		SetDParam(1, avi->mail_capacity);
belugas@8320: 		DrawString(x, y, STR_PURCHASE_INFO_AIRCRAFT_CAPACITY, TC_FROMSTRING);
bjarni@4800: 	} else {
bjarni@4800: 		/* Note, if the default capacity is selected by the refit capacity
bjarni@4800: 		* callback, then the capacity shown is likely to be incorrect. */
peter1138@4896: 		SetDParam(0, cargo);
tron@6413: 		SetDParam(1, AircraftDefaultCargoCapacity(cargo, avi));
bjarni@4800: 		SetDParam(2, STR_9842_REFITTABLE);
belugas@8320: 		DrawString(x, y, STR_PURCHASE_INFO_CAPACITY, TC_FROMSTRING);
bjarni@4800: 	}
bjarni@4800: 	y += 10;
bjarni@4800: 
bjarni@4800: 	/* Running cost */
rubidium@7498: 	SetDParam(0, GetEngineProperty(engine_number, 0x0E, avi->running_cost) * _price.aircraft_running >> 8);
belugas@8320: 	DrawString(x, y, STR_PURCHASE_INFO_RUNNINGCOST, TC_FROMSTRING);
bjarni@4800: 	y += 10;
bjarni@4800: 
bjarni@6030: 	return y;
bjarni@6030: }
bjarni@4800: 
bjarni@6030: /**
bjarni@6030:  * Draw the purchase info details of a vehicle at a given location.
bjarni@6030:  * @param x,y location where to draw the info
bjarni@6030:  * @param w how wide are the text allowed to be (size of widget/window to Draw in)
bjarni@6030:  * @param engine_number the engine of which to draw the info of
maedhros@6711:  * @return y after drawing all the text
bjarni@6030:  */
maedhros@6711: int DrawVehiclePurchaseInfo(int x, int y, uint w, EngineID engine_number)
bjarni@6030: {
bjarni@6030: 	const Engine *e = GetEngine(engine_number);
bjarni@6030: 	YearMonthDay ymd;
bjarni@6030: 	ConvertDateToYMD(e->intro_date, &ymd);
bjarni@6041: 	bool refitable = false;
bjarni@6030: 
bjarni@6030: 	switch (e->type) {
rubidium@7134: 		default: NOT_REACHED();
rubidium@6585: 		case VEH_TRAIN: {
bjarni@6030: 			const RailVehicleInfo *rvi = RailVehInfo(engine_number);
peter1138@7104: 			uint capacity = GetEngineProperty(engine_number, 0x14, rvi->capacity);
bjarni@6030: 
peter1138@9079: 			refitable = (EngInfo(engine_number)->refit_mask != 0) && (capacity > 0);
bjarni@6070: 
belugas@6119: 			if (rvi->railveh_type == RAILVEH_WAGON) {
bjarni@6068: 				y = DrawRailWagonPurchaseInfo(x, y, engine_number, rvi);
bjarni@6030: 			} else {
tron@6074: 				y = DrawRailEnginePurchaseInfo(x, y, engine_number, rvi);
bjarni@6030: 			}
bjarni@6030: 
bjarni@6030: 			/* Cargo type + capacity, or N/A */
peter1138@9055: 			int new_y = DrawCargoCapacityInfo(x, y, engine_number, VEH_TRAIN, refitable);
peter1138@9055: 
peter1138@9055: 			if (new_y == y) {
bjarni@6030: 				SetDParam(0, CT_INVALID);
bjarni@6030: 				SetDParam(2, STR_EMPTY);
peter1138@9055: 				DrawString(x, y, STR_PURCHASE_INFO_CAPACITY, TC_FROMSTRING);
peter1138@9055: 				y += 10;
bjarni@6030: 			} else {
peter1138@9055: 				y = new_y;
bjarni@6030: 			}
peter1138@9055: 			break;
bjarni@6030: 		}
rubidium@6585: 		case VEH_ROAD:
bjarni@6068: 			y = DrawRoadVehPurchaseInfo(x, y, engine_number, RoadVehInfo(engine_number));
bjarni@6041: 			refitable = true;
bjarni@6037: 			break;
rubidium@6585: 		case VEH_SHIP: {
bjarni@6041: 			const ShipVehicleInfo *svi = ShipVehInfo(engine_number);
bjarni@6068: 			y = DrawShipPurchaseInfo(x, y, engine_number, svi);
bjarni@6041: 			refitable = svi->refittable;
bjarni@6041: 		} break;
rubidium@6585: 		case VEH_AIRCRAFT:
bjarni@6068: 			y = DrawAircraftPurchaseInfo(x, y, engine_number, AircraftVehInfo(engine_number));
bjarni@6041: 			refitable = true;
bjarni@6030: 			break;
bjarni@6030: 	}
bjarni@6030: 
bjarni@6030: 	/* Draw details, that applies to all types except rail wagons */
rubidium@6585: 	if (e->type != VEH_TRAIN || RailVehInfo(engine_number)->railveh_type != RAILVEH_WAGON) {
bjarni@6030: 		/* Design date - Life length */
bjarni@6030: 		SetDParam(0, ymd.year);
bjarni@6030: 		SetDParam(1, e->lifelength);
belugas@8320: 		DrawString(x, y, STR_PURCHASE_INFO_DESIGNED_LIFE, TC_FROMSTRING);
bjarni@6030: 		y += 10;
bjarni@6030: 
bjarni@6030: 		/* Reliability */
bjarni@6030: 		SetDParam(0, e->reliability * 100 >> 16);
belugas@8320: 		DrawString(x, y, STR_PURCHASE_INFO_RELIABILITY, TC_FROMSTRING);
bjarni@6030: 		y += 10;
bjarni@6030: 	}
bjarni@4800: 
bjarni@4800: 	/* Additional text from NewGRF */
peter1138@4930: 	y += ShowAdditionalText(x, y, w, engine_number);
bjarni@6041: 	if (refitable) y += ShowRefitOptionsList(x, y, w, engine_number);
maedhros@6711: 
maedhros@6711: 	return y;
bjarni@4800: }
bjarni@4800: 
bjarni@6030: /* Figure out what train EngineIDs to put in the list */
bjarni@6030: static void GenerateBuildTrainList(Window *w)
bjarni@6030: {
peter1138@8714: 	EngineID sel_id = INVALID_ENGINE;
bjarni@6030: 	int num_engines = 0;
bjarni@6030: 	int num_wagons  = 0;
bjarni@6030: 	buildvehicle_d *bv = &WP(w, buildvehicle_d);
bjarni@6030: 
truelight@7747: 	bv->filter.railtype = (w->window_number <= VEH_END) ? RAILTYPE_END : GetRailType(w->window_number);
bjarni@6030: 
bjarni@6030: 	EngList_RemoveAll(&bv->eng_list);
bjarni@6030: 
bjarni@6030: 	/* Make list of all available train engines and wagons.
belugas@6449: 	 * Also check to see if the previously selected engine is still available,
belugas@6449: 	 * and if not, reset selection to INVALID_ENGINE. This could be the case
belugas@6449: 	 * when engines become obsolete and are removed */
peter1138@8885: 	EngineID eid;
peter1138@8885: 	FOR_ALL_ENGINEIDS_OF_TYPE(eid, VEH_TRAIN) {
bjarni@6030: 		const RailVehicleInfo *rvi = RailVehInfo(eid);
bjarni@6030: 
tron@6074: 		if (bv->filter.railtype != RAILTYPE_END && !HasPowerOnRail(rvi->railtype, bv->filter.railtype)) continue;
rubidium@6585: 		if (!IsEngineBuildable(eid, VEH_TRAIN, _local_player)) continue;
bjarni@6030: 
bjarni@6030: 		EngList_Add(&bv->eng_list, eid);
belugas@6119: 		if (rvi->railveh_type != RAILVEH_WAGON) {
bjarni@6030: 			num_engines++;
bjarni@6030: 		} else {
bjarni@6030: 			num_wagons++;
bjarni@6030: 		}
bjarni@6030: 
bjarni@6030: 		if (eid == bv->sel_engine) sel_id = eid;
bjarni@6030: 	}
bjarni@6030: 
bjarni@6030: 	bv->sel_engine = sel_id;
bjarni@6030: 
belugas@6449: 	/* make engines first, and then wagons, sorted by ListPositionOfEngine() */
bjarni@6030: 	_internal_sort_order = false;
bjarni@6030: 	EngList_Sort(&bv->eng_list, TrainEnginesThenWagonsSorter);
bjarni@6030: 
belugas@6449: 	/* and then sort engines */
bjarni@6030: 	_internal_sort_order = bv->descending_sort_order;
bjarni@6036: 	EngList_SortPartial(&bv->eng_list, _sorter[0][bv->sort_criteria], 0, num_engines);
bjarni@6030: 
belugas@6449: 	/* and finally sort wagons */
bjarni@6036: 	EngList_SortPartial(&bv->eng_list, _sorter[0][bv->sort_criteria], num_engines, num_wagons);
bjarni@6030: }
bjarni@6030: 
bjarni@6037: /* Figure out what road vehicle EngineIDs to put in the list */
bjarni@6037: static void GenerateBuildRoadVehList(Window *w)
bjarni@6037: {
peter1138@8714: 	EngineID sel_id = INVALID_ENGINE;
bjarni@6037: 	buildvehicle_d *bv = &WP(w, buildvehicle_d);
bjarni@6037: 
bjarni@6037: 	EngList_RemoveAll(&bv->eng_list);
bjarni@6037: 
peter1138@8885: 	EngineID eid;
peter1138@8885: 	FOR_ALL_ENGINEIDS_OF_TYPE(eid, VEH_ROAD) {
rubidium@6585: 		if (!IsEngineBuildable(eid, VEH_ROAD, _local_player)) continue;
skidd13@8424: 		if (!HasBit(bv->filter.roadtypes, HasBit(EngInfo(eid)->misc_flags, EF_ROAD_TRAM) ? ROADTYPE_TRAM : ROADTYPE_ROAD)) continue;
bjarni@6037: 		EngList_Add(&bv->eng_list, eid);
bjarni@6037: 
bjarni@6037: 		if (eid == bv->sel_engine) sel_id = eid;
bjarni@6037: 	}
bjarni@6037: 	bv->sel_engine = sel_id;
bjarni@6037: }
bjarni@6037: 
bjarni@6037: /* Figure out what ship EngineIDs to put in the list */
bjarni@6034: static void GenerateBuildShipList(Window *w)
bjarni@6034: {
peter1138@8714: 	EngineID sel_id = INVALID_ENGINE;
bjarni@6034: 	buildvehicle_d *bv = &WP(w, buildvehicle_d);
bjarni@6034: 
bjarni@6034: 	EngList_RemoveAll(&bv->eng_list);
bjarni@6034: 
peter1138@8885: 	EngineID eid;
peter1138@8885: 	FOR_ALL_ENGINEIDS_OF_TYPE(eid, VEH_SHIP) {
rubidium@6585: 		if (!IsEngineBuildable(eid, VEH_SHIP, _local_player)) continue;
bjarni@6034: 		EngList_Add(&bv->eng_list, eid);
bjarni@6034: 
bjarni@6034: 		if (eid == bv->sel_engine) sel_id = eid;
bjarni@6034: 	}
bjarni@6034: 	bv->sel_engine = sel_id;
bjarni@6034: }
bjarni@6034: 
bjarni@6034: /* Figure out what aircraft EngineIDs to put in the list */
KUDr@5187: static void GenerateBuildAircraftList(Window *w)
bjarni@4800: {
peter1138@8714: 	EngineID sel_id = INVALID_ENGINE;
KUDr@5187: 	buildvehicle_d *bv = &WP(w, buildvehicle_d);
bjarni@4800: 
KUDr@5187: 	EngList_RemoveAll(&bv->eng_list);
bjarni@4800: 
Darkvater@5200: 	/* Make list of all available planes.
Darkvater@5200: 	 * Also check to see if the previously selected plane is still available,
Darkvater@5200: 	 * and if not, reset selection to INVALID_ENGINE. This could be the case
Darkvater@5200: 	 * when planes become obsolete and are removed */
peter1138@8885: 	EngineID eid;
peter1138@8885: 	FOR_ALL_ENGINEIDS_OF_TYPE(eid, VEH_AIRCRAFT) {
rubidium@6585: 		if (!IsEngineBuildable(eid, VEH_AIRCRAFT, _local_player)) continue;
truelight@7747: 		/* First VEH_END window_numbers are fake to allow a window open for all different types at once */
glx@8179: 		if (w->window_number > VEH_END && !CanAircraftUseStation(eid, w->window_number)) continue;
bjarni@6370: 
bjarni@6563: 		EngList_Add(&bv->eng_list, eid);
bjarni@6563: 		if (eid == bv->sel_engine) sel_id = eid;
bjarni@4800: 	}
Darkvater@5200: 
Darkvater@5200: 	bv->sel_engine = sel_id;
bjarni@4800: }
bjarni@4800: 
bjarni@6030: /* Generate the list of vehicles */
bjarni@4800: static void GenerateBuildList(Window *w)
bjarni@4800: {
KUDr@5187: 	buildvehicle_d *bv = &WP(w, buildvehicle_d);
KUDr@5187: 
KUDr@5187: 	switch (bv->vehicle_type) {
rubidium@7134: 		default: NOT_REACHED();
rubidium@6585: 		case VEH_TRAIN:
bjarni@6030: 			GenerateBuildTrainList(w);
bjarni@6036: 			return; // trains should not reach the last sorting
rubidium@6585: 		case VEH_ROAD:
bjarni@6037: 			GenerateBuildRoadVehList(w);
bjarni@6037: 			break;
rubidium@6585: 		case VEH_SHIP:
bjarni@6034: 			GenerateBuildShipList(w);
bjarni@6034: 			break;
rubidium@6585: 		case VEH_AIRCRAFT:
KUDr@5187: 			GenerateBuildAircraftList(w);
bjarni@4800: 			break;
bjarni@4800: 	}
bjarni@6036: 	_internal_sort_order = bv->descending_sort_order;
bjarni@6206: 	EngList_Sort(&bv->eng_list, _sorter[bv->vehicle_type][bv->sort_criteria]);
bjarni@4800: }
bjarni@4800: 
peter1138@8975: static void DrawVehicleEngine(VehicleType type, int x, int y, EngineID engine, SpriteID pal)
bjarni@6051: {
bjarni@6051: 	switch (type) {
rubidium@6585: 		case VEH_TRAIN:    DrawTrainEngine(   x, y, engine, pal); break;
rubidium@6585: 		case VEH_ROAD:     DrawRoadVehEngine( x, y, engine, pal); break;
rubidium@6585: 		case VEH_SHIP:     DrawShipEngine(    x, y, engine, pal); break;
rubidium@6585: 		case VEH_AIRCRAFT: DrawAircraftEngine(x, y, engine, pal); break;
bjarni@6051: 		default: NOT_REACHED();
bjarni@6051: 	}
bjarni@6051: }
bjarni@6051: 
bjarni@6051: /** Engine drawing loop
bjarni@6051:  * @param type Type of vehicle (VEH_*)
bjarni@6051:  * @param x,y Where should the list start
bjarni@6051:  * @param eng_list What engines to draw
bjarni@6051:  * @param min where to start in the list
bjarni@6053:  * @param max where in the list to end
bjarni@6051:  * @param selected_id what engine to highlight as selected, if any
bjarni@6195:  * @param show_count Display the number of vehicles (used by autoreplace)
bjarni@6051:  */
rubidium@7139: void DrawEngineList(VehicleType type, int x, int y, const EngineList eng_list, uint16 min, uint16 max, EngineID selected_id, bool show_count, GroupID selected_group)
bjarni@6051: {
bjarni@6051: 	byte step_size = GetVehicleListHeight(type);
bjarni@6051: 	byte x_offset = 0;
bjarni@6051: 	byte y_offset = 0;
bjarni@6051: 
bjarni@6053: 	assert(max <= EngList_Count(&eng_list));
bjarni@6053: 
bjarni@6051: 	switch (type) {
rubidium@6585: 		case VEH_TRAIN:
bjarni@6051: 			x++; // train and road vehicles use the same offset, except trains are one more pixel to the right
bjarni@6051: 			/* Fallthough */
rubidium@6585: 		case VEH_ROAD:
bjarni@6051: 			x += 26;
bjarni@6051: 			x_offset = 30;
bjarni@6051: 			y += 2;
bjarni@6051: 			y_offset = 4;
bjarni@6051: 			break;
rubidium@6585: 		case VEH_SHIP:
bjarni@6051: 			x += 35;
bjarni@6051: 			x_offset = 40;
bjarni@6051: 			y += 7;
bjarni@6051: 			y_offset = 3;
bjarni@6051: 			break;
rubidium@6585: 		case VEH_AIRCRAFT:
bjarni@6051: 			x += 27;
bjarni@6051: 			x_offset = 33;
bjarni@6051: 			y += 7;
bjarni@6051: 			y_offset = 3;
bjarni@6051: 			break;
bjarni@6051: 		default: NOT_REACHED();
bjarni@6051: 	}
bjarni@6051: 
bjarni@6051: 	for (; min < max; min++, y += step_size) {
bjarni@6051: 		const EngineID engine = eng_list[min];
rubidium@7977: 		/* Note: num_engines is only used in the autoreplace GUI, so it is correct to use _local_player here. */
rubidium@7977: 		const uint num_engines = GetGroupNumEngines(_local_player, selected_group, engine);
bjarni@6051: 
peter1138@7555: 		SetDParam(0, engine);
belugas@8320: 		DrawString(x + x_offset, y, STR_ENGINE_NAME, engine == selected_id ? TC_WHITE : TC_BLACK);
rubidium@7139: 		DrawVehicleEngine(type, x, y + y_offset, engine, (show_count && num_engines == 0) ? PALETTE_CRASH : GetEnginePalette(engine, _local_player));
bjarni@6195: 		if (show_count) {
rubidium@7139: 			SetDParam(0, num_engines);
belugas@8320: 			DrawStringRightAligned(213, y + (GetVehicleListHeight(type) == 14 ? 3 : 8), STR_TINY_BLACK, TC_FROMSTRING);
bjarni@6195: 		}
bjarni@6051: 	}
bjarni@6051: }
bjarni@6051: 
bjarni@6030: static void DrawBuildVehicleWindow(Window *w)
bjarni@4800: {
Darkvater@5200: 	const buildvehicle_d *bv = &WP(w, buildvehicle_d);
bjarni@6051: 	uint max = min(w->vscroll.pos + w->vscroll.cap, EngList_Count(&bv->eng_list));
bjarni@4800: 
rubidium@8493: 	w->SetWidgetDisabledState(BUILD_VEHICLE_WIDGET_BUILD, w->window_number <= VEH_END);
bjarni@4800: 
Darkvater@5201: 	SetVScrollCount(w, EngList_Count(&bv->eng_list));
bjarni@6030: 	SetDParam(0, bv->filter.railtype + STR_881C_NEW_RAIL_VEHICLES); // This should only affect rail vehicles
peter1138@8834: 
peter1138@8834: 	/* Set text of sort by dropdown */
peter1138@8834: 	w->widget[BUILD_VEHICLE_WIDGET_SORT_DROPDOWN].data = _sort_listing[bv->vehicle_type][bv->sort_criteria];
peter1138@8834: 
bjarni@4800: 	DrawWindowWidgets(w);
bjarni@4800: 
peter1138@8848: 	DrawEngineList(bv->vehicle_type, w->widget[BUILD_VEHICLE_WIDGET_LIST].left + 2, w->widget[BUILD_VEHICLE_WIDGET_LIST].top + 1, bv->eng_list, w->vscroll.pos, max, bv->sel_engine, false, DEFAULT_GROUP);
bjarni@6037: 
bjarni@6051: 	if (bv->sel_engine != INVALID_ENGINE) {
bjarni@6051: 		const Widget *wi = &w->widget[BUILD_VEHICLE_WIDGET_PANEL];
maedhros@6711: 		int text_end = DrawVehiclePurchaseInfo(2, wi->top + 1, wi->right - wi->left - 2, bv->sel_engine);
maedhros@6711: 
peter1138@8914: 		if (text_end > wi->bottom) {
peter1138@8914: 			SetWindowDirty(w);
peter1138@8914: 			ResizeWindowForWidget(w, BUILD_VEHICLE_WIDGET_PANEL, 0, text_end - wi->bottom);
peter1138@8914: 			SetWindowDirty(w);
peter1138@8914: 		}
bjarni@6051: 	}
bjarni@6034: 
peter1138@8845: 	DrawSortButtonState(w, BUILD_VEHICLE_WIDGET_SORT_ASSENDING_DESCENDING, bv->descending_sort_order ? SBS_DOWN : SBS_UP);
bjarni@4800: }
bjarni@4800: 
bjarni@6030: static void BuildVehicleClickEvent(Window *w, WindowEvent *e)
bjarni@4800: {
KUDr@5187: 	buildvehicle_d *bv = &WP(w, buildvehicle_d);
bjarni@4800: 
bjarni@4800: 	switch (e->we.click.widget) {
bjarni@4800: 		case BUILD_VEHICLE_WIDGET_SORT_ASSENDING_DESCENDING:
Darkvater@5199: 			bv->descending_sort_order ^= true;
bjarni@6206: 			_last_sort_order[bv->vehicle_type] = bv->descending_sort_order;
bjarni@6032: 			bv->regenerate_list = true;
bjarni@4800: 			SetWindowDirty(w);
bjarni@4800: 			break;
bjarni@4800: 
bjarni@4800: 		case BUILD_VEHICLE_WIDGET_LIST: {
peter1138@8848: 			uint i = (e->we.click.pt.y - w->widget[BUILD_VEHICLE_WIDGET_LIST].top) / GetVehicleListHeight(bv->vehicle_type) + w->vscroll.pos;
Darkvater@5201: 			uint num_items = EngList_Count(&bv->eng_list);
Darkvater@5201: 			bv->sel_engine = (i < num_items) ? bv->eng_list[i] : INVALID_ENGINE;
Darkvater@5201: 			SetWindowDirty(w);
KUDr@5187: 			break;
KUDr@5187: 		}
bjarni@4800: 
peter1138@8834: 		case BUILD_VEHICLE_WIDGET_SORT_DROPDOWN: // Select sorting criteria dropdown menu
bjarni@6206: 			ShowDropDownMenu(w, _sort_listing[bv->vehicle_type], bv->sort_criteria, BUILD_VEHICLE_WIDGET_SORT_DROPDOWN, 0, 0);
bjarni@6036: 			break;
bjarni@4800: 
bjarni@4800: 		case BUILD_VEHICLE_WIDGET_BUILD: {
KUDr@5187: 			EngineID sel_eng = bv->sel_engine;
peter1138@5192: 			if (sel_eng != INVALID_ENGINE) {
bjarni@6030: 				switch (bv->vehicle_type) {
rubidium@7134: 					default: NOT_REACHED();
rubidium@6585: 					case VEH_TRAIN:
belugas@6119: 						DoCommandP(w->window_number, sel_eng, 0, (RailVehInfo(sel_eng)->railveh_type == RAILVEH_WAGON) ? CcBuildWagon : CcBuildLoco,
bjarni@6030: 								   CMD_BUILD_RAIL_VEHICLE | CMD_MSG(STR_882B_CAN_T_BUILD_RAILROAD_VEHICLE));
bjarni@6030: 						break;
rubidium@6585: 					case VEH_ROAD:
bjarni@6037: 						DoCommandP(w->window_number, sel_eng, 0, CcBuildRoadVeh, CMD_BUILD_ROAD_VEH | CMD_MSG(STR_9009_CAN_T_BUILD_ROAD_VEHICLE));
bjarni@6037: 						break;
rubidium@6585: 					case VEH_SHIP:
bjarni@6034: 						DoCommandP(w->window_number, sel_eng, 0, CcBuildShip, CMD_BUILD_SHIP | CMD_MSG(STR_980D_CAN_T_BUILD_SHIP));
bjarni@6034: 						break;
rubidium@6585: 					case VEH_AIRCRAFT:
bjarni@6030: 						DoCommandP(w->window_number, sel_eng, 0, CcBuildAircraft, CMD_BUILD_AIRCRAFT | CMD_MSG(STR_A008_CAN_T_BUILD_AIRCRAFT));
bjarni@6030: 						break;
bjarni@6030: 				}
peter1138@5192: 			}
KUDr@5187: 			break;
KUDr@5187: 		}
bjarni@4800: 
bjarni@4800: 		case BUILD_VEHICLE_WIDGET_RENAME: {
KUDr@5187: 			EngineID sel_eng = bv->sel_engine;
bjarni@4800: 			if (sel_eng != INVALID_ENGINE) {
bjarni@6030: 				StringID str = STR_NULL;
bjarni@6030: 
KUDr@5187: 				bv->rename_engine = sel_eng;
bjarni@6030: 				switch (bv->vehicle_type) {
rubidium@7134: 					default: NOT_REACHED();
rubidium@6585: 					case VEH_TRAIN:    str = STR_886A_RENAME_TRAIN_VEHICLE_TYPE; break;
rubidium@6585: 					case VEH_ROAD:     str = STR_9036_RENAME_ROAD_VEHICLE_TYPE;  break;
rubidium@6585: 					case VEH_SHIP:     str = STR_9838_RENAME_SHIP_TYPE;          break;
rubidium@6585: 					case VEH_AIRCRAFT: str = STR_A039_RENAME_AIRCRAFT_TYPE;      break;
bjarni@6030: 				}
peter1138@7555: 				SetDParam(0, sel_eng);
peter1138@7555: 				ShowQueryString(STR_ENGINE_NAME, str, 31, 160, w, CS_ALPHANUMERAL);
bjarni@4800: 			}
KUDr@5187: 			break;
KUDr@5187: 		}
bjarni@4800: 	}
bjarni@4800: }
bjarni@4800: 
bjarni@6030: static void NewVehicleWndProc(Window *w, WindowEvent *e)
bjarni@4800: {
KUDr@5187: 	buildvehicle_d *bv = &WP(w, buildvehicle_d);
KUDr@5187: 
bjarni@4800: 	switch (e->event) {
rubidium@7864: 		case WE_CREATE: {
rubidium@7864: 			bv->vehicle_type = *(VehicleType*)e->we.create.data;
rubidium@7864: 			int vlh = GetVehicleListHeight(bv->vehicle_type);
rubidium@7864: 
rubidium@7864: 			ResizeWindow(w, 0, vlh - 14);
rubidium@7864: 			w->resize.step_height = vlh;
rubidium@7864: 			w->vscroll.cap = 1;
rubidium@7864: 			w->widget[BUILD_VEHICLE_WIDGET_LIST].data = 0x101;
rubidium@7864: 
rubidium@7864: 			w->resize.width  = w->width;
rubidium@7864: 			w->resize.height = w->height;
rubidium@7864: 		} break;
rubidium@7864: 
bjarni@4800: 		case WE_INVALIDATE_DATA:
bjarni@6032: 			bv->regenerate_list = true;
bjarni@6032: 			SetWindowDirty(w);
bjarni@4800: 			break;
bjarni@4800: 
bjarni@4800: 		case WE_DESTROY:
KUDr@5187: 			EngList_Destroy(&bv->eng_list);
bjarni@4800: 			break;
bjarni@4800: 
bjarni@4800: 		case WE_PAINT:
bjarni@6032: 			if (bv->regenerate_list) {
bjarni@6032: 				bv->regenerate_list = false;
bjarni@6032: 				GenerateBuildList(w);
bjarni@6032: 			}
bjarni@6030: 			DrawBuildVehicleWindow(w);
bjarni@4800: 			break;
bjarni@4800: 
bjarni@4800: 		case WE_CLICK:
bjarni@6030: 			BuildVehicleClickEvent(w, e);
bjarni@4800: 			break;
bjarni@4800: 
truelight@7505: 		case WE_DOUBLE_CLICK:
truelight@7505: 			if (e->we.click.widget == BUILD_VEHICLE_WIDGET_LIST) {
truelight@7505: 				/* When double clicking, we want to buy a vehicle */
truelight@7505: 				e->we.click.widget = BUILD_VEHICLE_WIDGET_BUILD;
truelight@7505: 				BuildVehicleClickEvent(w, e);
truelight@7505: 			}
truelight@7505: 			break;
truelight@7505: 
bjarni@4800: 		case WE_ON_EDIT_TEXT: {
bjarni@4800: 			if (e->we.edittext.str[0] != '\0') {
bjarni@6030: 				StringID str = STR_NULL;
bjarni@4800: 				_cmd_text = e->we.edittext.str;
bjarni@6030: 				switch (bv->vehicle_type) {
rubidium@7134: 					default: NOT_REACHED();
rubidium@6585: 					case VEH_TRAIN:    str = STR_886B_CAN_T_RENAME_TRAIN_VEHICLE; break;
rubidium@6585: 					case VEH_ROAD:     str = STR_9037_CAN_T_RENAME_ROAD_VEHICLE;  break;
rubidium@6585: 					case VEH_SHIP:     str = STR_9839_CAN_T_RENAME_SHIP_TYPE;     break;
rubidium@6585: 					case VEH_AIRCRAFT: str = STR_A03A_CAN_T_RENAME_AIRCRAFT_TYPE; break;
bjarni@6030: 				}
bjarni@6030: 				DoCommandP(0, bv->rename_engine, 0, NULL, CMD_RENAME_ENGINE | CMD_MSG(str));
bjarni@4800: 			}
KUDr@5187: 			break;
KUDr@5187: 		}
bjarni@4800: 
belugas@6449: 		case WE_DROPDOWN_SELECT: // we have selected a dropdown item in the list
KUDr@5187: 			if (bv->sort_criteria != e->we.dropdown.index) {
bjarni@6030: 				bv->sort_criteria = e->we.dropdown.index;
bjarni@6206: 				_last_sort_criteria[bv->vehicle_type] = bv->sort_criteria;
bjarni@6032: 				bv->regenerate_list = true;
bjarni@4800: 			}
bjarni@4800: 			SetWindowDirty(w);
peter1138@5192: 			break;
bjarni@4800: 
peter1138@5192: 		case WE_RESIZE:
bjarni@6075: 			if (e->we.sizing.diff.x != 0) ResizeButtons(w, BUILD_VEHICLE_WIDGET_BUILD, BUILD_VEHICLE_WIDGET_RENAME);
bjarni@6030: 			if (e->we.sizing.diff.y == 0) break;
bjarni@6030: 
bjarni@6352: 			w->vscroll.cap += e->we.sizing.diff.y / (int)GetVehicleListHeight(bv->vehicle_type);
peter1138@5192: 			w->widget[BUILD_VEHICLE_WIDGET_LIST].data = (w->vscroll.cap << 8) + 1;
peter1138@5192: 			break;
bjarni@4800: 	}
bjarni@4800: }
bjarni@4800: 
bjarni@4800: static const WindowDesc _build_vehicle_desc = {
rubidium@7864: 	WDP_AUTO, WDP_AUTO, 240, 174, 240, 256,
rubidium@6144: 	WC_BUILD_VEHICLE, WC_NONE,
bjarni@4800: 	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_RESIZABLE,
bjarni@4800: 	_build_vehicle_widgets,
bjarni@6030: 	NewVehicleWndProc
bjarni@4800: };
bjarni@4800: 
rubidium@7134: void ShowBuildVehicleWindow(TileIndex tile, VehicleType type)
bjarni@4800: {
KUDr@5187: 	buildvehicle_d *bv;
bjarni@4800: 	Window *w;
truelight@7742: 	/* We want to be able to open both Available Train as Available Ships,
truelight@7742: 	 *  so if tile == 0 (Available XXX Window), use 'type' as unique number.
truelight@7742: 	 *  As it always is a low value, it won't collide with any real tile
truelight@7742: 	 *  number. */
truelight@7742: 	uint num = (tile == 0) ? (int)type : tile;
bjarni@4800: 
bjarni@6030: 	assert(IsPlayerBuildableVehicleType(type));
bjarni@6030: 
truelight@7742: 	DeleteWindowById(WC_BUILD_VEHICLE, num);
bjarni@6030: 
rubidium@7864: 	w = AllocateWindowDescFront(&_build_vehicle_desc, num, &type);
bjarni@6030: 
bjarni@4800: 	if (w == NULL) return;
bjarni@4800: 
Darkvater@5199: 	w->caption_color = (tile != 0) ? GetTileOwner(tile) : _local_player;
bjarni@4800: 
KUDr@5187: 	bv = &WP(w, buildvehicle_d);
KUDr@5187: 	EngList_Create(&bv->eng_list);
bjarni@6032: 	bv->sel_engine      = INVALID_ENGINE;
KUDr@5187: 
bjarni@6032: 	bv->regenerate_list = false;
KUDr@5187: 
bjarni@6206: 	bv->sort_criteria         = _last_sort_criteria[type];
bjarni@6206: 	bv->descending_sort_order = _last_sort_order[type];
bjarni@6035: 
bjarni@4800: 	switch (type) {
rubidium@7134: 		default: NOT_REACHED();
rubidium@6585: 		case VEH_TRAIN:
rubidium@6987: 			WP(w, buildvehicle_d).filter.railtype = (tile == 0) ? RAILTYPE_END : GetRailType(tile);
bjarni@6030: 			break;
rubidium@6585: 		case VEH_ROAD:
rubidium@7181: 			WP(w, buildvehicle_d).filter.roadtypes = (tile == 0) ? ROADTYPES_ALL : GetRoadTypes(tile);
rubidium@6585: 		case VEH_SHIP:
bjarni@6034: 			break;
rubidium@6585: 		case VEH_AIRCRAFT:
tron@6350: 			bv->filter.flags =
tron@6358: 				tile == 0 ? AirportFTAClass::ALL : GetStationByTile(tile)->Airport()->flags;
KUDr@5187: 			break;
bjarni@4800: 	}
bjarni@6030: 	SetupWindowStrings(w, type);
bjarni@6075: 	ResizeButtons(w, BUILD_VEHICLE_WIDGET_BUILD, BUILD_VEHICLE_WIDGET_RENAME);
bjarni@6030: 
bjarni@6032: 	GenerateBuildList(w); // generate the list, since we need it in the next line
bjarni@6030: 	/* Select the first engine in the list as default when opening the window */
Darkvater@5200: 	if (EngList_Count(&bv->eng_list) > 0) bv->sel_engine = bv->eng_list[0];
bjarni@4800: }