1

/* $Id$ */

     2

     3

/** @file industry_cmd.cpp */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "clear_map.h"

     8

#include "functions.h"

     9

#include "industry_map.h"

    10

#include "station_map.h"

    11

#include "table/strings.h"

    12

#include "table/sprites.h"

    13

#include "map.h"

    14

#include "tile.h"

    15

#include "landscape.h"

    16

#include "viewport.h"

    17

#include "command.h"

    18

#include "industry.h"

    19

#include "town.h"

    20

#include "vehicle.h"

    21

#include "news.h"

    22

#include "saveload.h"

    23

#include "economy.h"

    24

#include "sound.h"

    25

#include "variables.h"

    26

#include "table/industry_land.h"

    27

#include "table/build_industry.h"

    28

#include "genworld.h"

    29

#include "date.h"

    30

#include "water_map.h"

    31

#include "tree_map.h"

    32

#include "cargotype.h"

    33

    34

void ShowIndustryViewWindow(int industry);

    35

void BuildOilRig(TileIndex tile);

    36

    37

static byte _industry_sound_ctr;

    38

static TileIndex _industry_sound_tile;

    39

    40

IndustrySpec _industry_specs[NUM_INDUSTRYTYPES];

    41

IndustryTileSpec _industry_tile_specs[NUM_INDUSTRYTILES];

    42

    43

/** This function initialize the spec arrays of both

    44

 * industry and industry tiles.

    45

 * It adjusts the enabling of the industry too, based on climate availability.

    46

 * This will allow for clearer testings */

    47

void ResetIndustries()

    48

{

    49

	memset(&_industry_specs, 0, sizeof(_industry_specs));

    50

	memcpy(&_industry_specs, &_origin_industry_specs, sizeof(_origin_industry_specs));

    51

    52

	/* once performed, enable only the current climate industries */

    53

	for (IndustryType i = 0; i < NUM_INDUSTRYTYPES; i++) {

    54

		_industry_specs[i].enabled = HASBIT(_origin_industry_specs[i].climate_availability, _opt.landscape);

    55

	}

    56

    57

    58

	memset(&_industry_tile_specs, 0, sizeof(_industry_tile_specs));

    59

	memcpy(&_industry_tile_specs, &_origin_industry_tile_specs, sizeof(_origin_industry_tile_specs));

    60

}

    61

    62

/**

    63

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

    64

 */

    65

static void IndustryPoolNewBlock(uint start_item)

    66

{

    67

	Industry *i;

    68

    69

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

    70

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

    71

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

    72

}

    73

    74

DEFINE_OLD_POOL(Industry, Industry, IndustryPoolNewBlock, NULL)

    75

    76

/**

    77

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

    78

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

    79

 * as would do GetIndustryGfx.

    80

 * @param tile that is queried

    81

 * @pre IsTileType(tile, MP_INDUSTRY)

    82

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

    83

 **/

    84

IndustryType GetIndustryType(TileIndex tile)

    85

{

    86

	assert(IsTileType(tile, MP_INDUSTRY));

    87

    88

	const Industry *ind = GetIndustryByTile(tile);

    89

	return IsValidIndustry(ind) ? ind->type : (IndustryType)IT_INVALID;

    90

}

    91

    92

/**

    93

 * Accessor for array _industry_specs.

    94

 * This will ensure at once : proper access and

    95

 * not allowing modifications of it.

    96

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

    97

 * @pre thistype < NUM_INDUSTRYTYPES

    98

 * @return a pointer to the corresponding industry spec

    99

 **/

   100

const IndustrySpec *GetIndustrySpec(IndustryType thistype)

   101

{

   102

	assert(thistype < NUM_INDUSTRYTYPES);

   103

	return &_industry_specs[thistype];

   104

}

   105

   106

/**

   107

 * Accessor for array _industry_tile_specs.

   108

 * This will ensure at once : proper access and

   109

 * not allowing modifications of it.

   110

 * @param gfx of industrytile (which is the index in _industry_specs)

   111

 * @pre gfx < INVALID_INDUSTRYTILE

   112

 * @return a pointer to the corresponding industrytile spec

   113

 **/

   114

const IndustryTileSpec *GetIndustryTileSpec(IndustryGfx gfx)

   115

{

   116

	assert(gfx < INVALID_INDUSTRYTILE);

   117

	return &_industry_tile_specs[gfx];

   118

}

   119

   120

void DestroyIndustry(Industry *i)

   121

{

   122

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

   123

		if (IsTileType(tile_cur, MP_INDUSTRY)) {

   124

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

   125

				DoClearSquare(tile_cur);

   126

			}

   127

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

   128

			DeleteOilRig(tile_cur);

   129

		}

   130

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

   131

   132

	if (GetIndustrySpec(i->type)->behaviour & INDUSTRYBEH_PLANT_FIELDS) {

   133

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

   134

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

   135

			tile_cur = TILE_MASK(tile_cur);

   136

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

   137

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

   138

				SetIndustryIndexOfField(tile_cur, INVALID_INDUSTRY);

   139

			}

   140

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

   141

	}

   142

   143

	_industry_sort_dirty = true;

   144

	_total_industries--;

   145

	DeleteSubsidyWithIndustry(i->index);

   146

	DeleteWindowById(WC_INDUSTRY_VIEW, i->index);

   147

	InvalidateWindow(WC_INDUSTRY_DIRECTORY, 0);

   148

}

   149

   150

static void IndustryDrawSugarMine(const TileInfo *ti)

   151

{

   152

	const DrawIndustryAnimationStruct *d;

   153

   154

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

   155

   156

	d = &_draw_industry_spec1[GetIndustryAnimationState(ti->tile)];

   157

   158

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

   159

   160

	if (d->image_2 != 0) {

   161

		AddChildSpriteScreen(SPR_IT_SUGAR_MINE_CLOUDS + d->image_2 - 1, PAL_NONE, 8, 41);

   162

	}

   163

   164

	if (d->image_3 != 0) {

   165

		AddChildSpriteScreen(SPR_IT_SUGAR_MINE_PILE + d->image_3 - 1, PAL_NONE,

   166

			_drawtile_proc1[d->image_3 - 1].x, _drawtile_proc1[d->image_3 - 1].y);

   167

	}

   168

}

   169

   170

static void IndustryDrawToffeeQuarry(const TileInfo *ti)

   171

{

   172

	uint8 x = 0;

   173

   174

	if (IsIndustryCompleted(ti->tile)) {

   175

		x = _industry_anim_offs_toffee[GetIndustryAnimationState(ti->tile)];

   176

		if (x == 0xFF)

   177

			x = 0;

   178

	}

   179

   180

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

   181

	AddChildSpriteScreen(SPR_IT_TOFFEE_QUARRY_TOFFEE, PAL_NONE, 6, 14);

   182

}

   183

   184

static void IndustryDrawBubbleGenerator( const TileInfo *ti)

   185

{

   186

	if (IsIndustryCompleted(ti->tile)) {

   187

		AddChildSpriteScreen(SPR_IT_BUBBLE_GENERATOR_BUBBLE, PAL_NONE, 5, _industry_anim_offs_bubbles[GetIndustryAnimationState(ti->tile)]);

   188

	} else {

   189

		AddChildSpriteScreen(SPR_IT_BUBBLE_GENERATOR_SPRING, PAL_NONE, 3, 67);

   190

	}

   191

}

   192

   193

static void IndustryDrawToyFactory(const TileInfo *ti)

   194

{

   195

	const DrawIndustryAnimationStruct *d;

   196

   197

	d = &_industry_anim_offs_toys[GetIndustryAnimationState(ti->tile)];

   198

   199

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

   200

		AddChildSpriteScreen(SPR_IT_TOY_FACTORY_CLAY, PAL_NONE, d->x, 96 + d->image_1);

   201

	}

   202

   203

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

   204

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

   205

	}

   206

   207

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

   208

	AddChildSpriteScreen(SPR_IT_TOY_FACTORY_STAMP_HOLDER, PAL_NONE, 0, 42);

   209

}

   210

   211

static void IndustryDrawCoalPlantSparks(const TileInfo *ti)

   212

{

   213

	if (IsIndustryCompleted(ti->tile)) {

   214

		uint8 image = GetIndustryAnimationState(ti->tile);

   215

   216

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

   217

			AddChildSpriteScreen(image + SPR_IT_POWER_PLANT_TRANSFORMERS,

   218

				PAL_NONE,

   219

				_coal_plant_sparks[image - 1].x,

   220

				_coal_plant_sparks[image - 1].y

   221

			);

   222

		}

   223

	}

   224

}

   225

   226

typedef void IndustryDrawTileProc(const TileInfo *ti);

   227

static IndustryDrawTileProc * const _industry_draw_tile_procs[5] = {

   228

	IndustryDrawSugarMine,

   229

	IndustryDrawToffeeQuarry,

   230

	IndustryDrawBubbleGenerator,

   231

	IndustryDrawToyFactory,

   232

	IndustryDrawCoalPlantSparks,

   233

};

   234

   235

static void DrawTile_Industry(TileInfo *ti)

   236

{

   237

	const IndustryGfx gfx = GetIndustryGfx(ti->tile);

   238

	const Industry *ind;

   239

	const DrawBuildingsTileStruct *dits;

   240

	byte z;

   241

	SpriteID image;

   242

	SpriteID pal;

   243

   244

	/* Pointer to industry */

   245

	ind = GetIndustryByTile(ti->tile);

   246

   247

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

   248

	dits = &_industry_draw_tile_data[gfx << 2 | (GetIndustryTileSpec(gfx)->anim_state ?

   249

			GetIndustryAnimationState(ti->tile) & 3 :

   250

			GetIndustryConstructionStage(ti->tile))];

   251

   252

	image = dits->ground.sprite;

   253

	if (HASBIT(image, PALETTE_MODIFIER_COLOR) && dits->ground.pal == PAL_NONE) {

   254

		pal = GENERAL_SPRITE_COLOR(ind->random_color);

   255

	} else {

   256

		pal = dits->ground.pal;

   257

	}

   258

   259

	z = ti->z;

   260

	/* Add bricks below the industry? */

   261

	if (ti->tileh != SLOPE_FLAT) {

   262

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

   263

		AddChildSpriteScreen(image, pal, 31, 1);

   264

		z += TILE_HEIGHT;

   265

	} else {

   266

		/* Else draw regular ground */

   267

		DrawGroundSprite(image, pal);

   268

	}

   269

   270

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

   271

	image = dits->building.sprite;

   272

	if (image != 0) {

   273

		if (HASBIT(_transparent_opt, TO_INDUSTRIES)) {

   274

			SETBIT(image, PALETTE_MODIFIER_TRANSPARENT);

   275

			pal = PALETTE_TO_TRANSPARENT;

   276

		} else {

   277

			pal = dits->building.pal;

   278

		}

   279

   280

		AddSortableSpriteToDraw(image, pal,

   281

			ti->x + dits->subtile_x,

   282

			ti->y + dits->subtile_y,

   283

			dits->width  + 1,

   284

			dits->height + 1,

   285

			dits->dz,

   286

			z);

   287

   288

		if (HASBIT(_transparent_opt, TO_INDUSTRIES)) return;

   289

	}

   290

   291

	{

   292

		int proc = dits->draw_proc - 1;

   293

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

   294

	}

   295

}

   296

   297

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

   298

{

   299

	return GetTileMaxZ(tile);

   300

}

   301

   302

static Slope GetSlopeTileh_Industry(TileIndex tile, Slope tileh)

   303

{

   304

	return SLOPE_FLAT;

   305

}

   306

   307

static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac)

   308

{

   309

	const IndustryTileSpec *itspec = GetIndustryTileSpec(GetIndustryGfx(tile));

   310

	CargoID a;

   311

   312

	for (byte i = 0; i < lengthof(itspec->accepts_cargo); i++) {

   313

		a = itspec->accepts_cargo[i];

   314

		if (a != CT_INVALID) ac[a] = itspec->acceptance[i];

   315

	}

   316

}

   317

   318

static void GetTileDesc_Industry(TileIndex tile, TileDesc *td)

   319

{

   320

	const Industry *i = GetIndustryByTile(tile);

   321

   322

	td->owner = i->owner;

   323

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

   324

	if (!IsIndustryCompleted(tile)) {

   325

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

   326

		td->str = STR_2058_UNDER_CONSTRUCTION;

   327

	}

   328

}

   329

   330

static int32 ClearTile_Industry(TileIndex tile, byte flags)

   331

{

   332

	Industry *i = GetIndustryByTile(tile);

   333

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

   334

   335

	/* water can destroy industries

   336

	 * in editor you can bulldoze industries

   337

	 * with magic_bulldozer cheat you can destroy industries

   338

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

   339

	 */

   340

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

   341

			!_cheats.magic_bulldozer.value) ||

   342

			(_current_player == OWNER_WATER && (indspec->behaviour & INDUSTRYBEH_BUILT_ONWATER))) {

   343

		SetDParam(0, indspec->name);

   344

		return_cmd_error(STR_4800_IN_THE_WAY);

   345

	}

   346

   347

	if (flags & DC_EXEC) DeleteIndustry(i);

   348

	return 0;

   349

}

   350

   351

static void TransportIndustryGoods(TileIndex tile)

   352

{

   353

	Industry *i = GetIndustryByTile(tile);

   354

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

   355

	uint cw, am;

   356

   357

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

   358

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

   359

		i->cargo_waiting[0] -= cw;

   360

   361

		/* fluctuating economy? */

   362

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

   363

   364

		i->last_mo_production[0] += cw;

   365

   366

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

   367

		i->last_mo_transported[0] += am;

   368

		if (am != 0) {

   369

			uint newgfx = GetIndustryTileSpec(GetIndustryGfx(tile))->anim_production;

   370

   371

			if (newgfx != INDUSTRYTILE_NOANIM) {

   372

				ResetIndustryConstructionStage(tile);

   373

				SetIndustryCompleted(tile, true);

   374

				SetIndustryGfx(tile, newgfx);

   375

				MarkTileDirtyByTile(tile);

   376

			}

   377

		}

   378

	}

   379

   380

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

   381

	if (cw > indspec->minimal_cargo) {

   382

		i->cargo_waiting[1] -= cw;

   383

   384

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

   385

   386

		i->last_mo_production[1] += cw;

   387

   388

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

   389

		i->last_mo_transported[1] += am;

   390

	}

   391

}

   392

   393

   394

static void AnimateTile_Industry(TileIndex tile)

   395

{

   396

	byte m;

   397

   398

	switch (GetIndustryGfx(tile)) {

   399

	case GFX_SUGAR_MINE_SIEVE:

   400

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

   401

			m = GetIndustryAnimationState(tile) + 1;

   402

   403

			switch (m & 7) {

   404

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

   405

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

   406

			}

   407

   408

			if (m >= 96) {

   409

				m = 0;

   410

				DeleteAnimatedTile(tile);

   411

			}

   412

			SetIndustryAnimationState(tile, m);

   413

   414

			MarkTileDirtyByTile(tile);

   415

		}

   416

		break;

   417

   418

	case GFX_TOFFEE_QUARY:

   419

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

   420

			m = GetIndustryAnimationState(tile);

   421

   422

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

   423

				SndPlayTileFx(SND_30_CARTOON_SOUND, tile);

   424

			}

   425

   426

			if (++m >= 70) {

   427

				m = 0;

   428

				DeleteAnimatedTile(tile);

   429

			}

   430

			SetIndustryAnimationState(tile, m);

   431

   432

			MarkTileDirtyByTile(tile);

   433

		}

   434

		break;

   435

   436

	case GFX_BUBBLE_CATCHER:

   437

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

   438

			m = GetIndustryAnimationState(tile);

   439

   440

			if (++m >= 40) {

   441

				m = 0;

   442

				DeleteAnimatedTile(tile);

   443

			}

   444

			SetIndustryAnimationState(tile, m);

   445

   446

			MarkTileDirtyByTile(tile);

   447

		}

   448

		break;

   449

   450

	/* Sparks on a coal plant */

   451

	case GFX_POWERPLANT_SPARKS:

   452

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

   453

			m = GetIndustryAnimationState(tile);

   454

			if (m == 6) {

   455

				SetIndustryAnimationState(tile, 0);

   456

				DeleteAnimatedTile(tile);

   457

			} else {

   458

				SetIndustryAnimationState(tile, m + 1);

   459

				MarkTileDirtyByTile(tile);

   460

			}

   461

		}

   462

		break;

   463

   464

	case GFX_TOY_FACTORY:

   465

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

   466

			m = GetIndustryAnimationState(tile) + 1;

   467

   468

			switch (m) {

   469

				case  1: SndPlayTileFx(SND_2C_MACHINERY, tile); break;

   470

				case 23: SndPlayTileFx(SND_2B_COMEDY_HIT, tile); break;

   471

				case 28: SndPlayTileFx(SND_2A_EXTRACT_AND_POP, tile); break;

   472

				default:

   473

					if (m >= 50) {

   474

						int n = GetIndustryAnimationLoop(tile) + 1;

   475

						m = 0;

   476

						if (n >= 8) {

   477

							n = 0;

   478

							DeleteAnimatedTile(tile);

   479

						}

   480

						SetIndustryAnimationLoop(tile, n);

   481

					}

   482

			}

   483

   484

			SetIndustryAnimationState(tile, m);

   485

			MarkTileDirtyByTile(tile);

   486

		}

   487

		break;

   488

   489

	case GFX_PLASTIC_FOUNTAIN_ANIMATED_1: case GFX_PLASTIC_FOUNTAIN_ANIMATED_2:

   490

	case GFX_PLASTIC_FOUNTAIN_ANIMATED_3: case GFX_PLASTIC_FOUNTAIN_ANIMATED_4:

   491

	case GFX_PLASTIC_FOUNTAIN_ANIMATED_5: case GFX_PLASTIC_FOUNTAIN_ANIMATED_6: