1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "clear_map.h"

     6

#include "functions.h"

     7

#include "industry_map.h"

     8

#include "station_map.h"

     9

#include "table/strings.h"

    10

#include "table/sprites.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

#include "table/industry_land.h"

    24

#include "table/build_industry.h"

    25

#include "genworld.h"

    26

#include "date.h"

    27

#include "water_map.h"

    28

    29

void ShowIndustryViewWindow(int industry);

    30

void BuildOilRig(TileIndex tile);

    31

void DeleteOilRig(TileIndex tile);

    32

    33

static byte _industry_sound_ctr;

    34

static TileIndex _industry_sound_tile;

    35

    36

/**

    37

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

    38

 */

    39

static void IndustryPoolNewBlock(uint start_item)

    40

{

    41

	Industry *i;

    42

    43

	/* We don't use FOR_ALL here, because FOR_ALL skips invalid items.

    44

	 * TODO - This is just a temporary stage, this will be removed. */

    45

	for (i = GetIndustry(start_item); i != NULL; i = (i->index + 1U < GetIndustryPoolSize()) ? GetIndustry(i->index + 1U) : NULL) i->index = start_item++;

    46

}

    47

    48

DEFINE_OLD_POOL(Industry, Industry, IndustryPoolNewBlock, NULL)

    49

    50

/**

    51

 * Retrieve the type for this industry.  Although it is accessed by a tile,

    52

 * it will return the general type of industry, and not the sprite index

    53

 * as would do GetIndustryGfx.

    54

 * The same information can be accessed by looking at Industry->type

    55

 * @param tile that is queried

    56

 * @pre IsTileType(tile, MP_INDUSTRY)

    57

 * @return general type for this industry, as defined in industry.h

    58

 **/

    59

IndustryType GetIndustryType(TileIndex tile)

    60

{

    61

	IndustryGfx this_type = GetIndustryGfx(tile);

    62

	IndustryType iloop;

    63

    64

	assert(IsTileType(tile, MP_INDUSTRY));

    65

    66

	for (iloop = IT_COAL_MINE; iloop < IT_END; iloop += 1) {

    67

		if (IS_BYTE_INSIDE(this_type, industry_gfx_Solver[iloop].MinGfx,

    68

				industry_gfx_Solver[iloop].MaxGfx+1)) {

    69

			return iloop;

    70

		}

    71

	}

    72

    73

	return IT_INVALID;  //we have not found equivalent, whatever the reason

    74

}

    75

    76

/**

    77

 * Accessor for array _industry_specs.

    78

 * This will ensure at once : proper access and

    79

 * not allowing modifications of it.

    80

 * @param thistype of industry (which is the index in _industry_specs)

    81

 * @pre thistype < IT_END

    82

 **/

    83

const IndustrySpec *GetIndustrySpec(IndustryType thistype)

    84

{

    85

	assert(thistype < IT_END);

    86

	return &_industry_specs[thistype];

    87

}

    88

    89

void DestroyIndustry(Industry *i)

    90

{

    91

	BEGIN_TILE_LOOP(tile_cur, i->width, i->height, i->xy);

    92

		if (IsTileType(tile_cur, MP_INDUSTRY)) {

    93

			if (GetIndustryIndex(tile_cur) == i->index) {

    94

				DoClearSquare(tile_cur);

    95

			}

    96

		} else if (IsTileType(tile_cur, MP_STATION) && IsOilRig(tile_cur)) {

    97

			DeleteOilRig(tile_cur);

    98

		}

    99

	END_TILE_LOOP(tile_cur, i->width, i->height, i->xy);

   100

   101

	if (i->type == IT_FARM || i->type == IT_FARM_2) {

   102

		/* Remove the farmland and convert it to regular tiles over time. */

   103

		BEGIN_TILE_LOOP(tile_cur, 42, 42, i->xy - TileDiffXY(21, 21)) {

   104

			tile_cur = TILE_MASK(tile_cur);

   105

			if (IsTileType(tile_cur, MP_CLEAR) && IsClearGround(tile_cur, CLEAR_FIELDS) &&

   106

					GetIndustryIndexOfField(tile_cur) == i->index) {

   107

				SetIndustryIndexOfField(tile_cur, INVALID_INDUSTRY);

   108

			}

   109

		} END_TILE_LOOP(tile_cur, 42, 42, i->xy - TileDiff(21, 21))

   110

	}

   111

   112

	_industry_sort_dirty = true;

   113

	_total_industries--;

   114

	DeleteSubsidyWithIndustry(i->index);

   115

	DeleteWindowById(WC_INDUSTRY_VIEW, i->index);

   116

	InvalidateWindow(WC_INDUSTRY_DIRECTORY, 0);

   117

}

   118

   119

static void IndustryDrawSugarMine(const TileInfo *ti)

   120

{

   121

	const DrawIndustrySpec1Struct *d;

   122

	uint32 image;

   123

   124

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

   125

   127

   128

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

   129

   130

	image = d->image_2;

   131

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

   132

   133

	image = d->image_3;

   134

	if (image != 0) {

   135

		AddChildSpriteScreen(SPR_IT_SUGAR_MINE_PILE + image - 1,

   136

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

   137

	}

   138

}

   139

   140

static void IndustryDrawToffeeQuarry(const TileInfo *ti)

   141

{

   142

	int x = 0;

   143

   144

	if (IsIndustryCompleted(ti->tile)) {

   146

		if ( (byte)x == 0xFF)

   147

			x = 0;

   148

	}

   149

   150

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

   151

	AddChildSpriteScreen(SPR_IT_TOFFEE_QUARRY_TOFFEE, 6, 14);

   152

}

   153

   154

static void IndustryDrawBubbleGenerator( const TileInfo *ti)

   155

{

   156

	if (IsIndustryCompleted(ti->tile)) {

   158

	} else {

   159

		AddChildSpriteScreen(SPR_IT_BUBBLE_GENERATOR_SPRING, 3, 67);

   160

	}

   161

}

   162

   163

static void IndustryDrawToyFactory(const TileInfo *ti)

   164

{

   165

	const DrawIndustrySpec4Struct *d;

   166

   168

   169

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

   170

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

   171

	}

   172

   173

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

   174

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

   175

	}

   176

   177

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

   178

	AddChildSpriteScreen(SPR_IT_TOY_FACTORY_STAMP_HOLDER, 0, 42);

   179

}

   180

   181

static void IndustryDrawCoalPlantSparks(const TileInfo *ti)

   182

{

   183

	if (IsIndustryCompleted(ti->tile)) {

   185

   186

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

   187

			AddChildSpriteScreen(image + SPR_IT_POWER_PLANT_TRANSFORMERS,

   188

				_coal_plant_sparks_x[image - 1],

   189

				_coal_plant_sparks_y[image - 1]

   190

			);

   191

		}

   192

	}

   193

}

   194

   195

typedef void IndustryDrawTileProc(const TileInfo *ti);

   196

static IndustryDrawTileProc * const _industry_draw_tile_procs[5] = {

   197

	IndustryDrawSugarMine,

   198

	IndustryDrawToffeeQuarry,

   199

	IndustryDrawBubbleGenerator,

   200

	IndustryDrawToyFactory,

   201

	IndustryDrawCoalPlantSparks,

   202

};

   203

   204

static void DrawTile_Industry(TileInfo *ti)

   205

{

   206

	const Industry *ind;

   207

	const DrawBuildingsTileStruct *dits;

   208

	byte z;

   209

	uint32 image, ormod;

   210

   211

	/* Pointer to industry */

   212

	ind = GetIndustryByTile(ti->tile);

   213

	ormod = GENERAL_SPRITE_COLOR(ind->random_color);

   214

   215

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

   216

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

   217

   218

	image = dits->ground;

   219

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

   220

		image |= ormod;

   221

   222

	z = ti->z;

   223

	/* Add bricks below the industry? */

   224

	if (ti->tileh != SLOPE_FLAT) {

   225

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

   226

		AddChildSpriteScreen(image, 31, 1);

   227

		z += TILE_HEIGHT;

   228

	} else {

   229

		/* Else draw regular ground */

   230

		DrawGroundSprite(image);

   231

	}

   232

   233

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

   234

	image = dits->building;

   235

	if (image != 0) {

   236

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

   237

			image |= ormod;

   238

   239

		if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   240

   241

		AddSortableSpriteToDraw(image,

   242

			ti->x + dits->subtile_x,

   243

			ti->y + dits->subtile_y,

   244

			dits->width  + 1,

   245

			dits->height + 1,

   246

			dits->dz,

   247

			z);

   248

   249

		if (_display_opt & DO_TRANS_BUILDINGS) return;

   250

	}

   251

   252

	{

   253

		int proc = dits->draw_proc - 1;

   254

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

   255

	}

   256

}

   257

   258

static uint GetSlopeZ_Industry(TileIndex tile, uint x, uint y)

   259

{

   260

	return GetTileMaxZ(tile);

   261

}

   262

   263

static Slope GetSlopeTileh_Industry(TileIndex tile, Slope tileh)

   264

{

   265

	return SLOPE_FLAT;

   266

}

   267

   268

static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac)

   269

{

   270

	IndustryGfx gfx = GetIndustryGfx(tile);

   271

	CargoID a;

   272

   273

	a = _industry_section_accepts_1[gfx];

   274

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

   275

   276

	a = _industry_section_accepts_2[gfx];

   277

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

   278

   279

	a = _industry_section_accepts_3[gfx];

   280

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

   281

}

   282

   283

static void GetTileDesc_Industry(TileIndex tile, TileDesc *td)

   284

{

   285

	const Industry *i = GetIndustryByTile(tile);

   286

   287

	td->owner = i->owner;

   288

	td->str = GetIndustrySpec(i->type)->name;

   289

	if (!IsIndustryCompleted(tile)) {

   290

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

   291

		td->str = STR_2058_UNDER_CONSTRUCTION;

   292

	}

   293

}

   294

   295

static int32 ClearTile_Industry(TileIndex tile, byte flags)

   296

{

   297

	Industry *i = GetIndustryByTile(tile);

   298

   299

	/* water can destroy industries

   300

	 * in editor you can bulldoze industries

   301

	 * with magic_bulldozer cheat you can destroy industries

   302

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

   303

	 */

   304

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

   305

			!_cheats.magic_bulldozer.value) ||

   306

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

   307

		SetDParam(0, GetIndustrySpec(i->type)->name);

   308

		return_cmd_error(STR_4800_IN_THE_WAY);

   309

	}

   310

   311

	if (flags & DC_EXEC) DeleteIndustry(i);

   312

	return 0;

   313

}

   314

   315

static void TransportIndustryGoods(TileIndex tile)

   316

{

   317

	Industry *i = GetIndustryByTile(tile);

   318

	const IndustrySpec *indspec = GetIndustrySpec(i->type);

   319

	uint cw, am;

   320

   321

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

   322

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

   323

		i->cargo_waiting[0] -= cw;

   324

   325

		/* fluctuating economy? */

   326

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

   327

   328

		i->last_mo_production[0] += cw;

   329

   330

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

   331

		i->last_mo_transported[0] += am;

   332

		if (am != 0) {

   333

			uint newgfx = _industry_produce_section[GetIndustryGfx(tile)];

   334

   335

			if (newgfx != 0xFF) {

   336

				ResetIndustryConstructionStage(tile);

   337

				SetIndustryCompleted(tile, true);

   338

				SetIndustryGfx(tile, newgfx);

   339

				MarkTileDirtyByTile(tile);

   340

			}

   341

		}

   342

	}

   343

   344

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

   345

	if (cw > indspec->minimal_cargo) {

   346

		i->cargo_waiting[1] -= cw;

   347

   348

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

   349

   350

		i->last_mo_production[1] += cw;

   351

   352

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

   353

		i->last_mo_transported[1] += am;

   354

	}

   355

}

   356

   357

   358

static void AnimateTile_Industry(TileIndex tile)

   359

{

   360

	byte m;

   361

   362

	switch (GetIndustryGfx(tile)) {

   363

	case GFX_SUGAR_MINE_SIEVE:

   364

		if ((_tick_counter & 1) == 0) {

   366

   367

			switch (m & 7) {

   368

			case 2: SndPlayTileFx(SND_2D_RIP_2, tile); break;

   369

			case 6: SndPlayTileFx(SND_29_RIP, tile); break;

   370

			}

   371

   372

			if (m >= 96) {

   373

				m = 0;

   374

				DeleteAnimatedTile(tile);

   375

			}

   377

   378

			MarkTileDirtyByTile(tile);

   379

		}

   380

		break;

   381

   382

	case GFX_TOFFEE_QUARY:

   383

		if ((_tick_counter & 3) == 0) {

   385

   386

			if (_industry_anim_offs[m] == 0xFF) {

   387

				SndPlayTileFx(SND_30_CARTOON_SOUND, tile);

   388

			}

   389

   390

			if (++m >= 70) {

   391

				m = 0;

   392

				DeleteAnimatedTile(tile);

   393

			}

   395

   396

			MarkTileDirtyByTile(tile);

   397

		}

   398

		break;

   399

   400

	case GFX_BUBBLE_CATCHER:

   403

   404

			if (++m >= 40) {

   405

				m = 0;

   406

				DeleteAnimatedTile(tile);

   407

			}

   409

   410

			MarkTileDirtyByTile(tile);

   411

		}

   412

		break;

   413

   414

	// Sparks on a coal plant

   415

	case GFX_POWERPLANT_SPARKS:

   416

		if ((_tick_counter & 3) == 0) {

   420

				DeleteAnimatedTile(tile);

   421

			} else {

   423

				MarkTileDirtyByTile(tile);

   424

			}

   425

		}

   426

		break;

   427

   428

	case GFX_TOY_FACTORY:

   429

		if ((_tick_counter & 1) == 0) {

   431

   432

			if (m == 1) {

   433

				SndPlayTileFx(SND_2C_MACHINERY, tile);

   434

			} else if (m == 23) {

   435

				SndPlayTileFx(SND_2B_COMEDY_HIT, tile);

   436

			} else if (m == 28) {

   437

				SndPlayTileFx(SND_2A_EXTRACT_AND_POP, tile);

   438

			}

   439

   440

			if (m >= 50) {

   441

				int n = GetIndustryAnimationLoop(tile) + 1;

   442

				m = 0;

   443

				if (n >= 8) {

   444

					n = 0;

   445

					DeleteAnimatedTile(tile);

   446

				}

   447

				SetIndustryAnimationLoop(tile, n);

   448

			}

   450

			MarkTileDirtyByTile(tile);

   451

		}

   452

		break;

   453

   454

	case GFX_PLASTIC_FOUNTAIN_ANIMATED_1: case GFX_PLASTIC_FOUNTAIN_ANIMATED_2:

   455

	case GFX_PLASTIC_FOUNTAIN_ANIMATED_3: case GFX_PLASTIC_FOUNTAIN_ANIMATED_4:

   456

	case GFX_PLASTIC_FOUNTAIN_ANIMATED_5: case GFX_PLASTIC_FOUNTAIN_ANIMATED_6:

   457

	case GFX_PLASTIC_FOUNTAIN_ANIMATED_7: case GFX_PLASTIC_FOUNTAIN_ANIMATED_8:

   458

		if ((_tick_counter & 3) == 0) {

   459

			IndustryGfx gfx = GetIndustryGfx(tile);

   460

   461

			gfx = (gfx < 155) ? gfx + 1 : 148;

   462

			SetIndustryGfx(tile, gfx);

   463

			MarkTileDirtyByTile(tile);

   464

		}

   465

		break;

   466

   467

	case GFX_OILWELL_ANIMATED_1:

   468

	case GFX_OILWELL_ANIMATED_2:

   469

	case GFX_OILWELL_ANIMATED_3:

   470

		if ((_tick_counter & 7) == 0) {

   471

			bool b = CHANCE16(1,7);

   472

			IndustryGfx gfx = GetIndustryGfx(tile);

   473

   475

			if (m == 4 && (m = 0, ++gfx) == GFX_OILWELL_ANIMATED_3 + 1 && (gfx = GFX_OILWELL_ANIMATED_1, b)) {

   476

				SetIndustryGfx(tile, GFX_OILWELL_NOT_ANIMATED);

   478

				DeleteAnimatedTile(tile);

   479

			} else {

   481

				SetIndustryGfx(tile, gfx);

   482

				MarkTileDirtyByTile(tile);

   483

			}

   484

		}

   485

		break;

   486

   487

	case GFX_COAL_MINE_TOWER_ANIMATED:

   488

	case GFX_COPPER_MINE_TOWER_ANIMATED:

   489

	case GFX_GOLD_MINE_TOWER_ANIMATED: {

   490

			int state = _tick_counter & 0x7FF;

   491

   492

			if ((state -= 0x400) < 0)

   493

				return;