tron@2186: /* $Id$ */
tron@2186: 
darkvater@164: #include "stdafx.h"
Darkvater@1891: #include "openttd.h"
tron@1299: #include "debug.h"
tron@2163: #include "functions.h"
tron@2154: #include "player.h"
tron@2466: #include "station.h"
tron@1309: #include "strings.h"
tron@1363: #include "table/sprites.h"
tron@507: #include "table/strings.h"
darkvater@164: #include "vehicle.h"
tron@588: #include "window.h"
bjarni@842: #include "engine.h"
bjarni@842: #include "gui.h"
bjarni@842: #include "command.h"
bjarni@842: #include "gfx.h"
tron@2159: #include "variables.h"
tron@2159: #include "vehicle_gui.h"
bjarni@2552: #include "viewport.h"
bjarni@2676: #include "train.h"
peter1138@3650: #include "newgrf_callbacks.h"
peter1138@2962: #include "newgrf_engine.h"
peter1138@3650: #include "newgrf_text.h"
rubidium@4261: #include "date.h"
bjarni@4442: #include "ship.h"
bjarni@4442: #include "aircraft.h"
bjarni@4442: #include "roadveh.h"
bjarni@4442: #include "depot.h"
rubidium@5838: #include "helpers.hpp"
bjarni@6268: #include "cargotype.h"
tron@2159: 
Darkvater@4542: typedef struct Sorting {
Darkvater@4542: 	Listing aircraft;
Darkvater@4542: 	Listing roadveh;
Darkvater@4542: 	Listing ship;
Darkvater@4542: 	Listing train;
Darkvater@4542: } Sorting;
Darkvater@4542: 
Darkvater@4542: static Sorting _sorting;
Darkvater@4542: 
Darkvater@4542: typedef struct vehiclelist_d {
bjarni@4678: 	const Vehicle** sort_list;  // List of vehicles (sorted)
bjarni@4678: 	Listing *_sorting;          // pointer to the appropiate subcategory of _sorting
bjarni@4678: 	uint16 length_of_sort_list; // Keeps track of how many vehicle pointers sort list got space for
bjarni@4678: 	byte vehicle_type;          // The vehicle type that is sorted
bjarni@4678: 	list_d l;                   // General list struct
Darkvater@4542: } vehiclelist_d;
Darkvater@4542: assert_compile(WINDOW_CUSTOM_SIZE >= sizeof(vehiclelist_d));
tron@2159: 
tron@2159: static bool   _internal_sort_order;     // descending/ascending
darkvater@164: 
tron@2462: typedef int CDECL VehicleSortListingTypeFunction(const void*, const void*);
tron@2462: 
tron@2462: static VehicleSortListingTypeFunction VehicleNumberSorter;
tron@2462: static VehicleSortListingTypeFunction VehicleNameSorter;
tron@2462: static VehicleSortListingTypeFunction VehicleAgeSorter;
tron@2462: static VehicleSortListingTypeFunction VehicleProfitThisYearSorter;
tron@2462: static VehicleSortListingTypeFunction VehicleProfitLastYearSorter;
tron@2462: static VehicleSortListingTypeFunction VehicleCargoSorter;
tron@2462: static VehicleSortListingTypeFunction VehicleReliabilitySorter;
tron@2462: static VehicleSortListingTypeFunction VehicleMaxSpeedSorter;
peter1138@2965: static VehicleSortListingTypeFunction VehicleModelSorter;
peter1138@2965: static VehicleSortListingTypeFunction VehicleValueSorter;
tron@2462: 
tron@2462: static VehicleSortListingTypeFunction* const _vehicle_sorter[] = {
tron@505: 	&VehicleNumberSorter,
tron@505: 	&VehicleNameSorter,
tron@505: 	&VehicleAgeSorter,
tron@505: 	&VehicleProfitThisYearSorter,
tron@505: 	&VehicleProfitLastYearSorter,
tron@505: 	&VehicleCargoSorter,
tron@505: 	&VehicleReliabilitySorter,
peter1138@2965: 	&VehicleMaxSpeedSorter,
peter1138@2965: 	&VehicleModelSorter,
peter1138@2965: 	&VehicleValueSorter,
tron@505: };
tron@505: 
tron@4485: static const StringID _vehicle_sort_listing[] = {
tron@505: 	STR_SORT_BY_NUMBER,
tron@505: 	STR_SORT_BY_DROPDOWN_NAME,
tron@505: 	STR_SORT_BY_AGE,
tron@505: 	STR_SORT_BY_PROFIT_THIS_YEAR,
tron@505: 	STR_SORT_BY_PROFIT_LAST_YEAR,
tron@505: 	STR_SORT_BY_TOTAL_CAPACITY_PER_CARGOTYPE,
tron@505: 	STR_SORT_BY_RELIABILITY,
tron@505: 	STR_SORT_BY_MAX_SPEED,
peter1138@2965: 	STR_SORT_BY_MODEL,
peter1138@2965: 	STR_SORT_BY_VALUE,
tron@505: 	INVALID_STRING_ID
tron@505: };
tron@505: 
tron@588: void RebuildVehicleLists(void)
tron@588: {
KUDr@6258: 	BaseWindow *w = NULL;
tron@588: 
KUDr@6235: 	FOR_ALL_WINDOWS(w) {
tron@588: 		switch (w->window_class) {
Darkvater@5124: 			case WC_TRAINS_LIST:
Darkvater@5124: 			case WC_ROADVEH_LIST:
Darkvater@5124: 			case WC_SHIPS_LIST:
Darkvater@5124: 			case WC_AIRCRAFT_LIST:
Darkvater@5124: 				WP(w, vehiclelist_d).l.flags |= VL_REBUILD;
KUDr@6235: 				w->SetDirty();
Darkvater@5124: 				break;
rubidium@6144: 
rubidium@6144: 			default: break;
tron@588: 		}
Darkvater@5124: 	}
tron@588: }
tron@588: 
tron@588: void ResortVehicleLists(void)
tron@588: {
KUDr@6258: 	BaseWindow *w = NULL;
tron@588: 
KUDr@6235: 	FOR_ALL_WINDOWS(w) {
Darkvater@5124: 
tron@588: 		switch (w->window_class) {
Darkvater@5124: 			case WC_TRAINS_LIST:
Darkvater@5124: 			case WC_ROADVEH_LIST:
Darkvater@5124: 			case WC_SHIPS_LIST:
Darkvater@5124: 			case WC_AIRCRAFT_LIST:
Darkvater@5124: 				WP(w, vehiclelist_d).l.flags |= VL_RESORT;
KUDr@6235: 				w->SetDirty();
Darkvater@5124: 				break;
rubidium@6144: 
rubidium@6144: 			default: break;
tron@588: 		}
Darkvater@5124: 	}
tron@588: }
tron@588: 
bjarni@5998: static void BuildVehicleList(vehiclelist_d* vl, PlayerID owner, uint16 index, uint16 window_type)
tron@588: {
Darkvater@4545: 	if (!(vl->l.flags & VL_REBUILD)) return;
tron@588: 
bjarni@5998: 	DEBUG(misc, 3, "Building vehicle list for player %d at station %d", owner, index);
tron@588: 
bjarni@5998: 	vl->l.list_length = GenerateVehicleSortList(&vl->sort_list, &vl->length_of_sort_list, vl->vehicle_type, owner, index, window_type);
tron@588: 
Darkvater@4545: 	vl->l.flags &= ~VL_REBUILD;
Darkvater@4545: 	vl->l.flags |= VL_RESORT;
tron@588: }
tron@588: 
bjarni@4460: static void SortVehicleList(vehiclelist_d *vl)
tron@588: {
Darkvater@4545: 	if (!(vl->l.flags & VL_RESORT)) return;
tron@588: 
rubidium@5838: 	_internal_sort_order = (vl->l.flags & VL_DESC) != 0;
Darkvater@4545: 	qsort((void*)vl->sort_list, vl->l.list_length, sizeof(vl->sort_list[0]),
Darkvater@4545: 		_vehicle_sorter[vl->l.sort_type]);
tron@588: 
Darkvater@4545: 	vl->l.resort_timer = DAY_TICKS * PERIODIC_RESORT_DAYS;
Darkvater@4545: 	vl->l.flags &= ~VL_RESORT;
tron@588: }
tron@588: 
bjarni@4740: void DepotSortList(Vehicle **v, uint16 length)
bjarni@4740: {
bjarni@4740: 	_internal_sort_order = 0;
bjarni@4740: 	qsort((void*)v, length, sizeof(v[0]), _vehicle_sorter[0]);
bjarni@4740: }
tron@588: 
darkvater@164: // draw the vehicle profit button in the vehicle list window.
Darkvater@2436: void DrawVehicleProfitButton(const Vehicle *v, int x, int y)
darkvater@164: {
peter1138@5919: 	SpriteID pal;
darkvater@164: 
darkvater@164: 	// draw profit-based colored icons
tron@2639: 	if (v->age <= 365 * 2) {
peter1138@5919: 		pal = PALETTE_TO_GREY;
tron@2639: 	} else if (v->profit_last_year < 0) {
peter1138@5919: 		pal = PALETTE_TO_RED;
tron@2639: 	} else if (v->profit_last_year < 10000) {
peter1138@5919: 		pal = PALETTE_TO_YELLOW;
tron@2639: 	} else {
peter1138@5919: 		pal = PALETTE_TO_GREEN;
tron@2639: 	}
peter1138@5919: 	DrawSprite(SPR_BLOT, pal, x, y);
darkvater@164: }
darkvater@164: 
peter1138@4694: typedef struct RefitOption {
peter1138@4694: 	CargoID cargo;
peter1138@4694: 	byte subtype;
peter1138@4694: 	uint16 value;
peter1138@4694: 	EngineID engine;
peter1138@4694: } RefitOption;
peter1138@4694: 
peter1138@4694: typedef struct RefitList {
peter1138@4694: 	uint num_lines;
peter1138@4694: 	RefitOption *items;
peter1138@4694: } RefitList;
peter1138@4694: 
peter1138@4695: static RefitList *BuildRefitList(const Vehicle *v)
peter1138@4694: {
peter1138@4694: 	uint max_lines = 256;
KUDr@5860: 	RefitOption *refit = CallocT<RefitOption>(max_lines);
KUDr@5860: 	RefitList *list = CallocT<RefitList>(1);
peter1138@4694: 	Vehicle *u = (Vehicle*)v;
peter1138@4694: 	uint num_lines = 0;
peter1138@4694: 	uint i;
peter1138@4694: 
peter1138@4694: 	do {
peter1138@4694: 		uint32 cmask = EngInfo(u->engine_type)->refit_mask;
peter1138@4694: 		byte callbackmask = EngInfo(u->engine_type)->callbackmask;
peter1138@4694: 
peter1138@4933: 		/* Skip this engine if it has no capacity */
peter1138@4933: 		if (u->cargo_cap == 0) continue;
peter1138@4933: 
peter1138@4694: 		/* Loop through all cargos in the refit mask */
bjarni@6268: 		for (CargoID cid = 0; cid != NUM_CARGO && num_lines < max_lines; cid++) {
peter1138@4694: 			/* Skip cargo type if it's not listed */
bjarni@6268: 			if (!HASBIT(cmask, cid)) continue;
peter1138@4776: 
peter1138@4694: 			/* Check the vehicle's callback mask for cargo suffixes */
peter1138@4694: 			if (HASBIT(callbackmask, CBM_CARGO_SUFFIX)) {
peter1138@4694: 				/* Make a note of the original cargo type. It has to be
peter1138@4694: 				 * changed to test the cargo & subtype... */
peter1138@4694: 				CargoID temp_cargo = u->cargo_type;
peter1138@4694: 				byte temp_subtype  = u->cargo_subtype;
peter1138@4694: 				byte refit_cyc;
peter1138@4694: 
bjarni@6268: 				u->cargo_type = cid;
peter1138@4694: 
peter1138@4694: 				for (refit_cyc = 0; refit_cyc < 16 && num_lines < max_lines; refit_cyc++) {
peter1138@4694: 					bool duplicate = false;
peter1138@4694: 					uint16 callback;
peter1138@4694: 
peter1138@4694: 					u->cargo_subtype = refit_cyc;
peter1138@4694: 					callback = GetVehicleCallback(CBID_VEHICLE_CARGO_SUFFIX, 0, 0, u->engine_type, u);
peter1138@4694: 
peter1138@4694: 					if (callback == 0xFF) callback = CALLBACK_FAILED;
peter1138@4694: 					if (refit_cyc != 0 && callback == CALLBACK_FAILED) break;
peter1138@4694: 
peter1138@4694: 					/* Check if this cargo and subtype combination are listed */
peter1138@4694: 					for (i = 0; i < num_lines && !duplicate; i++) {
bjarni@6268: 						if (refit[i].cargo == cid && refit[i].value == callback) duplicate = true;
peter1138@4694: 					}
peter1138@4694: 
peter1138@4694: 					if (duplicate) continue;
peter1138@4694: 
bjarni@6268: 					refit[num_lines].cargo   = cid;
peter1138@4694: 					refit[num_lines].subtype = refit_cyc;
peter1138@4694: 					refit[num_lines].value   = callback;
peter1138@4694: 					refit[num_lines].engine  = u->engine_type;
peter1138@4694: 					num_lines++;
peter1138@4694: 				}
peter1138@4694: 
peter1138@4694: 				/* Reset the vehicle's cargo type */
peter1138@4694: 				u->cargo_type    = temp_cargo;
peter1138@4694: 				u->cargo_subtype = temp_subtype;
peter1138@4694: 			} else {
peter1138@4694: 				/* No cargo suffix callback -- use no subtype */
peter1138@4694: 				bool duplicate = false;
peter1138@4694: 
peter1138@4694: 				for (i = 0; i < num_lines && !duplicate; i++) {
bjarni@6268: 					if (refit[i].cargo == cid && refit[i].value == CALLBACK_FAILED) duplicate = true;
peter1138@4694: 				}
peter1138@4694: 
peter1138@4694: 				if (!duplicate) {
bjarni@6268: 					refit[num_lines].cargo   = cid;
peter1138@4694: 					refit[num_lines].subtype = 0;
peter1138@4694: 					refit[num_lines].value   = CALLBACK_FAILED;
peter1138@4694: 					refit[num_lines].engine  = INVALID_ENGINE;
peter1138@4694: 					num_lines++;
peter1138@4694: 				}
peter1138@4694: 			}
peter1138@4694: 		}
peter1138@4933: 	} while (v->type == VEH_Train && (u = u->next) != NULL && num_lines < max_lines);
peter1138@4694: 
peter1138@4694: 	list->num_lines = num_lines;
peter1138@4694: 	list->items = refit;
peter1138@4694: 
peter1138@4694: 	return list;
peter1138@4694: }
peter1138@4694: 
hackykid@1859: /** Draw the list of available refit options for a consist.
Darkvater@1802:  * Draw the list and highlight the selected refit option (if any)
hackykid@1859:  * @param *v first vehicle in consist to get the refit-options of
Darkvater@1802:  * @param sel selected refit cargo-type in the window
peter1138@4695:  * @return the refit option that is hightlighted, NULL if none
Darkvater@1802:  */
peter1138@4695: static RefitOption *DrawVehicleRefitWindow(const RefitList *list, int sel, uint pos, uint rows, uint delta)
Darkvater@1802: {
peter1138@4694: 	RefitOption *refit = list->items;
peter1138@4695: 	RefitOption *selected = NULL;
peter1138@4694: 	uint num_lines = list->num_lines;
peter1138@4694: 	uint y = 31;
peter1138@4694: 	uint i;
Darkvater@1802: 
peter1138@4694: 	/* Draw the list, and find the selected cargo (by its position in list) */
peter1138@4697: 	for (i = 0; i < num_lines; i++) {
peter1138@4694: 		byte colour = 16;
peter1138@4694: 		if (sel == 0) {
peter1138@4695: 			selected = &refit[i];
peter1138@4694: 			colour = 12;
peter1138@4694: 		}
hackykid@1859: 
peter1138@4697: 		if (i >= pos && i < pos + rows) {
peter1138@4694: 			/* Draw the cargo name */
bjarni@6268: 			int last_x = DrawString(2, y, GetCargo(refit[i].cargo)->name, colour);
peter1138@4694: 
peter1138@4694: 			/* If the callback succeeded, draw the cargo suffix */
peter1138@4694: 			if (refit[i].value != CALLBACK_FAILED) {
peter1138@4694: 				DrawString(last_x + 1, y, GetGRFStringID(GetEngineGRFID(refit[i].engine), 0xD000 + refit[i].value), colour);
peter1138@3025: 			}
peter1138@4694: 			y += delta;
peter1138@4694: 		}
peter1138@3025: 
peter1138@4694: 		sel--;
peter1138@3025: 	}
peter1138@3025: 
peter1138@4695: 	return selected;
Darkvater@1802: }
Darkvater@1802: 
KUDr@6258: static void VehicleRefitWndProc(BaseWindow *w, WindowEvent *e)
bjarni@4642: {
bjarni@4642: 	switch (e->event) {
bjarni@4642: 		case WE_PAINT: {
peter1138@4694: 			Vehicle *v = GetVehicle(w->window_number);
peter1138@4694: 
peter1138@4694: 			if (v->type == VEH_Train) {
peter1138@4694: 				uint length = CountVehiclesInChain(v);
peter1138@4694: 
peter1138@4694: 				if (length != WP(w, refit_d).length) {
peter1138@4694: 					/* Consist length has changed, so rebuild the refit list */
peter1138@4694: 					free(WP(w, refit_d).list->items);
peter1138@4694: 					free(WP(w, refit_d).list);
peter1138@4694: 					WP(w, refit_d).list = BuildRefitList(v);
peter1138@4694: 					WP(w, refit_d).length = length;
peter1138@4694: 				}
peter1138@4694: 			}
bjarni@4642: 
peter1138@4698: 			SetVScrollCount(w, WP(w, refit_d).list->num_lines);
peter1138@4698: 
bjarni@4642: 			SetDParam(0, v->string_id);
bjarni@4642: 			SetDParam(1, v->unitnumber);
bjarni@6241: 			w->DrawWidgets();
bjarni@4642: 
peter1138@4694: 			WP(w,refit_d).cargo = DrawVehicleRefitWindow(WP(w, refit_d).list, WP(w, refit_d).sel, w->vscroll.pos, w->vscroll.cap, w->resize.step_height);
bjarni@4642: 
peter1138@4695: 			if (WP(w,refit_d).cargo != NULL) {
bjarni@6268: 				int32 cost;
bjarni@4642: 
bjarni@6268: 				cost = DoCommand(v->tile, v->index, WP(w,refit_d).cargo->cargo | WP(w,refit_d).cargo->subtype << 8,
bjarni@6268: 								 DC_QUERY_COST, GetCmdRefitVeh(GetVehicle(w->window_number)->type));
bjarni@6268: 
bjarni@4642: 				if (!CmdFailed(cost)) {
peter1138@4896: 					SetDParam(0, WP(w,refit_d).cargo->cargo);
bjarni@4642: 					SetDParam(1, _returned_refit_capacity);
bjarni@4642: 					SetDParam(2, cost);
peter1138@4694: 					DrawString(2, w->widget[5].top + 1, STR_9840_NEW_CAPACITY_COST_OF_REFIT, 0);
bjarni@4642: 				}
bjarni@4642: 			}
bjarni@4642: 		}	break;
bjarni@4642: 
bjarni@4642: 		case WE_CLICK:
bjarni@4642: 			switch (e->we.click.widget) {
peter1138@4694: 				case 3: { // listbox
peter1138@4694: 					int y = e->we.click.pt.y - w->widget[3].top;
bjarni@4642: 					if (y >= 0) {
peter1138@4697: 						WP(w,refit_d).sel = (y / (int)w->resize.step_height) + w->vscroll.pos;
KUDr@6235: 						w->SetDirty();
bjarni@4642: 					}
bjarni@4642: 				} break;
peter1138@4694: 				case 6: // refit button
peter1138@4695: 					if (WP(w,refit_d).cargo != NULL) {
bjarni@4642: 						const Vehicle *v = GetVehicle(w->window_number);
bjarni@4642: 
bjarni@4712: 						if (WP(w, refit_d).order == INVALID_VEH_ORDER_ID) {
bjarni@4712: 							int command = 0;
bjarni@4712: 
bjarni@4712: 							switch (v->type) {
bjarni@4712: 								case VEH_Train:    command = CMD_REFIT_RAIL_VEHICLE | CMD_MSG(STR_RAIL_CAN_T_REFIT_VEHICLE);  break;
bjarni@4712: 								case VEH_Road:     command = CMD_REFIT_ROAD_VEH     | CMD_MSG(STR_REFIT_ROAD_VEHICLE_CAN_T);  break;
bjarni@4712: 								case VEH_Ship:     command = CMD_REFIT_SHIP         | CMD_MSG(STR_9841_CAN_T_REFIT_SHIP);     break;
bjarni@4712: 								case VEH_Aircraft: command = CMD_REFIT_AIRCRAFT     | CMD_MSG(STR_A042_CAN_T_REFIT_AIRCRAFT); break;
bjarni@4712: 							}
KUDr@6235: 							if (DoCommandP(v->tile, v->index, WP(w,refit_d).cargo->cargo | WP(w,refit_d).cargo->subtype << 8, NULL, command)) w->Close();
bjarni@4712: 						} else {
KUDr@6235: 							if (DoCommandP(v->tile, v->index, WP(w,refit_d).cargo->cargo | WP(w,refit_d).cargo->subtype << 8 | WP(w, refit_d).order << 16, NULL, CMD_ORDER_REFIT)) w->Close();
bjarni@4642: 						}
bjarni@4642: 					}
bjarni@4642: 					break;
bjarni@4642: 			}
bjarni@4642: 			break;
peter1138@4694: 
peter1138@4694: 		case WE_RESIZE:
peter1138@4694: 			w->vscroll.cap += e->we.sizing.diff.y / (int)w->resize.step_height;
peter1138@4694: 			w->widget[3].data = (w->vscroll.cap << 8) + 1;
peter1138@4694: 			break;
peter1138@4694: 
peter1138@4694: 		case WE_DESTROY:
peter1138@4694: 			free(WP(w, refit_d).list->items);
peter1138@4694: 			free(WP(w, refit_d).list);
peter1138@4694: 			break;
bjarni@4642: 	}
bjarni@4642: }
bjarni@4642: 
bjarni@4642: 
KUDr@6258: static const OldWidget _vehicle_refit_widgets[] = {
bjarni@4642: 	{   WWT_CLOSEBOX,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,                            STR_018B_CLOSE_WINDOW},
bjarni@4642: 	{    WWT_CAPTION,   RESIZE_NONE,    14,    11,   239,     0,    13, STR_983B_REFIT,                      STR_018C_WINDOW_TITLE_DRAG_THIS},
peter1138@4694: 	{    WWT_TEXTBTN,   RESIZE_NONE,    14,     0,   239,    14,    27, STR_983F_SELECT_CARGO_TYPE_TO_CARRY, STR_983D_SELECT_TYPE_OF_CARGO_FOR},
bjarni@4775: 	{     WWT_MATRIX, RESIZE_BOTTOM,    14,     0,   227,    28,   139, 0x801,                               STR_EMPTY},
peter1138@4694: 	{  WWT_SCROLLBAR, RESIZE_BOTTOM,    14,   228,   239,    28,   139, 0x0,                                 STR_0190_SCROLL_BAR_SCROLLS_LIST},
Darkvater@4938: 	{      WWT_PANEL,     RESIZE_TB,    14,     0,   239,   140,   161, 0x0,                                 STR_NULL},
peter1138@4694: 	{ WWT_PUSHTXTBTN,     RESIZE_TB,    14,     0,   227,   162,   173, 0x0,                                 STR_NULL},
peter1138@4694: 	{  WWT_RESIZEBOX,     RESIZE_TB,    14,   228,   239,   162,   173, 0x0,                                 STR_RESIZE_BUTTON},
bjarni@4642: 	{   WIDGETS_END},
bjarni@4642: };
bjarni@4642: 
bjarni@4642: static const WindowDesc _vehicle_refit_desc = {
Darkvater@5070: 	WDP_AUTO, WDP_AUTO, 240, 174,
bjarni@4642: 	WC_VEHICLE_REFIT,WC_VEHICLE_VIEW,
peter1138@4694: 	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_RESIZABLE,
bjarni@4642: 	_vehicle_refit_widgets,
bjarni@4642: 	VehicleRefitWndProc,
bjarni@4642: };
bjarni@4642: 
bjarni@4642: /** Show the refit window for a vehicle
bjarni@4642: * @param *v The vehicle to show the refit window for
bjarni@4642: */
bjarni@4712: void ShowVehicleRefitWindow(const Vehicle *v, VehicleOrderID order)
bjarni@4642: {
KUDr@6258: 	BaseWindow *w;
bjarni@4642: 
bjarni@4642: 	DeleteWindowById(WC_VEHICLE_REFIT, v->index);
bjarni@4642: 
KUDr@6258: 	w = BaseWindow::AllocateFront(&_vehicle_refit_desc, v->index);
bjarni@4712: 	WP(w, refit_d).order = order;
bjarni@4704: 
bjarni@4704: 	if (w != NULL) {
bjarni@4704: 		w->caption_color = v->owner;
bjarni@4704: 		w->vscroll.cap = 8;
bjarni@4704: 		w->resize.step_height = 14;
bjarni@4704: 		WP(w, refit_d).sel  = -1;
bjarni@4704: 		WP(w, refit_d).list = BuildRefitList(v);
bjarni@4704: 		if (v->type == VEH_Train) WP(w, refit_d).length = CountVehiclesInChain(v);
bjarni@4704: 		SetVScrollCount(w, WP(w, refit_d).list->num_lines);
bjarni@4704: 
bjarni@4704: 		switch (v->type) {
bjarni@4704: 			case VEH_Train:
bjarni@4775: 				w->widget[3].tooltips = STR_RAIL_SELECT_TYPE_OF_CARGO_FOR;
bjarni@4704: 				w->widget[6].data     = STR_RAIL_REFIT_VEHICLE;
bjarni@4704: 				w->widget[6].tooltips = STR_RAIL_REFIT_TO_CARRY_HIGHLIGHTED;
bjarni@4704: 				break;
bjarni@4704: 			case VEH_Road:
bjarni@4775: 				w->widget[3].tooltips = STR_ROAD_SELECT_TYPE_OF_CARGO_FOR;
bjarni@4704: 				w->widget[6].data     = STR_REFIT_ROAD_VEHICLE;
bjarni@4704: 				w->widget[6].tooltips = STR_REFIT_ROAD_VEHICLE_TO_CARRY_HIGHLIGHTED;
bjarni@4704: 				break;
bjarni@4704: 			case VEH_Ship:
bjarni@4775: 				w->widget[3].tooltips = STR_983D_SELECT_TYPE_OF_CARGO_FOR;
bjarni@4704: 				w->widget[6].data     = STR_983C_REFIT_SHIP;
bjarni@4704: 				w->widget[6].tooltips = STR_983E_REFIT_SHIP_TO_CARRY_HIGHLIGHTED;
bjarni@4704: 				break;
bjarni@4704: 			case VEH_Aircraft:
bjarni@4775: 				w->widget[3].tooltips = STR_A03E_SELECT_TYPE_OF_CARGO_FOR;
bjarni@4704: 				w->widget[6].data     = STR_A03D_REFIT_AIRCRAFT;
bjarni@4704: 				w->widget[6].tooltips = STR_A03F_REFIT_AIRCRAFT_TO_CARRY;
bjarni@4704: 				break;
bjarni@4704: 			default: NOT_REACHED();
bjarni@4704: 		}
bjarni@4642: 	}
bjarni@4642: }
bjarni@4642: 
peter1138@3650: /* Display additional text from NewGRF in the purchase information window */
peter1138@4932: uint ShowAdditionalText(int x, int y, uint w, EngineID engine)
peter1138@3650: {
peter1138@3650: 	uint16 callback = GetVehicleCallback(CBID_VEHICLE_ADDITIONAL_TEXT, 0, 0, engine, NULL);
peter1138@3650: 	if (callback == CALLBACK_FAILED) return 0;
peter1138@3650: 
peter1138@4928: 	// STR_02BD is used to start the string with {BLACK}
peter1138@4928: 	SetDParam(0, GetGRFStringID(GetEngineGRFID(engine), 0xD000 + callback));
peter1138@4928: 	return DrawStringMultiLine(x, y, STR_02BD, w);
peter1138@3650: }
peter1138@3650: 
peter1138@4932: /* Count the number of bits that are set in a mask */
peter1138@4932: static uint CountBits(uint32 mask)
peter1138@4932: {
peter1138@4932: 	uint c = 0;
peter1138@4932: 	for (; mask != 0; mask >>= 1) if (HASBIT(mask, 0)) c++;
peter1138@4932: 	return c;
peter1138@4932: }
peter1138@4932: 
peter1138@4932: /* Display list of cargo types of the engine, for the purchase information window */
peter1138@4932: uint ShowRefitOptionsList(int x, int y, uint w, EngineID engine)
peter1138@4932: {
peter1138@4932: 	/* List of cargo types of this engine */
peter1138@4932: 	uint32 cmask = EngInfo(engine)->refit_mask;
peter1138@4932: 	/* List of cargo types available in this climate */
bjarni@6268: 	uint32 lmask = _cargo_mask;
peter1138@4932: 	char *b = _userstring;
peter1138@4932: 
peter1138@4932: 	/* Draw nothing if the engine is not refittable */
peter1138@4932: 	if (CountBits(cmask) <= 1) return 0;
peter1138@4932: 
peter1138@4932: 	b = InlineString(b, STR_PURCHASE_INFO_REFITTABLE_TO);
peter1138@4932: 
peter1138@4932: 	if (cmask == lmask) {
peter1138@4932: 		/* Engine can be refitted to all types in this climate */
peter1138@4932: 		b = InlineString(b, STR_PURCHASE_INFO_ALL_TYPES);
peter1138@4932: 	} else {
peter1138@4932: 		/* Check if we are able to refit to more cargo types and unable to. If
peter1138@4932: 		 * so, invert the cargo types to list those that we can't refit to. */
peter1138@4932: 		if (CountBits(cmask ^ lmask) < CountBits(cmask)) {
peter1138@4932: 			cmask ^= lmask;
peter1138@4932: 			b = InlineString(b, STR_PURCHASE_INFO_ALL_BUT);
peter1138@4932: 		}
peter1138@4932: 
bjarni@6268: 		bool first = true;
bjarni@6268: 
peter1138@4932: 		/* Add each cargo type to the list */
bjarni@6268: 		for (CargoID cid = 0; cid < NUM_CARGO; cid++) {
bjarni@6268: 			if (!HASBIT(cmask, cid)) continue;
peter1138@4932: 
bjarni@6268: 			if (!first) b = strecpy(b, ", ", lastof(_userstring));
bjarni@6268: 			first = false;
bjarni@6268: 
bjarni@6268: 			b = InlineString(b, GetCargo(cid)->name);
peter1138@4932: 		}
peter1138@4932: 	}
peter1138@4932: 
peter1138@4932: 	/* Terminate and display the completed string */
peter1138@4932: 	*b = '\0';
peter1138@4932: 	return DrawStringMultiLine(x, y, STR_SPEC_USERSTRING, w);
peter1138@4932: }
peter1138@4932: 
darkvater@168: 
darkvater@243: // if the sorting criteria had the same value, sort vehicle by unitnumber
darkvater@243: #define VEHICLEUNITNUMBERSORTER(r, a, b) {if (r == 0) {r = a->unitnumber - b->unitnumber;}}
darkvater@243: 
tron@2462: static int CDECL VehicleNumberSorter(const void *a, const void *b)
darkvater@168: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
darkvater@168: 	int r = va->unitnumber - vb->unitnumber;
darkvater@168: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
darkvater@164: }
darkvater@164: 
tron@2462: static int CDECL VehicleNameSorter(const void *a, const void *b)
darkvater@164: {
peter1138@4863: 	static const Vehicle *last_vehicle[2] = { NULL, NULL };
peter1138@4863: 	static char           last_name[2][64] = { "", "" };
peter1138@4863: 
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
darkvater@164: 	int r;
darkvater@164: 
peter1138@4863: 	if (va != last_vehicle[0]) {
peter1138@4863: 		last_vehicle[0] = va;
peter1138@4863: 		if (IsCustomName(va->string_id)) {
Darkvater@4912: 			GetString(last_name[0], va->string_id, lastof(last_name[0]));
peter1138@4863: 		} else {
peter1138@4863: 			last_name[0][0] = '\0';
darkvater@164: 		}
darkvater@164: 	}
darkvater@164: 
peter1138@4863: 	if (vb != last_vehicle[1]) {
peter1138@4863: 		last_vehicle[1] = vb;
peter1138@4863: 		if (IsCustomName(vb->string_id)) {
Darkvater@4912: 			GetString(last_name[1], vb->string_id, lastof(last_name[1]));
peter1138@4863: 		} else {
peter1138@4863: 			last_name[1][0] = '\0';
peter1138@4863: 		}
peter1138@4863: 	}
peter1138@4863: 
peter1138@4863: 	r = strcmp(last_name[0], last_name[1]); // sort by name
truelight@193: 
darkvater@243: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
darkvater@168: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
darkvater@164: }
darkvater@164: 
tron@2462: static int CDECL VehicleAgeSorter(const void *a, const void *b)
darkvater@164: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
darkvater@168: 	int r = va->age - vb->age;
darkvater@164: 
darkvater@243: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
darkvater@168: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
darkvater@168: }
darkvater@168: 
tron@2462: static int CDECL VehicleProfitThisYearSorter(const void *a, const void *b)
darkvater@168: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
darkvater@168: 	int r = va->profit_this_year - vb->profit_this_year;
truelight@193: 
darkvater@243: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
darkvater@168: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
darkvater@168: }
darkvater@168: 
tron@2462: static int CDECL VehicleProfitLastYearSorter(const void *a, const void *b)
darkvater@168: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
darkvater@168: 	int r = va->profit_last_year - vb->profit_last_year;
darkvater@168: 
darkvater@243: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
darkvater@168: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
darkvater@168: }
darkvater@168: 
tron@2462: static int CDECL VehicleCargoSorter(const void *a, const void *b)
darkvater@168: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
tron@2549: 	const Vehicle* v;
tron@2549: 	AcceptedCargo cargoa;
tron@2549: 	AcceptedCargo cargob;
darkvater@168: 	int r = 0;
darkvater@168: 	int i;
darkvater@168: 
tron@2549: 	memset(cargoa, 0, sizeof(cargoa));
tron@2549: 	memset(cargob, 0, sizeof(cargob));
tron@2549: 	for (v = va; v != NULL; v = v->next) cargoa[v->cargo_type] += v->cargo_cap;
tron@2549: 	for (v = vb; v != NULL; v = v->next) cargob[v->cargo_type] += v->cargo_cap;
darkvater@168: 
darkvater@168: 	for (i = 0; i < NUM_CARGO; i++) {
tron@2549: 		r = cargoa[i] - cargob[i];
tron@2549: 		if (r != 0) break;
darkvater@168: 	}
darkvater@164: 
tron@594: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
tron@594: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
darkvater@164: }
darkvater@168: 
tron@2462: static int CDECL VehicleReliabilitySorter(const void *a, const void *b)
darkvater@168: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
darkvater@168: 	int r = va->reliability - vb->reliability;
darkvater@168: 
darkvater@243: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
darkvater@168: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
darkvater@168: }
darkvater@168: 
tron@2462: static int CDECL VehicleMaxSpeedSorter(const void *a, const void *b)
darkvater@168: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
celestar@1179: 	int max_speed_a = 0xFFFF, max_speed_b = 0xFFFF;
celestar@1179: 	int r;
celestar@1179: 	const Vehicle *ua = va, *ub = vb;
celestar@1179: 
Celestar@1191: 	if (va->type == VEH_Train && vb->type == VEH_Train) {
Celestar@1191: 		do {
Celestar@1191: 			if (RailVehInfo(ua->engine_type)->max_speed != 0)
Celestar@1191: 				max_speed_a = min(max_speed_a, RailVehInfo(ua->engine_type)->max_speed);
Celestar@1191: 		} while ((ua = ua->next) != NULL);
celestar@1179: 
Celestar@1191: 		do {
Celestar@1191: 			if (RailVehInfo(ub->engine_type)->max_speed != 0)
Celestar@1191: 				max_speed_b = min(max_speed_b, RailVehInfo(ub->engine_type)->max_speed);
Celestar@1191: 		} while ((ub = ub->next) != NULL);
Celestar@1191: 
Celestar@1191: 		r = max_speed_a - max_speed_b;
Celestar@1191: 	} else {
Celestar@1191: 		r = va->max_speed - vb->max_speed;
Celestar@1191: 	}
darkvater@168: 
darkvater@243: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
darkvater@168: 
darkvater@168: 	return (_internal_sort_order & 1) ? -r : r;
truelight@193: }
bjarni@842: 
peter1138@2965: static int CDECL VehicleModelSorter(const void *a, const void *b)
peter1138@2965: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
peter1138@2965: 	int r = va->engine_type - vb->engine_type;
peter1138@2965: 
peter1138@2965: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
peter1138@2965: 
peter1138@2965: 	return (_internal_sort_order & 1) ? -r : r;
peter1138@2965: }
peter1138@2965: 
peter1138@2965: static int CDECL VehicleValueSorter(const void *a, const void *b)
peter1138@2965: {
tron@4266: 	const Vehicle* va = *(const Vehicle**)a;
tron@4266: 	const Vehicle* vb = *(const Vehicle**)b;
peter1138@2965: 	const Vehicle *u;
peter1138@2965: 	int valuea = 0, valueb = 0;
peter1138@2965: 	int r;
peter1138@2965: 
peter1138@2965: 	for (u = va; u != NULL; u = u->next) valuea += u->value;
peter1138@2965: 	for (u = vb; u != NULL; u = u->next) valueb += u->value;
peter1138@2965: 
peter1138@2965: 	r = valuea - valueb;
peter1138@2965: 
peter1138@2965: 	VEHICLEUNITNUMBERSORTER(r, va, vb);
peter1138@2965: 
peter1138@2965: 	return (_internal_sort_order & 1) ? -r : r;
peter1138@2965: }
peter1138@2965: 
darkvater@1246: void InitializeGUI(void)
darkvater@1246: {
darkvater@1246: 	memset(&_sorting, 0, sizeof(_sorting));
darkvater@1246: }
bjarni@2552: 
bjarni@2552: /** Assigns an already open vehicle window to a new vehicle.
tron@2639:  * Assigns an already open vehicle window to a new vehicle. If the vehicle got
tron@2639:  * any sub window open (orders and so on) it will change owner too.
tron@2639:  * @param *from_v the current owner of the window
tron@2639:  * @param *to_v the new owner of the window
tron@2639:  */
bjarni@2552: void ChangeVehicleViewWindow(const Vehicle *from_v, const Vehicle *to_v)
bjarni@2552: {
KUDr@6258: 	BaseWindow *w;
bjarni@2552: 
KUDr@6258: 	w = BaseWindow::FindById(WC_VEHICLE_VIEW, from_v->index);
bjarni@2552: 	if (w != NULL) {
bjarni@2552: 		w->window_number = to_v->index;
tron@2639: 		WP(w, vp_d).follow_vehicle = to_v->index;
KUDr@6235: 		w->SetDirty();
bjarni@2552: 
KUDr@6258: 		w = BaseWindow::FindById(WC_VEHICLE_ORDERS, from_v->index);
bjarni@2552: 		if (w != NULL) {
bjarni@2552: 			w->window_number = to_v->index;
KUDr@6235: 			w->SetDirty();
bjarni@2552: 		}
bjarni@2552: 
KUDr@6258: 		w = BaseWindow::FindById(WC_VEHICLE_REFIT, from_v->index);
bjarni@2552: 		if (w != NULL) {
bjarni@2552: 			w->window_number = to_v->index;
KUDr@6235: 			w->SetDirty();
bjarni@2552: 		}
bjarni@2552: 
KUDr@6258: 		w = BaseWindow::FindById(WC_VEHICLE_DETAILS, from_v->index);
bjarni@2552: 		if (w != NULL) {
bjarni@2552: 			w->window_number = to_v->index;
KUDr@6235: 			w->SetDirty();
bjarni@2552: 		}
bjarni@2552: 	}
bjarni@2552: }
bjarni@4442: 
bjarni@4665: /*
bjarni@4665:  * Start of functions regarding vehicle list windows
bjarni@4665:  */
bjarni@4665: 
Darkvater@4545: enum {
Darkvater@4545: 	PLY_WND_PRC__OFFSET_TOP_WIDGET = 26,
Darkvater@4545: 	PLY_WND_PRC__SIZE_OF_ROW_SMALL = 26,
Darkvater@4545: 	PLY_WND_PRC__SIZE_OF_ROW_BIG   = 36,
Darkvater@4545: };
Darkvater@4545: 
Darkvater@5269: enum VehicleListWindowWidgets {
bjarni@4668: 	VLW_WIDGET_CLOSEBOX = 0,
bjarni@4668: 	VLW_WIDGET_CAPTION,
bjarni@4668: 	VLW_WIDGET_STICKY,
bjarni@4668: 	VLW_WIDGET_SORT_ORDER,
bjarni@4668: 	VLW_WIDGET_SORT_BY_TEXT,
bjarni@4668: 	VLW_WIDGET_SORT_BY_PULLDOWN,
Darkvater@5274: 	VLW_WIDGET_EMPTY_TOP_RIGHT,
bjarni@4668: 	VLW_WIDGET_LIST,
bjarni@4668: 	VLW_WIDGET_SCROLLBAR,
bjarni@4668: 	VLW_WIDGET_OTHER_PLAYER_FILLER,
Darkvater@6097: 	VLW_WIDGET_AVAILABLE_VEHICLES,
Darkvater@5274: 	VLW_WIDGET_MANAGE_VEHICLES,
Darkvater@5274: 	VLW_WIDGET_MANAGE_VEHICLES_DROPDOWN,
bjarni@4673: 	VLW_WIDGET_STOP_ALL,
bjarni@4673: 	VLW_WIDGET_START_ALL,
Darkvater@5274: 	VLW_WIDGET_EMPTY_BOTTOM_RIGHT,
bjarni@4668: 	VLW_WIDGET_RESIZE,
bjarni@4668: };
bjarni@4668: 
KUDr@6258: static const OldWidget _vehicle_list_widgets[] = {
bjarni@4668: 	{   WWT_CLOSEBOX,   RESIZE_NONE,    14,     0,    10,     0,    13, STR_00C5,             STR_018B_CLOSE_WINDOW},
bjarni@4668: 	{    WWT_CAPTION,  RESIZE_RIGHT,    14,    11,   247,     0,    13, 0x0,                  STR_018C_WINDOW_TITLE_DRAG_THIS},
bjarni@4668: 	{  WWT_STICKYBOX,     RESIZE_LR,    14,   248,   259,     0,    13, 0x0,                  STR_STICKY_BUTTON},
bjarni@4668: 	{ WWT_PUSHTXTBTN,   RESIZE_NONE,    14,     0,    80,    14,    25, STR_SORT_BY,          STR_SORT_ORDER_TIP},
bjarni@4668: 	{      WWT_PANEL,   RESIZE_NONE,    14,    81,   235,    14,    25, 0x0,                  STR_SORT_CRITERIA_TIP},
bjarni@4668: 	{    WWT_TEXTBTN,   RESIZE_NONE,    14,   236,   247,    14,    25, STR_0225,             STR_SORT_CRITERIA_TIP},
bjarni@4668: 	{      WWT_PANEL,  RESIZE_RIGHT,    14,   248,   259,    14,    25, 0x0,                  STR_NULL},
bjarni@4668: 	{     WWT_MATRIX,     RESIZE_RB,    14,     0,   247,    26,   169, 0x0,                  STR_NULL},
bjarni@4668: 	{  WWT_SCROLLBAR,    RESIZE_LRB,    14,   248,   259,    26,   169, 0x0,                  STR_0190_SCROLL_BAR_SCROLLS_LIST},
KUDr@6258: 	/* OldWidget to be shown for other players hiding the following 6 widgets */
peter1138@5282: 	{      WWT_PANEL,    RESIZE_RTB,    14,     0,   247,   170,   181, 0x0,                  STR_NULL},
Darkvater@5274: 
Darkvater@5274: 	{ WWT_PUSHTXTBTN,     RESIZE_TB,    14,     0,   105,   170,   181, 0x0,                  STR_AVAILABLE_ENGINES_TIP},
Darkvater@5286: 	{    WWT_TEXTBTN,     RESIZE_TB,    14,   106,   211,   170,   181, STR_MANAGE_LIST,      STR_MANAGE_LIST_TIP},
Darkvater@5286: 	{    WWT_TEXTBTN,     RESIZE_TB,    14,   212,   223,   170,   181, STR_0225,             STR_MANAGE_LIST_TIP},
Darkvater@5274: 
Darkvater@5274: 	{ WWT_PUSHIMGBTN,     RESIZE_TB,    14,   224,   235,   170,   181, SPR_FLAG_VEH_STOPPED, STR_MASS_STOP_LIST_TIP},
Darkvater@5274: 	{ WWT_PUSHIMGBTN,     RESIZE_TB,    14,   236,   247,   170,   181, SPR_FLAG_VEH_RUNNING, STR_MASS_START_LIST_TIP},
Darkvater@5274: 	{      WWT_PANEL,    RESIZE_RTB,    14,   248,   247,   170,   181, 0x0,                  STR_NULL},
bjarni@4668: 	{  WWT_RESIZEBOX,   RESIZE_LRTB,    14,   248,   259,   170,   181, 0x0,                  STR_RESIZE_BUTTON},
bjarni@4668: 	{   WIDGETS_END},
bjarni@4668: };
bjarni@4668: 
KUDr@6258: static void CreateVehicleListWindow(BaseWindow *w)
bjarni@4665: {
bjarni@4665: 	vehiclelist_d *vl = &WP(w, vehiclelist_d);
bjarni@4665: 	uint16 window_type = w->window_number & VLW_MASK;
rubidium@5838: 	PlayerID player = (PlayerID)GB(w->window_number, 0, 8);
bjarni@4668: 
bjarni@4665: 	vl->vehicle_type = GB(w->window_number, 11, 5);
bjarni@4678: 	vl->length_of_sort_list = 0;
bjarni@4678: 	vl->sort_list = NULL;
bjarni@4668: 	w->caption_color = player;
bjarni@4668: 
bjarni@4668: 	/* Hide the widgets that we will not use in this window
bjarni@4668: 	 * Some windows contains actions only fit for the owner */
bjarni@4668: 	if (player == _local_player) {
KUDr@6250: 		w->HideWidget(VLW_WIDGET_OTHER_PLAYER_FILLER);
KUDr@6246: 		w->SetWidgetDisabledState(VLW_WIDGET_AVAILABLE_VEHICLES, window_type != VLW_STANDARD);
bjarni@4668: 	} else {
KUDr@6235: 		w->SetWidgetsHiddenState(true,
Darkvater@6097: 			VLW_WIDGET_AVAILABLE_VEHICLES,
Darkvater@5274: 			VLW_WIDGET_MANAGE_VEHICLES,
Darkvater@5274: 			VLW_WIDGET_MANAGE_VEHICLES_DROPDOWN,
bjarni@4758: 			VLW_WIDGET_STOP_ALL,
bjarni@4758: 			VLW_WIDGET_START_ALL,
Darkvater@5274: 			VLW_WIDGET_EMPTY_BOTTOM_RIGHT,
bjarni@4758: 			WIDGET_LIST_END);
bjarni@4668: 	}
bjarni@4665: 
bjarni@4665: 	/* Set up the window widgets */
bjarni@4668: 	switch (vl->vehicle_type) {
bjarni@4668: 		case VEH_Train:
bjarni@4686: 			w->widget[VLW_WIDGET_LIST].tooltips          = STR_883D_TRAINS_CLICK_ON_TRAIN_FOR;
Darkvater@6097: 			w->widget[VLW_WIDGET_AVAILABLE_VEHICLES].data = STR_AVAILABLE_TRAINS;
bjarni@4668: 			break;
bjarni@4668: 
bjarni@4668: 		case VEH_Road:
bjarni@4686: 			w->widget[VLW_WIDGET_LIST].tooltips          = STR_901A_ROAD_VEHICLES_CLICK_ON;
Darkvater@6098: 			w->widget[VLW_WIDGET_AVAILABLE_VEHICLES].data = STR_AVAILABLE_ROAD_VEHICLES;
bjarni@4668: 			break;
bjarni@4668: 
bjarni@4668: 		case VEH_Ship:
bjarni@4686: 			w->widget[VLW_WIDGET_LIST].tooltips          = STR_9823_SHIPS_CLICK_ON_SHIP_FOR;
Darkvater@6097: 			w->widget[VLW_WIDGET_AVAILABLE_VEHICLES].data = STR_AVAILABLE_SHIPS;
bjarni@4668: 			break;
bjarni@4668: 
bjarni@4668: 		case VEH_Aircraft:
bjarni@4686: 			w->widget[VLW_WIDGET_LIST].tooltips          = STR_A01F_AIRCRAFT_CLICK_ON_AIRCRAFT;
Darkvater@6097: 			w->widget[VLW_WIDGET_AVAILABLE_VEHICLES].data = STR_AVAILABLE_AIRCRAFT;
bjarni@4668: 			break;
bjarni@4668: 
Darkvater@5274: 		default: NOT_REACHED();
bjarni@4668: 	}
bjarni@4668: 
bjarni@4665: 	switch (window_type) {
bjarni@4665: 		case VLW_SHARED_ORDERS:
bjarni@4668: 			w->widget[VLW_WIDGET_CAPTION].data  = STR_VEH_WITH_SHARED_ORDERS_LIST;
bjarni@4665: 			break;
bjarni@4665: 		case VLW_STANDARD: /* Company Name - standard widget setup */
bjarni@4668: 			switch (vl->vehicle_type) {
bjarni@4668: 				case VEH_Train:    w->widget[VLW_WIDGET_CAPTION].data = STR_881B_TRAINS;        break;
bjarni@4668: 				case VEH_Road:     w->widget[VLW_WIDGET_CAPTION].data = STR_9001_ROAD_VEHICLES; break;
bjarni@4668: 				case VEH_Ship:     w->widget[VLW_WIDGET_CAPTION].data = STR_9805_SHIPS;         break;
bjarni@4668: 				case VEH_Aircraft: w->widget[VLW_WIDGET_CAPTION].data = STR_A009_AIRCRAFT;      break;
bjarni@4668: 				default: NOT_REACHED(); break;
bjarni@4668: 			}
bjarni@4665: 			break;
bjarni@4665: 		case VLW_STATION_LIST: /* Station Name */
bjarni@4665: 			switch (vl->vehicle_type) {
bjarni@4668: 				case VEH_Train:    w->widget[VLW_WIDGET_CAPTION].data = STR_SCHEDULED_TRAINS;        break;
bjarni@4668: 				case VEH_Road:     w->widget[VLW_WIDGET_CAPTION].data = STR_SCHEDULED_ROAD_VEHICLES; break;
bjarni@4668: 				case VEH_Ship:     w->widget[VLW_WIDGET_CAPTION].data = STR_SCHEDULED_SHIPS;         break;
bjarni@4668: 				case VEH_Aircraft: w->widget[VLW_WIDGET_CAPTION].data = STR_SCHEDULED_AIRCRAFT;      break;
bjarni@4665: 				default: NOT_REACHED(); break;
bjarni@4665: 			}
bjarni@4665: 			break;
bjarni@4681: 
bjarni@4681: 		case VLW_DEPOT_LIST:
bjarni@4681: 			switch (vl->vehicle_type) {
bjarni@4681: 				case VEH_Train:    w->widget[VLW_WIDGET_CAPTION].data = STR_VEHICLE_LIST_TRAIN_DEPOT;    break;
bjarni@4681: 				case VEH_Road:     w->widget[VLW_WIDGET_CAPTION].data = STR_VEHICLE_LIST_ROADVEH_DEPOT;  break;
bjarni@4681: 				case VEH_Ship:     w->widget[VLW_WIDGET_CAPTION].data = STR_VEHICLE_LIST_SHIP_DEPOT;     break;
bjarni@4681: 				case VEH_Aircraft: w->widget[VLW_WIDGET_CAPTION].data = STR_VEHICLE_LIST_AIRCRAFT_DEPOT; break;
bjarni@4681: 				default: NOT_REACHED(); break;
bjarni@4681: 			}
bjarni@4681: 			break;
bjarni@4665: 		default: NOT_REACHED(); break;
bjarni@4665: 	}
bjarni@4665: 
bjarni@4665: 	switch (vl->vehicle_type) {
bjarni@4665: 		case VEH_Train:
bjarni@4665: 			w->resize.step_width = 1;
bjarni@4665: 			/* Fallthrough */
bjarni@4665: 		case VEH_Road:
bjarni@4665: 			w->vscroll.cap = 7;
bjarni@4665: 			w->resize.step_height = PLY_WND_PRC__SIZE_OF_ROW_SMALL;
bjarni@4665: 			w->resize.height = 220 - (PLY_WND_PRC__SIZE_OF_ROW_SMALL * 3); // Minimum of 4 vehicles
bjarni@4665: 			break;
bjarni@4665: 		case VEH_Ship:
bjarni@4665: 		case VEH_Aircraft:
bjarni@4665: 			w->vscroll.cap = 4;
bjarni@4665: 			w->resize.step_height = PLY_WND_PRC__SIZE_OF_ROW_BIG;
bjarni@4665: 			break;
bjarni@4665: 		default: NOT_REACHED();
bjarni@4665: 	}
bjarni@4665: 
bjarni@4668: 	w->widget[VLW_WIDGET_LIST].data = (w->vscroll.cap << 8) + 1;
bjarni@4665: 
bjarni@4665: 	/* Set up sorting. Make the window-specific _sorting variable
bjarni@4665: 		* point to the correct global _sorting struct so we are freed
bjarni@4665: 		* from having conditionals during window operation */
bjarni@4665: 	switch (vl->vehicle_type) {
bjarni@4665: 		case VEH_Train:    vl->_sorting = &_sorting.train; break;
bjarni@4665: 		case VEH_Road:     vl->_sorting = &_sorting.roadveh; break;
bjarni@4665: 		case VEH_Ship:     vl->_sorting = &_sorting.ship; break;
bjarni@4665: 		case VEH_Aircraft: vl->_sorting = &_sorting.aircraft; break;
bjarni@4665: 		default: NOT_REACHED(); break;
bjarni@4665: 	}
bjarni@4665: 
rubidium@5838: 	vl->l.flags = VL_REBUILD | (vl->_sorting->order ? VL_DESC : VL_NONE);
bjarni@4665: 	vl->l.sort_type = vl->_sorting->criteria;
bjarni@4665: 	vl->sort_list = NULL;
bjarni@4665: 	vl->l.resort_timer = DAY_TICKS * PERIODIC_RESORT_DAYS;	// Set up resort timer
bjarni@4665: }
bjarni@4665: 
bjarni@4734: static void DrawSmallOrderList(const Vehicle *v, int x, int y)
bjarni@4734: {
bjarni@4734: 	const Order *order;
bjarni@4734: 	int sel, i = 0;
bjarni@4734: 
bjarni@4734: 	sel = v->cur_order_index;
bjarni@4734: 
bjarni@4734: 	FOR_VEHICLE_ORDERS(v, order) {
bjarni@4734: 		if (sel == 0) DrawString(x - 6, y, STR_SMALL_RIGHT_ARROW, 16);
bjarni@4734: 		sel--;
bjarni@4734: 
bjarni@4734: 		if (order->type == OT_GOTO_STATION) {
celestar@6147: 			if (v->type == VEH_Ship && GetStation(order->dest)->IsBuoy()) continue;
bjarni@4734: 
bjarni@4734: 			SetDParam(0, order->dest);
bjarni@4734: 			DrawString(x, y, STR_A036, 0);
bjarni@4734: 
bjarni@4734: 			y += 6;
bjarni@4734: 			if (++i == 4) break;
bjarni@4734: 		}
bjarni@4734: 	}
bjarni@4734: }
bjarni@4734: 
KUDr@6258: static void DrawVehicleListWindow(BaseWindow *w)
bjarni@4665: {
bjarni@4665: 	vehiclelist_d *vl = &WP(w, vehiclelist_d);
bjarni@4665: 	int x = 2;
bjarni@4665: 	int y = PLY_WND_PRC__OFFSET_TOP_WIDGET;
bjarni@4665: 	int max;
bjarni@4665: 	int i;
bjarni@4665: 	const PlayerID owner = (PlayerID)w->caption_color;
bjarni@4665: 	const Player *p = GetPlayer(owner);
bjarni@4665: 	const uint16 window_type = w->window_number & VLW_MASK;
bjarni@5998: 	const uint16 index = GB(w->window_number, 16, 16);
bjarni@4665: 
bjarni@5998: 	BuildVehicleList(vl, owner, index, window_type);
bjarni@4665: 	SortVehicleList(vl);
bjarni@4665: 	SetVScrollCount(w, vl->l.list_length);
bjarni@4665: 
bjarni@4665: 	/* draw the widgets */
bjarni@4665: 	switch (window_type) {
bjarni@4665: 		case VLW_SHARED_ORDERS: /* Shared Orders */
bjarni@4665: 			if (vl->l.list_length == 0) {
bjarni@4735: 				/* We can't open this window without vehicles using this order
bjarni@4735: 				 * and we should close the window when deleting the order      */
bjarni@4735: 				NOT_REACHED();
bjarni@4665: 			}
bjarni@4665: 			SetDParam(0, w->vscroll.count);
bjarni@4665: 			break;
bjarni@4665: 
bjarni@4665: 		case VLW_STANDARD: /* Company Name */
bjarni@4665: 			SetDParam(0, p->name_1);
bjarni@4668: 			SetDParam(1, p->name_2);
bjarni@4668: 			SetDParam(2, w->vscroll.count);
bjarni@4668: 			break;
bjarni@4665: 
bjarni@4668: 		case VLW_STATION_LIST: /* Station Name */
bjarni@5998: 			SetDParam(0, index);
bjarni@4668: 			SetDParam(1, w->vscroll.count);
bjarni@4668: 			break;
bjarni@4681: 
bjarni@4681: 		case VLW_DEPOT_LIST:
bjarni@4681: 			switch (vl->vehicle_type) {
bjarni@4681: 				case VEH_Train:    SetDParam(0, STR_8800_TRAIN_DEPOT);        break;
bjarni@4681: 				case VEH_Road:     SetDParam(0, STR_9003_ROAD_VEHICLE_DEPOT); break;
bjarni@4681: 				case VEH_Ship:     SetDParam(0, STR_9803_SHIP_DEPOT);         break;
bjarni@4681: 				case VEH_Aircraft: SetDParam(0, STR_A002_AIRCRAFT_HANGAR);    break;
bjarni@4681: 				default: NOT_REACHED(); break;
bjarni@4681: 			}
bjarni@4681: 			if (vl->vehicle_type == VEH_Aircraft) {
bjarni@5998: 				SetDParam(1, index); // Airport name
bjarni@4681: 			} else {
bjarni@5998: 				SetDParam(1, GetDepot(index)->town_index);
bjarni@4681: 			}
bjarni@4681: 			SetDParam(2, w->vscroll.count);
bjarni@4681: 			break;
bjarni@4668: 		default: NOT_REACHED(); break;
bjarni@4665: 	}
bjarni@4665: 
KUDr@6235: 	w->SetWidgetsDisabledState(vl->l.list_length == 0,
Darkvater@5274: 		VLW_WIDGET_MANAGE_VEHICLES,
Darkvater@5274: 		VLW_WIDGET_MANAGE_VEHICLES_DROPDOWN,
bjarni@4758: 		VLW_WIDGET_STOP_ALL,
bjarni@4758: 		VLW_WIDGET_START_ALL,
bjarni@4758: 		WIDGET_LIST_END);
belugas@4722: 
bjarni@6241: 	w->DrawWidgets();
bjarni@4665: 
bjarni@4665: 	/* draw sorting criteria string */
bjarni@4665: 	DrawString(85, 15, _vehicle_sort_listing[vl->l.sort_type], 0x10);
bjarni@4665: 	/* draw arrow pointing up/down for ascending/descending sorting */
bjarni@4665: 	DoDrawString(vl->l.flags & VL_DESC ? DOWNARROW : UPARROW, 69, 15, 0x10);
bjarni@4665: 
bjarni@4665: 	max = min(w->vscroll.pos + w->vscroll.cap, vl->l.list_length);
bjarni@4665: 	for (i = w->vscroll.pos; i < max; ++i) {
bjarni@4665: 		const Vehicle *v = vl->sort_list[i];
bjarni@4734: 		StringID str;
bjarni@4665: 
bjarni@4665: 		SetDParam(0, v->profit_this_year);
bjarni@4665: 		SetDParam(1, v->profit_last_year);
bjarni@4665: 
peter1138@4753: 		DrawVehicleImage(v, x + 19, y + 6, w->widget[VLW_WIDGET_LIST].right - w->widget[VLW_WIDGET_LIST].left - 20, 0, INVALID_VEHICLE);
bjarni@4734: 		DrawString(x + 19, y + w->resize.step_height - 8, STR_0198_PROFIT_THIS_YEAR_LAST_YEAR, 0);
bjarni@4665: 
bjarni@4734: 		if ((v->type == VEH_Train    && v->string_id != STR_SV_TRAIN_NAME)   ||
bjarni@4734: 			(v->type == VEH_Road     && v->string_id != STR_SV_ROADVEH_NAME) ||
bjarni@4734: 			(v->type == VEH_Ship     && v->string_id != STR_SV_SHIP_NAME)    ||
bjarni@4734: 			(v->type == VEH_Aircraft && v->string_id != STR_SV_AIRCRAFT_NAME)) {
bjarni@4665: 
bjarni@4734: 			/* The vehicle got a name so we will print it */
bjarni@4734: 			SetDParam(0, v->string_id);
bjarni@4734: 			DrawString(x + 19, y, STR_01AB, 0);
bjarni@4734: 		}
bjarni@4665: 
bjarni@4734: 		if (w->resize.step_height == PLY_WND_PRC__SIZE_OF_ROW_BIG) DrawSmallOrderList(v, x + 138, y);
bjarni@4665: 
bjarni@4734: 		if (IsVehicleInDepot(v)) {
bjarni@4734: 			str = STR_021F;
bjarni@4734: 		} else {
bjarni@4734: 			str = (v->age > v->max_age - 366) ? STR_00E3 : STR_00E2;
bjarni@4734: 		}
bjarni@4665: 
bjarni@4665: 		SetDParam(0, v->unitnumber);
bjarni@4665: 		DrawString(x, y + 2, str, 0);
bjarni@4665: 
bjarni@4665: 		DrawVehicleProfitButton(v, x, y + 13);
bjarni@4665: 
bjarni@4665: 		y += w->resize.step_height;
bjarni@4665: 	}
bjarni@4665: }
bjarni@4665: 
bjarni@4449: /*
bjarni@4449:  * bitmask for w->window_number
bjarni@4449:  * 0-7 PlayerID (owner)
bjarni@4449:  * 8-10 window type (use flags in vehicle_gui.h)
bjarni@4449:  * 11-15 vehicle type (using VEH_, but can be compressed to fewer bytes if needed)
bjarni@4449:  * 16-31 StationID or OrderID depending on window type (bit 8-10)
bjarni@4449:  **/
KUDr@6258: void PlayerVehWndProc(BaseWindow *w, WindowEvent *e)
bjarni@4442: {
bjarni@4442: 	vehiclelist_d *vl = &WP(w, vehiclelist_d);
bjarni@4442: 
bjarni@4442: 	switch (e->event) {
bjarni@4665: 		case WE_CREATE:
bjarni@4665: 			CreateVehicleListWindow(w);
bjarni@4665: 			break;
bjarni@4442: 
bjarni@4665: 		case WE_PAINT:
bjarni@4665: 			DrawVehicleListWindow(w);
bjarni@4665: 			break;
bjarni@4442: 
bjarni@4442: 		case WE_CLICK: {
belugas@4634: 			switch (e->we.click.widget) {
bjarni@4668: 				case VLW_WIDGET_SORT_ORDER: /* Flip sorting method ascending/descending */
Darkvater@4545: 					vl->l.flags ^= VL_DESC;
Darkvater@4545: 					vl->l.flags |= VL_RESORT;
bjarni@4442: 
Darkvater@4545: 					vl->_sorting->order = !!(vl->l.flags & VL_DESC);
KUDr@6235: 					w->SetDirty();
bjarni@4442: 					break;
bjarni@4668: 				case VLW_WIDGET_SORT_BY_TEXT: case VLW_WIDGET_SORT_BY_PULLDOWN:/* Select sorting criteria dropdown menu */
bjarni@6241: 					w->ShowDropDownMenu(_vehicle_sort_listing, vl->l.sort_type, VLW_WIDGET_SORT_BY_PULLDOWN, 0, 0);
bjarni@4442: 					return;
bjarni@4668: 				case VLW_WIDGET_LIST: { /* Matrix to show vehicles */
belugas@4634: 					uint32 id_v = (e->we.click.pt.y - PLY_WND_PRC__OFFSET_TOP_WIDGET) / w->resize.step_height;
bjarni@4442: 					const Vehicle *v;
bjarni@4442: 
bjarni@4442: 					if (id_v >= w->vscroll.cap) return; // click out of bounds
bjarni@4442: 
bjarni@4442: 					id_v += w->vscroll.pos;
bjarni@4442: 
Darkvater@4545: 					if (id_v >= vl->l.list_length) return; // click out of list bound
bjarni@4442: 
bjarni@4442: 					v = vl->sort_list[id_v];
bjarni@4442: 
Darkvater@4545: 					switch (vl->vehicle_type) {
bjarni@4442: 						case VEH_Train: ShowTrainViewWindow(v); break;
bjarni@4442: 						case VEH_Road: ShowRoadVehViewWindow(v); break;
bjarni@4442: 						case VEH_Ship: ShowShipViewWindow(v); break;
bjarni@4442: 						case VEH_Aircraft: ShowAircraftViewWindow(v); break;
bjarni@4442: 						default: NOT_REACHED(); break;
bjarni@4442: 					}
bjarni@4442: 				} break;
bjarni@4442: 
Darkvater@6097: 				case VLW_WIDGET_AVAILABLE_VEHICLES:
bjarni@6037: 					ShowBuildVehicleWindow(0, vl->vehicle_type);
bjarni@4506: 					break;
bjarni@4465: 
Darkvater@5274: 				case VLW_WIDGET_MANAGE_VEHICLES:
Darkvater@5274: 				case VLW_WIDGET_MANAGE_VEHICLES_DROPDOWN: {
Darkvater@5274: 					static StringID action_str[] = {
Darkvater@5274: 						STR_REPLACE_VEHICLES,
Darkvater@5274: 						STR_SEND_FOR_SERVICING,
Darkvater@5274: 						STR_NULL,
Darkvater@5274: 						INVALID_STRING_ID
Darkvater@5274: 					};
Darkvater@5274: 
Darkvater@5274: 					static const StringID depot_name[] = {
Darkvater@5274: 						STR_SEND_TRAIN_TO_DEPOT,
Darkvater@5274: 						STR_SEND_ROAD_VEHICLE_TO_DEPOT,
Darkvater@5274: 						STR_SEND_SHIP_TO_DEPOT,
Darkvater@5274: 						STR_SEND_AIRCRAFT_TO_HANGAR
Darkvater@5274: 					};
Darkvater@5274: 
Darkvater@5274: 					/* XXX - Substite string since the dropdown cannot handle dynamic strings */
bjarni@6206: 					action_str[2] = depot_name[vl->vehicle_type];
bjarni@6241: 					w->ShowDropDownMenu(action_str, 0, VLW_WIDGET_MANAGE_VEHICLES_DROPDOWN, 0, 0);
bjarni@4442: 					break;
Darkvater@5274: 				}
bjarni@4673: 
bjarni@4673: 				case VLW_WIDGET_STOP_ALL:
bjarni@4673: 				case VLW_WIDGET_START_ALL:
bjarni@4762: 					DoCommandP(0, GB(w->window_number, 16, 16), (w->window_number & VLW_MASK) | (1 << 6) | (e->we.click.widget == VLW_WIDGET_START_ALL ? (1 << 5) : 0) | vl->vehicle_type, NULL, CMD_MASS_START_STOP);
bjarni@4673: 					break;
bjarni@4442: 			}
bjarni@4442: 		}	break;
bjarni@4442: 
bjarni@4442: 		case WE_DROPDOWN_SELECT: /* we have selected a dropdown item in the list */
Darkvater@5274: 			switch (e->we.dropdown.button) {
Darkvater@5274: 				case VLW_WIDGET_SORT_BY_PULLDOWN:
Darkvater@5274: 					if (vl->l.sort_type != e->we.dropdown.index) {
Darkvater@5274: 						// value has changed -> resort
Darkvater@5274: 						vl->l.flags |= VL_RESORT;
Darkvater@5274: 						vl->l.sort_type = e->we.dropdown.index;
Darkvater@5274: 						vl->_sorting->criteria = vl->l.sort_type;
Darkvater@5274: 					}
Darkvater@5274: 					break;
Darkvater@5274: 				case VLW_WIDGET_MANAGE_VEHICLES_DROPDOWN:
Darkvater@5274: 					assert(vl->l.list_length != 0);
Darkvater@5274: 
Darkvater@5274: 					switch (e->we.dropdown.index) {
Darkvater@5274: 						case 0: /* Replace window */
Darkvater@5274: 							ShowReplaceVehicleWindow(vl->vehicle_type);
Darkvater@5274: 							break;
Darkvater@5274: 						case 1: /* Send for servicing */
Darkvater@5274: 							DoCommandP(0, GB(w->window_number, 16, 16) /* StationID or OrderID (depending on VLW) */,
Darkvater@5274: 								(w->window_number & VLW_MASK) | DEPOT_MASS_SEND | DEPOT_SERVICE,
Darkvater@5274: 								NULL,
bjarni@6043: 								GetCmdSendToDepot(vl->vehicle_type));
Darkvater@5274: 							break;
Darkvater@5274: 						case 2: /* Send to Depots */
Darkvater@5274: 							DoCommandP(0, GB(w->window_number, 16, 16) /* StationID or OrderID (depending on VLW) */,
Darkvater@5274: 								(w->window_number & VLW_MASK) | DEPOT_MASS_SEND,
Darkvater@5274: 								NULL,
bjarni@6043: 								GetCmdSendToDepot(vl->vehicle_type));
Darkvater@5274: 							break;
Darkvater@5274: 
Darkvater@5274: 						default: NOT_REACHED();
Darkvater@5274: 					}
Darkvater@5274: 					break;
Darkvater@5274: 				default: NOT_REACHED();
bjarni@4442: 			}
KUDr@6235: 			w->SetDirty();
bjarni@4442: 			break;
bjarni@4442: 
bjarni@4442: 		case WE_DESTROY:
bjarni@4442: 			free((void*)vl->sort_list);
bjarni@4442: 			break;
bjarni@4442: 
bjarni@4442: 		case WE_TICK: /* resort the list every 20 seconds orso (10 days) */
Darkvater@4545: 			if (--vl->l.resort_timer == 0) {
Darkvater@4546: 				StationID station = ((w->window_number & VLW_MASK) == VLW_STATION_LIST) ? GB(w->window_number, 16, 16) : INVALID_STATION;
Darkvater@4545: 				PlayerID owner = (PlayerID)w->caption_color;
Darkvater@4545: 
Darkvater@5568: 				DEBUG(misc, 3, "Periodic resort %d list player %d at station %d", vl->vehicle_type, owner, station);
Darkvater@4545: 				vl->l.resort_timer = DAY_TICKS * PERIODIC_RESORT_DAYS;
Darkvater@4545: 				vl->l.flags |= VL_RESORT;
KUDr@6235: 				w->SetDirty();
bjarni@4442: 			}
bjarni@4442: 			break;
bjarni@4442: 
Darkvater@4542: 		case WE_RESIZE: /* Update the scroll + matrix */
belugas@4634: 			w->vscroll.cap += e->we.sizing.diff.y / (int)w->resize.step_height;
bjarni@4668: 			w->widget[VLW_WIDGET_LIST].data = (w->vscroll.cap << 8) + 1;
bjarni@4442: 			break;
bjarni@4442: 	}
bjarni@4442: }
bjarni@4668: 
bjarni@4668: static const WindowDesc _player_vehicle_list_train_desc = {
Darkvater@5269: 	WDP_AUTO, WDP_AUTO, 260, 182,
rubidium@6144: 	WC_TRAINS_LIST, WC_NONE,
Darkvater@5070: 	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON | WDF_RESIZABLE,
Darkvater@5070: 	_vehicle_list_widgets,
Darkvater@5070: 	PlayerVehWndProc
bjarni@4668: };
bjarni@4668: 
bjarni@4668: static const WindowDesc _player_vehicle_list_road_veh_desc = {
Darkvater@5269: 	WDP_AUTO, WDP_AUTO, 260, 182,
rubidium@6144: 	WC_ROADVEH_LIST, WC_NONE,
bjarni@4726: 	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON | WDF_RESIZABLE,
bjarni@4726: 	_vehicle_list_widgets,
bjarni@4726: 	PlayerVehWndProc
bjarni@4726: };
bjarni@4726: 
bjarni@4726: static const WindowDesc _player_vehicle_list_ship_desc = {
Darkvater@5070: 	WDP_AUTO, WDP_AUTO, 260, 182,
rubidium@6144: 	WC_SHIPS_LIST, WC_NONE,
bjarni@4726: 	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON | WDF_RESIZABLE,
bjarni@4726: 	_vehicle_list_widgets,
bjarni@4726: 	PlayerVehWndProc
bjarni@4726: };
bjarni@4726: 
bjarni@4726: static const WindowDesc _player_vehicle_list_aircraft_desc = {
Darkvater@5070: 	WDP_AUTO, WDP_AUTO, 260, 182,
rubidium@6144: 	WC_AIRCRAFT_LIST, WC_NONE,
bjarni@4668: 	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS | WDF_STICKY_BUTTON | WDF_RESIZABLE,
bjarni@4668: 	_vehicle_list_widgets,
bjarni@4668: 	PlayerVehWndProc
bjarni@4668: };
bjarni@4668: 
bjarni@5996: static void ShowVehicleListWindowLocal(PlayerID player, uint16 VLW_flag, byte vehicle_type, uint16 unique_number)
bjarni@4668: {
KUDr@6258: 	BaseWindow *w;
Darkvater@5005: 	WindowNumber num;
bjarni@4668: 
Darkvater@5005: 	if (!IsValidPlayer(player)) return;
Darkvater@5005: 
bjarni@5996: 	num = (unique_number << 16) | (vehicle_type << 11) | VLW_flag | player;
bjarni@4668: 
Darkvater@5269: 	/* The vehicle list windows have been unified. Just some strings need
Darkvater@5269: 	 * to be changed which happens in the WE_CREATE event and resizing
Darkvater@5269: 	 * some of the windows to the correct size */
bjarni@4726: 	switch (vehicle_type) {
bjarni@6003: 		default: NOT_REACHED();
Darkvater@5269: 		case VEH_Train:
KUDr@6258: 			w = BaseWindow::AllocateFront(&_player_vehicle_list_train_desc, num);
bjarni@6240: 			if (w != NULL) w->Resize(65, 38);
Darkvater@5269: 			break;
Darkvater@5269: 		case VEH_Road:
KUDr@6258: 			w = BaseWindow::AllocateFront(&_player_vehicle_list_road_veh_desc, num);
bjarni@6240: 			if (w != NULL) w->Resize(0, 38);
Darkvater@5269: 			break;
Darkvater@5269: 		case VEH_Ship:
KUDr@6258: 			w = BaseWindow::AllocateFront(&_player_vehicle_list_ship_desc, num);
Darkvater@5269: 			break;
Darkvater@5269: 		case VEH_Aircraft:
KUDr@6258: 			w = BaseWindow::AllocateFront(&_player_vehicle_list_aircraft_desc, num);
Darkvater@5269: 			break;
Darkvater@5269: 	}
Darkvater@5269: 
Darkvater@5269: 	if (w != NULL) {
Darkvater@5269: 		/* Set the minimum window size to the current window size */
KUDr@6263: 		w->resize.width = w->Width();
KUDr@6263: 		w->resize.height = w->Height();
bjarni@4668: 	}
bjarni@4668: }
bjarni@4668: 
bjarni@5996: void ShowVehicleListWindow(PlayerID player, byte vehicle_type)
bjarni@4668: {
bjarni@5996: 	ShowVehicleListWindowLocal(player, VLW_STANDARD, vehicle_type, 0);
bjarni@4668: }
bjarni@4668: 
bjarni@5996: void ShowVehicleListWindow(const Vehicle *v)
bjarni@4668: {
bjarni@4668: 	if (v->orders == NULL) return; // no shared list to show
bjarni@5996: 	ShowVehicleListWindowLocal(v->owner, VLW_SHARED_ORDERS, v->type, v->orders->index);
peter1138@4669: }
bjarni@4681: 
bjarni@5996: void ShowVehicleListWindow(PlayerID player, byte vehicle_type, StationID station)
bjarni@5996: {
bjarni@5996: 	ShowVehicleListWindowLocal(player, VLW_STATION_LIST, vehicle_type, station);
bjarni@5996: }
bjarni@5996: 
bjarni@5996: void ShowVehicleListWindow(PlayerID player, byte vehicle_type, TileIndex depot_tile)
bjarni@4681: {
bjarni@4681: 	uint16 depot_airport_index;
bjarni@4681: 
bjarni@4681: 	if (vehicle_type == VEH_Aircraft) {
bjarni@4681: 		depot_airport_index = GetStationIndex(depot_tile);
bjarni@4681: 	} else {
bjarni@4681: 		Depot *depot = GetDepotByTile(depot_tile);
bjarni@4681: 		if (depot == NULL) return; // no depot to show
bjarni@4681: 		depot_airport_index = depot->index;
bjarni@4681: 	}
bjarni@5996: 	ShowVehicleListWindowLocal(player, VLW_DEPOT_LIST, vehicle_type, depot_airport_index);
bjarni@4681: }