1

/* $Id$ */

     2

     3

#include "stdafx.h"

     4

#include "openttd.h"

     5

#include "clear.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.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 * TR_COUNT_TEMPERATE / 256 + TR_TEMPERATE;

    24

    25

		case LT_HILLY:

    26

			return seed * TR_COUNT_SUB_ARCTIC / 256 + TR_SUB_ARCTIC;

    27

    28

		case LT_DESERT:

    29

			switch (GetMapExtraBits(tile)) {

    30

				case 0:  return seed * TR_COUNT_SUB_TROPICAL / 256 + TR_SUB_TROPICAL;

    31

				case 1:  return (seed > 12) ? TR_INVALID : TR_CACTUS;

    32

				default: return seed * TR_COUNT_RAINFOREST / 256 + TR_RAINFOREST;

    33

			}

    34

    35

		default:

    36

			return seed * TR_COUNT_TOYLAND / 256 + TR_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 != TR_INVALID) {

    45

		SetTileType(tile, MP_TREES);

    46

		SetTreeType(tile, tree);

    47

		SetFenceSE(tile, 0);

    48

		SetFenceSW(tile, 0);

    49

		SetTreeCount(tile, GB(r, 22, 2));

    50

		SetTreeGrowth(tile, min(GB(r, 16, 3), 6));

    51

    52

		// above snowline?

    53

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

    54

			SetTreeGroundDensity(tile, TR_SNOW_DESERT, 3);

    55

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

    56

		} else {

    57

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

    58

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

    59

		}

    60

	}

    61

}

    62

    63

static void DoPlaceMoreTrees(TileIndex tile)

    64

{

    65

	uint i;

    66

    67

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

    68

		uint32 r = Random();

    69

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

    70

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

    71

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

    72

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

    73

    74

		if (dist <= 13 &&

    75

				IsTileType(cur_tile, MP_CLEAR) &&

    76

				!IsClearGround(cur_tile, CL_FIELDS) &&

    77

				!IsClearGround(cur_tile, CL_ROCKS)) {

    78

			PlaceTree(cur_tile, r);

    79

		}

    80

	}

    81

}

    82

    83

static void PlaceMoreTrees(void)

    84

{

    85

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

    86

	do {

    87

		DoPlaceMoreTrees(RandomTile());

    88

	} while (--i);

    89

}

    90

    91

void PlaceTreesRandomly(void)

    92

{

    93

	uint i;

    94

    95

	i = ScaleByMapSize(1000);

    96

	do {

    97

		uint32 r = Random();

    98

		TileIndex tile = RandomTileSeed(r);

    99

		if (IsTileType(tile, MP_CLEAR) &&

   100

				!IsClearGround(tile, CL_FIELDS) &&

   101

				!IsClearGround(tile, CL_ROCKS)) {

   102

			PlaceTree(tile, r);

   103

		}

   104

	} while (--i);

   105

   106

	/* place extra trees at rainforest area */

   107

	if (_opt.landscape == LT_DESERT) {

   108

		i = ScaleByMapSize(15000);

   109

   110

		do {

   111

			uint32 r = Random();

   112

			TileIndex tile = RandomTileSeed(r);

   113

			if (IsTileType(tile, MP_CLEAR) && GetMapExtraBits(tile) == 2) {

   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 x,y 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(int ex, int ey, uint32 flags, uint32 p1, uint32 p2)

   137

{

   138

	int32 cost;

   139

	int sx, sy, x, y;

   140

   141

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

   142

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

   143

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

   144

   145

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   146

   147

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

   148

	sx = TileX(p2);

   149

	sy = TileY(p2);

   150

	ex /= 16; ey /= 16;

   151

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

   152

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

   153

   154

	cost = 0; // total cost

   155

   156

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

   157

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

   158

			TileIndex tile = TileXY(x, y);

   159

   160

			if (!EnsureNoVehicle(tile)) continue;

   161

   162

			switch (GetTileType(tile)) {

   163

				case MP_TREES:

   164

					// no more space for trees?

   165

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

   166

						_error_message = STR_2803_TREE_ALREADY_HERE;

   167

						continue;

   168

					}

   169

   170

					if (flags & DC_EXEC) {

   171

						AddTreeCount(tile, 1);

   172

						MarkTileDirtyByTile(tile);

   173

					}

   174

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

   175

					cost += _price.build_trees * 2;

   176

					break;

   177

   178

				case MP_CLEAR:

   179

					if (!IsTileOwner(tile, OWNER_NONE)) {

   180

						_error_message = STR_2804_SITE_UNSUITABLE;

   181

						continue;

   182

					}

   183

   184

					switch (GetClearGround(tile)) {

   185

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

   186

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

   187

						default: break;

   188

					}

   189

   190

					if (flags & DC_EXEC) {

   191

						TreeType treetype;

   192

   193

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

   194

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

   195

							if (t != NULL)

   196

								ChangeTownRating(t, RATING_TREE_UP_STEP, RATING_TREE_MAXIMUM);

   197

						}

   198

   199

						treetype = p1;

   200

						if (treetype == TR_INVALID) {

   201

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

   202

							if (treetype == TR_INVALID) treetype = TR_CACTUS;

   203

						}

   204

   205

						switch (GetClearGround(tile)) {

   206

							case CL_ROUGH: SetTreeGroundDensity(tile, TR_ROUGH, 0); break;

   207

							case CL_SNOW:  SetTreeGroundDensity(tile, TR_SNOW_DESERT, GetClearDensity(tile)); break;

   208

							default:       SetTreeGroundDensity(tile, TR_GRASS, 0); break;

   209

						}

   210

						SetTreeCounter(tile, 0);

   211

   212

						SetTileType(tile, MP_TREES);

   213

						SetTreeType(tile, treetype);

   214

						SetFenceSE(tile, 0);

   215

						SetFenceSW(tile, 0);

   216

						SetTreeCount(tile, 0);

   217

						SetTreeGrowth(tile, _game_mode == GM_EDITOR ? 3 : 0);

   218

						MarkTileDirtyByTile(tile);

   219

   220

						if (_game_mode == GM_EDITOR && IS_INT_INSIDE(treetype, TR_RAINFOREST, TR_CACTUS))

   221

							SetMapExtraBits(tile, 2);

   222

					}

   223

					cost += _price.build_trees;

   224

					break;

   225

   226

				default:

   227

					_error_message = STR_2804_SITE_UNSUITABLE;

   228

					break;

   229

			}

   230

		}

   231

	}

   232

   233

	return (cost == 0) ? CMD_ERROR : cost;

   234

}

   235

   236

typedef struct TreeListEnt {

   237

	uint32 image;

   238

	byte x,y;

   239

} TreeListEnt;

   240

   241

static void DrawTile_Trees(TileInfo *ti)

   242

{

   243

	const uint32 *s;

   244

	const TreePos* d;

   245

	byte z;

   246

   247

	switch (GetTreeGround(ti->tile)) {

   248

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

   249

		case TR_ROUGH: DrawHillyLandTile(ti); break;

   250

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

   251

	}

   252

   253

	DrawClearLandFence(ti);

   254

   255

	z = ti->z;

   256

	if (ti->tileh != 0) {

   257

		z += 4;

   258

		if (IsSteepTileh(ti->tileh))

   259

			z += 4;

   260

	}

   261

   262

	{

   263

		uint16 tmp = ti->x;

   264

		uint index;

   265

   266

		tmp = ROR(tmp, 2);

   267

		tmp -= ti->y;

   268

		tmp = ROR(tmp, 3);

   269

		tmp -= ti->x;

   270

		tmp = ROR(tmp, 1);

   271

		tmp += ti->y;

   272

   273

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

   274

   275

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

   276

   277

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

   278

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

   279

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

   280

				IS_INT_INSIDE(index, TR_SUB_ARCTIC << 2, TR_RAINFOREST << 2)) {

   281

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

   282

		}

   283

   284

		assert(index < lengthof(_tree_layout_sprite));

   285

		s = _tree_layout_sprite[index];

   286

	}

   287

   288

	StartSpriteCombine();

   289

   290

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

   291

		TreeListEnt te[4];

   292

		uint i;

   293

   294

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

   295

		i = (ti->map5 >> 6) + 1;

   296

		do {

   297

			uint32 image = s[0] + (--i == 0 ? GB(ti->map5, 0, 3) : 3);

   298

			if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);

   299

			te[i].image = image;

   300

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

   301

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

   302

			s++;

   303

			d++;

   304

		} while (i);

   305

   306

		/* draw them in a sorted way */

   307

		for (;;) {

   308

			byte min = 0xFF;

   309

			TreeListEnt *tep = NULL;

   310

   311

			i = (ti->map5 >> 6) + 1;

   312

			do {

   313

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

   314

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

   315

					tep = &te[i];

   316

				}

   317

			} while (i);

   318

   319

			if (tep == NULL) break;

   320

   321

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

   322

			tep->image = 0;

   323

		}

   324

	}

   325

   326

	EndSpriteCombine();

   327

}

   328

   329

   330

static uint GetSlopeZ_Trees(const TileInfo* ti)

   331

{

   332

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

   333

}

   334

   335

static uint GetSlopeTileh_Trees(const TileInfo* ti)

   336

{

   337

	return ti->tileh;

   338

}

   339

   340

static int32 ClearTile_Trees(TileIndex tile, byte flags)

   341

{

   342

	uint num;

   343

   344

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

   345

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

   346

		if (t != NULL)

   347

			ChangeTownRating(t, RATING_TREE_DOWN_STEP, RATING_TREE_MINIMUM);

   348

	}

   349

   350

	num = GetTreeCount(tile) + 1;

   351

	if (IS_INT_INSIDE(GetTreeType(tile), TR_RAINFOREST, TR_CACTUS)) num *= 4;

   352

   353

	if (flags & DC_EXEC) DoClearSquare(tile);

   354

   355

	return num * _price.remove_trees;

   356

}

   357

   358

static void GetAcceptedCargo_Trees(TileIndex tile, AcceptedCargo ac)

   359

{

   360

	/* not used */

   361

}

   362

   363

static void GetTileDesc_Trees(TileIndex tile, TileDesc *td)

   364

{

   365

	TreeType tt = GetTreeType(tile);

   366

   367

	if (IS_INT_INSIDE(tt, TR_RAINFOREST, TR_CACTUS)) {

   368

		td->str = STR_280F_RAINFOREST;

   369

	} else if (tt == TR_CACTUS) {

   370

		td->str = STR_2810_CACTUS_PLANTS;

   371

	} else {

   372

		td->str = STR_280E_TREES;

   373

	}

   374

   375

	td->owner = GetTileOwner(tile);

   376

}

   377

   378

static void AnimateTile_Trees(TileIndex tile)

   379

{

   380

	/* not used */

   381

}

   382

   383

static void TileLoopTreesDesert(TileIndex tile)

   384

{

   385

	switch (GetMapExtraBits(tile)) {

   386

		case 1:

   387

			if (GetTreeGround(tile) != TR_SNOW_DESERT) {

   388

				SetTreeGroundDensity(tile, TR_SNOW_DESERT, 3);

   389

				MarkTileDirtyByTile(tile);

   390

			}

   391

			break;

   392

   393

		case 2: {

   394

			static const SoundFx forest_sounds[] = {

   395

				SND_42_LOON_BIRD,

   396

				SND_43_LION,

   397

				SND_44_MONKEYS,

   398

				SND_48_DISTANT_BIRD

   399

			};

   400

			uint32 r = Random();

   401

   402

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

   403

			break;

   404

		}

   405

	}

   406

}

   407

   408

static void TileLoopTreesAlps(TileIndex tile)

   409

{

   410

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

   411

   412

	if (k < -8) {

   413

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

   414

		SetTreeGroundDensity(tile, TR_GRASS, 0);

   415

	} else {

   416

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

   417

   418

		if (GetTreeGround(tile) != TR_SNOW_DESERT || GetTreeDensity(tile) != density) {

   419

			SetTreeGroundDensity(tile, TR_SNOW_DESERT, density);

   420

		} else {

   421

			if (GetTreeDensity(tile) == 3) {

   422

				uint32 r = Random();

   423

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

   424

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

   425

				}

   426

			}

   427

			return;

   428

		}

   429

	}

   430

	MarkTileDirtyByTile(tile);

   431

}

   432

   433

static void TileLoop_Trees(TileIndex tile)

   434

{

   435

	static const TileIndexDiffC _tileloop_trees_dir[] = {

   436

		{-1, -1},

   437

		{ 0, -1},

   438

		{ 1, -1},

   439

		{-1,  0},

   440

		{ 1,  0},

   441

		{-1,  1},

   442

		{ 0,  1},

   443

		{ 1,  1}

   444

	};

   445

   446

	switch (_opt.landscape) {

   447

		case LT_DESERT: TileLoopTreesDesert(tile); break;

   448

		case LT_HILLY:  TileLoopTreesAlps(tile);   break;

   449

	}

   450

   451

	TileLoopClearHelper(tile);

   452

   453

	if (GetTreeCounter(tile) < 15) {

   454

		AddTreeCounter(tile, 1);

   455

		return;

   456

	}

   457

	SetTreeCounter(tile, 0);

   458

   459

	switch (GetTreeGrowth(tile)) {

   460

		case 3: /* regular sized tree */

   461

			if (_opt.landscape == LT_DESERT && GetTreeType(tile) != TR_CACTUS && GetMapExtraBits(tile) == 1) {

   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 CL_GRASS:

   486

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

   487

								SetTreeGroundDensity(tile, TR_GRASS, 0);

   488

								break;

   489

   490

							case CL_ROUGH: SetTreeGroundDensity(tile, TR_ROUGH, 0); break;

   491

							case CL_SNOW:  SetTreeGroundDensity(tile, TR_SNOW_DESERT, GetClearDensity(tile)); break;

   492

							default: return;

   493

						}

   494