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 "table/tree_land.h"

     9

#include "functions.h"

    10

#include "map.h"

    11

#include "tile.h"

    12

#include "tree_map.h"

    13

#include "viewport.h"

    14

#include "command.h"

    15

#include "town.h"

    16

#include "sound.h"

    17

#include "variables.h"

    18

    19

static TreeType GetRandomTreeType(TileIndex tile, uint seed)

    20

{

    21

	switch (_opt.landscape) {

    22

		case LT_NORMAL:

    23

			return seed * TREE_COUNT_TEMPERATE / 256 + TREE_TEMPERATE;

    24

    25

		case LT_HILLY:

    26

			return seed * TREE_COUNT_SUB_ARCTIC / 256 + TREE_SUB_ARCTIC;

    27

    28

		case LT_DESERT:

    29

			switch (GetTropicZone(tile)) {

    30

				case TROPICZONE_INVALID: return seed * TREE_COUNT_SUB_TROPICAL / 256 + TREE_SUB_TROPICAL;

    31

				case TROPICZONE_DESERT:  return (seed > 12) ? TREE_INVALID : TREE_CACTUS;

    32

				default:                 return seed * TREE_COUNT_RAINFOREST / 256 + TREE_RAINFOREST;

    33

			}

    34

    35

		default:

    36

			return seed * TREE_COUNT_TOYLAND / 256 + TREE_TOYLAND;

    37

	}

    38

}

    39

    40

static void PlaceTree(TileIndex tile, uint32 r)

    41

{

    42

	TreeType tree = GetRandomTreeType(tile, GB(r, 24, 8));

    43

    44

	if (tree != TREE_INVALID) {

    45

		MakeTree(tile, tree, GB(r, 22, 2), min(GB(r, 16, 3), 6), TREE_GROUND_GRASS, 0);

    46

    47

		// above snowline?

    48

		if (_opt.landscape == LT_HILLY && GetTileZ(tile) > _opt.snow_line) {

    49

			SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, 3);

    50

			SetTreeCounter(tile, GB(r, 24, 3));

    51

		} else {

    52

			SetTreeGroundDensity(tile, GB(r, 28, 1), 0);

    53

			SetTreeCounter(tile, GB(r, 24, 4));

    54

		}

    55

	}

    56

}

    57

    58

static void DoPlaceMoreTrees(TileIndex tile)

    59

{

    60

	uint i;

    61

    62

	for (i = 0; i < 1000; i++) {

    63

		uint32 r = Random();

    64

		int x = GB(r, 0, 5) - 16;

    65

		int y = GB(r, 8, 5) - 16;

    66

		uint dist = myabs(x) + myabs(y);

    67

		TileIndex cur_tile = TILE_MASK(tile + TileDiffXY(x, y));

    68

    69

		if (dist <= 13 &&

    70

				IsTileType(cur_tile, MP_CLEAR) &&

    71

				!IsClearGround(cur_tile, CLEAR_FIELDS) &&

    72

				!IsClearGround(cur_tile, CLEAR_ROCKS)) {

    73

			PlaceTree(cur_tile, r);

    74

		}

    75

	}

    76

}

    77

    78

static void PlaceMoreTrees(void)

    79

{

    80

	uint i = ScaleByMapSize(GB(Random(), 0, 5) + 25);

    81

	do {

    82

		DoPlaceMoreTrees(RandomTile());

    83

	} while (--i);

    84

}

    85

    86

void PlaceTreesRandomly(void)

    87

{

    88

	uint i;

    89

    90

	i = ScaleByMapSize(1000);

    91

	do {

    92

		uint32 r = Random();

    93

		TileIndex tile = RandomTileSeed(r);

    94

		if (IsTileType(tile, MP_CLEAR) &&

    95

				!IsClearGround(tile, CLEAR_FIELDS) &&

    96

				!IsClearGround(tile, CLEAR_ROCKS)) {

    97

			PlaceTree(tile, r);

    98

		}

    99

	} while (--i);

   100

   101

	/* place extra trees at rainforest area */

   102

	if (_opt.landscape == LT_DESERT) {

   103

		i = ScaleByMapSize(15000);

   104

   105

		do {

   106

			uint32 r = Random();

   107

			TileIndex tile = RandomTileSeed(r);

   108

			if (IsTileType(tile, MP_CLEAR) && GetTropicZone(tile) == TROPICZONE_RAINFOREST) {

   109

				PlaceTree(tile, r);

   110

			}

   111

		} while (--i);

   112

	}

   113

}

   114

   115

void GenerateTrees(void)

   116

{

   117

	uint i;

   118

   119

	if (_opt.landscape != LT_CANDY) PlaceMoreTrees();

   120

   121

	for (i = _opt.landscape == LT_HILLY ? 15 : 6; i != 0; i--) {

   122

		PlaceTreesRandomly();

   123

	}

   124

}

   125

   126

/** Plant a tree.

   127

 * @param x,y start tile of area-drag of tree plantation

   128

 * @param p1 tree type, -1 means random.

   129

 * @param p2 end tile of area-drag

   130

 */

   131

int32 CmdPlantTree(int ex, int ey, uint32 flags, uint32 p1, uint32 p2)

   132

{

   133

	StringID msg = INVALID_STRING_ID;

   134

	int32 cost;

   135

	int sx, sy, x, y;

   136

   137

	if (p2 >= MapSize()) return CMD_ERROR;

   138

	/* Check the tree type. It can be random or some valid value within the current climate */

   139

	if (p1 != (uint)-1 && p1 - _tree_base_by_landscape[_opt.landscape] >= _tree_count_by_landscape[_opt.landscape]) return CMD_ERROR;

   140

   141

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   142

   143

	// make sure sx,sy are smaller than ex,ey

   144

	sx = TileX(p2);

   145

	sy = TileY(p2);

   146

	ex /= TILE_SIZE;

   147

	ey /= TILE_SIZE;

   148

	if (ex < sx) intswap(ex, sx);

   149

	if (ey < sy) intswap(ey, sy);

   150

   151

	cost = 0; // total cost

   152

   153

	for (x = sx; x <= ex; x++) {

   154

		for (y = sy; y <= ey; y++) {

   155

			TileIndex tile = TileXY(x, y);

   156

   157

			if (!EnsureNoVehicle(tile)) continue;

   158

   159

			switch (GetTileType(tile)) {

   160

				case MP_TREES:

   161

					// no more space for trees?

   162

					if (_game_mode != GM_EDITOR && GetTreeCount(tile) == 3) {

   163

						msg = STR_2803_TREE_ALREADY_HERE;

   164

						continue;

   165

					}

   166

   167

					if (flags & DC_EXEC) {

   168

						AddTreeCount(tile, 1);

   169

						MarkTileDirtyByTile(tile);

   170

					}

   171

					// 2x as expensive to add more trees to an existing tile

   172

					cost += _price.build_trees * 2;

   173

					break;

   174

   175

				case MP_CLEAR:

   176

					if (!IsTileOwner(tile, OWNER_NONE)) {

   177

						msg = STR_2804_SITE_UNSUITABLE;

   178

						continue;

   179

					}

   180

   181

					switch (GetClearGround(tile)) {

   182

						case CLEAR_FIELDS: cost += _price.clear_3; break;

   183

						case CLEAR_ROCKS:  cost += _price.clear_2; break;

   184

						default: break;

   185

					}

   186

   187

					if (flags & DC_EXEC) {

   188

						TreeType treetype;

   189

						uint growth;

   190

   191

						if (_game_mode != GM_EDITOR && _current_player < MAX_PLAYERS) {

   192

							Town *t = ClosestTownFromTile(tile, _patches.dist_local_authority);

   193

							if (t != NULL)

   194

								ChangeTownRating(t, RATING_TREE_UP_STEP, RATING_TREE_MAXIMUM);

   195

						}

   196

   197

						treetype = p1;

   198

						if (treetype == TREE_INVALID) {

   199

							treetype = GetRandomTreeType(tile, GB(Random(), 24, 8));

   200

							if (treetype == TREE_INVALID) treetype = TREE_CACTUS;

   201

						}

   202

   203

						growth = _game_mode == GM_EDITOR ? 3 : 0;

   204

						switch (GetClearGround(tile)) {

   205

							case CLEAR_ROUGH: MakeTree(tile, treetype, 0, growth, TREE_GROUND_ROUGH, 0); break;

   206

							case CLEAR_SNOW:  MakeTree(tile, treetype, 0, growth, TREE_GROUND_SNOW_DESERT, GetClearDensity(tile)); break;

   207

							default:          MakeTree(tile, treetype, 0, growth, TREE_GROUND_GRASS, 0); break;

   208

						}

   209

						MarkTileDirtyByTile(tile);

   210

   211

						if (_game_mode == GM_EDITOR && IS_INT_INSIDE(treetype, TREE_RAINFOREST, TREE_CACTUS))

   212

							SetTropicZone(tile, TROPICZONE_RAINFOREST);

   213

					}

   214

					cost += _price.build_trees;

   215

					break;

   216

   217

				default:

   218

					msg = STR_2804_SITE_UNSUITABLE;

   219

					break;

   220

			}

   221

		}

   222

	}

   223

   224

	if (cost == 0) {

   225

		return_cmd_error(msg);

   226

	} else {

   227

		return cost;

   228

	}

   229

}

   230

   231

typedef struct TreeListEnt {

   232

	uint32 image;

   233

	byte x,y;

   234

} TreeListEnt;

   235

   236

static void DrawTile_Trees(TileInfo *ti)

   237

{

   238

	const uint32 *s;

   239

	const TreePos* d;

   240

	byte z;

   241

   242

	switch (GetTreeGround(ti->tile)) {

   243

		case TREE_GROUND_GRASS: DrawClearLandTile(ti, 3); break;

   244

		case TREE_GROUND_ROUGH: DrawHillyLandTile(ti); break;

   245

		default: DrawGroundSprite(_tree_sprites_1[GetTreeDensity(ti->tile)] + _tileh_to_sprite[ti->tileh]); break;

   246

	}

   247

   248

	DrawClearLandFence(ti);

   249

   250

	z = ti->z;

   251

	if (ti->tileh != 0) {

   252

		z += 4;

   253

		if (IsSteepTileh(ti->tileh))

   254

			z += 4;

   255

	}

   256

   257

	{

   258

		uint16 tmp = ti->x;

   259

		uint index;

   260

   261

		tmp = ROR(tmp, 2);

   262

		tmp -= ti->y;

   263

		tmp = ROR(tmp, 3);

   264

		tmp -= ti->x;

   265

		tmp = ROR(tmp, 1);

   266

		tmp += ti->y;

   267

   268

		d = _tree_layout_xy[GB(tmp, 4, 2)];

   269

   270

		index = GB(tmp, 6, 2) + (GetTreeType(ti->tile) << 2);

   271

   272

		/* different tree styles above one of the grounds */

   273

		if (GetTreeGround(ti->tile) == TREE_GROUND_SNOW_DESERT &&

   274

				GetTreeDensity(ti->tile) >= 2 &&

   275

				IS_INT_INSIDE(index, TREE_SUB_ARCTIC << 2, TREE_RAINFOREST << 2)) {

   276

			index += 164 - (TREE_SUB_ARCTIC << 2);

   277

		}

   278

   279

		assert(index < lengthof(_tree_layout_sprite));

   280

		s = _tree_layout_sprite[index];

   281

	}

   282

   283

	StartSpriteCombine();

   284

   285

	if (!(_display_opt & DO_TRANS_BUILDINGS) || !_patches.invisible_trees) {

   286

		TreeListEnt te[4];

   287

		uint i;

   288

   289

		/* put the trees to draw in a list */

   290

		i = GetTreeCount(ti->tile) + 1;

   291

		do {

   292

			uint32 image = s[0] + (--i == 0 ? GetTreeGrowth(ti->tile) : 3);

   293

			if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   294

			te[i].image = image;

   295

			te[i].x = d->x;

   296

			te[i].y = d->y;

   297

			s++;

   298

			d++;

   299

		} while (i);

   300

   301

		/* draw them in a sorted way */

   302

		for (;;) {

   303

			byte min = 0xFF;

   304

			TreeListEnt *tep = NULL;

   305

   306

			i = GetTreeCount(ti->tile) + 1;

   307

			do {

   308

				if (te[--i].image != 0 && te[i].x + te[i].y < min) {

   309

					min = te[i].x + te[i].y;

   310

					tep = &te[i];

   311

				}

   312

			} while (i);

   313

   314

			if (tep == NULL) break;

   315

   316

			AddSortableSpriteToDraw(tep->image, ti->x + tep->x, ti->y + tep->y, 5, 5, 0x10, z);

   317

			tep->image = 0;

   318

		}

   319

	}

   320

   321

	EndSpriteCombine();

   322

}

   323

   324

   325

static uint GetSlopeZ_Trees(const TileInfo* ti)

   326

{

   327

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

   328

}

   329

   330

static uint GetSlopeTileh_Trees(TileIndex tile, uint tileh)

   331

{

   332

	return tileh;

   333

}

   334

   335

static int32 ClearTile_Trees(TileIndex tile, byte flags)

   336

{

   337

	uint num;

   338

   339

	if (flags & DC_EXEC && _current_player < MAX_PLAYERS) {

   340

		Town *t = ClosestTownFromTile(tile, _patches.dist_local_authority);

   341

		if (t != NULL)

   342

			ChangeTownRating(t, RATING_TREE_DOWN_STEP, RATING_TREE_MINIMUM);

   343

	}

   344

   345

	num = GetTreeCount(tile) + 1;

   346

	if (IS_INT_INSIDE(GetTreeType(tile), TREE_RAINFOREST, TREE_CACTUS)) num *= 4;

   347

   348

	if (flags & DC_EXEC) DoClearSquare(tile);

   349

   350

	return num * _price.remove_trees;

   351

}

   352

   353

static void GetAcceptedCargo_Trees(TileIndex tile, AcceptedCargo ac)

   354

{

   355

	/* not used */

   356

}

   357

   358

static void GetTileDesc_Trees(TileIndex tile, TileDesc *td)

   359

{

   360

	TreeType tt = GetTreeType(tile);

   361

   362

	if (IS_INT_INSIDE(tt, TREE_RAINFOREST, TREE_CACTUS)) {

   363

		td->str = STR_280F_RAINFOREST;

   364

	} else if (tt == TREE_CACTUS) {

   365

		td->str = STR_2810_CACTUS_PLANTS;

   366

	} else {

   367

		td->str = STR_280E_TREES;

   368

	}

   369

   370

	td->owner = GetTileOwner(tile);

   371

}

   372

   373

static void AnimateTile_Trees(TileIndex tile)

   374

{

   375

	/* not used */

   376

}

   377

   378

static void TileLoopTreesDesert(TileIndex tile)

   379

{

   380

	switch (GetTropicZone(tile)) {

   381

		case TROPICZONE_DESERT:

   382

			if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT) {

   383

				SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, 3);

   384

				MarkTileDirtyByTile(tile);

   385

			}

   386

			break;

   387

   388

		case TROPICZONE_RAINFOREST: {

   389

			static const SoundFx forest_sounds[] = {

   390

				SND_42_LOON_BIRD,

   391

				SND_43_LION,

   392

				SND_44_MONKEYS,

   393

				SND_48_DISTANT_BIRD

   394

			};

   395

			uint32 r = Random();

   396

   397

			if (CHANCE16I(1, 200, r)) SndPlayTileFx(forest_sounds[GB(r, 16, 2)], tile);

   398

			break;

   399

		}

   400

   401

		default: break;

   402

	}

   403

}

   404

   405

static void TileLoopTreesAlps(TileIndex tile)

   406

{

   407

	int k = GetTileZ(tile) - _opt.snow_line;

   408

   409

	if (k < -TILE_HEIGHT) {

   410

		if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT) return;

   411

		SetTreeGroundDensity(tile, TREE_GROUND_GRASS, 0);

   412

	} else {

   413

		uint density = min((uint)(k + TILE_HEIGHT) / TILE_HEIGHT, 3);

   414

   415

		if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT ||

   416

				GetTreeDensity(tile) != density) {

   417

			SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, density);

   418

		} else {

   419

			if (GetTreeDensity(tile) == 3) {

   420

				uint32 r = Random();

   421

				if (CHANCE16I(1, 200, r)) {

   422

					SndPlayTileFx((r & 0x80000000) ? SND_39_HEAVY_WIND : SND_34_WIND, tile);

   423

				}

   424

			}

   425

			return;

   426

		}

   427

	}

   428

	MarkTileDirtyByTile(tile);

   429

}

   430

   431

static void TileLoop_Trees(TileIndex tile)

   432

{

   433

	static const TileIndexDiffC _tileloop_trees_dir[] = {

   434

		{-1, -1},

   435

		{ 0, -1},

   436

		{ 1, -1},

   437

		{-1,  0},

   438

		{ 1,  0},

   439

		{-1,  1},

   440

		{ 0,  1},

   441

		{ 1,  1}

   442

	};

   443

   444

	switch (_opt.landscape) {

   445

		case LT_DESERT: TileLoopTreesDesert(tile); break;

   446

		case LT_HILLY:  TileLoopTreesAlps(tile);   break;

   447

	}

   448

   449

	TileLoopClearHelper(tile);

   450

   451

	if (GetTreeCounter(tile) < 15) {

   452

		AddTreeCounter(tile, 1);

   453

		return;

   454

	}

   455

	SetTreeCounter(tile, 0);

   456

   457

	switch (GetTreeGrowth(tile)) {

   458

		case 3: /* regular sized tree */

   459

			if (_opt.landscape == LT_DESERT &&

   460

					GetTreeType(tile) != TREE_CACTUS &&

   461

					GetTropicZone(tile) == TROPICZONE_DESERT) {

   462

				AddTreeGrowth(tile, 1);

   463

			} else {

   464

				switch (GB(Random(), 0, 3)) {

   465

					case 0: /* start destructing */

   466

						AddTreeGrowth(tile, 1);

   467

						break;

   468

   469

					case 1: /* add a tree */

   470

						if (GetTreeCount(tile) < 3) {

   471

							AddTreeCount(tile, 1);

   472

							SetTreeGrowth(tile, 0);

   473

							break;

   474

						}

   475

						/* FALL THROUGH */

   476

   477

					case 2: { /* add a neighbouring tree */

   478

						TreeType treetype = GetTreeType(tile);

   479

   480

						tile += ToTileIndexDiff(_tileloop_trees_dir[Random() & 7]);

   481

   482

						if (!IsTileType(tile, MP_CLEAR)) return;

   483

   484

						switch (GetClearGround(tile)) {

   485

							case CLEAR_GRASS:

   486

								if (GetClearDensity(tile) != 3) return;

   487

								MakeTree(tile, treetype, 0, 0, TREE_GROUND_GRASS, 0);

   488

								break;

   489

   490

							case CLEAR_ROUGH: MakeTree(tile, treetype, 0, 0, TREE_GROUND_ROUGH, 0); break;