1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "clear_map.h"

     6

#include "industry_map.h"

     7

#include "table/strings.h"

     8

#include "table/sprites.h"

     9

#include "functions.h"

    10

#include "map.h"

    11

#include "tile.h"

    12

#include "viewport.h"

    13

#include "command.h"

    14

#include "industry.h"

    15

#include "town.h"

    16

#include "vehicle.h"

    17

#include "news.h"

    18

#include "saveload.h"

    19

#include "economy.h"

    20

#include "sound.h"

    21

#include "variables.h"

    22

    23

enum {

    24

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

    25

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

    26

	INDUSTRY_POOL_MAX_BLOCKS      = 8000,

    27

};

    28

    29

/**

    30

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

    31

 */

    32

static void IndustryPoolNewBlock(uint start_item)

    33

{

    34

	Industry *i;

    35

    36

	FOR_ALL_INDUSTRIES_FROM(i, start_item) i->index = start_item++;

    37

}

    38

    39

/* Initialize the industry-pool */

    40

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

    41

    42

static byte _industry_sound_ctr;

    43

static TileIndex _industry_sound_tile;

    44

    45

void ShowIndustryViewWindow(int industry);

    46

void BuildOilRig(TileIndex tile);

    47

void DeleteOilRig(TileIndex tile);

    48

    49

typedef struct DrawIndustryTileStruct {

    50

	uint32 sprite_1;

    51

	uint32 sprite_2;

    52

    53

	byte subtile_x:4;

    54

	byte subtile_y:4;

    55

	byte width:4;

    56

	byte height:4;

    57

	byte dz;

    58

	byte proc;

    59

} DrawIndustryTileStruct;

    60

    61

    62

typedef struct DrawIndustrySpec1Struct {

    63

	byte x;

    64

	byte image_1;

    65

	byte image_2;

    66

	byte image_3;

    67

} DrawIndustrySpec1Struct;

    68

    69

typedef struct DrawIndustrySpec4Struct {

    70

	byte image_1;

    71

	byte image_2;

    72

	byte image_3;

    73

} DrawIndustrySpec4Struct;

    74

    75

typedef struct IndustryTileTable {

    76

	TileIndexDiffC ti;

    77

	byte map5;

    78

} IndustryTileTable;

    79

    80

typedef struct IndustrySpec {

    81

	const IndustryTileTable *const *table;

    82

	byte num_table;

    83

	byte a,b,c;

    84

	byte produced_cargo[2];

    85

	byte production_rate[2];

    86

	byte accepts_cargo[3];

    87

	byte check_proc;

    88

} IndustrySpec;

    89

    90

#include "table/industry_land.h"

    91

#include "table/build_industry.h"

    92

    93

typedef enum IndustryType {

    94

	INDUSTRY_NOT_CLOSABLE,     ///< Industry can never close

    95

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

    96

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

    97

} IndustryType;

    98

    99

   100

static const IndustryType _industry_close_mode[37] = {

   101

	/* COAL_MINE */         INDUSTRY_PRODUCTION,

   102

	/* POWER_STATION */     INDUSTRY_NOT_CLOSABLE,

   103

	/* SAWMILL */           INDUSTRY_CLOSABLE,

   104

	/* FOREST */            INDUSTRY_PRODUCTION,

   105

	/* OIL_REFINERY */      INDUSTRY_CLOSABLE,

   106

	/* OIL_RIG */           INDUSTRY_PRODUCTION,

   107

	/* FACTORY */           INDUSTRY_CLOSABLE,

   108

	/* PRINTING_WORKS */    INDUSTRY_CLOSABLE,

   109

	/* STEEL_MILL */        INDUSTRY_CLOSABLE,

   110

	/* FARM */              INDUSTRY_PRODUCTION,

   111

	/* COPPER_MINE */       INDUSTRY_PRODUCTION,

   112

	/* OIL_WELL */          INDUSTRY_PRODUCTION,

   113

	/* BANK */              INDUSTRY_NOT_CLOSABLE,

   114

	/* FOOD_PROCESS */      INDUSTRY_CLOSABLE,

   115

	/* PAPER_MILL */        INDUSTRY_CLOSABLE,

   116

	/* GOLD_MINE */         INDUSTRY_PRODUCTION,

   117

	/* BANK_2,  */          INDUSTRY_NOT_CLOSABLE,

   118

	/* DIAMOND_MINE */      INDUSTRY_PRODUCTION,

   119

	/* IRON_MINE */         INDUSTRY_PRODUCTION,

   120

	/* FRUIT_PLANTATION */  INDUSTRY_PRODUCTION,

   121

	/* RUBBER_PLANTATION */ INDUSTRY_PRODUCTION,

   122

	/* WATER_SUPPLY */      INDUSTRY_PRODUCTION,

   123

	/* WATER_TOWER */       INDUSTRY_NOT_CLOSABLE,

   124

	/* FACTORY_2 */         INDUSTRY_CLOSABLE,

   125

	/* FARM_2 */            INDUSTRY_PRODUCTION,

   126

	/* LUMBER_MILL */       INDUSTRY_CLOSABLE,

   127

	/* COTTON_CANDY */      INDUSTRY_PRODUCTION,

   128

	/* CANDY_FACTORY */     INDUSTRY_CLOSABLE,

   129

	/* BATTERY_FARM */      INDUSTRY_PRODUCTION,

   130

	/* COLA_WELLS */        INDUSTRY_PRODUCTION,

   131

	/* TOY_SHOP */          INDUSTRY_NOT_CLOSABLE,

   132

	/* TOY_FACTORY */       INDUSTRY_CLOSABLE,

   133

	/* PLASTIC_FOUNTAINS */ INDUSTRY_PRODUCTION,

   134

	/* FIZZY_DRINK_FACTORY */INDUSTRY_CLOSABLE,

   135

	/* BUBBLE_GENERATOR */  INDUSTRY_PRODUCTION,

   136

	/* TOFFEE_QUARRY */     INDUSTRY_PRODUCTION,

   137

	/* SUGAR_MINE */        INDUSTRY_PRODUCTION

   138

};

   139

   140

static const StringID _industry_prod_up_strings[] = {

   141

	STR_4836_NEW_COAL_SEAM_FOUND_AT,

   142

	STR_4835_INCREASES_PRODUCTION,

   143

	STR_4835_INCREASES_PRODUCTION,

   144

	STR_4835_INCREASES_PRODUCTION,

   145

	STR_4835_INCREASES_PRODUCTION,

   146

	STR_4837_NEW_OIL_RESERVES_FOUND,

   147

	STR_4835_INCREASES_PRODUCTION,

   148

	STR_4835_INCREASES_PRODUCTION,

   149

	STR_4835_INCREASES_PRODUCTION,

   150

	STR_4838_IMPROVED_FARMING_METHODS,

   151

	STR_4835_INCREASES_PRODUCTION,

   152

	STR_4837_NEW_OIL_RESERVES_FOUND,

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

   159

	STR_4835_INCREASES_PRODUCTION,

   160

	STR_4838_IMPROVED_FARMING_METHODS,

   161

	STR_4838_IMPROVED_FARMING_METHODS,

   162

	STR_4835_INCREASES_PRODUCTION,

   163

	STR_4835_INCREASES_PRODUCTION,

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

   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

	STR_4835_INCREASES_PRODUCTION,

   177

	STR_4835_INCREASES_PRODUCTION,

   178

};

   179

   180

static const StringID _industry_prod_down_strings[] = {

   181

	STR_4839_PRODUCTION_DOWN_BY_50,

   182

	STR_4839_PRODUCTION_DOWN_BY_50,

   183

	STR_4839_PRODUCTION_DOWN_BY_50,

   184

	STR_483A_INSECT_INFESTATION_CAUSES,

   185

	STR_4839_PRODUCTION_DOWN_BY_50,

   186

	STR_4839_PRODUCTION_DOWN_BY_50,

   187

	STR_4839_PRODUCTION_DOWN_BY_50,

   188

	STR_4839_PRODUCTION_DOWN_BY_50,

   189

	STR_4839_PRODUCTION_DOWN_BY_50,

   190

	STR_483A_INSECT_INFESTATION_CAUSES,

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

   199

	STR_4839_PRODUCTION_DOWN_BY_50,

   200

	STR_483A_INSECT_INFESTATION_CAUSES,

   201

	STR_483A_INSECT_INFESTATION_CAUSES,

   202

	STR_4839_PRODUCTION_DOWN_BY_50,

   203

	STR_4839_PRODUCTION_DOWN_BY_50,

   204

	STR_4839_PRODUCTION_DOWN_BY_50,

   205

	STR_483A_INSECT_INFESTATION_CAUSES,

   206

	STR_4839_PRODUCTION_DOWN_BY_50,

   207

	STR_4839_PRODUCTION_DOWN_BY_50,

   208

	STR_4839_PRODUCTION_DOWN_BY_50,

   209

	STR_483A_INSECT_INFESTATION_CAUSES,

   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

	STR_4839_PRODUCTION_DOWN_BY_50,

   217

	STR_4839_PRODUCTION_DOWN_BY_50,

   218

};

   219

   220

static const StringID _industry_close_strings[] = {

   221

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

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

   227

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   228

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   229

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   230

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   231

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   232

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   233

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   234

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   235

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

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

   243

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   244

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   245

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   246

	STR_4834_LACK_OF_NEARBY_TREES_CAUSES,

   247

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   248

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   249

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   250

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   251

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   252

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   253

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   254

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   255

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   256

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   257

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE

   258

};

   259

   260

   261

static void IndustryDrawSugarMine(const TileInfo *ti)

   262

{

   263

	const DrawIndustrySpec1Struct *d;

   264

	uint32 image;

   265

   266

	if (!IsIndustryCompleted(ti->tile)) return;

   267

   268

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

   269

   270

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

   271

   272

	image = d->image_2;

   273

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

   274

   275

	image = d->image_3;

   276

	if (image != 0) {

   277

		AddChildSpriteScreen(SPR_IT_SUGAR_MINE_PILE + image - 1,

   278

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

   279

	}

   280

}

   281

   282

static void IndustryDrawToffeeQuarry(const TileInfo *ti)

   283

{

   284

	int x = 0;

   285

   286

	if (IsIndustryCompleted(ti->tile)) {

   287

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

   288

		if ( (byte)x == 0xFF)

   289

			x = 0;

   290

	}

   291

   292

	AddChildSpriteScreen(SPR_IT_TOFFEE_QUARRY_SHOVEL, 22 - x, 24 + x);

   293

	AddChildSpriteScreen(SPR_IT_TOFFEE_QUARRY_TOFFEE, 6, 14);

   294

}

   295

   296

static void IndustryDrawBubbleGenerator( const TileInfo *ti)

   297

{

   298

	if (IsIndustryCompleted(ti->tile)) {

   299

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

   300

	} else {

   301

		AddChildSpriteScreen(SPR_IT_BUBBLE_GENERATOR_SPRING, 3, 67);

   302

	}

   303

}

   304

   305

static void IndustryDrawToyFactory(const TileInfo *ti)

   306

{

   307

	const DrawIndustrySpec4Struct *d;

   308

   309

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

   310

   311

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

   312

		AddChildSpriteScreen(SPR_IT_TOY_FACTORY_CLAY, 50 - d->image_1 * 2, 96 + d->image_1);

   313

	}

   314

   315

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

   316

		AddChildSpriteScreen(SPR_IT_TOY_FACTORY_ROBOT, 16 - d->image_2 * 2, 100 + d->image_2);

   317

	}

   318

   319

	AddChildSpriteScreen(SPR_IT_TOY_FACTORY_STAMP, 7, d->image_3);

   320

	AddChildSpriteScreen(SPR_IT_TOY_FACTORY_STAMP_HOLDER, 0, 42);

   321

}

   322

   323

static void IndustryDrawCoalPlantSparks(const TileInfo *ti)

   324

{

   325

	if (IsIndustryCompleted(ti->tile)) {

   326

		uint image = GB(_m[ti->tile].m1, 2, 5);

   327

   328

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

   329

			AddChildSpriteScreen(image + SPR_IT_POWER_PLANT_TRANSFORMERS,

   330

				_coal_plant_sparks_x[image - 1],

   331

				_coal_plant_sparks_y[image - 1]

   332

			);

   333

		}

   334

	}

   335

}

   336

   337

typedef void IndustryDrawTileProc(const TileInfo *ti);

   338

static IndustryDrawTileProc * const _industry_draw_tile_procs[5] = {

   339

	IndustryDrawSugarMine,

   340

	IndustryDrawToffeeQuarry,

   341

	IndustryDrawBubbleGenerator,

   342

	IndustryDrawToyFactory,

   343

	IndustryDrawCoalPlantSparks,

   344

};

   345

   346

static void DrawTile_Industry(TileInfo *ti)

   347

{

   348

	const Industry* ind;

   349

	const DrawIndustryTileStruct *dits;

   350

	byte z;

   351

	uint32 image, ormod;

   352

   353

	/* Pointer to industry */

   354

	ind = GetIndustryByTile(ti->tile);

   355

	ormod = GENERAL_SPRITE_COLOR(ind->color_map);

   356

   357

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

   359

   360

	image = dits->sprite_1;

   361

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

   362

		image |= ormod;

   363

   364

	z = ti->z;

   365

	/* Add bricks below the industry? */

   366

	if (ti->tileh & 0xF) {

   367

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

   368

		AddChildSpriteScreen(image, 31, 1);

   369

		z += 8;

   370

	} else {

   371

		/* Else draw regular ground */

   372

		DrawGroundSprite(image);

   373

	}

   374

   375

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

   376

	image = dits->sprite_2;

   377

	if (image != 0) {

   378

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

   379

			image |= ormod;

   380

   381

		if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   382

   383

		AddSortableSpriteToDraw(image,

   384

			ti->x + dits->subtile_x,

   385

			ti->y + dits->subtile_y,

   386

			dits->width  + 1,

   387

			dits->height + 1,

   388

			dits->dz,

   389

			z);

   390

   391

		if (_display_opt & DO_TRANS_BUILDINGS) return;

   392

	}

   393

   394

	{

   395

		int proc = dits->proc - 1;

   396

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

   397

	}

   398

}

   399

   400

   401

static uint GetSlopeZ_Industry(const TileInfo* ti)

   402

{

   403

	return ti->z + (ti->tileh == 0 ? 0 : 8);

   404

}

   405

   406

static uint GetSlopeTileh_Industry(const TileInfo* ti)

   407

{

   408

	return 0;

   409

}

   410

   411

static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac)

   412

{

   414

	CargoID a;

   415

   417

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

   418

   420

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

   421

   423

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

   424

}

   425

   426

static void GetTileDesc_Industry(TileIndex tile, TileDesc *td)

   427

{

   428

	const Industry* i = GetIndustryByTile(tile);

   429

   430

	td->owner = i->owner;

   431

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

   432

	if (!IsIndustryCompleted(tile)) {

   433

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

   434

		td->str = STR_2058_UNDER_CONSTRUCTION;

   435

	}

   436

}

   437

   438

static int32 ClearTile_Industry(TileIndex tile, byte flags)

   439

{

   440

	Industry* i = GetIndustryByTile(tile);

   441

   442

	/*	* water can destroy industries

   443

			* in editor you can bulldoze industries

   444

			* with magic_bulldozer cheat you can destroy industries

   445

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

   446

	*/

   447

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

   448

			!_cheats.magic_bulldozer.value) ||

   449

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

   450

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

   451

		return_cmd_error(STR_4800_IN_THE_WAY);

   452

	}

   453

   454

	if (flags & DC_EXEC) DeleteIndustry(i);

   455

	return 0;

   456

}

   457

   458

   459

static const byte _industry_min_cargo[] = {

   460

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

   461

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

   462

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

   463

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

   464

	5, 5, 5, 5, 5,

   465

};

   466

   467

static void TransportIndustryGoods(TileIndex tile)

   468

{

   469

	Industry* i = GetIndustryByTile(tile);

   470

	uint cw, am;

   471

   472

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

   473

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

   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;

   491

		}

   492

	}

   493

   494

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

   495

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

   496

		i->cargo_waiting[1] -= cw;

   497

   498

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

   499

   500

		i->last_mo_production[1] += cw;

   501

   502

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

   503

		i->last_mo_transported[1] += am;

   504

	}

   505

}