1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "table/strings.h"

     6

#include "table/sprites.h"

     7

#include "functions.h"

     8

#include "map.h"

     9

#include "tile.h"

    10

#include "viewport.h"

    11

#include "command.h"

    12

#include "industry.h"

    13

#include "town.h"

    14

#include "vehicle.h"

    15

#include "news.h"

    16

#include "saveload.h"

    17

#include "economy.h"

    18

#include "sound.h"

    19

#include "variables.h"

    20

    21

enum {

    22

	/* Max industries: 64000 (8 * 8000) */

    23

	INDUSTRY_POOL_BLOCK_SIZE_BITS = 3,       /* In bits, so (1 << 3) == 8 */

    24

	INDUSTRY_POOL_MAX_BLOCKS      = 8000,

    25

};

    26

    27

/**

    28

 * Called if a new block is added to the industry-pool

    29

 */

    30

void IndustryPoolNewBlock(uint start_item)

    31

{

    32

	Industry *i;

    33

    34

	FOR_ALL_INDUSTRIES_FROM(i, start_item)

    35

		i->index = start_item++;

    36

}

    37

    38

/* Initialize the industry-pool */

    39

MemoryPool _industry_pool = { "Industry", INDUSTRY_POOL_MAX_BLOCKS, INDUSTRY_POOL_BLOCK_SIZE_BITS, sizeof(Industry), &IndustryPoolNewBlock, 0, 0, NULL };

    40

    41

byte _industry_sound_ctr;

    42

TileIndex _industry_sound_tile;

    43

    44

void ShowIndustryViewWindow(int industry);

    45

void BuildOilRig(TileIndex tile);

    46

void DeleteOilRig(TileIndex tile);

    47

    48

typedef struct DrawIndustryTileStruct {

    49

	uint32 sprite_1;

    50

	uint32 sprite_2;

    51

    52

	byte subtile_xy;

    53

	byte width_height;

    54

	byte dz;

    55

	byte proc;

    56

} DrawIndustryTileStruct;

    57

    58

    59

typedef struct DrawIndustrySpec1Struct {

    60

	byte x;

    61

	byte image_1;

    62

	byte image_2;

    63

	byte image_3;

    64

} DrawIndustrySpec1Struct;

    65

    66

typedef struct DrawIndustrySpec4Struct {

    67

	byte image_1;

    68

	byte image_2;

    69

	byte image_3;

    70

} DrawIndustrySpec4Struct;

    71

    72

typedef struct IndustryTileTable {

    73

	TileIndexDiffC ti;

    74

	byte map5;

    75

} IndustryTileTable;

    76

    77

typedef struct IndustrySpec {

    78

	const IndustryTileTable *const *table;

    79

	byte num_table;

    80

	byte a,b,c;

    81

	byte produced_cargo[2];

    82

	byte production_rate[2];

    83

	byte accepts_cargo[3];

    84

	byte check_proc;

    85

} IndustrySpec;

    86

    87

#include "table/industry_land.h"

    88

#include "table/build_industry.h"

    89

    90

typedef enum IndustryType {

    91

	INDUSTRY_NOT_CLOSABLE,     //! Industry can never close

    92

	INDUSTRY_PRODUCTION,       //! Industry can close and change of production

    93

	INDUSTRY_CLOSABLE,         //! Industry can only close (no production change)

    94

} IndustryType;

    95

    96

    97

static const IndustryType _industry_close_mode[37] = {

    98

	/* COAL_MINE */         INDUSTRY_PRODUCTION,

    99

	/* POWER_STATION */     INDUSTRY_NOT_CLOSABLE,

   100

	/* SAWMILL */           INDUSTRY_CLOSABLE,

   101

	/* FOREST */            INDUSTRY_PRODUCTION,

   102

	/* OIL_REFINERY */      INDUSTRY_CLOSABLE,

   103

	/* OIL_RIG */           INDUSTRY_PRODUCTION,

   104

	/* FACTORY */           INDUSTRY_CLOSABLE,

   105

	/* PRINTING_WORKS */    INDUSTRY_CLOSABLE,

   106

	/* STEEL_MILL */        INDUSTRY_CLOSABLE,

   107

	/* FARM */              INDUSTRY_PRODUCTION,

   108

	/* COPPER_MINE */       INDUSTRY_PRODUCTION,

   109

	/* OIL_WELL */          INDUSTRY_PRODUCTION,

   110

	/* BANK */              INDUSTRY_NOT_CLOSABLE,

   111

	/* FOOD_PROCESS */      INDUSTRY_CLOSABLE,

   112

	/* PAPER_MILL */        INDUSTRY_CLOSABLE,

   113

	/* GOLD_MINE */         INDUSTRY_PRODUCTION,

   114

	/* BANK_2,  */          INDUSTRY_NOT_CLOSABLE,

   115

	/* DIAMOND_MINE */      INDUSTRY_PRODUCTION,

   116

	/* IRON_MINE */         INDUSTRY_PRODUCTION,

   117

	/* FRUIT_PLANTATION */  INDUSTRY_PRODUCTION,

   118

	/* RUBBER_PLANTATION */ INDUSTRY_PRODUCTION,

   119

	/* WATER_SUPPLY */      INDUSTRY_PRODUCTION,

   120

	/* WATER_TOWER */       INDUSTRY_NOT_CLOSABLE,

   121

	/* FACTORY_2 */         INDUSTRY_CLOSABLE,

   122

	/* FARM_2 */            INDUSTRY_PRODUCTION,

   123

	/* LUMBER_MILL */       INDUSTRY_CLOSABLE,

   124

	/* COTTON_CANDY */      INDUSTRY_PRODUCTION,

   125

	/* CANDY_FACTORY */     INDUSTRY_CLOSABLE,

   126

	/* BATTERY_FARM */      INDUSTRY_PRODUCTION,

   127

	/* COLA_WELLS */        INDUSTRY_PRODUCTION,

   128

	/* TOY_SHOP */          INDUSTRY_NOT_CLOSABLE,

   129

	/* TOY_FACTORY */       INDUSTRY_CLOSABLE,

   130

	/* PLASTIC_FOUNTAINS */ INDUSTRY_PRODUCTION,

   131

	/* FIZZY_DRINK_FACTORY */INDUSTRY_CLOSABLE,

   132

	/* BUBBLE_GENERATOR */  INDUSTRY_PRODUCTION,

   133

	/* TOFFEE_QUARRY */     INDUSTRY_PRODUCTION,

   134

	/* SUGAR_MINE */        INDUSTRY_PRODUCTION

   135

};

   136

   137

static const StringID _industry_prod_up_strings[] = {

   138

	STR_4836_NEW_COAL_SEAM_FOUND_AT,

   139

	STR_4835_INCREASES_PRODUCTION,

   140

	STR_4835_INCREASES_PRODUCTION,

   141

	STR_4835_INCREASES_PRODUCTION,

   142

	STR_4835_INCREASES_PRODUCTION,

   143

	STR_4837_NEW_OIL_RESERVES_FOUND,

   144

	STR_4835_INCREASES_PRODUCTION,

   145

	STR_4835_INCREASES_PRODUCTION,

   146

	STR_4835_INCREASES_PRODUCTION,

   147

	STR_4838_IMPROVED_FARMING_METHODS,

   148

	STR_4835_INCREASES_PRODUCTION,

   149

	STR_4837_NEW_OIL_RESERVES_FOUND,

   150

	STR_4835_INCREASES_PRODUCTION,

   151

	STR_4835_INCREASES_PRODUCTION,

   152

	STR_4835_INCREASES_PRODUCTION,

   153

	STR_4835_INCREASES_PRODUCTION,

   154

	STR_4835_INCREASES_PRODUCTION,

   155

	STR_4835_INCREASES_PRODUCTION,

   156

	STR_4835_INCREASES_PRODUCTION,

   157

	STR_4838_IMPROVED_FARMING_METHODS,

   158

	STR_4838_IMPROVED_FARMING_METHODS,

   159

	STR_4835_INCREASES_PRODUCTION,

   160

	STR_4835_INCREASES_PRODUCTION,

   161

	STR_4835_INCREASES_PRODUCTION,

   162

	STR_4838_IMPROVED_FARMING_METHODS,

   163

	STR_4835_INCREASES_PRODUCTION,

   164

	STR_4838_IMPROVED_FARMING_METHODS,

   165

	STR_4835_INCREASES_PRODUCTION,

   166

	STR_4838_IMPROVED_FARMING_METHODS,

   167

	STR_4835_INCREASES_PRODUCTION,

   168

	STR_4835_INCREASES_PRODUCTION,

   169

	STR_4835_INCREASES_PRODUCTION,

   170

	STR_4835_INCREASES_PRODUCTION,

   171

	STR_4835_INCREASES_PRODUCTION,

   172

	STR_4835_INCREASES_PRODUCTION,

   173

	STR_4835_INCREASES_PRODUCTION,

   174

	STR_4835_INCREASES_PRODUCTION,

   175

};

   176

   177

static const StringID _industry_prod_down_strings[] = {

   178

	STR_4839_PRODUCTION_DOWN_BY_50,

   179

	STR_4839_PRODUCTION_DOWN_BY_50,

   180

	STR_4839_PRODUCTION_DOWN_BY_50,

   181

	STR_483A_INSECT_INFESTATION_CAUSES,

   182

	STR_4839_PRODUCTION_DOWN_BY_50,

   183

	STR_4839_PRODUCTION_DOWN_BY_50,

   184

	STR_4839_PRODUCTION_DOWN_BY_50,

   185

	STR_4839_PRODUCTION_DOWN_BY_50,

   186

	STR_4839_PRODUCTION_DOWN_BY_50,

   187

	STR_483A_INSECT_INFESTATION_CAUSES,

   188

	STR_4839_PRODUCTION_DOWN_BY_50,

   189

	STR_4839_PRODUCTION_DOWN_BY_50,

   190

	STR_4839_PRODUCTION_DOWN_BY_50,

   191

	STR_4839_PRODUCTION_DOWN_BY_50,

   192

	STR_4839_PRODUCTION_DOWN_BY_50,

   193

	STR_4839_PRODUCTION_DOWN_BY_50,

   194

	STR_4839_PRODUCTION_DOWN_BY_50,

   195

	STR_4839_PRODUCTION_DOWN_BY_50,

   196

	STR_4839_PRODUCTION_DOWN_BY_50,

   197

	STR_483A_INSECT_INFESTATION_CAUSES,

   198

	STR_483A_INSECT_INFESTATION_CAUSES,

   199

	STR_4839_PRODUCTION_DOWN_BY_50,

   200

	STR_4839_PRODUCTION_DOWN_BY_50,

   201

	STR_4839_PRODUCTION_DOWN_BY_50,

   202

	STR_483A_INSECT_INFESTATION_CAUSES,

   203

	STR_4839_PRODUCTION_DOWN_BY_50,

   204

	STR_4839_PRODUCTION_DOWN_BY_50,

   205

	STR_4839_PRODUCTION_DOWN_BY_50,

   206

	STR_483A_INSECT_INFESTATION_CAUSES,

   207

	STR_4839_PRODUCTION_DOWN_BY_50,

   208

	STR_4839_PRODUCTION_DOWN_BY_50,

   209

	STR_4839_PRODUCTION_DOWN_BY_50,

   210

	STR_4839_PRODUCTION_DOWN_BY_50,

   211

	STR_4839_PRODUCTION_DOWN_BY_50,

   212

	STR_4839_PRODUCTION_DOWN_BY_50,

   213

	STR_4839_PRODUCTION_DOWN_BY_50,

   214

	STR_4839_PRODUCTION_DOWN_BY_50,

   215

};

   216

   217

static const StringID _industry_close_strings[] = {

   218

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   219

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   220

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   221

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   222

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   223

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   224

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   225

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   226

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   227

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   228

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   229

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   230

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   231

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   232

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   233

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   234

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   235

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   236

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   237

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   238

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   239

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   240

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   241

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   242

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   243

	STR_4834_LACK_OF_NEARBY_TREES_CAUSES,

   244

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   245

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   246

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   247

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   248

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   249

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   250

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   251

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   252

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   253

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   254

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE	,

   255

};

   256

   257

   258

static void IndustryDrawTileProc1(const TileInfo *ti)

   259

{

   260

	const DrawIndustrySpec1Struct *d;

   261

	uint32 image;

   262

   263

	if (!(_m[ti->tile].m1 & 0x80))

   264

		return;

   265

   266

	d = &_draw_industry_spec1[_m[ti->tile].m3];

   267

   268

	AddChildSpriteScreen(0x12A7 + d->image_1, d->x, 0);

   269

   270

	if ( (image = d->image_2) != 0)

   271

		AddChildSpriteScreen(0x12B0 + image - 1, 8, 41);

   272

   273

	if ( (image = d->image_3) != 0)

   274

		AddChildSpriteScreen(0x12AC + image - 1,

   275

			_drawtile_proc1_x[image-1], _drawtile_proc1_y[image-1]);

   276

}

   277

   278

static void IndustryDrawTileProc2(const TileInfo *ti)

   279

{

   280

	int x = 0;

   281

   282

	if (_m[ti->tile].m1 & 0x80) {

   283

		x = _industry_anim_offs[_m[ti->tile].m3];

   284

		if ( (byte)x == 0xFF)

   285

			x = 0;

   286

	}

   287

   288

	AddChildSpriteScreen(0x129F, 22-x, x+24);

   289

	AddChildSpriteScreen(0x129E, 6, 0xE);

   290

}

   291

   292

static void IndustryDrawTileProc3(const TileInfo *ti)

   293

{

   294

	if (_m[ti->tile].m1 & 0x80) {

   295

		AddChildSpriteScreen(0x128B, 5,

   296

			_industry_anim_offs_2[_m[ti->tile].m3]);

   297

	}

   298

	AddChildSpriteScreen(4746, 3, 67);

   299

}

   300

   301

static void IndustryDrawTileProc4(const TileInfo *ti)

   302

{

   303

	const DrawIndustrySpec4Struct *d;

   304

   305

	d = &_industry_anim_offs_3[_m[ti->tile].m3];

   306

   307

	if (d->image_1 != 0xFF) {

   308

		AddChildSpriteScreen(0x126F, 0x32 - d->image_1 * 2, 0x60 + d->image_1);

   309

	}

   310

   311

	if (d->image_2 != 0xFF) {

   312

		AddChildSpriteScreen(0x1270, 0x10 - d->image_2*2, 100 + d->image_2);

   313

	}

   314

   315

	AddChildSpriteScreen(0x126E, 7, d->image_3);

   316

	AddChildSpriteScreen(0x126D, 0, 42);

   317

}

   318

   319

static void DrawCoalPlantSparkles(const TileInfo *ti)

   320

{

   321

	int image = _m[ti->tile].m1;

   322

	if (image & 0x80) {

   323

		image = GB(image, 2, 5);

   324

		if (image != 0 && image < 7) {

   325

			AddChildSpriteScreen(image + 0x806,

   326

				_coal_plant_sparkles_x[image-1],

   327

				_coal_plant_sparkles_y[image-1]

   328

			);

   329

		}

   330

	}

   331

}

   332

   333

typedef void IndustryDrawTileProc(const TileInfo *ti);

   334

static IndustryDrawTileProc * const _industry_draw_tile_procs[5] = {

   335

	IndustryDrawTileProc1,

   336

	IndustryDrawTileProc2,

   337

	IndustryDrawTileProc3,

   338

	IndustryDrawTileProc4,

   339

	DrawCoalPlantSparkles,

   340

};

   341

   342

static void DrawTile_Industry(TileInfo *ti)

   343

{

   344

	Industry *ind;

   345

	const DrawIndustryTileStruct *dits;

   346

	byte z;

   347

	uint32 image, ormod;

   348

   349

	/* Pointer to industry */

   350

	ind = GetIndustry(_m[ti->tile].m2);

   351

	ormod = (ind->color_map+0x307) << PALETTE_SPRITE_START;

   352

   353

	/* Retrieve pointer to the draw industry tile struct */

   354

	dits = &_industry_draw_tile_data[(ti->map5 << 2) | GB(_m[ti->tile].m1, 0, 2)];

   355

   356

	image = dits->sprite_1;

   357

	if (image & PALETTE_MODIFIER_COLOR && (image & PALETTE_SPRITE_MASK) == 0)

   358

		image |= ormod;

   359

   360

	z = ti->z;

   361

	/* Add bricks below the industry? */

   362

	if (ti->tileh & 0xF) {

   363

		AddSortableSpriteToDraw(SPR_FOUNDATION_BASE + (ti->tileh & 0xF), ti->x, ti->y, 16, 16, 7, z);

   364

		AddChildSpriteScreen(image, 0x1F, 1);

   365

		z += 8;

   366

	} else {

   367

		/* Else draw regular ground */

   368

		DrawGroundSprite(image);

   369

	}

   370

   371

	/* Add industry on top of the ground? */

   372

	if ((image = dits->sprite_2) != 0) {

   373

   374

		if (image & PALETTE_MODIFIER_COLOR && (image & PALETTE_SPRITE_MASK) == 0)

   375

			image |= ormod;

   376

   377

		if (_display_opt & DO_TRANS_BUILDINGS)

   378

			MAKE_TRANSPARENT(image);

   379

   380

		AddSortableSpriteToDraw(image,

   381

			ti->x | (dits->subtile_xy>>4),

   382

			ti->y | (dits->subtile_xy&0xF),

   383

			(dits->width_height>>4)+1,

   384

			(dits->width_height&0xF)+1,

   385

			dits->dz,

   386

			z);

   387

   388

		if (_display_opt & DO_TRANS_BUILDINGS)

   389

			return;

   390

	}

   391

   392

	/* TTDBUG: strange code here, return if AddSortableSpriteToDraw failed?  */

   393

		{

   394

		int proc;

   395

		if ((proc=dits->proc-1) >= 0 )

   396

			_industry_draw_tile_procs[proc](ti);

   397

	}

   398

}

   399

   400

   404

}

   405

   406

static uint GetSlopeTileh_Industry(const TileInfo *ti) {

   407

	return 0;

   408

}

   409

   410

static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac)

   411

{

   412

	int m5 = _m[tile].m5;

   413

	int a;

   414

   415

	a = _industry_map5_accepts_1[m5];

   416

	if (a >= 0) ac[a] = (a == 0) ? 1 : 8;

   417

   418

	a = _industry_map5_accepts_2[m5];

   419

	if (a >= 0) ac[a] = 8;

   420

   421

	a = _industry_map5_accepts_3[m5];

   422

	if (a >= 0) ac[a] = 8;

   423

}

   424

   425

static void GetTileDesc_Industry(TileIndex tile, TileDesc *td)

   426

{

   427

	Industry *i = GetIndustry(_m[tile].m2);

   428

   429

	td->owner = i->owner;

   430

	td->str = STR_4802_COAL_MINE + i->type;

   431

	if ((_m[tile].m1 & 0x80) == 0) {

   432

		SetDParamX(td->dparam, 0, td->str);

   433

		td->str = STR_2058_UNDER_CONSTRUCTION;

   434

	}

   435

}

   436

   437

static int32 ClearTile_Industry(TileIndex tile, byte flags)

   438

{

   439

	Industry *i = GetIndustry(_m[tile].m2);

   440

   441

	/*	* water can destroy industries

   442

			* in editor you can bulldoze industries

   443

			* with magic_bulldozer cheat you can destroy industries

   444

			* (area around OILRIG is water, so water shouldn't flood it

   445

	*/

   446

	if ((_current_player != OWNER_WATER && _game_mode != GM_EDITOR &&

   447

			!_cheats.magic_bulldozer.value) ||

   448

			(_current_player == OWNER_WATER && i->type == IT_OIL_RIG) ) {

   449

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

   450

		return_cmd_error(STR_4800_IN_THE_WAY);

   451

	}

   452

   453

	if (flags & DC_EXEC) {

   454

 		DeleteIndustry(i);

   455

	}

   456

	return 0;

   457

}

   458

   459

   460

static const byte _industry_min_cargo[] = {

   461

	5, 5, 5, 30, 5, 5, 5, 5,

   462

	5, 5, 5, 5, 2, 5, 5, 5,

   463

	5, 5, 5, 15, 15, 5, 5, 5,

   464

	5, 5, 30, 5, 30, 5, 5, 5,

   465

	5, 5, 5, 5, 5,

   466

};

   467

   468

static void TransportIndustryGoods(TileIndex tile)

   469

{

   470

	Industry *i;

   471

	int type;

   472

	uint cw, am;

   473

	byte m5;

   474

   475

	i = GetIndustry(_m[tile].m2);

   476

   477

	type = i->type;

   478

	cw = min(i->cargo_waiting[0], 255);

   479

	if (cw > _industry_min_cargo[type]/* && i->produced_cargo[0] != 0xFF*/) {

   480

		i->cargo_waiting[0] -= cw;

   481

   482

		/* fluctuating economy? */

   483

		if (_economy.fluct <= 0) cw = (cw + 1) >> 1;

   484

   485

		i->last_mo_production[0] += cw;

   486

   487

		am = MoveGoodsToStation(i->xy, i->width, i->height, i->produced_cargo[0], cw);

   488

		i->last_mo_transported[0] += am;

   489

		if (am != 0 && (m5 = _industry_produce_map5[_m[tile].m5]) != 0xFF) {

   490

			_m[tile].m1 = 0x80;

   491

			_m[tile].m5 = m5;

   492

			MarkTileDirtyByTile(tile);

   493

		}

   494

	}

   495

   496

	type = i->type;

   497

	cw = min(i->cargo_waiting[1], 255);

   498

	if (cw > _industry_min_cargo[type]) {

   499

		i->cargo_waiting[1] -= cw;

   500

   501

		if (_economy.fluct <= 0) cw = (cw + 1) >> 1;

   502

   503

		i->last_mo_production[1] += cw;

   504

   505

		am = MoveGoodsToStation(i->xy, i->width, i->height, i->produced_cargo[1], cw);

   506

		i->last_mo_transported[1] += am;

   507

	}

   508

}

   509

   510

   511

static void AnimateTile_Industry(TileIndex tile)