1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "bridge_map.h"

     6

#include "clear_map.h"

     7

#include "table/strings.h"

     8

#include "table/sprites.h"

     9

#include "table/tree_land.h"

    10

#include "functions.h"

    11

#include "map.h"

    12

#include "tile.h"

    13

#include "tree_map.h"

    14

#include "viewport.h"

    15

#include "command.h"

    16

#include "town.h"

    17

#include "sound.h"

    18

#include "variables.h"

    19

    20

static TreeType GetRandomTreeType(TileIndex tile, uint seed)

    21

{

    22

	switch (_opt.landscape) {

    23

		case LT_NORMAL:

    24

			return seed * TREE_COUNT_TEMPERATE / 256 + TREE_TEMPERATE;

    25

    26

		case LT_HILLY:

    27

			return seed * TREE_COUNT_SUB_ARCTIC / 256 + TREE_SUB_ARCTIC;

    28

    29

		case LT_DESERT:

    30

			switch (GetTropicZone(tile)) {

    31

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

    32

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

    33

				default:                 return seed * TREE_COUNT_RAINFOREST / 256 + TREE_RAINFOREST;

    34

			}

    35

    36

		default:

    37

			return seed * TREE_COUNT_TOYLAND / 256 + TREE_TOYLAND;

    38

	}

    39

}

    40

    41

static void PlaceTree(TileIndex tile, uint32 r)

    42

{

    43

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

    44

    45

	if (tree != TREE_INVALID) {

    46

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

    47

    48

		// above snowline?

    49

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

    50

			SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, 3);

    51

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

    52

		} else {

    53

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

    54

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

    55

		}

    56

	}

    57

}

    58

    59

static void DoPlaceMoreTrees(TileIndex tile)

    60

{

    61

	uint i;

    62

    63

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

    64

		uint32 r = Random();

    65

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

    66

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

    67

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

    68

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

    69

    70

		if (dist <= 13 &&

    71

				IsTileType(cur_tile, MP_CLEAR) &&

    72

				!IsBridgeAbove(cur_tile) &&

    73

				!IsClearGround(cur_tile, CLEAR_FIELDS) &&

    74

				!IsClearGround(cur_tile, CLEAR_ROCKS)) {

    75

			PlaceTree(cur_tile, r);

    76

		}

    77

	}

    78

}

    79

    80

static void PlaceMoreTrees(void)

    81

{

    82

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

    83

	do {

    84

		DoPlaceMoreTrees(RandomTile());

    85

	} while (--i);

    86

}

    87

    88

void PlaceTreesRandomly(void)

    89

{

    90

	uint i;

    91

    92

	i = ScaleByMapSize(1000);

    93

	do {

    94

		uint32 r = Random();

    95

		TileIndex tile = RandomTileSeed(r);

    96

		if (IsTileType(tile, MP_CLEAR) &&

    97

				!IsBridgeAbove(tile) &&

    98

				!IsClearGround(tile, CLEAR_FIELDS) &&

    99

				!IsClearGround(tile, CLEAR_ROCKS)) {

   100

			PlaceTree(tile, r);

   101

		}

   102

	} while (--i);

   103

   104

	/* place extra trees at rainforest area */

   105

	if (_opt.landscape == LT_DESERT) {

   106

		i = ScaleByMapSize(15000);

   107

   108

		do {

   109

			uint32 r = Random();

   110

			TileIndex tile = RandomTileSeed(r);

   111

			if (IsTileType(tile, MP_CLEAR) &&

   112

					!IsBridgeAbove(tile) &&

   113

					GetTropicZone(tile) == TROPICZONE_RAINFOREST) {

   114

				PlaceTree(tile, r);

   115

			}

   116

		} while (--i);

   117

	}

   118

}

   119

   120

void GenerateTrees(void)

   121

{

   122

	uint i;

   123

   124

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

   125

   126

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

   127

		PlaceTreesRandomly();

   128

	}

   129

}

   130

   131

/** Plant a tree.

   132

 * @param tile start tile of area-drag of tree plantation

   133

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

   134

 * @param p2 end tile of area-drag

   135

 */

   136

int32 CmdPlantTree(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)

   137

{

   138

	StringID msg = INVALID_STRING_ID;

   139

	int32 cost;

   140

	int ex;

   141

	int ey;

   142

	int sx, sy, x, y;

   143

   144

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

   145

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

   146

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

   147

   148

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   149

   150

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

   151

	ex = TileX(tile);

   152

	ey = TileY(tile);

   153

	sx = TileX(p2);

   154

	sy = TileY(p2);

   155

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

   156

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

   157

   158

	cost = 0; // total cost

   159

   160

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

   161

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

   162

			TileIndex tile = TileXY(x, y);

   163

   164

			if (!EnsureNoVehicle(tile)) continue;

   165

   166

			switch (GetTileType(tile)) {

   167

				case MP_TREES:

   168

					// no more space for trees?

   169

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

   170

						msg = STR_2803_TREE_ALREADY_HERE;

   171

						continue;

   172

					}

   173

   174

					if (flags & DC_EXEC) {

   175

						AddTreeCount(tile, 1);

   176

						MarkTileDirtyByTile(tile);

   177

					}

   178

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

   179

					cost += _price.build_trees * 2;

   180

					break;

   181

   182

				case MP_CLEAR:

   183

					if (!IsTileOwner(tile, OWNER_NONE) ||

   184

							IsBridgeAbove(tile)) {

   185

						msg = STR_2804_SITE_UNSUITABLE;

   186

						continue;

   187

					}

   188

   189

					switch (GetClearGround(tile)) {

   190

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

   191

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

   192

						default: break;

   193

					}

   194

   195

					if (flags & DC_EXEC) {

   196

						TreeType treetype;

   197

						uint growth;

   198

   199

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

   200

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

   201

							if (t != NULL)

   202

								ChangeTownRating(t, RATING_TREE_UP_STEP, RATING_TREE_MAXIMUM);

   203

						}

   204

   205

						treetype = p1;

   206

						if (treetype == TREE_INVALID) {

   207

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

   208

							if (treetype == TREE_INVALID) treetype = TREE_CACTUS;

   209

						}

   210

   211

						growth = _game_mode == GM_EDITOR ? 3 : 0;

   212

						switch (GetClearGround(tile)) {

   213

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

   214

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

   215

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

   216

						}

   217

						MarkTileDirtyByTile(tile);

   218

   219

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

   220

							SetTropicZone(tile, TROPICZONE_RAINFOREST);

   221

					}

   222

					cost += _price.build_trees;

   223

					break;

   224

   225

				default:

   226

					msg = STR_2804_SITE_UNSUITABLE;

   227

					break;

   228

			}

   229

		}

   230

	}

   231

   232

	if (cost == 0) {

   233

		return_cmd_error(msg);

   234

	} else {

   235

		return cost;

   236

	}

   237

}

   238

   239

typedef struct TreeListEnt {

   240

	uint32 image;

   241

	byte x,y;

   242

} TreeListEnt;

   243

   244

static void DrawTile_Trees(TileInfo *ti)

   245

{

   246

	const uint32 *s;

   247

	const TreePos* d;

   248

	byte z;

   249

   250

	switch (GetTreeGround(ti->tile)) {

   251

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

   252

		case TREE_GROUND_ROUGH: DrawHillyLandTile(ti); break;

   253

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

   254

	}

   255

   256

	DrawClearLandFence(ti);

   257

   258

	z = ti->z;

   259

	if (ti->tileh != SLOPE_FLAT) {

   260

		z += 4;

   261

		if (IsSteepSlope(ti->tileh)) z += 4;

   262

	}

   263

   264

	{

   265

		uint16 tmp = ti->x;

   266

		uint index;

   267

   268

		tmp = ROR(tmp, 2);

   269

		tmp -= ti->y;

   270

		tmp = ROR(tmp, 3);

   271

		tmp -= ti->x;

   272

		tmp = ROR(tmp, 1);

   273

		tmp += ti->y;

   274

   275

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

   276

   277

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

   278

   279

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

   280

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

   281

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

   282

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

   283

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

   284

		}

   285

   286

		assert(index < lengthof(_tree_layout_sprite));

   287

		s = _tree_layout_sprite[index];

   288

	}

   289

   290

	StartSpriteCombine();

   291

   292

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

   293

		TreeListEnt te[4];

   294

		uint i;

   295

   296

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

   297

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

   298

		do {

   299

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

   300

			if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   301

			te[i].image = image;

   302

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

   303

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

   304

			s++;

   305

			d++;

   306

		} while (i);

   307

   308

		/* draw them in a sorted way */

   309

		for (;;) {

   310

			byte min = 0xFF;

   311

			TreeListEnt *tep = NULL;

   312

   313

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

   314

			do {

   315

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

   316

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

   317

					tep = &te[i];

   318

				}

   319

			} while (i);

   320

   321

			if (tep == NULL) break;

   322

   323

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

   324

			tep->image = 0;

   325

		}

   326

	}

   327

   328

	EndSpriteCombine();

   329

}

   330

   331

   332

static uint GetSlopeZ_Trees(const TileInfo* ti)

   333

{

   334

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

   335

}

   336

   337

static Slope GetSlopeTileh_Trees(TileIndex tile, Slope tileh)

   338

{

   339

	return tileh;

   340

}

   341

   342

static int32 ClearTile_Trees(TileIndex tile, byte flags)

   343

{

   344

	uint num;

   345

   346

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

   347

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

   348

		if (t != NULL)

   349

			ChangeTownRating(t, RATING_TREE_DOWN_STEP, RATING_TREE_MINIMUM);

   350

	}

   351

   352

	num = GetTreeCount(tile) + 1;

   353

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

   354

   355

	if (flags & DC_EXEC) DoClearSquare(tile);

   356

   357

	return num * _price.remove_trees;

   358

}

   359

   360

static void GetAcceptedCargo_Trees(TileIndex tile, AcceptedCargo ac)

   361

{

   362

	/* not used */

   363

}

   364

   365

static void GetTileDesc_Trees(TileIndex tile, TileDesc *td)

   366

{

   367

	TreeType tt = GetTreeType(tile);

   368

   369

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

   370

		td->str = STR_280F_RAINFOREST;

   371

	} else if (tt == TREE_CACTUS) {

   372

		td->str = STR_2810_CACTUS_PLANTS;

   373

	} else {

   374

		td->str = STR_280E_TREES;

   375

	}

   376

   377

	td->owner = GetTileOwner(tile);

   378

}

   379

   380

static void AnimateTile_Trees(TileIndex tile)

   381

{

   382

	/* not used */

   383

}

   384

   385

static void TileLoopTreesDesert(TileIndex tile)

   386

{

   387

	switch (GetTropicZone(tile)) {

   388

		case TROPICZONE_DESERT:

   389

			if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT) {

   390

				SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, 3);

   391

				MarkTileDirtyByTile(tile);

   392

			}

   393

			break;

   394

   395

		case TROPICZONE_RAINFOREST: {

   396

			static const SoundFx forest_sounds[] = {

   397

				SND_42_LOON_BIRD,

   398

				SND_43_LION,

   399

				SND_44_MONKEYS,

   400

				SND_48_DISTANT_BIRD

   401

			};

   402

			uint32 r = Random();

   403

   404

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

   405

			break;

   406

		}

   407

   408

		default: break;

   409

	}

   410

}

   411

   412

static void TileLoopTreesAlps(TileIndex tile)

   413

{

   414

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

   415

   416

	if (k < -TILE_HEIGHT) {

   417

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

   418

		SetTreeGroundDensity(tile, TREE_GROUND_GRASS, 0);

   419

	} else {

   420

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

   421

   422

		if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT ||

   423

				GetTreeDensity(tile) != density) {

   424

			SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, density);

   425

		} else {

   426

			if (GetTreeDensity(tile) == 3) {

   427

				uint32 r = Random();

   428

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

   429

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

   430

				}

   431

			}

   432

			return;

   433

		}

   434

	}

   435

	MarkTileDirtyByTile(tile);

   436

}

   437

   438

static void TileLoop_Trees(TileIndex tile)

   439

{

   440

	static const TileIndexDiffC _tileloop_trees_dir[] = {

   441

		{-1, -1},

   442

		{ 0, -1},

   443

		{ 1, -1},

   444

		{-1,  0},

   445

		{ 1,  0},

   446

		{-1,  1},

   447

		{ 0,  1},

   448

		{ 1,  1}

   449

	};

   450

   451

	switch (_opt.landscape) {

   452

		case LT_DESERT: TileLoopTreesDesert(tile); break;

   453

		case LT_HILLY:  TileLoopTreesAlps(tile);   break;

   454

	}

   455

   456

	TileLoopClearHelper(tile);

   457

   458

	if (GetTreeCounter(tile) < 15) {

   459

		AddTreeCounter(tile, 1);

   460

		return;

   461

	}

   462

	SetTreeCounter(tile, 0);

   463

   464

	switch (GetTreeGrowth(tile)) {

   465

		case 3: /* regular sized tree */

   466

			if (_opt.landscape == LT_DESERT &&

   467

					GetTreeType(tile) != TREE_CACTUS &&

   468

					GetTropicZone(tile) == TROPICZONE_DESERT) {

   469

				AddTreeGrowth(tile, 1);

   470

			} else {

   471

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

   472

					case 0: /* start destructing */

   473

						AddTreeGrowth(tile, 1);

   474

						break;

   475

   476

					case 1: /* add a tree */

   477

						if (GetTreeCount(tile) < 3) {

   478

							AddTreeCount(tile, 1);

   479

							SetTreeGrowth(tile, 0);

   480

							break;

   481

						}

   482

						/* FALL THROUGH */

   483

   484

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

   485

						TreeType treetype = GetTreeType(tile);

   486

   487

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

   488

   489

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

   490