1

/* $Id$ */

     2

     3

/** @file misc_gui.cpp GUIs for a number of misc windows. */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "heightmap.h"

     8

#include "debug.h"

     9

#include "landscape.h"

    10

#include "newgrf.h"

    11

#include "newgrf_text.h"

    12

#include "saveload.h"

    13

#include "tile_map.h"

    14

#include "gui.h"

    15

#include "window_gui.h"

    16

#include "station_gui.h"

    17

#include "textbuf_gui.h"

    18

#include "viewport_func.h"

    19

#include "gfx_func.h"

    20

#include "station_func.h"

    21

#include "command_func.h"

    22

#include "company_func.h"

    23

#include "company_base.h"

    24

#include "town.h"

    25

#include "network/network.h"

    26

#include "variables.h"

    27

#include "cheat_func.h"

    28

#include "train.h"

    29

#include "tgp.h"

    30

#include "cargotype.h"

    31

#include "company_manager_face.h"

    32

#include "strings_func.h"

    33

#include "fileio_func.h"

    34

#include "fios.h"

    35

#include "tile_cmd.h"

    36

#include "zoom_func.h"

    37

#include "functions.h"

    38

#include "window_func.h"

    39

#include "date_func.h"

    40

#include "sound_func.h"

    41

#include "string_func.h"

    42

#include "company_gui.h"

    43

#include "settings_type.h"

    44

#include "newgrf_cargo.h"

    45

#include "rail_gui.h"

    46

#include "tilehighlight_func.h"

    47

#include "querystring_gui.h"

    48

#include "company_base.h"

    49

    50

#include "table/sprites.h"

    51

#include "table/strings.h"

    52

    53

/* Variables to display file lists */

    54

SaveLoadDialogMode _saveload_mode;

    55

    56

    57

static bool _fios_path_changed;

    58

static bool _savegame_sort_dirty;

    59

    60

static const Widget _land_info_widgets[] = {

    61

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

    62

{    WWT_CAPTION,   RESIZE_NONE,  COLOUR_GREY,    11,   299,     0,    13, STR_01A3_LAND_AREA_INFORMATION, STR_018C_WINDOW_TITLE_DRAG_THIS},

    63

{      WWT_PANEL, RESIZE_BOTTOM,  COLOUR_GREY,     0,   299,    14,    99, 0x0,                            STR_NULL},

    64

{    WIDGETS_END},

    65

};

    66

    67

static const WindowDesc _land_info_desc = {

    68

	WDP_AUTO, WDP_AUTO, 300, 100, 300, 100,

    69

	WC_LAND_INFO, WC_NONE,

    70

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

    71

	_land_info_widgets,

    72

};

    73

    74

class LandInfoWindow : public Window {

    75

	enum {

    76

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

    77

		LAND_INFO_MULTICENTER_LINE = LAND_INFO_CENTERED_LINES, ///< One multicenter line

    78

		LAND_INFO_LINE_END,

    79

    80

		LAND_INFO_LINE_BUFF_SIZE = 512,

    81

	};

    82

    83

public:

    84

	char landinfo_data[LAND_INFO_LINE_END][LAND_INFO_LINE_BUFF_SIZE];

    85

    86

	virtual void OnPaint()

    87

	{

    88

		this->DrawWidgets();

    89

    90

		uint y = 21;

    91

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

    92

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

    93

    94

			DoDrawStringCentered(150, y, this->landinfo_data[i], i == 0 ? TC_LIGHT_BLUE : TC_FROMSTRING);

    95

			y += i == 0 ? 16 : 12;

    96

		}

    97

    98

		y += 6;

    99

   100

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

   101

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

   102

			DrawStringMultiCenter(150, y, STR_JUST_RAW_STRING, this->width - 4);

   103

		}

   104

	}

   105

   106

	LandInfoWindow(TileIndex tile) : Window(&_land_info_desc) {

   107

		Company *c = GetCompany(IsValidCompanyID(_local_company) ? _local_company : COMPANY_FIRST);

   108

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

   109

   110

		Money old_money = c->money;

   111

		c->money = INT64_MAX;

   112

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

   113

		c->money = old_money;

   114

   115

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

   116

		TileDesc td;

   117

		AcceptedCargo ac;

   118

   119

		td.build_date = INVALID_DATE;

   120

   121

		/* Most tiles have only one owner, but

   122

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

   123

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

   124

		 */

   125

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

   126

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

   127

		td.owner_type[2] = STR_NULL;

   128

		td.owner_type[3] = STR_NULL;

   129

		td.owner[0] = OWNER_NONE;

   130

		td.owner[1] = OWNER_NONE;

   131

		td.owner[2] = OWNER_NONE;

   132

		td.owner[3] = OWNER_NONE;

   133

   134

		td.station_class = STR_NULL;

   135

		td.station_name = STR_NULL;

   136

   137

		td.grf = NULL;

   138

   139

		GetAcceptedCargo(tile, ac);

   140

		GetTileDesc(tile, &td);

   141

   142

		uint line_nr = 0;

   143

   144

		/* Tiletype */

   145

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

   146

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

   147

		line_nr++;

   148

   149

		/* Up to four owners */

   150

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

   151

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

   152

   153

			SetDParam(0, STR_01A6_N_A);

   154

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

   155

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

   156

			line_nr++;

   157

		}

   158

   159

		/* Cost to clear */

   160

		StringID str = STR_01A4_COST_TO_CLEAR_N_A;

   161

		if (CmdSucceeded(costclear)) {

   162

			SetDParam(0, costclear.GetCost());

   163

			str = STR_01A5_COST_TO_CLEAR;

   164

		}

   165

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

   166

		line_nr++;

   167

   168

		/* Location */

   169

		char tmp[16];

   170

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

   171

		SetDParam(0, TileX(tile));

   172

		SetDParam(1, TileY(tile));

   173

		SetDParam(2, TileHeight(tile));

   174

		SetDParamStr(3, tmp);

   175

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

   176

		line_nr++;

   177

   178

		/* Local authority */

   179

		SetDParam(0, STR_01A9_NONE);

   180

		if (t != NULL && t->IsValid()) {

   181

			SetDParam(0, STR_TOWN);

   182

			SetDParam(1, t->index);

   183

		}

   184

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

   185

		line_nr++;

   186

   187

		/* Build date */

   188

		if (td.build_date != INVALID_DATE) {

   189

			SetDParam(0, td.build_date);

   190

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

   191

			line_nr++;

   192

		}

   193

   194

		/* Station class */

   195

		if (td.station_class != STR_NULL) {

   196

			SetDParam(0, td.station_class);

   197

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

   198

			line_nr++;

   199

		}

   200

   201

		/* Station type name */

   202

		if (td.station_name != STR_NULL) {

   203

			SetDParam(0, td.station_name);

   204

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

   205

			line_nr++;

   206

		}

   207

   208

		/* NewGRF name */

   209

		if (td.grf != NULL) {

   210

			SetDParamStr(0, td.grf);

   211

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

   212

			line_nr++;

   213

		}

   214

   215

		assert(line_nr < LAND_INFO_CENTERED_LINES);

   216

   217

		/* Mark last line empty */

   218

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

   219

   220

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

   221

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

   222

		bool found = false;

   223

   224

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

   225

			if (ac[i] > 0) {

   226

				/* Add a comma between each item. */

   227

				if (found) {

   228

					*strp++ = ',';

   229

					*strp++ = ' ';

   230

				}

   231

				found = true;

   232

   233

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

   234

				if (ac[i] < 8) {

   235

					SetDParam(0, ac[i]);

   236

					SetDParam(1, GetCargo(i)->name);

   237

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

   238

				} else {

   239

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

   240

				}

   241

			}

   242

		}

   243

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

   244

   245

		if (found) line_nr += 2;

   246

   247

		if (line_nr > 6) ResizeWindow(this, 0, 12 * (line_nr - 6));

   248

   249

		this->FindWindowPlacementAndResize(&_land_info_desc);

   250

   251

#if defined(_DEBUG)

   252

#	define LANDINFOD_LEVEL 0

   253

#else

   254

#	define LANDINFOD_LEVEL 1

   255

#endif

   256

		DEBUG(misc, LANDINFOD_LEVEL, "TILE: %#x (%i,%i)", tile, TileX(tile), TileY(tile));

   257

		DEBUG(misc, LANDINFOD_LEVEL, "type_height  = %#x", _m[tile].type_height);

   258

		DEBUG(misc, LANDINFOD_LEVEL, "m1           = %#x", _m[tile].m1);

   259

		DEBUG(misc, LANDINFOD_LEVEL, "m2           = %#x", _m[tile].m2);

   260

		DEBUG(misc, LANDINFOD_LEVEL, "m3           = %#x", _m[tile].m3);

   261

		DEBUG(misc, LANDINFOD_LEVEL, "m4           = %#x", _m[tile].m4);

   262

		DEBUG(misc, LANDINFOD_LEVEL, "m5           = %#x", _m[tile].m5);

   263

		DEBUG(misc, LANDINFOD_LEVEL, "m6           = %#x", _m[tile].m6);

   264

		DEBUG(misc, LANDINFOD_LEVEL, "m7           = %#x", _me[tile].m7);

   265

#undef LANDINFOD_LEVEL

   266

	}

   267

};

   268

   269

static void Place_LandInfo(TileIndex tile)

   270

{

   271

	DeleteWindowById(WC_LAND_INFO, 0);

   272

	new LandInfoWindow(tile);

   273

}

   274

   275

void PlaceLandBlockInfo()

   276

{

   277

	if (_cursor.sprite == SPR_CURSOR_QUERY) {

   278

		ResetObjectToPlace();

   279

	} else {

   280

		_place_proc = Place_LandInfo;

   281

		SetObjectToPlace(SPR_CURSOR_QUERY, PAL_NONE, VHM_RECT, WC_MAIN_TOOLBAR, 0);

   282

	}

   283

}

   284

   285

static const Widget _about_widgets[] = {

   286

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

   287

{    WWT_CAPTION,   RESIZE_NONE,  COLOUR_GREY,    11,   419,     0,    13, STR_015B_OPENTTD, STR_NULL},

   288

{      WWT_PANEL,   RESIZE_NONE,  COLOUR_GREY,     0,   419,    14,   271, 0x0,              STR_NULL},

   289

{      WWT_FRAME,   RESIZE_NONE,  COLOUR_GREY,     5,   414,    40,   245, STR_NULL,         STR_NULL},

   290

{    WIDGETS_END},

   291

};

   292

   293

static const WindowDesc _about_desc = {

   294

	WDP_CENTER, WDP_CENTER, 420, 272, 420, 272,

   295

	WC_GAME_OPTIONS, WC_NONE,

   296

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   297

	_about_widgets,

   298

};

   299

   300

struct AboutWindow : public Window {

   301

	int scroll_height;

   302

	uint16 counter;

   303

   304

	AboutWindow() : Window(&_about_desc)

   305

	{

   306

		this->counter = 5;

   307

		this->scroll_height = this->height - 40;

   308

		this->FindWindowPlacementAndResize(&_about_desc);

   309

	}

   310

   311

	virtual void OnPaint()

   312

	{

   313

		static const char *credits[] = {

   314

			/*************************************************************************

   315

			 *                      maximum length of string which fits in window   -^*/

   316

			"Original design by Chris Sawyer",

   317

			"Original graphics by Simon Foster",

   318

			"",

   319

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

   320

			"  Jean-Francois Claeys (Belugas) - GUI, newindustries and more",

   321

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

   322

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

   323

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

   324

			"  Christoph Elsenhans (frosch) - General coding",

   325

			"  Loïc Guilloux (glx) - General coding",

   326

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

   327

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

   328

			"  Attila Bán (MiHaMiX) - WebTranslator, Nightlies, Wiki and bugtracker host",

   329

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

   330

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

   331

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

   332

			"  Benedikt Brüggemeier (skidd13) - Bug fixer and code reworker",

   333

			"  Zdenek Sojka (SmatZ) - Bug finder and fixer",

   334

			"",

   335

			"Inactive Developers:",

   336

			"  Tamás Faragó (Darkvater) - Ex-Lead coder",

   337

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

   338

			"",

   339

			"Retired Developers:",

   340

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

   341

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

   342

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

   343

			"  Patric Stout (TrueLight) - Programmer, webhoster (0.3 - pre0.6)",

   344

			"",

   345

			"Special thanks go out to:",

   346

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

   347

			"  Marcin Grzegorczyk - For his documentation of TTD internals",

   348

			"  Petr Baudis (pasky) - Many patches, newGRF support",

   349

			"  Stefan Meißner (sign_de) - For his work on the console",

   350

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

   351

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

   352

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

   353

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

   354

			"",

   355

			"  Michael Blunck - Pre-Signals and Semaphores © 2003",

   356

			"  George - Canal/Lock graphics © 2003-2004",

   357

			"  David Dallaston - Tram tracks",

   358

			"  Marcin Grzegorczyk - Foundations for Tracks on Slopes",

   359

			"  All Translators - Who made OpenTTD a truly international game",

   360

			"  Bug Reporters - Without whom OpenTTD would still be full of bugs!",

   361

			"",

   362

			"",

   363

			"And last but not least:",

   364

			"  Chris Sawyer - For an amazing game!"

   365

		};

   366

   367

		this->DrawWidgets();

   368

   369

		/* Show original copyright and revision version */

   370

		DrawStringCentered(210, 17, STR_00B6_ORIGINAL_COPYRIGHT, TC_FROMSTRING);

   371

		DrawStringCentered(210, 17 + 10, STR_00B7_VERSION, TC_FROMSTRING);

   372

   373

		int y = this->scroll_height;

   374

   375

		/* Show all scrolling credits */

   376

		for (uint i = 0; i < lengthof(credits); i++) {

   377

			if (y >= 50 && y < (this->height - 40)) {

   378

				DoDrawString(credits[i], 10, y, TC_BLACK);

   379

			}

   380

			y += 10;

   381

		}

   382

   383

		/* If the last text has scrolled start a new from the start */

   384

		if (y < 50) this->scroll_height = this->height - 40;

   385

   386

		DoDrawStringCentered(210, this->height - 25, "Website: http://www.openttd.org", TC_BLACK);

   387

		DrawStringCentered(210, this->height - 15, STR_00BA_COPYRIGHT_OPENTTD, TC_FROMSTRING);

   388

	}

   389

   390

	virtual void OnTick()

   391

	{

   392

		if (--this->counter == 0) {

   393

			this->counter = 5;

   394

			this->scroll_height--;

   395

			this->SetDirty();

   396

		}

   397

	}

   398

};

   399

   400

void ShowAboutWindow()

   401

{

   402

	DeleteWindowById(WC_GAME_OPTIONS, 0);

   403

	new AboutWindow();

   404

}

   405

   406

static const Widget _errmsg_widgets[] = {

   407

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

   408

{    WWT_CAPTION,   RESIZE_NONE,    COLOUR_RED,    11,   239,     0,    13, STR_00B2_MESSAGE, STR_NULL},

   409

{      WWT_PANEL,   RESIZE_BOTTOM,  COLOUR_RED,     0,   239,    14,    45, 0x0,              STR_NULL},

   410

{    WIDGETS_END},

   411

};

   412

   413

static const Widget _errmsg_face_widgets[] = {

   414

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

   415

{    WWT_CAPTION,   RESIZE_NONE,    COLOUR_RED,    11,   333,     0,    13, STR_00B3_MESSAGE_FROM, STR_NULL},

   416

{      WWT_PANEL,   RESIZE_BOTTOM,  COLOUR_RED,     0,   333,    14,   136, 0x0,                   STR_NULL},

   417

{   WIDGETS_END},

   418

};

   419

   420

struct ErrmsgWindow : public Window {

   421

private:

   422

	uint duration;

   423

	uint64 decode_params[20];

   424

	StringID message_1;

   425

	StringID message_2;

   426

	bool show_company_manager_face;

   427

   428

	int y[2];

   429

   430

public:

   431

	ErrmsgWindow(Point pt, int width, int height, StringID msg1, StringID msg2, const Widget *widget, bool show_company_manager_face) :

   432

			Window(pt.x, pt.y, width, height, WC_ERRMSG, widget),

   433

			show_company_manager_face(show_company_manager_face)

   434

	{

   435

		this->duration = _settings_client.gui.errmsg_duration;

   436

		CopyOutDParam(this->decode_params, 0, lengthof(this->decode_params));

   437

		this->message_1 = msg1;

   438

		this->message_2 = msg2;

   439

		this->desc_flags = WDF_STD_BTN | WDF_DEF_WIDGET;

   440

   441

		SwitchToErrorRefStack();

   442

		RewindTextRefStack();

   443

   444

		assert(msg2 != INVALID_STRING_ID);

   445

   446

		int h2 = 3 + GetStringHeight(msg2, width - 2); // msg2 is printed first

   447

		int h1 = (msg1 == INVALID_STRING_ID) ? 0 : 3 + GetStringHeight(msg1, width - 2);

   448

   449

		SwitchToNormalRefStack();

   450

   451

		int h = 15 + h1 + h2;

   452

		height = max<int>(height, h);

   453

   454

		if (msg1 == INVALID_STRING_ID) {

   455

			/* only 1 line will be printed */

   456

			y[1] = (height - 15) / 2 + 15 - 5;

   457

		} else {

   458

			int over = (height - h) / 4;

   459

   460

			y[1] = 15 + h2 / 2 + 1 - 5 + over;

   461

			y[0] = height - 3 - h1 / 2 - 5 - over;

   462

		}

   463

   464

		this->FindWindowPlacementAndResize(width, height);

   465

	}

   466

   467

	virtual void OnPaint()

   468

	{

   469

		CopyInDParam(0, this->decode_params, lengthof(this->decode_params));

   470

		this->DrawWidgets();

   471

		CopyInDParam(0, this->decode_params, lengthof(this->decode_params));

   472

   473

		/* If the error message comes from a NewGRF, we must use the text ref. stack reserved for error messages.

   474

		 * If the message doesn't come from a NewGRF, it won't use the TTDP-style text ref. stack, so we won't hurt anything

   475

		 */

   476

		SwitchToErrorRefStack();

   477

		RewindTextRefStack();

   478

   479

		if (this->show_company_manager_face) {

   480

			const Company *c = GetCompany((CompanyID)GetDParamX(this->decode_params, 2));

   481

			DrawCompanyManagerFace(c->face, c->colour, 2, 16);

   482

		}

   483

   484

		DrawStringMultiCenter(this->width - 120, y[1], this->message_2, this->width - 2);

   485

		if (this->message_1 != INVALID_STRING_ID) DrawStringMultiCenter(this->width - 120, y[0], this->message_1, this->width - 2);

   486

   487

		/* Switch back to the normal text ref. stack for NewGRF texts */