#include "window_func.h"

#include "querystring_gui.h"

#include "console_func.h"

#include "core/geometry_func.hpp"

#include "newgrf_debug.h"

#include "table/strings.h"

/**

 * Try to retrive the current clipboard contents.

 *

 * @note OS-specific funtion.

 * @return True if some text could be retrived.

 */

bool GetClipboardContents(char *buffer, size_t buff_len);

int _caret_timer;

/** Widgets for the land info window. */

enum LandInfoWidgets {

	LIW_BACKGROUND, ///< Background to draw on

};

static const NWidgetPart _nested_land_info_widgets[] = {

	NWidget(NWID_HORIZONTAL),

		NWidget(WWT_CLOSEBOX, COLOUR_GREY),

		NWidget(WWT_CAPTION, COLOUR_GREY), SetDataTip(STR_LAND_AREA_INFORMATION_CAPTION, STR_TOOLTIP_WINDOW_TITLE_DRAG_THIS),

		NWidget(WWT_DEBUGBOX, COLOUR_GREY),

	EndContainer(),

	NWidget(WWT_PANEL, COLOUR_GREY, LIW_BACKGROUND), EndContainer(),

};

static const WindowDesc _land_info_desc(

	WDP_AUTO, 0, 0,

	WC_LAND_INFO, WC_NONE,

	0,

	_nested_land_info_widgets, lengthof(_nested_land_info_widgets)

);

class LandInfoWindow : public Window {

	enum LandInfoLines {

		LAND_INFO_CENTERED_LINES   = 12,                       ///< Up to 12 centered lines

		LAND_INFO_MULTICENTER_LINE = LAND_INFO_CENTERED_LINES, ///< One multicenter line

		LAND_INFO_LINE_END,

	};

	static const uint LAND_INFO_LINE_BUFF_SIZE = 512;

public:

	char landinfo_data[LAND_INFO_LINE_END][LAND_INFO_LINE_BUFF_SIZE];

	TileIndex tile;

	virtual void DrawWidget(const Rect &r, int widget) const

	{

		if (widget != LIW_BACKGROUND) return;

		uint y = r.top + WD_TEXTPANEL_TOP;

		for (uint i = 0; i < LAND_INFO_CENTERED_LINES; i++) {

			if (StrEmpty(this->landinfo_data[i])) break;

			DrawString(r.left + WD_FRAMETEXT_LEFT, r.right - WD_FRAMETEXT_RIGHT, y, this->landinfo_data[i], i == 0 ? TC_LIGHT_BLUE : TC_FROMSTRING, SA_HOR_CENTER);

			y += FONT_HEIGHT_NORMAL + WD_PAR_VSEP_NORMAL;

			if (i == 0) y += 4;

		}

		if (!StrEmpty(this->landinfo_data[LAND_INFO_MULTICENTER_LINE])) {

			SetDParamStr(0, this->landinfo_data[LAND_INFO_MULTICENTER_LINE]);

			DrawStringMultiLine(r.left + WD_FRAMETEXT_LEFT, r.right - WD_FRAMETEXT_RIGHT, y, r.bottom - WD_TEXTPANEL_BOTTOM, STR_JUST_RAW_STRING, TC_FROMSTRING, SA_CENTER);

		}

	}

	virtual void UpdateWidgetSize(int widget, Dimension *size, const Dimension &padding, Dimension *fill, Dimension *resize)

	{

		if (widget != LIW_BACKGROUND) return;

		size->height = WD_TEXTPANEL_TOP + WD_TEXTPANEL_BOTTOM;

		for (uint i = 0; i < LAND_INFO_CENTERED_LINES; i++) {

			if (StrEmpty(this->landinfo_data[i])) break;

			uint width = GetStringBoundingBox(this->landinfo_data[i]).width + WD_FRAMETEXT_LEFT + WD_FRAMETEXT_RIGHT;

			size->width = max(size->width, width);

			size->height += FONT_HEIGHT_NORMAL + WD_PAR_VSEP_NORMAL;

			if (i == 0) size->height += 4;

		}

		if (!StrEmpty(this->landinfo_data[LAND_INFO_MULTICENTER_LINE])) {

			uint width = GetStringBoundingBox(this->landinfo_data[LAND_INFO_MULTICENTER_LINE]).width + WD_FRAMETEXT_LEFT + WD_FRAMETEXT_RIGHT;

			size->width = max(size->width, min(300u, width));

			SetDParamStr(0, this->landinfo_data[LAND_INFO_MULTICENTER_LINE]);

			size->height += GetStringHeight(STR_JUST_RAW_STRING, size->width - WD_FRAMETEXT_LEFT - WD_FRAMETEXT_RIGHT);

		}

	}

	LandInfoWindow(TileIndex tile) : Window(), tile(tile) {

		Town *t = ClosestTownFromTile(tile, _settings_game.economy.dist_local_authority);

		/* Because build_date is not set yet in every TileDesc, we make sure it is empty */

		TileDesc td;

		td.build_date = INVALID_DATE;

		/* Most tiles have only one owner, but

		 *  - drivethrough roadstops can be build on town owned roads (up to 2 owners) and

		 *  - roads can have up to four owners (railroad, road, tram, 3rd-roadtype "highway").

		 */

		td.owner_type[0] = STR_LAND_AREA_INFORMATION_OWNER; // At least one owner is displayed, though it might be "N/A".

		td.owner_type[1] = STR_NULL;       // STR_NULL results in skipping the owner

		td.owner_type[2] = STR_NULL;

		td.owner_type[3] = STR_NULL;

		td.owner[0] = OWNER_NONE;

		td.owner[1] = OWNER_NONE;

		td.owner[2] = OWNER_NONE;

		td.owner[3] = OWNER_NONE;

		td.station_class = STR_NULL;

		td.station_name = STR_NULL;

		td.airport_class = STR_NULL;

		td.airport_name = STR_NULL;

		td.airport_tile_name = STR_NULL;

		td.rail_speed = 0;

		td.grf = NULL;

		CargoArray acceptance;

		AddAcceptedCargo(tile, acceptance, NULL);

		GetTileDesc(tile, &td);

		uint line_nr = 0;

		/* Tiletype */

		SetDParam(0, td.dparam[0]);

		GetString(this->landinfo_data[line_nr], td.str, lastof(this->landinfo_data[line_nr]));

		line_nr++;

		/* Up to four owners */

		for (uint i = 0; i < 4; i++) {

			if (td.owner_type[i] == STR_NULL) continue;

			SetDParam(0, STR_LAND_AREA_INFORMATION_OWNER_N_A);

			if (td.owner[i] != OWNER_NONE && td.owner[i] != OWNER_WATER) GetNameOfOwner(td.owner[i], tile);

			GetString(this->landinfo_data[line_nr], td.owner_type[i], lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* Cost to clear/revenue when cleared */

		StringID str = STR_LAND_AREA_INFORMATION_COST_TO_CLEAR_N_A;

		Company *c = Company::GetIfValid(_local_company);

		if (c != NULL) {

			Money old_money = c->money;

			c->money = INT64_MAX;

			CommandCost costclear = DoCommand(tile, 0, 0, DC_NONE, CMD_LANDSCAPE_CLEAR);

			c->money = old_money;

			if (costclear.Succeeded()) {

				Money cost = costclear.GetCost();

				if (cost < 0) {

					cost = -cost; // Negate negative cost to a positive revenue

					str = STR_LAND_AREA_INFORMATION_REVENUE_WHEN_CLEARED;

				} else {

					str = STR_LAND_AREA_INFORMATION_COST_TO_CLEAR;

				}

				SetDParam(0, cost);

			}

		}

		GetString(this->landinfo_data[line_nr], str, lastof(this->landinfo_data[line_nr]));

		line_nr++;

		/* Location */

		char tmp[16];

		snprintf(tmp, lengthof(tmp), "0x%.4X", tile);

		SetDParam(0, TileX(tile));

		SetDParam(1, TileY(tile));

		SetDParam(2, GetTileZ(tile) / TILE_HEIGHT);

		SetDParamStr(3, tmp);

		GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_LANDINFO_COORDS, lastof(this->landinfo_data[line_nr]));

		line_nr++;

		/* Local authority */

		SetDParam(0, STR_LAND_AREA_INFORMATION_LOCAL_AUTHORITY_NONE);

		if (t != NULL) {

			SetDParam(0, STR_TOWN_NAME);

			SetDParam(1, t->index);

		}

		GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_LOCAL_AUTHORITY, lastof(this->landinfo_data[line_nr]));

		line_nr++;

		/* Build date */

		if (td.build_date != INVALID_DATE) {

			SetDParam(0, td.build_date);

			GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_BUILD_DATE, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* Station class */

		if (td.station_class != STR_NULL) {

			SetDParam(0, td.station_class);

			GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_STATION_CLASS, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* Station type name */

		if (td.station_name != STR_NULL) {

			SetDParam(0, td.station_name);

			GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_STATION_TYPE, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* Airport class */

		if (td.airport_class != STR_NULL) {

			SetDParam(0, td.airport_class);

			GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_AIRPORT_CLASS, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* Airport name */

		if (td.airport_name != STR_NULL) {

			SetDParam(0, td.airport_name);

			GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_AIRPORT_NAME, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* Airport tile name */

		if (td.airport_tile_name != STR_NULL) {

			SetDParam(0, td.airport_tile_name);

			GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_AIRPORTTILE_NAME, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* Rail speed limit */

		if (td.rail_speed != 0) {

			SetDParam(0, td.rail_speed);

			GetString(this->landinfo_data[line_nr], STR_LANG_AREA_INFORMATION_RAIL_SPEED_LIMIT, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		/* NewGRF name */

		if (td.grf != NULL) {

			SetDParamStr(0, td.grf);

			GetString(this->landinfo_data[line_nr], STR_LAND_AREA_INFORMATION_NEWGRF_NAME, lastof(this->landinfo_data[line_nr]));

			line_nr++;

		}

		assert(line_nr < LAND_INFO_CENTERED_LINES);

		/* Mark last line empty */

		this->landinfo_data[line_nr][0] = '\0';

		/* Cargo acceptance is displayed in a extra multiline */

		char *strp = GetString(this->landinfo_data[LAND_INFO_MULTICENTER_LINE], STR_LAND_AREA_INFORMATION_CARGO_ACCEPTED, lastof(this->landinfo_data[LAND_INFO_MULTICENTER_LINE]));

		bool found = false;

		for (CargoID i = 0; i < NUM_CARGO; ++i) {

			if (acceptance[i] > 0) {

				/* Add a comma between each item. */

				if (found) {

					*strp++ = ',';

					*strp++ = ' ';

				}

				found = true;

				/* If the accepted value is less than 8, show it in 1/8:ths */

				if (acceptance[i] < 8) {

					SetDParam(0, acceptance[i]);

					SetDParam(1, CargoSpec::Get(i)->name);

					strp = GetString(strp, STR_LAND_AREA_INFORMATION_CARGO_EIGHTS, lastof(this->landinfo_data[LAND_INFO_MULTICENTER_LINE]));

				} else {

					strp = GetString(strp, CargoSpec::Get(i)->name, lastof(this->landinfo_data[LAND_INFO_MULTICENTER_LINE]));

				}

			}

		}

		if (!found) this->landinfo_data[LAND_INFO_MULTICENTER_LINE][0] = '\0';

	}

	virtual bool IsNewGRFInspectable() const

	{

		return ::IsNewGRFInspectable(GetGrfSpecFeature(this->tile), this->tile);

	}

	virtual void ShowNewGRFInspectWindow() const

	{

		::ShowNewGRFInspectWindow(GetGrfSpecFeature(this->tile), this->tile);

	}

};

void ShowLandInfo(TileIndex tile)

{

	DeleteWindowById(WC_LAND_INFO, 0);

	new LandInfoWindow(tile);

}

/** Widgets for the land info window. */

enum AboutWidgets {

	AW_SCROLLING_TEXT,       ///< The actually scrolling text

	AW_WEBSITE,              ///< URL of OpenTTD website

};

static const NWidgetPart _nested_about_widgets[] = {

	NWidget(NWID_HORIZONTAL),

		NWidget(WWT_CLOSEBOX, COLOUR_GREY),

		NWidget(WWT_CAPTION, COLOUR_GREY), SetDataTip(STR_ABOUT_OPENTTD, STR_TOOLTIP_WINDOW_TITLE_DRAG_THIS),

	EndContainer(),

	NWidget(WWT_PANEL, COLOUR_GREY), SetPIP(4, 2, 4),

		NWidget(WWT_LABEL, COLOUR_GREY), SetDataTip(STR_ABOUT_ORIGINAL_COPYRIGHT, STR_NULL),

		NWidget(WWT_LABEL, COLOUR_GREY), SetDataTip(STR_ABOUT_VERSION, STR_NULL),

		NWidget(WWT_FRAME, COLOUR_GREY), SetPadding(0, 5, 1, 5),

			NWidget(WWT_EMPTY, INVALID_COLOUR, AW_SCROLLING_TEXT),

		EndContainer(),

		NWidget(WWT_LABEL, COLOUR_GREY, AW_WEBSITE), SetDataTip(STR_BLACK_RAW_STRING, STR_NULL),

		NWidget(WWT_LABEL, COLOUR_GREY), SetDataTip(STR_ABOUT_COPYRIGHT_OPENTTD, STR_NULL),

	EndContainer(),

};

static const WindowDesc _about_desc(

	WDP_CENTER, 0, 0,

	WC_GAME_OPTIONS, WC_NONE,

	0,

	_nested_about_widgets, lengthof(_nested_about_widgets)

);

static const char * const _credits[] = {

	"Original design by Chris Sawyer",

	"Original graphics by Simon Foster",

	"",

	"The OpenTTD team (in alphabetical order):",

	"  Albert Hofkamp (Alberth) - GUI expert",

	"  Jean-Fran\xC3\xA7ois Claeys (Belugas) - GUI, newindustries and more",

	"  Matthijs Kooijman (blathijs) - Pathfinder-guru, pool rework",

	"  Christoph Elsenhans (frosch) - General coding",

	"  Lo\xC3\xAF""c Guilloux (glx) - Windows Expert",

	"  Michael Lutz (michi_cc) - Path based signals",

	"  Owen Rudge (orudge) - Forum host, OS/2 port",

	"  Peter Nelson (peter1138) - Spiritual descendant from NewGRF gods",

	"  Ingo von Borstel (planetmaker) - Support",

	"  Remko Bijker (Rubidium) - Lead coder and way more",

	"  Zden\xC4\x9Bk Sojka (SmatZ) - Bug finder and fixer",

	"  Jos\xC3\xA9 Soler (Terkhen) - General coding",

	"  Thijs Marinussen (Yexo) - AI Framework",

	"",

	"Inactive Developers:",

	"  Bjarni Corfitzen (Bjarni) - MacOSX port, coder and vehicles",

	"  Victor Fischer (Celestar) - Programming everywhere you need him to",

	"  Tam\xC3\xA1s Farag\xC3\xB3 (Darkvater) - Ex-Lead coder",

	"  Jaroslav Mazanec (KUDr) - YAPG (Yet Another Pathfinder God) ;)",

	"  Jonathan Coome (Maedhros) - High priest of the NewGRF Temple",

	"  Attila B\xC3\xA1n (MiHaMiX) - Developer WebTranslator 1 and 2",

	"  Christoph Mallon (Tron) - Programmer, code correctness police",

	"",

	"Retired Developers:",

	"  Ludvig Strigeus (ludde) - OpenTTD author, main coder (0.1 - 0.3.3)",

	"  Serge Paquet (vurlix) - Assistant project manager, coder (0.1 - 0.3.3)",

	"  Dominik Scherer (dominik81) - Lead programmer, GUI expert (0.3.0 - 0.3.6)",

	"  Benedikt Br\xC3\xBCggemeier (skidd13) - Bug fixer and code reworker",

	"  Patric Stout (TrueLight) - Programmer (0.3 - pre0.7), sys op (active)",

	"",

	"Special thanks go out to:",

	"  Josef Drexler - For his great work on TTDPatch",

	"  Marcin Grzegorczyk - For describing Transport Tycoon Deluxe internals",

	"  Petr Baudi\xC5\xA1 (pasky) - Many patches, newGRF support",

	"  Stefan Mei\xC3\x9Fner (sign_de) - For his work on the console",

	"  Simon Sasburg (HackyKid) - Many bugfixes he has blessed us with",

	"  Cian Duffy (MYOB) - BeOS port / manual writing",

	"  Christian Rosentreter (tokai) - MorphOS / AmigaOS port",

	"  Richard Kempton (richK) - additional airports, initial TGP implementation",

	"",

	"  Alberto Demichelis - Squirrel scripting language \xC2\xA9 2003-2008",

	"  L. Peter Deutsch - MD5 implementation \xC2\xA9 1999, 2000, 2002",

	"  Michael Blunck - Pre-Signals and Semaphores \xC2\xA9 2003",