1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "map.h"

     5

//#include "gui.h"

     6

#include "window.h"

     7

#include "gfx.h"

     8

#include "command.h"

     9

#include "viewport.h"

    10

#include "industry.h"

    11

#include "town.h"

    12

    13

static const byte _build_industry_types[4][12] = {

    14

	{ 1,  2, 4,  6, 8, 0, 3, 5,  9, 11, 18 },

    15

	{ 1, 14, 4, 13, 7, 0, 3, 9, 11, 15 },

    16

	{ 25, 13, 4, 23, 22, 11, 17, 10, 24, 19, 20, 21 },

    17

	{ 27, 30, 31, 33, 26, 28, 29, 32, 34, 35, 36 },

    18

};

    19

    20

extern const byte _industry_type_costs[37];

    21

    22

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

    23

{

    24

	switch(e->event) {

    25

	case WE_PAINT:

    26

		DrawWindowWidgets(w);

    27

		if (_thd.place_mode == 1 && _thd.window_class == WC_BUILD_INDUSTRY) {

    28

			int ind_type = _build_industry_types[_opt.landscape][WP(w,def_d).data_1];

    29

    30

			SetDParam(0, (_price.build_industry >> 5) * _industry_type_costs[ind_type]);

    31

			DrawStringCentered(85, w->height - 21, STR_482F_COST, 0);

    32

		}

    33

		break;

    34

    35

	case WE_CLICK: {

    36

		int wid = e->click.widget;

    37

		if (wid >= 3) {

    38

			if (HandlePlacePushButton(w, wid, 0xFF1, 1, NULL))

    39

				WP(w,def_d).data_1 = wid - 3;

    40

		}

    41

	} break;

    42

    43

	case WE_PLACE_OBJ:

    44

		if (DoCommandP(e->place.tile, _build_industry_types[_opt.landscape][WP(w,def_d).data_1], 0, NULL, CMD_BUILD_INDUSTRY | CMD_MSG(STR_4830_CAN_T_CONSTRUCT_THIS_INDUSTRY)))

    45

			ResetObjectToPlace();

    46

		break;

    47

    48

	case WE_ABORT_PLACE_OBJ:

    49

		w->click_state = 0;

    50

		SetWindowDirty(w);

    51

		break;

    52

	}

    53

}

    54

    55

static const Widget _build_industry_land0_widgets[] = {

    56

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,											STR_018B_CLOSE_WINDOW},

    57

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,		STR_018C_WINDOW_TITLE_DRAG_THIS},

    58

{      WWT_PANEL,     7,     0,   169,    14,   115, 0x0,														STR_NULL},

    59

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0241_POWER_STATION,				STR_0263_CONSTRUCT_POWER_STATION},

    60

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_0242_SAWMILL,							STR_0264_CONSTRUCT_SAWMILL},

    61

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_0244_OIL_REFINERY,					STR_0266_CONSTRUCT_OIL_REFINERY},

    62

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_0246_FACTORY,							STR_0268_CONSTRUCT_FACTORY},

    63

{   WWT_CLOSEBOX,    14,     2,   167,    68,    79, STR_0247_STEEL_MILL,						STR_0269_CONSTRUCT_STEEL_MILL},

    64

{   WIDGETS_END},

    65

};

    66

    67

static const Widget _build_industry_land1_widgets[] = {

    68

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,											STR_018B_CLOSE_WINDOW},

    69

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,		STR_018C_WINDOW_TITLE_DRAG_THIS},

    70

{      WWT_PANEL,     7,     0,   169,    14,   115, 0x0,														STR_NULL},

    71

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0241_POWER_STATION,				STR_0263_CONSTRUCT_POWER_STATION},

    72

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_024C_PAPER_MILL,						STR_026E_CONSTRUCT_PAPER_MILL},

    73

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_0244_OIL_REFINERY,					STR_0266_CONSTRUCT_OIL_REFINERY},

    74

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_024D_FOOD_PROCESSING_PLANT,STR_026F_CONSTRUCT_FOOD_PROCESSING},

    75

{   WWT_CLOSEBOX,    14,     2,   167,    68,    79, STR_024E_PRINTING_WORKS,				STR_0270_CONSTRUCT_PRINTING_WORKS},

    76

{   WIDGETS_END},

    77

};

    78

    79

static const Widget _build_industry_land2_widgets[] = {

    80

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,											STR_018B_CLOSE_WINDOW},

    81

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,		STR_018C_WINDOW_TITLE_DRAG_THIS},

    82

{      WWT_PANEL,     7,     0,   169,    14,   115, 0x0,														STR_NULL},

    83

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0250_LUMBER_MILL,					STR_0273_CONSTRUCT_LUMBER_MILL_TO},

    84

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_024D_FOOD_PROCESSING_PLANT,STR_026F_CONSTRUCT_FOOD_PROCESSING},

    85

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_0244_OIL_REFINERY,					STR_0266_CONSTRUCT_OIL_REFINERY},

    86

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_0246_FACTORY,							STR_0268_CONSTRUCT_FACTORY},

    87

{   WWT_CLOSEBOX,    14,     2,   167,    68,    79, STR_0254_WATER_TOWER,					STR_0277_CONSTRUCT_WATER_TOWER_CAN},

    88

{   WIDGETS_END},

    89

};

    90

    91

static const Widget _build_industry_land3_widgets[] = {

    92

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,											STR_018B_CLOSE_WINDOW},

    93

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,		STR_018C_WINDOW_TITLE_DRAG_THIS},

    94

{      WWT_PANEL,     7,     0,   169,    14,   115, 0x0,														STR_NULL},

    95

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0258_CANDY_FACTORY,				STR_027B_CONSTRUCT_CANDY_FACTORY},

    96

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_025B_TOY_SHOP,							STR_027E_CONSTRUCT_TOY_SHOP},

    97

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_025C_TOY_FACTORY,					STR_027F_CONSTRUCT_TOY_FACTORY},

    98

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_025E_FIZZY_DRINK_FACTORY,	STR_0281_CONSTRUCT_FIZZY_DRINK_FACTORY},

    99

{   WIDGETS_END},

   100

};

   101

   102

static const Widget _build_industry_land0_widgets_extra[] = {

   103

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,							STR_018B_CLOSE_WINDOW},

   104

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,STR_018C_WINDOW_TITLE_DRAG_THIS},

   105

{      WWT_PANEL,     7,     0,   169,    14,   187, 0x0,										STR_NULL},

   106

   107

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0241_POWER_STATION,STR_0263_CONSTRUCT_POWER_STATION},

   108

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_0242_SAWMILL,			STR_0264_CONSTRUCT_SAWMILL},

   109

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_0244_OIL_REFINERY,	STR_0266_CONSTRUCT_OIL_REFINERY},

   110

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_0246_FACTORY,					STR_0268_CONSTRUCT_FACTORY},

   111

{   WWT_CLOSEBOX,    14,     2,   167,    68,    79, STR_0247_STEEL_MILL,		STR_0269_CONSTRUCT_STEEL_MILL},

   112

   113

{   WWT_CLOSEBOX,    14,     2,   167,    84,    95, STR_0240_COAL_MINE,		STR_CONSTRUCT_COAL_MINE_TIP},

   114

{   WWT_CLOSEBOX,    14,     2,   167,    97,    108, STR_0243_FOREST,			STR_CONSTRUCT_FOREST_TIP},

   115

{   WWT_CLOSEBOX,    14,     2,   167,    110,    121, STR_0245_OIL_RIG,		STR_CONSTRUCT_OIL_RIG_TIP},

   116

{   WWT_CLOSEBOX,    14,     2,   167,    123,    134, STR_0248_FARM,						STR_CONSTRUCT_FARM_TIP},

   117

{   WWT_CLOSEBOX,    14,     2,   167,    136,    147, STR_024A_OIL_WELLS,			STR_CONSTRUCT_OIL_WELLS_TIP},

   118

{   WWT_CLOSEBOX,    14,     2,   167,    149,    160, STR_0249_IRON_ORE_MINE,	STR_CONSTRUCT_IRON_ORE_MINE_TIP},

   119

   120

{   WIDGETS_END},

   121

};

   122

   123

static const Widget _build_industry_land1_widgets_extra[] = {

   124

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,								STR_018B_CLOSE_WINDOW},

   125

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,		STR_018C_WINDOW_TITLE_DRAG_THIS},

   126

{      WWT_PANEL,     7,     0,   169,    14,   174, 0x0,											STR_NULL},

   127

   128

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0241_POWER_STATION,	STR_0263_CONSTRUCT_POWER_STATION},

   129

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_024C_PAPER_MILL,			STR_026E_CONSTRUCT_PAPER_MILL},

   130

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_0244_OIL_REFINERY,		STR_0266_CONSTRUCT_OIL_REFINERY},

   131

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_024D_FOOD_PROCESSING_PLANT,STR_026F_CONSTRUCT_FOOD_PROCESSING},

   132

{   WWT_CLOSEBOX,    14,     2,   167,    68,    79, STR_024E_PRINTING_WORKS,	STR_0270_CONSTRUCT_PRINTING_WORKS},

   133

   134

{   WWT_CLOSEBOX,    14,     2,   167,    81+3,    92+3, STR_0240_COAL_MINE,	STR_CONSTRUCT_COAL_MINE_TIP},

   135

{   WWT_CLOSEBOX,    14,     2,   167,    94+3,   105+3, STR_0243_FOREST,			STR_CONSTRUCT_FOREST_TIP},

   136

{   WWT_CLOSEBOX,    14,     2,   167,    107+3,  118+3, STR_0248_FARM,				STR_CONSTRUCT_FARM_TIP},

   137

{   WWT_CLOSEBOX,    14,     2,   167,    120+3,  131+3, STR_024A_OIL_WELLS,	STR_CONSTRUCT_OIL_WELLS_TIP},

   138

{   WWT_CLOSEBOX,    14,     2,   167,    133+3,  144+3, STR_024F_GOLD_MINE,	STR_CONSTRUCT_GOLD_MINE_TIP},

   139

{   WIDGETS_END},

   140

};

   141

   142

static const Widget _build_industry_land2_widgets_extra[] = {

   143

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,							STR_018B_CLOSE_WINDOW},

   144

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,			STR_018C_WINDOW_TITLE_DRAG_THIS},

   145

{      WWT_PANEL,     7,     0,   169,    14,   200, 0x0,										STR_NULL},

   146

   147

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0250_LUMBER_MILL,	STR_0273_CONSTRUCT_LUMBER_MILL_TO},

   148

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_024D_FOOD_PROCESSING_PLANT,STR_026F_CONSTRUCT_FOOD_PROCESSING},

   149

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_0244_OIL_REFINERY,	STR_0266_CONSTRUCT_OIL_REFINERY},

   150

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_0246_FACTORY,			STR_0268_CONSTRUCT_FACTORY},

   151

{   WWT_CLOSEBOX,    14,     2,   167,    68,    79, STR_0254_WATER_TOWER,	STR_0277_CONSTRUCT_WATER_TOWER_CAN},

   152

   153

{   WWT_CLOSEBOX,    14,     2,   167,    81+3,    92+3, STR_024A_OIL_WELLS,STR_CONSTRUCT_OIL_WELLS_TIP},

   154

{   WWT_CLOSEBOX,    14,     2,   167,    94+3,    105+3, STR_0255_DIAMOND_MINE,			STR_CONSTRUCT_DIAMOND_MINE_TIP},

   155

{   WWT_CLOSEBOX,    14,     2,   167,    107+3,    118+3, STR_0256_COPPER_ORE_MINE,	STR_CONSTRUCT_COPPER_ORE_MINE_TIP},

   156

{   WWT_CLOSEBOX,    14,     2,   167,    120+3,    131+3, STR_0248_FARM,		STR_CONSTRUCT_FARM_TIP},

   157

{   WWT_CLOSEBOX,    14,     2,   167,    133+3,    144+3, STR_0251_FRUIT_PLANTATION,	STR_CONSTRUCT_FRUIT_PLANTATION_TIP},

   158

{   WWT_CLOSEBOX,    14,     2,   167,    146+3,    157+3, STR_0252_RUBBER_PLANTATION,STR_CONSTRUCT_RUBBER_PLANTATION_TIP},

   159

{   WWT_CLOSEBOX,    14,     2,   167,    159+3,    170+3, STR_0253_WATER_SUPPLY,			STR_CONSTRUCT_WATER_SUPPLY_TIP},

   160

{   WIDGETS_END},

   161

};

   162

   163

static const Widget _build_industry_land3_widgets_extra[] = {

   164

{   WWT_CLOSEBOX,     7,     0,    10,     0,    13, STR_00C5,								STR_018B_CLOSE_WINDOW},

   165

{    WWT_CAPTION,     7,    11,   169,     0,    13, STR_0314_FUND_NEW_INDUSTRY,			STR_018C_WINDOW_TITLE_DRAG_THIS},

   166

{      WWT_PANEL,     7,     0,   169,    14,   187, 0x0,	STR_NULL},

   167

   168

{   WWT_CLOSEBOX,    14,     2,   167,    16,    27, STR_0258_CANDY_FACTORY,	STR_027B_CONSTRUCT_CANDY_FACTORY},

   169

{   WWT_CLOSEBOX,    14,     2,   167,    29,    40, STR_025B_TOY_SHOP,				STR_027E_CONSTRUCT_TOY_SHOP},

   170

{   WWT_CLOSEBOX,    14,     2,   167,    42,    53, STR_025C_TOY_FACTORY,		STR_027F_CONSTRUCT_TOY_FACTORY},

   171

{   WWT_CLOSEBOX,    14,     2,   167,    55,    66, STR_025E_FIZZY_DRINK_FACTORY,		STR_0281_CONSTRUCT_FIZZY_DRINK_FACTORY},

   172

   173

{   WWT_CLOSEBOX,    14,     2,   167,    68+3,    79+3, STR_0257_COTTON_CANDY_FOREST,STR_CONSTRUCT_COTTON_CANDY_TIP},

   174

{   WWT_CLOSEBOX,    14,     2,   167,    81+3,    92+3, STR_0259_BATTERY_FARM,				STR_CONSTRUCT_BATTERY_FARM_TIP},

   175

{   WWT_CLOSEBOX,    14,     2,   167,    94+3,    105+3, STR_025A_COLA_WELLS,				STR_CONSTRUCT_COLA_WELLS_TIP},

   176

{   WWT_CLOSEBOX,    14,     2,   167,    107+3,    118+3, STR_025D_PLASTIC_FOUNTAINS,STR_CONSTRUCT_PLASTIC_FOUNTAINS_TIP},

   177

{   WWT_CLOSEBOX,    14,     2,   167,    120+3,    131+3, STR_025F_BUBBLE_GENERATOR,	STR_CONSTRUCT_BUBBLE_GENERATOR_TIP},

   178

{   WWT_CLOSEBOX,    14,     2,   167,    133+3,    144+3, STR_0260_TOFFEE_QUARRY,		STR_CONSTRUCT_TOFFEE_QUARRY_TIP},

   179

{   WWT_CLOSEBOX,    14,     2,   167,    146+3,    157+3, STR_0261_SUGAR_MINE,				STR_CONSTRUCT_SUGAR_MINE_TIP},

   180

{   WIDGETS_END},

   181

};

   182

   183

   184

static const WindowDesc _build_industry_land0_desc = {

   185

	-1, -1, 170, 116,

   186

	WC_BUILD_INDUSTRY,0,

   187

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   188

	_build_industry_land0_widgets,

   189

	BuildIndustryWndProc

   190

};

   191

   192

static const WindowDesc _build_industry_land1_desc = {

   193

	-1, -1, 170, 116,

   194

	WC_BUILD_INDUSTRY,0,

   195

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   196

	_build_industry_land1_widgets,

   197

	BuildIndustryWndProc

   198

};

   199

   200

static const WindowDesc _build_industry_land2_desc = {

   201

	-1, -1, 170, 116,

   202

	WC_BUILD_INDUSTRY,0,

   203

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   204

	_build_industry_land2_widgets,

   205

	BuildIndustryWndProc

   206

};

   207

   208

static const WindowDesc _build_industry_land3_desc = {

   209

	-1, -1, 170, 116,

   210

	WC_BUILD_INDUSTRY,0,

   211

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   212

	_build_industry_land3_widgets,

   213

	BuildIndustryWndProc

   214

};

   215

   216

static const WindowDesc _build_industry_land0_desc_extra = {

   217

	-1, -1, 170, 188,

   218

	WC_BUILD_INDUSTRY,0,

   219

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   220

	_build_industry_land0_widgets_extra,

   221

	BuildIndustryWndProc

   222

};

   223

   224

static const WindowDesc _build_industry_land1_desc_extra = {

   225

	-1, -1, 170, 175,

   226

	WC_BUILD_INDUSTRY,0,

   227

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   228

	_build_industry_land1_widgets_extra,

   229

	BuildIndustryWndProc

   230

};

   231

   232

static const WindowDesc _build_industry_land2_desc_extra = {

   233

	-1, -1, 170, 201,

   234

	WC_BUILD_INDUSTRY,0,

   235

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   236

	_build_industry_land2_widgets_extra,

   237

	BuildIndustryWndProc

   238

};

   239

   240

static const WindowDesc _build_industry_land3_desc_extra = {

   241

	-1, -1, 170, 188,

   242

	WC_BUILD_INDUSTRY,0,

   243

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET,

   244

	_build_industry_land3_widgets_extra,

   245

	BuildIndustryWndProc

   246

};

   247

   248

static const WindowDesc * const _industry_window_desc[2][4] = {

   249

	{

   250

	&_build_industry_land0_desc,

   251

	&_build_industry_land1_desc,

   252

	&_build_industry_land2_desc,

   253

	&_build_industry_land3_desc,

   254

	},

   255

	{

   256

	&_build_industry_land0_desc_extra,

   257

	&_build_industry_land1_desc_extra,

   258

	&_build_industry_land2_desc_extra,

   259

	&_build_industry_land3_desc_extra,

   260

	},

   261

};

   262

   263

void ShowBuildIndustryWindow()

   264

{

   265

	AllocateWindowDescFront(_industry_window_desc[_patches.build_rawmaterial_ind][_opt.landscape],0);

   266

}

   267

   268

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

   269

{

   270

	Industry *i;

   271

	StringID str;

   272

   273

	switch(e->event) {

   274

	case WE_PAINT:

   275

		// in editor, use bulldoze to destroy industry

   276

		// Destroy Industry button costing money removed per request of dominik

   277

		//w->disabled_state = (_patches.extra_dynamite && !_networking && _game_mode != GM_EDITOR) ? 0 : (1 << 6);

   278

		i = DEREF_INDUSTRY(w->window_number);

   279

		SetDParam(0, i->town->index);

   280

		SetDParam(1, i->type + STR_4802_COAL_MINE);

   281

		DrawWindowWidgets(w);

   282

   283

		if (i->accepts_cargo[0] != 0xFF) {

   284

			SetDParam(0, _cargoc.names_s[i->accepts_cargo[0]]);

   285

			str = STR_4827_REQUIRES;

   286

			if (i->accepts_cargo[1] != 0xFF) {

   287

				SetDParam(1, _cargoc.names_s[i->accepts_cargo[1]]);

   288

				str++;

   289

				if (i->accepts_cargo[2] != 0xFF) {

   290

					SetDParam(2, _cargoc.names_s[i->accepts_cargo[2]]);

   291

					str++;

   292

				}

   293

			}

   294

			DrawString(2, 107, str, 0);

   295

		}

   296

   297

		if (i->produced_cargo[0] != 0xFF) {

   298

			DrawString(2, 117, STR_482A_PRODUCTION_LAST_MONTH, 0);

   299

   300

			SetDParam(1, i->total_production[0]);

   301

			SetDParam(0, _cargoc.names_long_s[i->produced_cargo[0]] + ((i->total_production[0]!=1)<<5));

   302

			SetDParam(2, i->pct_transported[0] * 100 >> 8);

   303

			DrawString(4, 127, STR_482B_TRANSPORTED, 0);

   304

   305

			if (i->produced_cargo[1] != 0xFF) {

   306

				SetDParam(1, i->total_production[1]);

   307

				SetDParam(0, _cargoc.names_long_s[i->produced_cargo[1]] + ((i->total_production[1]!=1)<<5));

   308

				SetDParam(2, i->pct_transported[1] * 100 >> 8);

   309

				DrawString(4, 137, STR_482B_TRANSPORTED, 0);

   310

			}

   311

		}

   312

   313

		DrawWindowViewport(w);

   314

		break;

   315

   316

	case WE_CLICK:

   317

		switch(e->click.widget) {

   318

		case 5:

   319

			i = DEREF_INDUSTRY(w->window_number);

   320

			ScrollMainWindowToTile(i->xy + TILE_XY(1,1));

   321

			break;

   322

		case 6:

   323

			// Destroy Industry button costing money removed per request of dominik

   324

			//i = DEREF_INDUSTRY(w->window_number);

   325

			/*	passing only i->xy is not safe if industry has a weird shape like:

   326

					_ X X

   327

					X X X

   328

					_ <--- grass, no industry, but i->xy points there (first top-left tile)!,

   329

					so passing i->xy to destroy industry will fail in called procedure

   330

			*/

   331

			//DoCommandP(i->xy, w->window_number, 0, CcPlaySound10,  CMD_DESTROY_INDUSTRY | CMD_MSG(STR_00B5_CAN_T_CLEAR_THIS_AREA));

   332

			break;

   333

		}

   334

		break;

   335

	}

   336

}

   337

   338

static const Widget _industry_view_widgets[] = {

   339

{    WWT_TEXTBTN,     9,     0,    10,     0,    13, STR_00C5,	STR_018B_CLOSE_WINDOW},

   340

{    WWT_CAPTION,     9,    11,   259,     0,    13, STR_4801,	STR_018C_WINDOW_TITLE_DRAG_THIS},

   341

{     WWT_IMGBTN,     9,     0,   259,    14,   105, 0x0,				STR_NULL},

   342

{          WWT_6,     9,     2,   257,    16,   103, 0x0,				STR_NULL},

   343

{     WWT_IMGBTN,     9,     0,   259,   106,   147, 0x0,				STR_NULL},

   344

{ WWT_PUSHTXTBTN,     9,     0,   129,   148,   159, STR_00E4_LOCATION,	STR_482C_CENTER_THE_MAIN_VIEW_ON},

   345

{     WWT_IMGBTN,     9,   130,   259,   148,   159, 0x0,				STR_NULL},

   346

// Destroy Industry button costing money removed per request of dominik

   347

//{ WWT_PUSHTXTBTN,     9,   130,   259,   148,   159, STR_INDUSTRYDIR_DESTROY, STR_482C_DESTROY_INDUSTRY},

   348

{   WIDGETS_END},

   349

};

   350

   351

static const WindowDesc _industry_view_desc = {

   352

	-1, -1, 260, 160,

   353

	WC_INDUSTRY_VIEW,0,

   354

	WDF_STD_TOOLTIPS | WDF_STD_BTN | WDF_DEF_WIDGET | WDF_UNCLICK_BUTTONS,

   355

	_industry_view_widgets,

   356

	IndustryViewWndProc

   357

};

   358

   359

void ShowIndustryViewWindow(int industry)

   360

{

   361

	Window *w;

   362

	Industry *i;

   363

   364

	w = AllocateWindowDescFront(&_industry_view_desc, industry);

   365

	if (w) {

   366

		w->flags4 |= WF_DISABLE_VP_SCROLL;

   367

		i = DEREF_INDUSTRY(w->window_number);

   368

		AssignWindowViewport(w, 3, 17, 0xFE, 0x56, i->xy + TILE_XY(1,1), 1);

   369

	}

   370

}

   371

   372

static const Widget _industry_directory_widgets[] = {

   373

{    WWT_TEXTBTN,    13,     0,    10,     0,    13, STR_00C5,								STR_018B_CLOSE_WINDOW},

   374

{    WWT_CAPTION,    13,    11,   507,     0,    13, STR_INDUSTRYDIR_CAPTION,	STR_018C_WINDOW_TITLE_DRAG_THIS},

   379

{      WWT_PANEL,    13,   401,   496,    14,    25, 0x0,											STR_NULL},

   380

{     WWT_IMGBTN,    13,     0,   496,    26,   189, 0x0,	STR_200A_TOWN_NAMES_CLICK_ON_NAME},

   381

{  WWT_SCROLLBAR,    13,   497,   507,    14,   189, 0x0,	STR_0190_SCROLL_BAR_SCROLLS_LIST},

   382

{   WIDGETS_END},

   383

};

   384

   385

static byte _industry_sort[lengthof(_industries)];

   386

static uint _num_industry_sort;

   387

   388

static char _bufcache[96];

   389

static byte _last_industry_idx;

   390

   391

static byte _industry_sort_order;

   392

   393

static int CDECL GeneralIndustrySorter(const void *a, const void *b)

   394

{

   395

	char buf1[96];

   396

	byte val;

   397

	Industry *i = DEREF_INDUSTRY(*(const byte*)a);

   398

	Industry *j = DEREF_INDUSTRY(*(const byte*)b);

   399

	int r = 0;

   400

   401

	switch (_industry_sort_order >> 1) {

   402

	/* case 0: Sort by Name (handled later) */

   403

	case 1: /* Sort by Type */

   404

		r = i->type - j->type;

   405

		break;

   406

	// FIXME - Production & Transported sort need to be inversed...but, WTF it does not wanna!

   407

	// FIXME - And no simple --> "if (!(_industry_sort_order & 1)) r = -r;" hack at the bottom!!

   408

	case 2: { /* Sort by Production */

   409

		if (i->produced_cargo[0] != 0xFF && j->produced_cargo[0] != 0xFF) { // both industries produce cargo?

   410

				if (i->produced_cargo[1] == 0xFF) // producing one or two things?

   411

					r = j->total_production[0] - i->total_production[0];

   412

				else

   413

					r = (j->total_production[0] + j->total_production[1]) / 2 - (i->total_production[0] + i->total_production[1]) / 2;

   414

		} else if (i->produced_cargo[0] == 0xFF && j->produced_cargo[0] == 0xFF) // none of them producing anything, let them go to the name-sorting

   415

			r = 0;

   416

		else if (i->produced_cargo[0] == 0xFF) // end up the non-producer industry first/last in list

   417

			r = 1;

   418

		else

   419

			r = -1;

   420

		break;

   421

	}

   422

	case 3: /* Sort by Transported amount */

   423

		if (i->produced_cargo[0] != 0xFF && j->produced_cargo[0] != 0xFF) { // both industries produce cargo?

   424

				if (i->produced_cargo[1] == 0xFF) // producing one or two things?

   425

					r = (j->pct_transported[0] * 100 >> 8) - (i->pct_transported[0] * 100 >> 8);

   426

				else

   427

					r = ((j->pct_transported[0] * 100 >> 8) + (j->pct_transported[1] * 100 >> 8)) / 2 - ((i->pct_transported[0] * 100 >> 8) + (i->pct_transported[1] * 100 >> 8)) / 2;

   428

		} else if (i->produced_cargo[0] == 0xFF && j->produced_cargo[0] == 0xFF) // none of them producing anything, let them go to the name-sorting

   429

			r = 0;

   430

		else if (i->produced_cargo[0] == 0xFF) // end up the non-producer industry first/last in list

   431

			r = 1;

   432

		else

   433

			r = -1;

   434

		break;

   435

	}

   436

   437

	// default to string sorting if they are otherwise equal

   438

	if (r == 0) {

   439

		SetDParam(0, i->town->townnameparts);

   440

		GetString(buf1, i->town->townnametype);

   441

   442

		if ( (val=*(const byte*)b) != _last_industry_idx) {

   443

			_last_industry_idx = val;

   444

			SetDParam(0, j->town->townnameparts);

   445

			GetString(_bufcache, j->town->townnametype);

   446

		}

   447

		r = strcmp(buf1, _bufcache);

   448

	}

   449

   450

	if (_industry_sort_order & 1) r = -r;

   451

	return r;

   452

}

   453

   454

static void MakeSortedIndustryList()

   455

{

   456

	Industry *i;

   457

	int n = 0, index = 0;

   458

   459

	for(i=_industries; i != endof(_industries); i++) {

   460

		if(i->xy) _industry_sort[n++] = index;

   461

		index++;

   462

	}

   463

	_num_industry_sort = n;

   464

	_last_industry_idx = 255; // used for "cache"

   465

   466

	qsort(_industry_sort, n, 1, GeneralIndustrySorter);

   467

   468

	DEBUG(misc, 1) ("Resorting Industries list...");

   469

}

   470

   471

   472

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

   473

{

   474

	switch(e->event) {

   475

	case WE_PAINT: {

   476

		int n;

   477

		uint p;

   478

		Industry *i;

   479

		static const uint16 _indicator_positions[4] = {88, 187, 284, 387};

   480

   481

		if (_industry_sort_dirty) {

   482

			_industry_sort_dirty = false;

   483

			MakeSortedIndustryList();

   484

		}

   485

   486

		w->vscroll.count = _num_industry_sort;

   487

   488

		DrawWindowWidgets(w);

   489

		DoDrawString(_industry_sort_order & 1 ? "\xAA" : "\xA0", _indicator_positions[_industry_sort_order>>1], 15, 0x10);

   490

   491

		p = w->vscroll.pos;

   492

		n = 0;

   493

   494

		while (p < _num_industry_sort) {

   495

			i = DEREF_INDUSTRY(_industry_sort[p]);

   496

			SetDParam(0, i->town->index);

   497

			SetDParam(1, i->type + STR_4802_COAL_MINE);

   498

			if (i->produced_cargo[0] != 0xFF) {

   499

				SetDParam(3, i->total_production[0]);

   500

				SetDParam(2, _cargoc.names_long_s[i->produced_cargo[0]] + ((i->total_production[0]!=1)<<5));

   501

   502

				if (i->produced_cargo[1] != 0xFF) {

   503

					SetDParam(5, i->total_production[1]);

   504

					SetDParam(4, _cargoc.names_long_s[i->produced_cargo[1]] + ((i->total_production[1]!=1)<<5));

   505

					SetDParam(6, i->pct_transported[0] * 100 >> 8);

   506

					SetDParam(7, i->pct_transported[1] * 100 >> 8);

   507

					DrawString(4, 28+n*10, STR_INDUSTRYDIR_ITEM_TWO, 0);

   508

				} else {

   509

					SetDParam(4, i->pct_transported[0] * 100 >> 8);

   510

					DrawString(4, 28+n*10, STR_INDUSTRYDIR_ITEM, 0);