1

/* $Id$ */

     2

     3

/** @file clear_cmd.cpp */

     4

     5

#include "stdafx.h"

     6

#include "openttd.h"

     7

#include "clear_map.h"

     8

#include "table/strings.h"

     9

#include "player.h"

    10

#include "viewport.h"

    11

#include "command_func.h"

    12

#include "bridge.h"

    13

#include "landscape.h"

    14

#include "variables.h"

    15

#include "table/sprites.h"

    16

#include "unmovable_map.h"

    17

#include "genworld.h"

    18

#include "industry.h"

    19

#include "water_map.h"

    20

#include "tile_cmd.h"

    21

#include "functions.h"

    22

#include "economy_func.h"

    24

    25

static CommandCost ClearTile_Clear(TileIndex tile, byte flags)

    26

{

    27

	static const Money* clear_price_table[] = {

    28

		&_price.clear_grass,

    29

		&_price.clear_roughland,

    30

		&_price.clear_rocks,

    31

		&_price.clear_fields,

    32

		&_price.clear_roughland,

    33

		&_price.clear_roughland,

    34

	};

    35

	CommandCost price;

    36

    37

	if (!IsClearGround(tile, CLEAR_GRASS) || GetClearDensity(tile) != 0) {

    38

		price.AddCost(*clear_price_table[GetClearGround(tile)]);

    39

	}

    40

    41

	if (flags & DC_EXEC) DoClearSquare(tile);

    42

    43

	return price;

    44

}

    45

    46

void DrawClearLandTile(const TileInfo *ti, byte set)

    47

{

    48

	DrawGroundSprite(SPR_FLAT_BARE_LAND + _tileh_to_sprite[ti->tileh] + set * 19, PAL_NONE);

    49

}

    50

    51

void DrawHillyLandTile(const TileInfo *ti)

    52

{

    53

	if (ti->tileh != SLOPE_FLAT) {

    54

		DrawGroundSprite(SPR_FLAT_ROUGH_LAND + _tileh_to_sprite[ti->tileh], PAL_NONE);

    55

	} else {

    56

		DrawGroundSprite(_landscape_clear_sprites[GB(ti->x ^ ti->y, 4, 3)], PAL_NONE);

    57

	}

    58

}

    59

    60

void DrawClearLandFence(const TileInfo *ti)

    61

{

    62

	byte z = ti->z;

    63

    64

	if (ti->tileh & SLOPE_S) {

    65

		z += TILE_HEIGHT;

    66

		if (ti->tileh == SLOPE_STEEP_S) z += TILE_HEIGHT;

    67

	}

    68

    69

	if (GetFenceSW(ti->tile) != 0) {

    70

		DrawGroundSpriteAt(_clear_land_fence_sprites_1[GetFenceSW(ti->tile) - 1] + _fence_mod_by_tileh[ti->tileh], PAL_NONE, ti->x, ti->y, z);

    71

	}

    72

    73

	if (GetFenceSE(ti->tile) != 0) {

    74

		DrawGroundSpriteAt(_clear_land_fence_sprites_1[GetFenceSE(ti->tile) - 1] + _fence_mod_by_tileh_2[ti->tileh], PAL_NONE, ti->x, ti->y, z);

    75

	}

    76

}

    77

    78

static void DrawTile_Clear(TileInfo *ti)

    79

{

    80

	switch (GetClearGround(ti->tile)) {

    81

		case CLEAR_GRASS:

    82

			DrawClearLandTile(ti, GetClearDensity(ti->tile));

    83

			break;

    84

    85

		case CLEAR_ROUGH:

    86

			DrawHillyLandTile(ti);

    87

			break;

    88

    89

		case CLEAR_ROCKS:

    90

			DrawGroundSprite(SPR_FLAT_ROCKY_LAND_1 + _tileh_to_sprite[ti->tileh], PAL_NONE);

    91

			break;

    92

    93

		case CLEAR_FIELDS:

    94

			DrawGroundSprite(_clear_land_sprites_1[GetFieldType(ti->tile)] + _tileh_to_sprite[ti->tileh], PAL_NONE);

    95

			break;

    96

    97

		case CLEAR_SNOW:

    98

			DrawGroundSprite(_clear_land_sprites_2[GetClearDensity(ti->tile)] + _tileh_to_sprite[ti->tileh], PAL_NONE);

    99

			break;

   100

   101

		case CLEAR_DESERT:

   102

			DrawGroundSprite(_clear_land_sprites_3[GetClearDensity(ti->tile)] + _tileh_to_sprite[ti->tileh], PAL_NONE);

   103

			break;

   104

	}

   105

   106

	DrawClearLandFence(ti);

   107

	DrawBridgeMiddle(ti);

   108

}

   109

   110

static uint GetSlopeZ_Clear(TileIndex tile, uint x, uint y)

   111

{

   112

	uint z;

   113

	Slope tileh = GetTileSlope(tile, &z);

   114

   115

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

   116

}

   117

   118

static Foundation GetFoundation_Clear(TileIndex tile, Slope tileh)

   119

{

   120

	return FOUNDATION_NONE;

   121

}

   122

   123

static void GetAcceptedCargo_Clear(TileIndex tile, AcceptedCargo ac)

   124

{

   125

	/* unused */

   126

}

   127

   128

static void AnimateTile_Clear(TileIndex tile)

   129

{

   130

	/* unused */

   131

}

   132

   133

void TileLoopClearHelper(TileIndex tile)

   134

{

   135

	byte self;

   136

	byte neighbour;

   137

	TileIndex dirty = INVALID_TILE;

   138

   139

	self = (IsTileType(tile, MP_CLEAR) && IsClearGround(tile, CLEAR_FIELDS));

   140

   141

	neighbour = (IsTileType(TILE_ADDXY(tile, 1, 0), MP_CLEAR) && IsClearGround(TILE_ADDXY(tile, 1, 0), CLEAR_FIELDS));

   142

	if (GetFenceSW(tile) == 0) {

   143

		if (self != neighbour) {

   144

			SetFenceSW(tile, 3);

   145

			dirty = tile;

   146

		}

   147

	} else {

   148

		if (self == 0 && neighbour == 0) {

   149

			SetFenceSW(tile, 0);

   150

			dirty = tile;

   151

		}

   152

	}

   153

   154

	neighbour = (IsTileType(TILE_ADDXY(tile, 0, 1), MP_CLEAR) && IsClearGround(TILE_ADDXY(tile, 0, 1), CLEAR_FIELDS));

   155

	if (GetFenceSE(tile) == 0) {

   156

		if (self != neighbour) {

   157

			SetFenceSE(tile, 3);

   158

			dirty = tile;

   159

		}

   160

	} else {

   161

		if (self == 0 && neighbour == 0) {

   162

			SetFenceSE(tile, 0);

   163

			dirty = tile;

   164

		}

   165

	}

   166

   167

	if (dirty != INVALID_TILE) MarkTileDirtyByTile(dirty);

   168

}

   169

   170

   171

/* convert into snowy tiles */

   172

static void TileLoopClearAlps(TileIndex tile)

   173

{

   174

	int k = GetTileZ(tile) - GetSnowLine() + TILE_HEIGHT;

   175

   176

	if (k < 0) { // well below the snow line

   177

		if (!IsClearGround(tile, CLEAR_SNOW)) return;

   178

		if (GetClearDensity(tile) == 0) SetClearGroundDensity(tile, CLEAR_GRASS, 3);

   179

	} else {

   180

		if (!IsClearGround(tile, CLEAR_SNOW)) {

   181

			SetClearGroundDensity(tile, CLEAR_SNOW, 0);

   182

		} else {

   183

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

   184

   185

			if (GetClearDensity(tile) < density) {

   186

				AddClearDensity(tile, 1);

   187

			} else if (GetClearDensity(tile) > density) {

   188

				AddClearDensity(tile, -1);

   189

			} else {

   190

				return;

   191

			}

   192

		}

   193

	}

   194

   195

	MarkTileDirtyByTile(tile);

   196

}

   197

   198

static void TileLoopClearDesert(TileIndex tile)

   199

{

   200

	if (IsClearGround(tile, CLEAR_DESERT)) return;

   201

   202

	if (GetTropicZone(tile) == TROPICZONE_DESERT) {

   203

		SetClearGroundDensity(tile, CLEAR_DESERT, 3);

   204

	} else {

   205

		if (GetTropicZone(tile + TileDiffXY( 1,  0)) != TROPICZONE_DESERT &&

   206

				GetTropicZone(tile + TileDiffXY(-1,  0)) != TROPICZONE_DESERT &&

   207

				GetTropicZone(tile + TileDiffXY( 0,  1)) != TROPICZONE_DESERT &&

   208

				GetTropicZone(tile + TileDiffXY( 0, -1)) != TROPICZONE_DESERT)

   209

			return;

   210

		SetClearGroundDensity(tile, CLEAR_DESERT, 1);

   211

	}

   212

   213

	MarkTileDirtyByTile(tile);

   214

}

   215

   216

static void TileLoop_Clear(TileIndex tile)

   217

{

   218

	TileLoopClearHelper(tile);

   219

   220

	switch (_opt.landscape) {

   221

		case LT_TROPIC: TileLoopClearDesert(tile); break;

   222

		case LT_ARCTIC: TileLoopClearAlps(tile);   break;

   223

	}

   224

   225

	switch (GetClearGround(tile)) {

   226

		case CLEAR_GRASS:

   227

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

   228

   229

			if (_game_mode != GM_EDITOR) {

   230

				if (GetClearCounter(tile) < 7) {

   231

					AddClearCounter(tile, 1);

   232

					return;

   233

				} else {

   234

					SetClearCounter(tile, 0);

   235

					AddClearDensity(tile, 1);

   236

				}

   237

			} else {

   238

				SetClearGroundDensity(tile, GB(Random(), 0, 8) > 21 ? CLEAR_GRASS : CLEAR_ROUGH, 3);

   239

			}

   240

			break;

   241

   242

		case CLEAR_FIELDS: {

   243

			uint field_type;

   244

   245

			if (_game_mode == GM_EDITOR) return;

   246

   247

			if (GetClearCounter(tile) < 7) {

   248

				AddClearCounter(tile, 1);

   249

				return;

   250

			} else {

   251

				SetClearCounter(tile, 0);

   252

			}

   253

   254

			if (GetIndustryIndexOfField(tile) == INVALID_INDUSTRY && GetFieldType(tile) >= 7) {

   255

				/* This farmfield is no longer farmfield, so make it grass again */

   256

				MakeClear(tile, CLEAR_GRASS, 2);

   257

			} else {

   258

				field_type = GetFieldType(tile);

   259

				field_type = (field_type < 8) ? field_type + 1 : 0;

   260

				SetFieldType(tile, field_type);

   261

			}

   262

			break;

   263

		}

   264

   265

		default:

   266

			return;

   267

	}

   268

   269

	MarkTileDirtyByTile(tile);

   270

}

   271

   272

void GenerateClearTile()

   273

{

   274

	uint i, gi;

   275

	TileIndex tile;

   276

   277

	/* add rough tiles */

   278

	i = ScaleByMapSize(GB(Random(), 0, 10) + 0x400);

   279

	gi = ScaleByMapSize(GB(Random(), 0, 7) + 0x80);

   280

   281

	SetGeneratingWorldProgress(GWP_ROUGH_ROCKY, gi + i);

   282

	do {

   283

		IncreaseGeneratingWorldProgress(GWP_ROUGH_ROCKY);

   284

		tile = RandomTile();

   285

		if (IsTileType(tile, MP_CLEAR) && !IsClearGround(tile, CLEAR_DESERT)) SetClearGroundDensity(tile, CLEAR_ROUGH, 3);

   286

	} while (--i);

   287

   288

	/* add rocky tiles */

   289

	i = gi;

   290

	do {

   291

		uint32 r = Random();

   292

		tile = RandomTileSeed(r);

   293

   294

		IncreaseGeneratingWorldProgress(GWP_ROUGH_ROCKY);

   295

		if (IsTileType(tile, MP_CLEAR) && !IsClearGround(tile, CLEAR_DESERT)) {

   296

			uint j = GB(r, 16, 4) + 5;

   297

			for (;;) {

   298

				TileIndex tile_new;

   299

   300

				SetClearGroundDensity(tile, CLEAR_ROCKS, 3);

   301

				do {

   302

					if (--j == 0) goto get_out;

   303

					tile_new = tile + TileOffsByDiagDir((DiagDirection)GB(Random(), 0, 2));

   304

				} while (!IsTileType(tile_new, MP_CLEAR) || IsClearGround(tile_new, CLEAR_DESERT));

   305

				tile = tile_new;

   306

			}

   307

get_out:;

   308

		}

   309

	} while (--i);

   310

}

   311

   312

static void ClickTile_Clear(TileIndex tile)

   313

{

   314

	/* not used */

   315

}

   316

   317

static uint32 GetTileTrackStatus_Clear(TileIndex tile, TransportType mode, uint sub_mode)

   318

{

   319

	return 0;

   320

}

   321

   322

static const StringID _clear_land_str[] = {

   323

	STR_080D_GRASS,

   324

	STR_080B_ROUGH_LAND,

   325

	STR_080A_ROCKS,

   326

	STR_080E_FIELDS,

   327

	STR_080F_SNOW_COVERED_LAND,

   328

	STR_0810_DESERT

   329

};

   330

   331

static void GetTileDesc_Clear(TileIndex tile, TileDesc *td)

   332

{

   333

	if (IsClearGround(tile, CLEAR_GRASS) && GetClearDensity(tile) == 0) {

   334

		td->str = STR_080C_BARE_LAND;

   335

	} else {

   336

		td->str = _clear_land_str[GetClearGround(tile)];

   337

	}

   338

	td->owner = GetTileOwner(tile);

   339

}

   340

   341

static void ChangeTileOwner_Clear(TileIndex tile, PlayerID old_player, PlayerID new_player)

   342

{

   343

	return;

   344

}

   345

   346

void InitializeClearLand()

   347

{

   348

	_opt.snow_line = _patches.snow_line_height * TILE_HEIGHT;

   349

}

   350

   351

static CommandCost TerraformTile_Clear(TileIndex tile, uint32 flags, uint z_new, Slope tileh_new)

   352

{

   353

	return DoCommand(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);

   354

}

   355

   356

extern const TileTypeProcs _tile_type_clear_procs = {

   357

	DrawTile_Clear,           ///< draw_tile_proc

   358

	GetSlopeZ_Clear,          ///< get_slope_z_proc

   359

	ClearTile_Clear,          ///< clear_tile_proc

   360

	GetAcceptedCargo_Clear,   ///< get_accepted_cargo_proc

   361

	GetTileDesc_Clear,        ///< get_tile_desc_proc

   362

	GetTileTrackStatus_Clear, ///< get_tile_track_status_proc

   363

	ClickTile_Clear,          ///< click_tile_proc

   364

	AnimateTile_Clear,        ///< animate_tile_proc

   365

	TileLoop_Clear,           ///< tile_loop_clear

   366

	ChangeTileOwner_Clear,    ///< change_tile_owner_clear

   367

	NULL,                     ///< get_produced_cargo_proc

   368

	NULL,                     ///< vehicle_enter_tile_proc

   369

	GetFoundation_Clear,      ///< get_foundation_proc

   370

	TerraformTile_Clear,      ///< terraform_tile_proc

   371

};