1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "clear_map.h"

     6

#include "industry_map.h"

     7

#include "station_map.h"

     8

#include "table/strings.h"

     9

#include "table/sprites.h"

    10

#include "functions.h"

    11

#include "map.h"

    12

#include "tile.h"

    13

#include "viewport.h"

    14

#include "command.h"

    15

#include "industry.h"

    16

#include "town.h"

    17

#include "vehicle.h"

    18

#include "news.h"

    19

#include "saveload.h"

    20

#include "economy.h"

    21

#include "sound.h"

    22

#include "variables.h"

    23

    24

enum {

    25

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

    26

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

    27

	INDUSTRY_POOL_MAX_BLOCKS      = 8000,

    28

};

    29

    30

/**

    31

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

    32

 */

    33

static void IndustryPoolNewBlock(uint start_item)

    34

{

    35

	Industry *i;

    36

    37

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

    38

}

    39

    40

/* Initialize the industry-pool */

    41

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

    42

    43

static byte _industry_sound_ctr;

    44

static TileIndex _industry_sound_tile;

    45

    46

void ShowIndustryViewWindow(int industry);

    47

void BuildOilRig(TileIndex tile);

    48

void DeleteOilRig(TileIndex tile);

    49

    50

typedef struct DrawIndustryTileStruct {

    51

	uint32 sprite_1;

    52

	uint32 sprite_2;

    53

    54

	byte subtile_x:4;

    55

	byte subtile_y:4;

    56

	byte width:4;

    57

	byte height:4;

    58

	byte dz;

    59

	byte proc;

    60

} DrawIndustryTileStruct;

    61

    62

    63

typedef struct DrawIndustrySpec1Struct {

    64

	byte x;

    65

	byte image_1;

    66

	byte image_2;

    67

	byte image_3;

    68

} DrawIndustrySpec1Struct;

    69

    70

typedef struct DrawIndustrySpec4Struct {

    71

	byte image_1;

    72

	byte image_2;

    73

	byte image_3;

    74

} DrawIndustrySpec4Struct;

    75

    76

typedef struct IndustryTileTable {

    77

	TileIndexDiffC ti;

    78

	byte gfx;

    79

} IndustryTileTable;

    80

    81

typedef struct IndustrySpec {

    82

	const IndustryTileTable *const *table;

    83

	byte num_table;

    84

	byte a,b,c;

    85

	CargoID produced_cargo[2];

    86

	byte production_rate[2];

    87

	CargoID accepts_cargo[3];

    88

	byte check_proc;

    89

} IndustrySpec;

    90

    91

#include "table/industry_land.h"

    92

#include "table/build_industry.h"

    93

    94

    95

    96

static const IndustryType _industry_close_mode[37] = {

   134

};

   135

   136

static const StringID _industry_prod_up_strings[] = {

   137

	STR_4836_NEW_COAL_SEAM_FOUND_AT,

   138

	STR_4835_INCREASES_PRODUCTION,

   139

	STR_4835_INCREASES_PRODUCTION,

   140

	STR_4835_INCREASES_PRODUCTION,

   141

	STR_4835_INCREASES_PRODUCTION,

   142

	STR_4837_NEW_OIL_RESERVES_FOUND,

   143

	STR_4835_INCREASES_PRODUCTION,

   144

	STR_4835_INCREASES_PRODUCTION,

   145

	STR_4835_INCREASES_PRODUCTION,

   146

	STR_4838_IMPROVED_FARMING_METHODS,

   147

	STR_4835_INCREASES_PRODUCTION,

   148

	STR_4837_NEW_OIL_RESERVES_FOUND,

   149

	STR_4835_INCREASES_PRODUCTION,

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

   157

	STR_4838_IMPROVED_FARMING_METHODS,

   158

	STR_4835_INCREASES_PRODUCTION,

   159

	STR_4835_INCREASES_PRODUCTION,

   160

	STR_4835_INCREASES_PRODUCTION,

   161

	STR_4838_IMPROVED_FARMING_METHODS,

   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_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

};

   175

   176

static const StringID _industry_prod_down_strings[] = {

   177

	STR_4839_PRODUCTION_DOWN_BY_50,

   178

	STR_4839_PRODUCTION_DOWN_BY_50,

   179

	STR_4839_PRODUCTION_DOWN_BY_50,

   180

	STR_483A_INSECT_INFESTATION_CAUSES,

   181

	STR_4839_PRODUCTION_DOWN_BY_50,

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

   187

	STR_4839_PRODUCTION_DOWN_BY_50,

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

   197

	STR_483A_INSECT_INFESTATION_CAUSES,

   198

	STR_4839_PRODUCTION_DOWN_BY_50,

   199

	STR_4839_PRODUCTION_DOWN_BY_50,

   200

	STR_4839_PRODUCTION_DOWN_BY_50,

   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_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

};

   215

   216

static const StringID _industry_close_strings[] = {

   217

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   218

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   219

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

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

   225

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   226

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   227

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   228

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   229

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   230

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   231

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   232

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

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

   241

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   242

	STR_4834_LACK_OF_NEARBY_TREES_CAUSES,

   243

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   244

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   245

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   246

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   247

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   248

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   249

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   250

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   251

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   252

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   253

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE

   254

};

   255

   256

   257

static void IndustryDrawSugarMine(const TileInfo *ti)

   258

{

   259

	const DrawIndustrySpec1Struct *d;

   260

	uint32 image;

   261

   262

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

   263

   264

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

   265

   266

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

   267

   268

	image = d->image_2;

   269

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

   270

   271

	image = d->image_3;

   272

	if (image != 0) {

   273

		AddChildSpriteScreen(SPR_IT_SUGAR_MINE_PILE + image - 1,

   274

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

   275

	}

   276

}

   277

   278

static void IndustryDrawToffeeQuarry(const TileInfo *ti)

   279

{

   280

	int x = 0;

   281

   282

	if (IsIndustryCompleted(ti->tile)) {

   283

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

   284

		if ( (byte)x == 0xFF)

   285

			x = 0;

   286

	}

   287

   288

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

   289

	AddChildSpriteScreen(SPR_IT_TOFFEE_QUARRY_TOFFEE, 6, 14);

   290

}

   291

   292

static void IndustryDrawBubbleGenerator( const TileInfo *ti)

   293

{

   294

	if (IsIndustryCompleted(ti->tile)) {

   295

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

   296

	} else {

   297

		AddChildSpriteScreen(SPR_IT_BUBBLE_GENERATOR_SPRING, 3, 67);

   298

	}

   299

}

   300

   301

static void IndustryDrawToyFactory(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(SPR_IT_TOY_FACTORY_CLAY, 50 - d->image_1 * 2, 96 + d->image_1);

   309

	}

   310

   311

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

   312

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

   313

	}

   314

   315

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

   316

	AddChildSpriteScreen(SPR_IT_TOY_FACTORY_STAMP_HOLDER, 0, 42);

   317

}

   318

   319

static void IndustryDrawCoalPlantSparks(const TileInfo *ti)

   320

{

   321

	if (IsIndustryCompleted(ti->tile)) {

   322

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

   323

   324

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

   325

			AddChildSpriteScreen(image + SPR_IT_POWER_PLANT_TRANSFORMERS,

   326

				_coal_plant_sparks_x[image - 1],

   327

				_coal_plant_sparks_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

	IndustryDrawSugarMine,

   336

	IndustryDrawToffeeQuarry,

   337

	IndustryDrawBubbleGenerator,

   338

	IndustryDrawToyFactory,

   339

	IndustryDrawCoalPlantSparks,

   340

};

   341

   342

static void DrawTile_Industry(TileInfo *ti)

   343

{

   344

	const Industry* ind;

   345

	const DrawIndustryTileStruct *dits;

   346

	byte z;

   347

	uint32 image, ormod;

   348

   349

	/* Pointer to industry */

   350

	ind = GetIndustryByTile(ti->tile);

   351

	ormod = GENERAL_SPRITE_COLOR(ind->color_map);

   352

   353

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

   354

	dits = &_industry_draw_tile_data[GetIndustryGfx(ti->tile) << 2 | GetIndustryConstructionStage(ti->tile)];

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

	image = dits->sprite_2;

   373

	if (image != 0) {

   374

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

   375

			image |= ormod;

   376

   377

		if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   378

   379

		AddSortableSpriteToDraw(image,

   380

			ti->x + dits->subtile_x,

   381

			ti->y + dits->subtile_y,

   382

			dits->width  + 1,

   383

			dits->height + 1,

   384

			dits->dz,

   385

			z);

   386

   387

		if (_display_opt & DO_TRANS_BUILDINGS) return;

   388

	}

   389

   390

	{

   391

		int proc = dits->proc - 1;

   392

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

   393

	}

   394

}

   395

   396

   397

static uint GetSlopeZ_Industry(const TileInfo* ti)

   398

{

   399

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

   400

}

   401

   402

static uint GetSlopeTileh_Industry(TileIndex tile, uint tileh)

   403

{

   404

	return 0;

   405

}

   406

   407

static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac)

   408

{

   409

	uint gfx = GetIndustryGfx(tile);

   410

	CargoID a;

   411

   412

	a = _industry_section_accepts_1[gfx];

   413

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

   414

   415

	a = _industry_section_accepts_2[gfx];

   416

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

   417

   418

	a = _industry_section_accepts_3[gfx];

   419

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

   420

}

   421

   422

static void GetTileDesc_Industry(TileIndex tile, TileDesc *td)

   423

{

   424

	const Industry* i = GetIndustryByTile(tile);

   425

   426

	td->owner = i->owner;

   427

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

   428

	if (!IsIndustryCompleted(tile)) {

   429

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

   430

		td->str = STR_2058_UNDER_CONSTRUCTION;

   431

	}

   432

}

   433

   434

static int32 ClearTile_Industry(TileIndex tile, byte flags)

   435

{

   436

	Industry* i = GetIndustryByTile(tile);

   437

   438

	/*	* water can destroy industries

   439

			* in editor you can bulldoze industries

   440

			* with magic_bulldozer cheat you can destroy industries

   441

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

   442

	*/

   443

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

   444

			!_cheats.magic_bulldozer.value) ||

   445

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

   446

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

   447

		return_cmd_error(STR_4800_IN_THE_WAY);

   448

	}

   449

   450

	if (flags & DC_EXEC) DeleteIndustry(i);

   451

	return 0;

   452

}

   453

   454

   455

static const byte _industry_min_cargo[] = {

   456

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

   457

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

   458

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

   459

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

   460

	5, 5, 5, 5, 5,

   461

};

   462

   463

static void TransportIndustryGoods(TileIndex tile)

   464

{

   465

	Industry* i = GetIndustryByTile(tile);

   466

	uint cw, am;

   467

   468

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

   469

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

   470

		i->cargo_waiting[0] -= cw;

   471

   472

		/* fluctuating economy? */

   473

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

   474

   475

		i->last_mo_production[0] += cw;

   476

   477

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

   478

		i->last_mo_transported[0] += am;

   479

		if (am != 0) {

   480

			uint newgfx = _industry_produce_section[GetIndustryGfx(tile)];

   481

   482

			if (newgfx != 0xFF) {

   483

				ResetIndustryConstructionStage(tile);

   484

				SetIndustryCompleted(tile, true);

   485

				SetIndustryGfx(tile, newgfx);

   486

				MarkTileDirtyByTile(tile);

   487

			}

   488

		}

   489

	}

   490

   491

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

   492

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

   493

		i->cargo_waiting[1] -= cw;

   494

   495

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

   496

   497

		i->last_mo_production[1] += cw;

   498

   499

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

   500

		i->last_mo_transported[1] += am;

   501

	}

   502

}

   503

   504

   505