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) i->index = start_item++;

    35

}

    36

    37

/* Initialize the industry-pool */

    38

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

    39

    40

static byte _industry_sound_ctr;

    41

static TileIndex _industry_sound_tile;

    42

    43

void ShowIndustryViewWindow(int industry);

    44

void BuildOilRig(TileIndex tile);

    45

void DeleteOilRig(TileIndex tile);

    46

    47

typedef struct DrawIndustryTileStruct {

    48

	uint32 sprite_1;

    49

	uint32 sprite_2;

    50

    55

	byte dz;

    56

	byte proc;

    57

} DrawIndustryTileStruct;

    58

    59

    60

typedef struct DrawIndustrySpec1Struct {

    61

	byte x;

    62

	byte image_1;

    63

	byte image_2;

    64

	byte image_3;

    65

} DrawIndustrySpec1Struct;

    66

    67

typedef struct DrawIndustrySpec4Struct {

    68

	byte image_1;

    69

	byte image_2;

    70

	byte image_3;

    71

} DrawIndustrySpec4Struct;

    72

    73

typedef struct IndustryTileTable {

    74

	TileIndexDiffC ti;

    75

	byte map5;

    76

} IndustryTileTable;

    77

    78

typedef struct IndustrySpec {

    79

	const IndustryTileTable *const *table;

    80

	byte num_table;

    81

	byte a,b,c;

    82

	byte produced_cargo[2];

    83

	byte production_rate[2];

    84

	byte accepts_cargo[3];

    85

	byte check_proc;

    86

} IndustrySpec;

    87

    88

#include "table/industry_land.h"

    89

#include "table/build_industry.h"

    90

    91

typedef enum IndustryType {

    92

	INDUSTRY_NOT_CLOSABLE,     //! Industry can never close

    93

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

    94

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

    95

} IndustryType;

    96

    97

    98

static const IndustryType _industry_close_mode[37] = {

    99

	/* COAL_MINE */         INDUSTRY_PRODUCTION,

   100

	/* POWER_STATION */     INDUSTRY_NOT_CLOSABLE,

   101

	/* SAWMILL */           INDUSTRY_CLOSABLE,

   102

	/* FOREST */            INDUSTRY_PRODUCTION,

   103

	/* OIL_REFINERY */      INDUSTRY_CLOSABLE,

   104

	/* OIL_RIG */           INDUSTRY_PRODUCTION,

   105

	/* FACTORY */           INDUSTRY_CLOSABLE,

   106

	/* PRINTING_WORKS */    INDUSTRY_CLOSABLE,

   107

	/* STEEL_MILL */        INDUSTRY_CLOSABLE,

   108

	/* FARM */              INDUSTRY_PRODUCTION,

   109

	/* COPPER_MINE */       INDUSTRY_PRODUCTION,

   110

	/* OIL_WELL */          INDUSTRY_PRODUCTION,

   111

	/* BANK */              INDUSTRY_NOT_CLOSABLE,

   112

	/* FOOD_PROCESS */      INDUSTRY_CLOSABLE,

   113

	/* PAPER_MILL */        INDUSTRY_CLOSABLE,

   114

	/* GOLD_MINE */         INDUSTRY_PRODUCTION,

   115

	/* BANK_2,  */          INDUSTRY_NOT_CLOSABLE,

   116

	/* DIAMOND_MINE */      INDUSTRY_PRODUCTION,

   117

	/* IRON_MINE */         INDUSTRY_PRODUCTION,

   118

	/* FRUIT_PLANTATION */  INDUSTRY_PRODUCTION,

   119

	/* RUBBER_PLANTATION */ INDUSTRY_PRODUCTION,

   120

	/* WATER_SUPPLY */      INDUSTRY_PRODUCTION,

   121

	/* WATER_TOWER */       INDUSTRY_NOT_CLOSABLE,

   122

	/* FACTORY_2 */         INDUSTRY_CLOSABLE,

   123

	/* FARM_2 */            INDUSTRY_PRODUCTION,

   124

	/* LUMBER_MILL */       INDUSTRY_CLOSABLE,

   125

	/* COTTON_CANDY */      INDUSTRY_PRODUCTION,

   126

	/* CANDY_FACTORY */     INDUSTRY_CLOSABLE,

   127

	/* BATTERY_FARM */      INDUSTRY_PRODUCTION,

   128

	/* COLA_WELLS */        INDUSTRY_PRODUCTION,

   129

	/* TOY_SHOP */          INDUSTRY_NOT_CLOSABLE,

   130

	/* TOY_FACTORY */       INDUSTRY_CLOSABLE,

   131

	/* PLASTIC_FOUNTAINS */ INDUSTRY_PRODUCTION,

   132

	/* FIZZY_DRINK_FACTORY */INDUSTRY_CLOSABLE,

   133

	/* BUBBLE_GENERATOR */  INDUSTRY_PRODUCTION,

   134

	/* TOFFEE_QUARRY */     INDUSTRY_PRODUCTION,

   135

	/* SUGAR_MINE */        INDUSTRY_PRODUCTION

   136

};

   137

   138

static const StringID _industry_prod_up_strings[] = {

   139

	STR_4836_NEW_COAL_SEAM_FOUND_AT,

   140

	STR_4835_INCREASES_PRODUCTION,

   141

	STR_4835_INCREASES_PRODUCTION,

   142

	STR_4835_INCREASES_PRODUCTION,

   143

	STR_4835_INCREASES_PRODUCTION,

   144

	STR_4837_NEW_OIL_RESERVES_FOUND,

   145

	STR_4835_INCREASES_PRODUCTION,

   146

	STR_4835_INCREASES_PRODUCTION,

   147

	STR_4835_INCREASES_PRODUCTION,

   148

	STR_4838_IMPROVED_FARMING_METHODS,

   149

	STR_4835_INCREASES_PRODUCTION,

   150

	STR_4837_NEW_OIL_RESERVES_FOUND,

   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_4835_INCREASES_PRODUCTION,

   158

	STR_4838_IMPROVED_FARMING_METHODS,

   159

	STR_4838_IMPROVED_FARMING_METHODS,

   160

	STR_4835_INCREASES_PRODUCTION,

   161

	STR_4835_INCREASES_PRODUCTION,

   162

	STR_4835_INCREASES_PRODUCTION,

   163

	STR_4838_IMPROVED_FARMING_METHODS,

   164

	STR_4835_INCREASES_PRODUCTION,

   165

	STR_4838_IMPROVED_FARMING_METHODS,

   166

	STR_4835_INCREASES_PRODUCTION,

   167

	STR_4838_IMPROVED_FARMING_METHODS,

   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

	STR_4835_INCREASES_PRODUCTION,

   176

};

   177

   178

static const StringID _industry_prod_down_strings[] = {

   179

	STR_4839_PRODUCTION_DOWN_BY_50,

   180

	STR_4839_PRODUCTION_DOWN_BY_50,

   181

	STR_4839_PRODUCTION_DOWN_BY_50,

   182

	STR_483A_INSECT_INFESTATION_CAUSES,

   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_4839_PRODUCTION_DOWN_BY_50,

   188

	STR_483A_INSECT_INFESTATION_CAUSES,

   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_4839_PRODUCTION_DOWN_BY_50,

   198

	STR_483A_INSECT_INFESTATION_CAUSES,

   199

	STR_483A_INSECT_INFESTATION_CAUSES,

   200

	STR_4839_PRODUCTION_DOWN_BY_50,

   201

	STR_4839_PRODUCTION_DOWN_BY_50,

   202

	STR_4839_PRODUCTION_DOWN_BY_50,

   203

	STR_483A_INSECT_INFESTATION_CAUSES,

   204

	STR_4839_PRODUCTION_DOWN_BY_50,

   205

	STR_4839_PRODUCTION_DOWN_BY_50,

   206

	STR_4839_PRODUCTION_DOWN_BY_50,

   207

	STR_483A_INSECT_INFESTATION_CAUSES,

   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

	STR_4839_PRODUCTION_DOWN_BY_50,

   216

};

   217

   218

static const StringID _industry_close_strings[] = {

   219

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   220

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   221

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   222

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   223

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   224

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   225

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   226

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   227

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   228

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   229

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   230

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   231

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   232

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   233

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   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_4832_ANNOUNCES_IMMINENT_CLOSURE,

   242

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   243

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   244

	STR_4834_LACK_OF_NEARBY_TREES_CAUSES,

   245

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   246

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   247

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   248

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   249

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   250

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   251

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   252

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   253

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   254

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   255

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE

   256

};

   257

   258

   259

static void IndustryDrawTileProc1(const TileInfo *ti)

   260

{

   261

	const DrawIndustrySpec1Struct *d;

   262

	uint32 image;

   263

   264

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

   265

   266

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

   267

   268

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

   269

   270

	image = d->image_2;

   271

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

   272

   273

	image = d->image_3;

   274

	if (image != 0) {

   275

		AddChildSpriteScreen(0x12AC + image - 1,

   276

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

   277

	}

   278

}

   279

   280

static void IndustryDrawTileProc2(const TileInfo *ti)

   281

{

   282

	int x = 0;

   283

   284

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

   285

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

   286

		if ( (byte)x == 0xFF)

   287

			x = 0;

   288

	}

   289

   290

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

   291

	AddChildSpriteScreen(0x129E, 6, 0xE);

   292

}

   293

   294

static void IndustryDrawTileProc3(const TileInfo *ti)

   295

{

   296

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

   297

		AddChildSpriteScreen(0x128B, 5, _industry_anim_offs_2[_m[ti->tile].m3]);

   298

	} else {

   299

		AddChildSpriteScreen(4746, 3, 67);

   300

	}

   301

}

   302

   303

static void IndustryDrawTileProc4(const TileInfo *ti)

   304

{

   305

	const DrawIndustrySpec4Struct *d;

   306

   307

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

   308

   309

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

   310

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

   311

	}

   312

   313

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

   314

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

   315

	}

   316

   317

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

   318

	AddChildSpriteScreen(0x126D, 0, 42);

   319

}

   320

   321

static void DrawCoalPlantSparkles(const TileInfo *ti)

   322

{

   323

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

   324

	if (image & 0x80) {

   325

		image = GB(image, 2, 5);

   326

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

   327

			AddChildSpriteScreen(image + 0x806,

   328

				_coal_plant_sparkles_x[image - 1],

   329

				_coal_plant_sparkles_y[image - 1]

   330

			);

   331

		}

   332

	}

   333

}

   334

   335

typedef void IndustryDrawTileProc(const TileInfo *ti);

   336

static IndustryDrawTileProc * const _industry_draw_tile_procs[5] = {

   337

	IndustryDrawTileProc1,

   338

	IndustryDrawTileProc2,

   339

	IndustryDrawTileProc3,

   340

	IndustryDrawTileProc4,

   341

	DrawCoalPlantSparkles,

   342

};

   343

   344

static void DrawTile_Industry(TileInfo *ti)

   345

{

   346

	const Industry* ind;

   347

	const DrawIndustryTileStruct *dits;

   348

	byte z;

   349

	uint32 image, ormod;

   350

   351

	/* Pointer to industry */

   352

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

   353

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

   354

   355

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

   356

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

   357

   358

	image = dits->sprite_1;

   359

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

   360

		image |= ormod;

   361

   362

	z = ti->z;

   363

	/* Add bricks below the industry? */

   364

	if (ti->tileh & 0xF) {

   365

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

   366

		AddChildSpriteScreen(image, 0x1F, 1);

   367

		z += 8;

   368

	} else {

   369

		/* Else draw regular ground */

   370

		DrawGroundSprite(image);

   371

	}

   372

   373

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

   374

	image = dits->sprite_2;

   375

	if (image != 0) {

   376

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

   377

			image |= ormod;

   378

   379

		if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   380

   381

		AddSortableSpriteToDraw(image,

   386

			dits->dz,

   387

			z);

   388

   389

		if (_display_opt & DO_TRANS_BUILDINGS) return;

   390

	}

   391

   392

	{

   393

		int proc = dits->proc - 1;

   394

		if (proc >= 0) _industry_draw_tile_procs[proc](ti);

   395

	}

   396

}

   397

   398

   399

static uint GetSlopeZ_Industry(const TileInfo* ti)

   400

{

   401

	return GetPartialZ(ti->x & 0xF, ti->y & 0xF, ti->tileh) + ti->z;

   402

}

   403

   404

static uint GetSlopeTileh_Industry(const TileInfo* ti)

   405

{

   406

	return 0;

   407

}

   408

   409

static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac)

   410

{

   411

	int m5 = _m[tile].m5;

   412

	CargoID a;

   413

   414

	a = _industry_map5_accepts_1[m5];

   415

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

   416

   417

	a = _industry_map5_accepts_2[m5];

   418

	if (a != CT_INVALID) ac[a] = 8;

   419

   420

	a = _industry_map5_accepts_3[m5];

   421

	if (a != CT_INVALID) ac[a] = 8;

   422

}

   423

   424

static void GetTileDesc_Industry(TileIndex tile, TileDesc *td)

   425

{

   426

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

   427

   428

	td->owner = i->owner;

   429

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

   430

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

   431

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

   432

		td->str = STR_2058_UNDER_CONSTRUCTION;

   433

	}

   434

}

   435

   436

static int32 ClearTile_Industry(TileIndex tile, byte flags)

   437

{

   438

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

   439

   440

	/*	* water can destroy industries

   441

			* in editor you can bulldoze industries

   442

			* with magic_bulldozer cheat you can destroy industries

   443

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

   444

	*/

   445

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

   446

			!_cheats.magic_bulldozer.value) ||

   447

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

   448

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

   449

		return_cmd_error(STR_4800_IN_THE_WAY);

   450

	}

   451

   452

	if (flags & DC_EXEC) DeleteIndustry(i);

   453

	return 0;

   454

}

   455

   456

   457

static const byte _industry_min_cargo[] = {

   458

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

   459

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

   460

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

   461

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

   462

	5, 5, 5, 5, 5,

   463

};

   464

   465

static void TransportIndustryGoods(TileIndex tile)

   466

{

   467

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

   468

	uint cw, am;

   469

   470

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

   471

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

   472

		byte m5;

   473

   474

		i->cargo_waiting[0] -= cw;

   475

   476

		/* fluctuating economy? */

   477

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

   478

   479

		i->last_mo_production[0] += cw;

   480

   481

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

   482

		i->last_mo_transported[0] += am;

   483

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

   484

			_m[tile].m1 = 0x80;

   485

			_m[tile].m5 = m5;

   486

			MarkTileDirtyByTile(tile);

   487

		}

   488

	}

   489

   490

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

   491

	if (cw > _industry_min_cargo[i->type]) {

   492

		i->cargo_waiting[1] -= cw;

   493

   494

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

   495

   496

		i->last_mo_production[1] += cw;

   497

   498

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

   499

		i->last_mo_transported[1] += am;

   500

	}

   501

}

   502

   503

   504

static void AnimateTile_Industry(TileIndex tile)

   505

{

   506

	byte m,n;

   507