1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "clear_map.h"

     6

#include "table/strings.h"

     7

#include "table/sprites.h"

     8

#include "functions.h"

     9

#include "map.h"

    10

#include "tile.h"

    11

#include "viewport.h"

    12

#include "command.h"

    13

#include "industry.h"

    14

#include "town.h"

    15

#include "vehicle.h"

    16

#include "news.h"

    17

#include "saveload.h"

    18

#include "economy.h"

    19

#include "sound.h"

    20

#include "variables.h"

    21

    22

enum {

    23

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

    24

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

    25

	INDUSTRY_POOL_MAX_BLOCKS      = 8000,

    26

};

    27

    28

/**

    29

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

    30

 */

    31

static void IndustryPoolNewBlock(uint start_item)

    32

{

    33

	Industry *i;

    34

    35

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

    36

}

    37

    38

/* Initialize the industry-pool */

    39

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

    40

    41

static byte _industry_sound_ctr;

    42

static TileIndex _industry_sound_tile;

    43

    44

void ShowIndustryViewWindow(int industry);

    45

void BuildOilRig(TileIndex tile);

    46

void DeleteOilRig(TileIndex tile);

    47

    48

typedef struct DrawIndustryTileStruct {

    49

	uint32 sprite_1;

    50

	uint32 sprite_2;

    51

    52

	byte subtile_x:4;

    53

	byte subtile_y:4;

    54

	byte width:4;

    55

	byte height:4;

    56

	byte dz;

    57

	byte proc;

    58

} DrawIndustryTileStruct;

    59

    60

    61

typedef struct DrawIndustrySpec1Struct {

    62

	byte x;

    63

	byte image_1;

    64

	byte image_2;

    65

	byte image_3;

    66

} DrawIndustrySpec1Struct;

    67

    68

typedef struct DrawIndustrySpec4Struct {

    69

	byte image_1;

    70

	byte image_2;

    71

	byte image_3;

    72

} DrawIndustrySpec4Struct;

    73

    74

typedef struct IndustryTileTable {

    75

	TileIndexDiffC ti;

    76

	byte map5;

    77

} IndustryTileTable;

    78

    79

typedef struct IndustrySpec {

    80

	const IndustryTileTable *const *table;

    81

	byte num_table;

    82

	byte a,b,c;

    83

	byte produced_cargo[2];

    84

	byte production_rate[2];

    85

	byte accepts_cargo[3];

    86

	byte check_proc;

    87

} IndustrySpec;

    88

    89

#include "table/industry_land.h"

    90

#include "table/build_industry.h"

    91

    92

typedef enum IndustryType {

    93

	INDUSTRY_NOT_CLOSABLE,     ///< Industry can never close

    94

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

    95

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

    96

} IndustryType;

    97

    98

    99

static const IndustryType _industry_close_mode[37] = {

   100

	/* COAL_MINE */         INDUSTRY_PRODUCTION,

   101

	/* POWER_STATION */     INDUSTRY_NOT_CLOSABLE,

   102

	/* SAWMILL */           INDUSTRY_CLOSABLE,

   103

	/* FOREST */            INDUSTRY_PRODUCTION,

   104

	/* OIL_REFINERY */      INDUSTRY_CLOSABLE,

   105

	/* OIL_RIG */           INDUSTRY_PRODUCTION,

   106

	/* FACTORY */           INDUSTRY_CLOSABLE,

   107

	/* PRINTING_WORKS */    INDUSTRY_CLOSABLE,

   108

	/* STEEL_MILL */        INDUSTRY_CLOSABLE,

   109

	/* FARM */              INDUSTRY_PRODUCTION,

   110

	/* COPPER_MINE */       INDUSTRY_PRODUCTION,

   111

	/* OIL_WELL */          INDUSTRY_PRODUCTION,

   112

	/* BANK */              INDUSTRY_NOT_CLOSABLE,

   113

	/* FOOD_PROCESS */      INDUSTRY_CLOSABLE,

   114

	/* PAPER_MILL */        INDUSTRY_CLOSABLE,

   115

	/* GOLD_MINE */         INDUSTRY_PRODUCTION,

   116

	/* BANK_2,  */          INDUSTRY_NOT_CLOSABLE,

   117

	/* DIAMOND_MINE */      INDUSTRY_PRODUCTION,

   118

	/* IRON_MINE */         INDUSTRY_PRODUCTION,

   119

	/* FRUIT_PLANTATION */  INDUSTRY_PRODUCTION,

   120

	/* RUBBER_PLANTATION */ INDUSTRY_PRODUCTION,

   121

	/* WATER_SUPPLY */      INDUSTRY_PRODUCTION,

   122

	/* WATER_TOWER */       INDUSTRY_NOT_CLOSABLE,

   123

	/* FACTORY_2 */         INDUSTRY_CLOSABLE,

   124

	/* FARM_2 */            INDUSTRY_PRODUCTION,

   125

	/* LUMBER_MILL */       INDUSTRY_CLOSABLE,

   126

	/* COTTON_CANDY */      INDUSTRY_PRODUCTION,

   127

	/* CANDY_FACTORY */     INDUSTRY_CLOSABLE,

   128

	/* BATTERY_FARM */      INDUSTRY_PRODUCTION,

   129

	/* COLA_WELLS */        INDUSTRY_PRODUCTION,

   130

	/* TOY_SHOP */          INDUSTRY_NOT_CLOSABLE,

   131

	/* TOY_FACTORY */       INDUSTRY_CLOSABLE,

   132

	/* PLASTIC_FOUNTAINS */ INDUSTRY_PRODUCTION,

   133

	/* FIZZY_DRINK_FACTORY */INDUSTRY_CLOSABLE,

   134

	/* BUBBLE_GENERATOR */  INDUSTRY_PRODUCTION,

   135

	/* TOFFEE_QUARRY */     INDUSTRY_PRODUCTION,

   136

	/* SUGAR_MINE */        INDUSTRY_PRODUCTION

   137

};

   138

   139

static const StringID _industry_prod_up_strings[] = {

   140

	STR_4836_NEW_COAL_SEAM_FOUND_AT,

   141

	STR_4835_INCREASES_PRODUCTION,

   142

	STR_4835_INCREASES_PRODUCTION,

   143

	STR_4835_INCREASES_PRODUCTION,

   144

	STR_4835_INCREASES_PRODUCTION,

   145

	STR_4837_NEW_OIL_RESERVES_FOUND,

   146

	STR_4835_INCREASES_PRODUCTION,

   147

	STR_4835_INCREASES_PRODUCTION,

   148

	STR_4835_INCREASES_PRODUCTION,

   149

	STR_4838_IMPROVED_FARMING_METHODS,

   150

	STR_4835_INCREASES_PRODUCTION,

   151

	STR_4837_NEW_OIL_RESERVES_FOUND,

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

   159

	STR_4838_IMPROVED_FARMING_METHODS,

   160

	STR_4838_IMPROVED_FARMING_METHODS,

   161

	STR_4835_INCREASES_PRODUCTION,

   162

	STR_4835_INCREASES_PRODUCTION,

   163

	STR_4835_INCREASES_PRODUCTION,

   164

	STR_4838_IMPROVED_FARMING_METHODS,

   165

	STR_4835_INCREASES_PRODUCTION,

   166

	STR_4838_IMPROVED_FARMING_METHODS,

   167

	STR_4835_INCREASES_PRODUCTION,

   168

	STR_4838_IMPROVED_FARMING_METHODS,

   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

	STR_4835_INCREASES_PRODUCTION,

   177

};

   178

   179

static const StringID _industry_prod_down_strings[] = {

   180

	STR_4839_PRODUCTION_DOWN_BY_50,

   181

	STR_4839_PRODUCTION_DOWN_BY_50,

   182

	STR_4839_PRODUCTION_DOWN_BY_50,

   183

	STR_483A_INSECT_INFESTATION_CAUSES,

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

   189

	STR_483A_INSECT_INFESTATION_CAUSES,

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

   199

	STR_483A_INSECT_INFESTATION_CAUSES,

   200

	STR_483A_INSECT_INFESTATION_CAUSES,

   201

	STR_4839_PRODUCTION_DOWN_BY_50,

   202

	STR_4839_PRODUCTION_DOWN_BY_50,

   203

	STR_4839_PRODUCTION_DOWN_BY_50,

   204

	STR_483A_INSECT_INFESTATION_CAUSES,

   205

	STR_4839_PRODUCTION_DOWN_BY_50,

   206

	STR_4839_PRODUCTION_DOWN_BY_50,

   207

	STR_4839_PRODUCTION_DOWN_BY_50,

   208

	STR_483A_INSECT_INFESTATION_CAUSES,

   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

	STR_4839_PRODUCTION_DOWN_BY_50,

   217

};

   218

   219

static const StringID _industry_close_strings[] = {

   220

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   221

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   222

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   223

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   224

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   225

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   226

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   227

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   228

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   229

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   230

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   231

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   232

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   233

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   234

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

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

   243

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   244

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   245

	STR_4834_LACK_OF_NEARBY_TREES_CAUSES,

   246

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   247

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   248

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   249

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   250

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   251

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   252

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   253

	STR_4833_SUPPLY_PROBLEMS_CAUSE_TO,

   254

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   255

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE,

   256

	STR_4832_ANNOUNCES_IMMINENT_CLOSURE

   257

};

   258

   259

   260

static void IndustryDrawTileProc1(const TileInfo *ti)

   261

{

   262

	const DrawIndustrySpec1Struct *d;

   263

	uint32 image;

   264

   265

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

   266

   267

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

   268

   269

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

   270

   271

	image = d->image_2;

   272

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

   273

   274

	image = d->image_3;

   275

	if (image != 0) {

   276

		AddChildSpriteScreen(0x12AC + image - 1,

   277

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

   278

	}

   279

}

   280

   281

static void IndustryDrawTileProc2(const TileInfo *ti)

   282

{

   283

	int x = 0;

   284

   285

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

   286

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

   287

		if ( (byte)x == 0xFF)

   288

			x = 0;

   289

	}

   290

   291

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

   292

	AddChildSpriteScreen(0x129E, 6, 0xE);

   293

}

   294

   295

static void IndustryDrawTileProc3(const TileInfo *ti)

   296

{

   297

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

   298

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

   299

	} else {

   300

		AddChildSpriteScreen(4746, 3, 67);

   301

	}

   302

}

   303

   304

static void IndustryDrawTileProc4(const TileInfo *ti)

   305

{

   306

	const DrawIndustrySpec4Struct *d;

   307

   308

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

   309

   310

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

   311

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

   312

	}

   313

   314

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

   315

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

   316

	}

   317

   318

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

   319

	AddChildSpriteScreen(0x126D, 0, 42);

   320

}

   321

   322

static void DrawCoalPlantSparkles(const TileInfo *ti)

   323

{

   324

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

   325

	if (image & 0x80) {

   326

		image = GB(image, 2, 5);

   327

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

   328

			AddChildSpriteScreen(image + 0x806,

   329

				_coal_plant_sparkles_x[image - 1],

   330

				_coal_plant_sparkles_y[image - 1]

   331

			);

   332

		}

   333

	}

   334

}

   335

   336

typedef void IndustryDrawTileProc(const TileInfo *ti);

   337

static IndustryDrawTileProc * const _industry_draw_tile_procs[5] = {

   338

	IndustryDrawTileProc1,

   339

	IndustryDrawTileProc2,

   340

	IndustryDrawTileProc3,

   341

	IndustryDrawTileProc4,

   342

	DrawCoalPlantSparkles,

   343

};

   344

   345

static void DrawTile_Industry(TileInfo *ti)

   346

{

   347

	const Industry* ind;

   348

	const DrawIndustryTileStruct *dits;

   349

	byte z;

   350

	uint32 image, ormod;

   351

   352

	/* Pointer to industry */

   353

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

   354

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

   355

   356

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

   357

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

   358

   359

	image = dits->sprite_1;

   360

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

   361

		image |= ormod;

   362

   363

	z = ti->z;

   364

	/* Add bricks below the industry? */

   365

	if (ti->tileh & 0xF) {

   366

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

   367

		AddChildSpriteScreen(image, 0x1F, 1);

   368

		z += 8;

   369

	} else {

   370

		/* Else draw regular ground */

   371

		DrawGroundSprite(image);

   372

	}

   373

   374

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

   375

	image = dits->sprite_2;

   376

	if (image != 0) {

   377

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

   378

			image |= ormod;

   379

   380

		if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   381

   382

		AddSortableSpriteToDraw(image,

   383

			ti->x + dits->subtile_x,

   384

			ti->y + dits->subtile_y,

   385

			dits->width  + 1,

   386

			dits->height + 1,

   387

			dits->dz,

   388

			z);

   389

   390

		if (_display_opt & DO_TRANS_BUILDINGS) return;

   391

	}

   392

   393

	{

   394

		int proc = dits->proc - 1;

   395

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

   396

	}

   397

}

   398

   399

   400

static uint GetSlopeZ_Industry(const TileInfo* ti)

   401

{

   402

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

   403

}

   404

   405

static uint GetSlopeTileh_Industry(const TileInfo* ti)

   406

{

   407

	return 0;

   408

}

   409

   410

static void GetAcceptedCargo_Industry(TileIndex tile, AcceptedCargo ac)

   411

{

   412

	int m5 = _m[tile].m5;

   413

	CargoID a;

   414

   415

	a = _industry_map5_accepts_1[m5];

   416

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

   417

   418

	a = _industry_map5_accepts_2[m5];

   419

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

   420

   421

	a = _industry_map5_accepts_3[m5];

   422

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

   423

}

   424

   425

static void GetTileDesc_Industry(TileIndex tile, TileDesc *td)

   426

{

   427

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

   428

   429

	td->owner = i->owner;

   430

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

   431

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

   432

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

   433

		td->str = STR_2058_UNDER_CONSTRUCTION;

   434

	}

   435

}

   436

   437

static int32 ClearTile_Industry(TileIndex tile, byte flags)

   438

{

   439

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

   440

   441

	/*	* water can destroy industries

   442

			* in editor you can bulldoze industries

   443

			* with magic_bulldozer cheat you can destroy industries

   444

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

   445

	*/

   446

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

   447

			!_cheats.magic_bulldozer.value) ||

   448

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

   449

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

   450

		return_cmd_error(STR_4800_IN_THE_WAY);

   451

	}

   452

   453

	if (flags & DC_EXEC) DeleteIndustry(i);

   454

	return 0;

   455

}

   456

   457

   458

static const byte _industry_min_cargo[] = {

   459

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

   460

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

   461

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

   462

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

   463

	5, 5, 5, 5, 5,

   464

};

   465

   466

static void TransportIndustryGoods(TileIndex tile)

   467

{

   468

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

   469

	uint cw, am;

   470

   471

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

   472

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

   473

		byte m5;

   474

   475

		i->cargo_waiting[0] -= cw;

   476

   477

		/* fluctuating economy? */

   478

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

   479

   480

		i->last_mo_production[0] += cw;

   481

   482

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

   483

		i->last_mo_transported[0] += am;

   484

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

   485

			_m[tile].m1 = 0x80;

   486

			_m[tile].m5 = m5;

   487

			MarkTileDirtyByTile(tile);

   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

static void AnimateTile_Industry(TileIndex tile)

   506

{

   507

	byte m,n;