1

#include "stdafx.h"

     2

#include "ttd.h"

     3

#include "table/strings.h"

     4

#include "map.h"

     5

#include "tile.h"

     6

#include "viewport.h"

     7

#include "command.h"

     8

#include "town.h"

     9

#include "sound.h"

    10

    11

static int GetRandomTreeType(TileIndex tile, uint seed)

    12

{

    13

	switch (_opt.landscape) {

    14

		case LT_NORMAL:

    15

			return seed * 12 >> 8;

    16

    17

		case LT_HILLY:

    18

			return (seed >> 5) + 12;

    19

    20

		case LT_DESERT:

    21

			switch (GetMapExtraBits(tile)) {

    22

				case 0:

    23

					return (seed >> 6) + 28;

    24

    25

				case 1:

    26

					return (seed > 12) ? -1 : 27;

    27

    28

				default:

    29

					return (seed * 7 >> 8) + 20;

    30

			}

    31

    32

		default:

    33

			return (seed * 9 >> 8) + 32;

    34

	}

    35

}

    36

    37

static void PlaceTree(uint tile, uint32 r, byte m5_or)

    38

{

    39

	int tree = GetRandomTreeType(tile, (r >> 24));

    40

	byte m5;

    41

    42

	if (tree >= 0) {

    43

		m5 = (byte)(r >> 16);

    44

		if ((m5 & 0x7) == 7) m5--; // there is no growth state 7

    45

    46

		_map5[tile] = m5 & 0x07;	// growth state;

    47

		_map5[tile] |=  m5 & 0xC0;	// amount of trees

    48

    49

		_map3_lo[tile] = tree;		// set type of tree

    50

		_map3_hi[tile] = 0;		// no hedge

    51

    52

		// above snowline?

    53

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

    54

		{

    55

			_map2[tile] = 0xE0;	// set land type to snow

    56

			_map2[tile] |= (byte)(r >> 24)&0x07; // randomize counter

    57

		}

    58

		else

    59

		{

    60

			_map2[tile] = (byte)(r >> 24)&0x1F; // randomize counter and ground

    61

		}

    62

    63

    64

		// make it tree class

    65

		SetTileType(tile, MP_TREES);

    66

	}

    67

}

    68

    69

static void DoPlaceMoreTrees(uint tile)

    70

{

    71

	int i = 1000;

    72

	int x,y;

    73

	uint cur_tile;

    74

	int dist;

    75

    76

	do {

    77

		uint32 r = Random();

    78

		x = (r & 0x1F) - 16;

    79

		y = ((r>>8) & 0x1F) - 16;

    80

    81

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

    82

    83

		cur_tile = TILE_MASK(tile + TILE_XY(x,y));

    84

    85

		/* Only on tiles within 13 squares from tile,

    86

		    on clear tiles, and NOT on farm-tiles or rocks */

    87

		if (dist <= 13 && IsTileType(cur_tile, MP_CLEAR) &&

    88

			 (_map5[cur_tile] & 0x1F) != 0x0F && (_map5[cur_tile] & 0x1C) != 8) {

    89

			PlaceTree(cur_tile, r, dist <= 6 ? 0xC0 : 0);

    90

		}

    91

	} while (--i);

    92

}

    93

    94

static void PlaceMoreTrees(void)

    95

{

    96

	int i = ScaleByMapSize((Random() & 0x1F) + 25);

    97

	do {

    98

		DoPlaceMoreTrees(TILE_MASK(Random()));

    99

	} while (--i);

   100

}

   101

   102

void PlaceTreesRandomly(void)

   103

{

   104

	int i;

   105

	uint32 r;

   106

	uint tile;

   107

   108

	i = ScaleByMapSize(1000);

   109

	do {

   110

		r = Random();

   111

		tile = TILE_MASK(r);

   112

		/* Only on clear tiles, and NOT on farm-tiles or rocks */

   113

		if (IsTileType(tile, MP_CLEAR) && (_map5[tile] & 0x1F) != 0x0F && (_map5[tile] & 0x1C) != 8) {

   114

			PlaceTree(tile, r, 0);

   115

		}

   116

	} while (--i);

   117

   118

	/* place extra trees at rainforest area */

   119

	if (_opt.landscape == LT_DESERT) {

   120

		i = ScaleByMapSize(15000);

   121

   122

		do {

   123

			r = Random();

   124

			tile = TILE_MASK(r);

   125

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

   126

				PlaceTree(tile, r, 0);

   127

			}

   128

		} while (--i);

   129

	}

   130

}

   131

   132

void GenerateTrees(void)

   133

{

   134

	int i;

   135

   136

	if (_opt.landscape != LT_CANDY) {

   137

		PlaceMoreTrees();

   138

	}

   139

   140

	i = _opt.landscape == LT_HILLY ? 15 : 6;

   141

	do {

   142

		PlaceTreesRandomly();

   143

	} while (--i);

   144

}

   145

   146

/* Plant a tree

   147

 * p1 = tree type, -1 means random.

   148

 * p2 = end tile

   149

 */

   150

   151

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

   152

{

   153

	int32 cost;

   154

	int sx;

   155

	int sy;

   156

	int x;

   157

	int y;

   158

   159

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

   160

   161

	SET_EXPENSES_TYPE(EXPENSES_OTHER);

   162

   163

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

   164

	sx = TileX(p2) * 16;

   165

	sy = TileY(p2) * 16;

   166

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

   167

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

   168

   169

	cost = 0; // total cost

   170

   171

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

   172

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

   173

			TileInfo ti;

   174

   175

			FindLandscapeHeight(&ti, x, y);

   176

			if (!EnsureNoVehicle(ti.tile))

   177

				continue;

   178

   179

			switch (ti.type) {

   180

				case MP_TREES:

   181

					// no more space for trees?

   182

					if (_game_mode != GM_EDITOR && (ti.map5 & 0xC0) == 0xC0) {

   183

						_error_message = STR_2803_TREE_ALREADY_HERE;

   184

						continue;

   185

					}

   186

   187

					if (flags & DC_EXEC) {

   188

						_map5[ti.tile] = ti.map5 + 0x40;

   189

						MarkTileDirtyByTile(ti.tile);

   190

					}

   191

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

   192

					cost += _price.build_trees * 2;

   193

					break;

   194

   195

				case MP_CLEAR:

   196

					if (_map_owner[ti.tile] != OWNER_NONE) {

   197

						_error_message = STR_2804_SITE_UNSUITABLE;

   198

						continue;

   199

					}

   200

   201

					// it's expensive to clear farmland

   202

					if ((ti.map5 & 0x1F) == 0xF)

   203

						cost += _price.clear_3;

   204

					else if ((ti.map5 & 0x1C) == 8)

   205

						cost += _price.clear_2;

   206

   207

					if (flags & DC_EXEC) {

   208

						int treetype;

   209

						int m2;

   210

   211

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

   212

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

   213

							if (t != NULL)

   214

								ChangeTownRating(t, RATING_TREE_UP_STEP, RATING_TREE_MAXIMUM);

   215

						}

   216

   217

						switch (ti.map5 & 0x1C) {

   218

							case 0x04:

   219

								m2 = 16;

   220

								break;

   221

   222

							case 0x10:

   223

								m2 = ((ti.map5 & 3) << 6) | 0x20;

   224

								break;

   225

   226

							default:

   227

								m2 = 0;

   228

								break;

   229

						}

   230

   231

						treetype = p1;

   232

						if (treetype == -1) {

   233

							treetype = GetRandomTreeType(ti.tile, Random() >> 24);

   234

							if (treetype == -1) treetype = 27;

   235

						}

   236

   237

						ModifyTile(ti.tile,

   238

							MP_SETTYPE(MP_TREES) |

   239

							MP_MAP2 | MP_MAP3LO | MP_MAP3HI_CLEAR | MP_MAP5,

   240

							m2, /* map2 */

   241

							treetype, /* map3lo */

   242

							_game_mode == GM_EDITOR ? 3 : 0 /* map5 */

   243

						);

   244

   245

						if (_game_mode == GM_EDITOR && IS_BYTE_INSIDE(treetype, 0x14, 0x1B))

   246

							SetMapExtraBits(ti.tile, 2);

   247

					}

   248

					cost += _price.build_trees;

   249

					break;

   250

   251

				default:

   252

					_error_message = STR_2804_SITE_UNSUITABLE;

   253

					break;

   254

			}

   255

		}

   256

	}

   257

   258

	if (cost == 0) return CMD_ERROR;

   259

	return cost;

   260

}

   261

   262

typedef struct TreeListEnt {

   263

	uint32 image;

   264

	byte x,y;

   265

} TreeListEnt;

   266

   267

   268

#include "table/tree_land.h"

   269

   270

   271

static void DrawTile_Trees(TileInfo *ti)

   272

{

   273

	uint16 m2;

   274

	const uint32 *s;

   275

	const byte *d;

   276

	byte z;

   277

	TreeListEnt te[4];

   278

   279

	m2 = _map2[ti->tile];

   280

   281

	if ( (m2&0x30) == 0) {

   282

		DrawClearLandTile(ti, 3);

   283

	} else if ((m2&0x30) == 0x20) {

   284

		DrawGroundSprite(_tree_sprites_1[m2 >> 6] + _tileh_to_sprite[ti->tileh]);

   285

	} else {

   286

		DrawHillyLandTile(ti);

   287

	}

   288

   289

	DrawClearLandFence(ti, _map3_hi[ti->tile] >> 2);

   290

   291

	z = ti->z;

   292

	if (ti->tileh != 0) {

   293

		z += 4;

   294

		if (ti->tileh & 0x10)

   295

			z += 4;

   296

	}

   297

   298

	{

   299

		uint16 tmp = ti->x;

   300

		uint index;

   301

   302

		tmp = (tmp >> 2) | (tmp << 14);

   303

		tmp -= ti->y;

   304

		tmp = (tmp >> 3) | (tmp << 13);

   305

		tmp -= ti->x;

   306

		tmp = (tmp >> 1) | (tmp << 15);

   307

		tmp += ti->y;

   308

   309

		d = _tree_layout_xy[(tmp & 0x30) >> 4];

   310

   311

		index = ((tmp>>6)&3) + (_map3_lo[ti->tile]<<2);

   312

   313

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

   314

		if ((m2 & 0xB0) == 0xA0 && index >= 48 && index < 80)

   315

			index += 164 - 48;

   316

   317

		assert(index < lengthof(_tree_layout_sprite));

   318

		s = _tree_layout_sprite[index];

   319

	}

   320

   321

	StartSpriteCombine();

   322

   323

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

   324

	{

   325

		int i;

   326

   327

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

   328

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

   329

		do {

   330

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

   331

			if (_display_opt & DO_TRANS_BUILDINGS)

   332

				image = (image & 0x3FFF) | 0x3224000;

   333

			te[i].image = image;

   334

			te[i].x = d[0];

   335

			te[i].y = d[1];

   336

			s++;

   337

			d+=2;

   338

		} while (i);

   339

   340

		/* draw them in a sorted way */

   341

		for(;;) {

   342

			byte min = 0xFF;

   343

			TreeListEnt *tep = NULL;

   344

   345

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

   346

			do {

   347

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

   348

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

   349

					tep = &te[i];

   350

				}

   351

			} while (i);

   352

   353

			if (tep == NULL)

   354

				break;

   355

   356

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

   357

			tep->image = 0;

   358

		}

   359

	}

   360

   361

	EndSpriteCombine();

   362

}

   363

   364

   365

static uint GetSlopeZ_Trees(TileInfo *ti) {

   366

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

   367

}

   368

   369

static uint GetSlopeTileh_Trees(TileInfo *ti) {

   370

	return ti->tileh;

   371

}

   372

   373

static int32 ClearTile_Trees(uint tile, byte flags) {

   374

	int num;

   375

   376

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

   377

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

   378

		if (t != NULL)

   379

			ChangeTownRating(t, RATING_TREE_DOWN_STEP, RATING_TREE_MINIMUM);

   380

	}

   381

   382

	num = (_map5[tile] >> 6) + 1;

   383

	if ( (byte)(_map3_lo[tile]-0x14) <= (0x1A-0x14))

   384

		num <<= 2;

   385

   386

	if (flags & DC_EXEC)

   387

		DoClearSquare(tile);

   388

   389

	return num * _price.remove_trees;

   390

}

   391

   392

static void GetAcceptedCargo_Trees(uint tile, AcceptedCargo ac)

   393

{

   394

	/* not used */

   395

}

   396

   397

static void GetTileDesc_Trees(uint tile, TileDesc *td)

   398

{

   399

	byte b;

   400

	StringID str;

   401

   402

	td->owner = _map_owner[tile];

   403

   404

	b = _map3_lo[tile];

   405

	(str=STR_2810_CACTUS_PLANTS, b==0x1B) ||

   406

	(str=STR_280F_RAINFOREST, IS_BYTE_INSIDE(b, 0x14, 0x1A+1)) ||

   407

	(str=STR_280E_TREES, true);

   408

	td->str = str;

   409

}

   410

   411

static void AnimateTile_Trees(uint tile)

   412

{

   413

	/* not used */

   414

}

   415

   416

static SoundFx _desert_sounds[] = {

   417

	SND_42_LOON_BIRD,

   418

	SND_43_LION,

   419

	SND_44_MONKEYS,

   420

	SND_48_DISTANT_BIRD

   421

};

   422

   423

static void TileLoopTreesDesert(uint tile)

   424

{

   425

	byte b;

   426

   427

	if ((b=GetMapExtraBits(tile)) == 2) {

   428

		uint32 r;

   429

   430

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

   431

			SndPlayTileFx(_desert_sounds[(r >> 16) & 3], tile);

   432

		}

   433

	} else if (b == 1) {

   434

		if ((_map2[tile] & 0x30) != 0x20) {

   435

			_map2[tile] &= 0xF;

   436

			_map2[tile] |= 0xE0;

   437

			MarkTileDirtyByTile(tile);

   438

		}

   439

	}

   440

}

   441

   442

static void TileLoopTreesAlps(uint tile)

   443

{

   444

	byte tmp, m2;

   445

	int k;

   446

   447

	/* distance from snow line, in steps of 8 */

   448

	k = GetTileZ(tile) - _opt.snow_line;

   449

   450

	tmp = _map5[tile] & 0xF0;

   451

   452

	if (k < -8) {

   453

		/* snow_m2_down */

   454

		if ((tmp&0x30) != 0x20)

   455

			return;

   456

		m2 = 0;

   457

	} else if (k == -8) {

   458

		/* snow_m1 */

   459

		m2 = 0x20;

   460

		if (tmp == m2)

   461

			return;

   462

	} else if (k < 8) {

   463

		/* snow_0 */

   464

		m2 = 0x60;

   465

		if (tmp == m2)

   466

			return;

   467

	} else if (k == 8) {

   468

		/* snow_p1 */

   469

		m2 = 0xA0;

   470

		if (tmp == m2)

   471

			return;

   472

	} else {

   473

		/* snow_p2_up */

   474

		if (tmp == 0xC0) {

   475

			uint32 r;

   476

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

   477

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

   478

			}

   479

			return;

   480

		} else {

   481

			m2 = 0xE0;

   482

		}

   483

	}

   484

   485

	_map2[tile] &= 0xF;

   486

	_map2[tile] |= m2;

   487

	MarkTileDirtyByTile(tile);

   488

}

   489

   490

static void TileLoop_Trees(uint tile)

   491

{

   492

	byte m5;

   493

	uint16 m2;

   494

   495

	static const TileIndexDiffC _tileloop_trees_dir[] = {

   496

		{-1, -1},

   497

		{ 0, -1},

   498

		{ 1, -1},

   499

		{-1,  0},

   500

		{ 1,  0},

   501

		{-1,  1},

   502

		{ 0,  1},

   503

		{ 1,  1}

   504

	};

   505

   506

	if (_opt.landscape == LT_DESERT) {

   507

		TileLoopTreesDesert(tile);

   508

	} else if (_opt.landscape == LT_HILLY) {

   509

		TileLoopTreesAlps(tile);

   510

	}

   511

   512

	TileLoopClearHelper(tile);

   513