openttd-ottdgrfs: tree_cmd.c@d1cef7047cd4 (annotated)

2186 461a2aff3486 (svn r2701) Insert Id tags into all source files tron parents: 2163 diff changeset	1	/* $Id$ */
461a2aff3486 (svn r2701) Insert Id tags into all source files tron parents: 2163 diff changeset	2
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	3	#include "stdafx.h"
1891 92a3b0aa0946 (svn r2397) - CodeChange: rename all "ttd" files to "openttd" files. Darkvater parents: 1784 diff changeset	4	#include "openttd.h"
3144 426b825578f9 (svn r3763) Adapt to the new 'map accessors go in foo_map.h'-scheme tron parents: 3079 diff changeset	5	#include "clear_map.h"
507 8aa8100b0b22 (svn r815) Include strings.h only in the files which need it. tron parents: 497 diff changeset	6	#include "table/strings.h"
2148 47ba4a1b1c3b (svn r2658) -Codechange: Use MAKE_TRANSPARENT to display a transparented sprite celestar parents: 2118 diff changeset	7	#include "table/sprites.h"
1784 6eb3ab1bc33c (svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115). Darkvater parents: 1370 diff changeset	8	#include "table/tree_land.h"
2163 637ec3c361f5 (svn r2673) Include functions.h directly, not globally via openttd.h tron parents: 2153 diff changeset	9	#include "functions.h"
679 e959706a3e4d (svn r1117) Move map arrays and some related macros into their own files map.c and map.h tron parents: 541 diff changeset	10	#include "map.h"
1209 a1ac96655b79 (svn r1713) Split off several functions which query/set information about a single tile from map.h and put them into a seperate file tile.h tron parents: 1202 diff changeset	11	#include "tile.h"
3144 426b825578f9 (svn r3763) Adapt to the new 'map accessors go in foo_map.h'-scheme tron parents: 3079 diff changeset	12	#include "tree_map.h"
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	13	#include "viewport.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	14	#include "command.h"
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	15	#include "town.h"
337 66647f97e7c0 (svn r513) Merge revisions 402, 416, 417, 478, 479, 511, 512 from map to trunk tron parents: 193 diff changeset	16	#include "sound.h"
2153 91e89aa8c299 (svn r2663) Include variables.h only in these files which need it, not globally via openttd.h tron parents: 2148 diff changeset	17	#include "variables.h"
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	18
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	19	static TreeType GetRandomTreeType(TileIndex tile, uint seed)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	20	{
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	21	switch (_opt.landscape) {
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	22	case LT_NORMAL:
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	23	return seed * TREE_COUNT_TEMPERATE / 256 + TREE_TEMPERATE;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	24
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	25	case LT_HILLY:
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	26	return seed * TREE_COUNT_SUB_ARCTIC / 256 + TREE_SUB_ARCTIC;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	27
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	28	case LT_DESERT:
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	29	switch (GetTropicZone(tile)) {
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	30	case TROPICZONE_INVALID: return seed * TREE_COUNT_SUB_TROPICAL / 256 + TREE_SUB_TROPICAL;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	31	case TROPICZONE_DESERT: return (seed > 12) ? TREE_INVALID : TREE_CACTUS;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	32	default: return seed * TREE_COUNT_RAINFOREST / 256 + TREE_RAINFOREST;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	33	}
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	34
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	35	default:
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	36	return seed * TREE_COUNT_TOYLAND / 256 + TREE_TOYLAND;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	37	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	38	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	39
2958 3f8946daf55f (svn r3520) Remove unused parameters from some functions tron parents: 2957 diff changeset	40	static void PlaceTree(TileIndex tile, uint32 r)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	41	{
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	42	TreeType tree = GetRandomTreeType(tile, GB(r, 24, 8));
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	43
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	44	if (tree != TREE_INVALID) {
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	45	MakeTree(tile, tree, GB(r, 22, 2), min(GB(r, 16, 3), 6), TREE_GROUND_GRASS, 0);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	46
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	47	// above snowline?
1370 5818d387fa69 (svn r1874) Fix bug introduced in r1839 which placed snow covered trees below the snow line ([1121680]) tron parents: 1286 diff changeset	48	if (_opt.landscape == LT_HILLY && GetTileZ(tile) > _opt.snow_line) {
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	49	SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, 3);
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	50	SetTreeCounter(tile, GB(r, 24, 3));
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	51	} else {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	52	SetTreeGroundDensity(tile, GB(r, 28, 1), 0);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	53	SetTreeCounter(tile, GB(r, 24, 4));
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	54	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	55	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	56	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	57
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	58	static void DoPlaceMoreTrees(TileIndex tile)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	59	{
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	60	uint i;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	61
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	62	for (i = 0; i < 1000; i++) {
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	63	uint32 r = Random();
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	64	int x = GB(r, 0, 5) - 16;
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	65	int y = GB(r, 8, 5) - 16;
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	66	uint dist = myabs(x) + myabs(y);
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	67	TileIndex cur_tile = TILE_MASK(tile + TileDiffXY(x, y));
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	68
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	69	if (dist <= 13 &&
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	70	IsTileType(cur_tile, MP_CLEAR) &&
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	71	!IsClearGround(cur_tile, CL_FIELDS) &&
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	72	!IsClearGround(cur_tile, CL_ROCKS)) {
2958 3f8946daf55f (svn r3520) Remove unused parameters from some functions tron parents: 2957 diff changeset	73	PlaceTree(cur_tile, r);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	74	}
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	75	}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	76	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	77
1093 e8d26c7dc42f (svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile tron parents: 1059 diff changeset	78	static void PlaceMoreTrees(void)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	79	{
2243 9a319ce6bd58 (svn r2763) Small cleanup and improve a few comments tron parents: 2238 diff changeset	80	uint i = ScaleByMapSize(GB(Random(), 0, 5) + 25);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	81	do {
2051 44b6b091beb3 (svn r2560) Fix: various minor code changes. ludde parents: 2049 diff changeset	82	DoPlaceMoreTrees(RandomTile());
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	83	} while (--i);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	84	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	85
1093 e8d26c7dc42f (svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile tron parents: 1059 diff changeset	86	void PlaceTreesRandomly(void)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	87	{
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	88	uint i;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	89
1202 7d8b86bd8ba2 (svn r1706) Implement ScaleByMapSize() and ScaleByMapSize1D() tron parents: 1093 diff changeset	90	i = ScaleByMapSize(1000);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	91	do {
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	92	uint32 r = Random();
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	93	TileIndex tile = RandomTileSeed(r);
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	94	if (IsTileType(tile, MP_CLEAR) &&
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	95	!IsClearGround(tile, CL_FIELDS) &&
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	96	!IsClearGround(tile, CL_ROCKS)) {
2958 3f8946daf55f (svn r3520) Remove unused parameters from some functions tron parents: 2957 diff changeset	97	PlaceTree(tile, r);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	98	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	99	} while (--i);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	100
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	101	/* place extra trees at rainforest area */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	102	if (_opt.landscape == LT_DESERT) {
1202 7d8b86bd8ba2 (svn r1706) Implement ScaleByMapSize() and ScaleByMapSize1D() tron parents: 1093 diff changeset	103	i = ScaleByMapSize(15000);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	104
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	105	do {
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	106	uint32 r = Random();
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	107	TileIndex tile = RandomTileSeed(r);
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	108	if (IsTileType(tile, MP_CLEAR) && GetTropicZone(tile) == TROPICZONE_RAINFOREST) {
2958 3f8946daf55f (svn r3520) Remove unused parameters from some functions tron parents: 2957 diff changeset	109	PlaceTree(tile, r);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	110	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	111	} while (--i);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	112	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	113	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	114
1093 e8d26c7dc42f (svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile tron parents: 1059 diff changeset	115	void GenerateTrees(void)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	116	{
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	117	uint i;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	118
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	119	if (_opt.landscape != LT_CANDY) PlaceMoreTrees();
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	120
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	121	for (i = _opt.landscape == LT_HILLY ? 15 : 6; i != 0; i--) {
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	122	PlaceTreesRandomly();
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	123	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	124	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	125
1784 6eb3ab1bc33c (svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115). Darkvater parents: 1370 diff changeset	126	/** Plant a tree.
6eb3ab1bc33c (svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115). Darkvater parents: 1370 diff changeset	127	* @param x,y start tile of area-drag of tree plantation
6eb3ab1bc33c (svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115). Darkvater parents: 1370 diff changeset	128	* @param p1 tree type, -1 means random.
6eb3ab1bc33c (svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115). Darkvater parents: 1370 diff changeset	129	* @param p2 end tile of area-drag
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	130	*/
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	131	int32 CmdPlantTree(int ex, int ey, uint32 flags, uint32 p1, uint32 p2)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	132	{
3183 cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	133	StringID msg = INVALID_STRING_ID;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	134	int32 cost;
2118 c73d32cc0b5e (svn r2628) - Fix: Planting trees does not result in a MapSize() assertion anymore; introduced in r2598 Darkvater parents: 2088 diff changeset	135	int sx, sy, x, y;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	136
2892 390125af7685 (svn r3446) - Fix: incorrect validating of tree-planting command which can allow a buffer-overflow (Tron) Darkvater parents: 2654 diff changeset	137	if (p2 >= MapSize()) return CMD_ERROR;
1784 6eb3ab1bc33c (svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115). Darkvater parents: 1370 diff changeset	138	/* Check the tree type. It can be random or some valid value within the current climate */
6eb3ab1bc33c (svn r2288) - CodeChange: protected the next batch of commands (41 so far, out of 115). Darkvater parents: 1370 diff changeset	139	if (p1 != (uint)-1 && p1 - _tree_base_by_landscape[_opt.landscape] >= _tree_count_by_landscape[_opt.landscape]) return CMD_ERROR;
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	140
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	141	SET_EXPENSES_TYPE(EXPENSES_OTHER);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	142
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	143	// make sure sx,sy are smaller than ex,ey
2118 c73d32cc0b5e (svn r2628) - Fix: Planting trees does not result in a MapSize() assertion anymore; introduced in r2598 Darkvater parents: 2088 diff changeset	144	sx = TileX(p2);
c73d32cc0b5e (svn r2628) - Fix: Planting trees does not result in a MapSize() assertion anymore; introduced in r2598 Darkvater parents: 2088 diff changeset	145	sy = TileY(p2);
3422 12cdb13ddb56 (svn r4249) -Codechange: Replace more occurences of 16 by TILE_SIZE and of 8 by TILE_HEIGHT. Reverted one change from the previous commit because it was faulty celestar parents: 3418 diff changeset	146	ex /= TILE_SIZE;
12cdb13ddb56 (svn r4249) -Codechange: Replace more occurences of 16 by TILE_SIZE and of 8 by TILE_HEIGHT. Reverted one change from the previous commit because it was faulty celestar parents: 3418 diff changeset	147	ey /= TILE_SIZE;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	148	if (ex < sx) intswap(ex, sx);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	149	if (ey < sy) intswap(ey, sy);
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	150
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	151	cost = 0; // total cost
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	152
2118 c73d32cc0b5e (svn r2628) - Fix: Planting trees does not result in a MapSize() assertion anymore; introduced in r2598 Darkvater parents: 2088 diff changeset	153	for (x = sx; x <= ex; x++) {
c73d32cc0b5e (svn r2628) - Fix: Planting trees does not result in a MapSize() assertion anymore; introduced in r2598 Darkvater parents: 2088 diff changeset	154	for (y = sy; y <= ey; y++) {
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	155	TileIndex tile = TileXY(x, y);
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	156
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	157	if (!EnsureNoVehicle(tile)) continue;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	158
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	159	switch (GetTileType(tile)) {
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	160	case MP_TREES:
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	161	// no more space for trees?
3003 15a000f2b81d (svn r3583) Fix 2 glitches in r3556 tron parents: 2981 diff changeset	162	if (_game_mode != GM_EDITOR && GetTreeCount(tile) == 3) {
3183 cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	163	msg = STR_2803_TREE_ALREADY_HERE;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	164	continue;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	165	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	166
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	167	if (flags & DC_EXEC) {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	168	AddTreeCount(tile, 1);
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	169	MarkTileDirtyByTile(tile);
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	170	}
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	171	// 2x as expensive to add more trees to an existing tile
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	172	cost += _price.build_trees * 2;
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	173	break;
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	174
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	175	case MP_CLEAR:
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	176	if (!IsTileOwner(tile, OWNER_NONE)) {
3183 cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	177	msg = STR_2804_SITE_UNSUITABLE;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	178	continue;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	179	}
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	180
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	181	switch (GetClearGround(tile)) {
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	182	case CL_FIELDS: cost += _price.clear_3; break;
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	183	case CL_ROCKS: cost += _price.clear_2; break;
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	184	default: break;
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	185	}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	186
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	187	if (flags & DC_EXEC) {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	188	TreeType treetype;
3079 d6541c027250 (svn r3668) Add a function to turn a tile into a tree tile tron parents: 3076 diff changeset	189	uint growth;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	190
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	191	if (_game_mode != GM_EDITOR && _current_player < MAX_PLAYERS) {
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	192	Town *t = ClosestTownFromTile(tile, _patches.dist_local_authority);
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	193	if (t != NULL)
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	194	ChangeTownRating(t, RATING_TREE_UP_STEP, RATING_TREE_MAXIMUM);
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	195	}
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	196
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	197	treetype = p1;
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	198	if (treetype == TREE_INVALID) {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	199	treetype = GetRandomTreeType(tile, GB(Random(), 24, 8));
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	200	if (treetype == TREE_INVALID) treetype = TREE_CACTUS;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	201	}
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	202
3079 d6541c027250 (svn r3668) Add a function to turn a tile into a tree tile tron parents: 3076 diff changeset	203	growth = _game_mode == GM_EDITOR ? 3 : 0;
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	204	switch (GetClearGround(tile)) {
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	205	case CL_ROUGH: MakeTree(tile, treetype, 0, growth, TREE_GROUND_ROUGH, 0); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	206	case CL_SNOW: MakeTree(tile, treetype, 0, growth, TREE_GROUND_SNOW_DESERT, GetClearDensity(tile)); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	207	default: MakeTree(tile, treetype, 0, growth, TREE_GROUND_GRASS, 0); break;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	208	}
3003 15a000f2b81d (svn r3583) Fix 2 glitches in r3556 tron parents: 2981 diff changeset	209	MarkTileDirtyByTile(tile);
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	210
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	211	if (_game_mode == GM_EDITOR && IS_INT_INSIDE(treetype, TREE_RAINFOREST, TREE_CACTUS))
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	212	SetTropicZone(tile, TROPICZONE_RAINFOREST);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	213	}
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	214	cost += _price.build_trees;
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	215	break;
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	216
da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	217	default:
3183 cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	218	msg = STR_2804_SITE_UNSUITABLE;
1286 da05e4dc75b5 (svn r1790) Make CmdPlantTree() and related functions more safe and (hopefully) more readable: tron parents: 1209 diff changeset	219	break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	220	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	221	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	222	}
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	223
3183 cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	224	if (cost == 0) {
cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	225	return_cmd_error(msg);
cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	226	} else {
cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	227	return cost;
cf71bd234ebd (svn r3829) Reduce the use of _error_message by directly returning error codes instead of using this global variable tron parents: 3144 diff changeset	228	}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	229	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	230
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	231	typedef struct TreeListEnt {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	232	uint32 image;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	233	byte x,y;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	234	} TreeListEnt;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	235
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	236	static void DrawTile_Trees(TileInfo *ti)
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	237	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	238	const uint32 *s;
2654 df351c3ddd59 (svn r3196) Use structs instead of magic offsets into arrays tron parents: 2644 diff changeset	239	const TreePos* d;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	240	byte z;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	241
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	242	switch (GetTreeGround(ti->tile)) {
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	243	case TREE_GROUND_GRASS: DrawClearLandTile(ti, 3); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	244	case TREE_GROUND_ROUGH: DrawHillyLandTile(ti); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	245	default: DrawGroundSprite(_tree_sprites_1[GetTreeDensity(ti->tile)] + _tileh_to_sprite[ti->tileh]); break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	246	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	247
2220 6c186dad8188 (svn r2738) Small bit fiddling cleanup tron parents: 2186 diff changeset	248	DrawClearLandFence(ti);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	249
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	250	z = ti->z;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	251	if (ti->tileh != 0) {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	252	z += 4;
2085 ae9e92ffe168 (svn r2595) -Codechange: Introduced "IsSteepTileh" to find whether a tile is steep celestar parents: 2051 diff changeset	253	if (IsSteepTileh(ti->tileh))
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	254	z += 4;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	255	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	256
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	257	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	258	uint16 tmp = ti->x;
959 b031d88c76f3 (svn r1451) Fix some of the signed/unsigned comparison warnings tron parents: 926 diff changeset	259	uint index;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	260
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	261	tmp = ROR(tmp, 2);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	262	tmp -= ti->y;
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	263	tmp = ROR(tmp, 3);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	264	tmp -= ti->x;
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	265	tmp = ROR(tmp, 1);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	266	tmp += ti->y;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	267
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	268	d = _tree_layout_xy[GB(tmp, 4, 2)];
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	269
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	270	index = GB(tmp, 6, 2) + (GetTreeType(ti->tile) << 2);
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	271
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	272	/* different tree styles above one of the grounds */
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	273	if (GetTreeGround(ti->tile) == TREE_GROUND_SNOW_DESERT &&
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	274	GetTreeDensity(ti->tile) >= 2 &&
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	275	IS_INT_INSIDE(index, TREE_SUB_ARCTIC << 2, TREE_RAINFOREST << 2)) {
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	276	index += 164 - (TREE_SUB_ARCTIC << 2);
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	277	}
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	278
0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	279	assert(index < lengthof(_tree_layout_sprite));
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	280	s = _tree_layout_sprite[index];
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	281	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	282
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	283	StartSpriteCombine();
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	284
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	285	if (!(_display_opt & DO_TRANS_BUILDINGS) \|\| !_patches.invisible_trees) {
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	286	TreeListEnt te[4];
f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	287	uint i;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	288
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	289	/* put the trees to draw in a list */
3271 0e796a2b7c9e (svn r3983) Use existing functions to access tree and road info tron parents: 3183 diff changeset	290	i = GetTreeCount(ti->tile) + 1;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	291	do {
3271 0e796a2b7c9e (svn r3983) Use existing functions to access tree and road info tron parents: 3183 diff changeset	292	uint32 image = s[0] + (--i == 0 ? GetTreeGrowth(ti->tile) : 3);
2639 8a7342eb3a78 (svn r3181) -Bracing tron parents: 2635 diff changeset	293	if (_display_opt & DO_TRANS_BUILDINGS) MAKE_TRANSPARENT(image);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	294	te[i].image = image;
2654 df351c3ddd59 (svn r3196) Use structs instead of magic offsets into arrays tron parents: 2644 diff changeset	295	te[i].x = d->x;
df351c3ddd59 (svn r3196) Use structs instead of magic offsets into arrays tron parents: 2644 diff changeset	296	te[i].y = d->y;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	297	s++;
2654 df351c3ddd59 (svn r3196) Use structs instead of magic offsets into arrays tron parents: 2644 diff changeset	298	d++;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	299	} while (i);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	300
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	301	/* draw them in a sorted way */
2952 6a26eeda9679 (svn r3511) More whitespace ([FS#46] by Rubidium) tron parents: 2912 diff changeset	302	for (;;) {
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	303	byte min = 0xFF;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	304	TreeListEnt *tep = NULL;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	305
3271 0e796a2b7c9e (svn r3983) Use existing functions to access tree and road info tron parents: 3183 diff changeset	306	i = GetTreeCount(ti->tile) + 1;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	307	do {
2644 6f699b15c531 (svn r3186) Unnecessary casts and truncation tron parents: 2639 diff changeset	308	if (te[--i].image != 0 && te[i].x + te[i].y < min) {
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	309	min = te[i].x + te[i].y;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	310	tep = &te[i];
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	311	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	312	} while (i);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	313
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	314	if (tep == NULL) break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	315
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	316	AddSortableSpriteToDraw(tep->image, ti->x + tep->x, ti->y + tep->y, 5, 5, 0x10, z);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	317	tep->image = 0;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	318	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	319	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	320
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	321	EndSpriteCombine();
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	322	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	323
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	324
2537 d9c0df52a466 (svn r3066) Constify the parameter of GetSlopeZ_() tron* parents: 2436 diff changeset	325	static uint GetSlopeZ_Trees(const TileInfo* ti)
d9c0df52a466 (svn r3066) Constify the parameter of GetSlopeZ_() tron* parents: 2436 diff changeset	326	{
2243 9a319ce6bd58 (svn r2763) Small cleanup and improve a few comments tron parents: 2238 diff changeset	327	return GetPartialZ(ti->x & 0xF, ti->y & 0xF, ti->tileh) + ti->z;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	328	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	329
3418 a592d40a4d04 (svn r4242) Pass TileIndex and slope to GetSlopeTileh_() instead of TileInfo tron* parents: 3379 diff changeset	330	static uint GetSlopeTileh_Trees(TileIndex tile, uint tileh)
2548 97ada3bd2702 (svn r3077) static, const, bracing, indentation, 0 -> '\0'/NULL, typos in comments, excess empty lines, minor other changes tron parents: 2537 diff changeset	331	{
3418 a592d40a4d04 (svn r4242) Pass TileIndex and slope to GetSlopeTileh_() instead of TileInfo tron* parents: 3379 diff changeset	332	return tileh;
39 d177340ed556 (svn r40) Final slope graphics fix dominik parents: 0 diff changeset	333	}
d177340ed556 (svn r40) Final slope graphics fix dominik parents: 0 diff changeset	334
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	335	static int32 ClearTile_Trees(TileIndex tile, byte flags)
4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	336	{
2243 9a319ce6bd58 (svn r2763) Small cleanup and improve a few comments tron parents: 2238 diff changeset	337	uint num;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	338
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	339	if (flags & DC_EXEC && _current_player < MAX_PLAYERS) {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	340	Town *t = ClosestTownFromTile(tile, _patches.dist_local_authority);
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	341	if (t != NULL)
1005 8c6a9bf44bf1 (svn r1504) enummed town ratings (Jango) celestar parents: 988 diff changeset	342	ChangeTownRating(t, RATING_TREE_DOWN_STEP, RATING_TREE_MINIMUM);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	343	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	344
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	345	num = GetTreeCount(tile) + 1;
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	346	if (IS_INT_INSIDE(GetTreeType(tile), TREE_RAINFOREST, TREE_CACTUS)) num *= 4;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	347
2243 9a319ce6bd58 (svn r2763) Small cleanup and improve a few comments tron parents: 2238 diff changeset	348	if (flags & DC_EXEC) DoClearSquare(tile);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	349
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	350	return num * _price.remove_trees;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	351	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	352
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	353	static void GetAcceptedCargo_Trees(TileIndex tile, AcceptedCargo ac)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	354	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	355	/* not used */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	356	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	357
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	358	static void GetTileDesc_Trees(TileIndex tile, TileDesc *td)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	359	{
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	360	TreeType tt = GetTreeType(tile);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	361
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	362	if (IS_INT_INSIDE(tt, TREE_RAINFOREST, TREE_CACTUS)) {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	363	td->str = STR_280F_RAINFOREST;
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	364	} else if (tt == TREE_CACTUS) {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	365	td->str = STR_2810_CACTUS_PLANTS;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	366	} else {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	367	td->str = STR_280E_TREES;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	368	}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	369
1901 fb05044cf5c3 (svn r2407) Use {Get,Is}TileOwner to get/check the owner of a tile and fix some bogus reads of _map_owner tron parents: 1891 diff changeset	370	td->owner = GetTileOwner(tile);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	371	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	372
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	373	static void AnimateTile_Trees(TileIndex tile)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	374	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	375	/* not used */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	376	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	377
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	378	static void TileLoopTreesDesert(TileIndex tile)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	379	{
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	380	switch (GetTropicZone(tile)) {
ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	381	case TROPICZONE_DESERT:
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	382	if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT) {
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	383	SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, 3);
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	384	MarkTileDirtyByTile(tile);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	385	}
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	386	break;
2243 9a319ce6bd58 (svn r2763) Small cleanup and improve a few comments tron parents: 2238 diff changeset	387
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	388	case TROPICZONE_RAINFOREST: {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	389	static const SoundFx forest_sounds[] = {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	390	SND_42_LOON_BIRD,
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	391	SND_43_LION,
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	392	SND_44_MONKEYS,
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	393	SND_48_DISTANT_BIRD
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	394	};
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	395	uint32 r = Random();
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	396
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	397	if (CHANCE16I(1, 200, r)) SndPlayTileFx(forest_sounds[GB(r, 16, 2)], tile);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	398	break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	399	}
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	400
ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	401	default: break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	402	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	403	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	404
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	405	static void TileLoopTreesAlps(TileIndex tile)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	406	{
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	407	int k = GetTileZ(tile) - _opt.snow_line;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	408
3422 12cdb13ddb56 (svn r4249) -Codechange: Replace more occurences of 16 by TILE_SIZE and of 8 by TILE_HEIGHT. Reverted one change from the previous commit because it was faulty celestar parents: 3418 diff changeset	409	if (k < -TILE_HEIGHT) {
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	410	if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT) return;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	411	SetTreeGroundDensity(tile, TREE_GROUND_GRASS, 0);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	412	} else {
3422 12cdb13ddb56 (svn r4249) -Codechange: Replace more occurences of 16 by TILE_SIZE and of 8 by TILE_HEIGHT. Reverted one change from the previous commit because it was faulty celestar parents: 3418 diff changeset	413	uint density = min((uint)(k + TILE_HEIGHT) / TILE_HEIGHT, 3);
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	414
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	415	if (GetTreeGround(tile) != TREE_GROUND_SNOW_DESERT \|\|
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	416	GetTreeDensity(tile) != density) {
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	417	SetTreeGroundDensity(tile, TREE_GROUND_SNOW_DESERT, density);
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	418	} else {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	419	if (GetTreeDensity(tile) == 3) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	420	uint32 r = Random();
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	421	if (CHANCE16I(1, 200, r)) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	422	SndPlayTileFx((r & 0x80000000) ? SND_39_HEAVY_WIND : SND_34_WIND, tile);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	423	}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	424	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	425	return;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	426	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	427	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	428	MarkTileDirtyByTile(tile);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	429	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	430
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	431	static void TileLoop_Trees(TileIndex tile)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	432	{
909 81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	433	static const TileIndexDiffC _tileloop_trees_dir[] = {
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	434	{-1, -1},
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	435	{ 0, -1},
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	436	{ 1, -1},
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	437	{-1, 0},
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	438	{ 1, 0},
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	439	{-1, 1},
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	440	{ 0, 1},
81bc9ef93f50 (svn r1396) Introduce TileIndexDiffC - the compile time version of TileIndexDiff tron parents: 881 diff changeset	441	{ 1, 1}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	442	};
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	443
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	444	switch (_opt.landscape) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	445	case LT_DESERT: TileLoopTreesDesert(tile); break;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	446	case LT_HILLY: TileLoopTreesAlps(tile); break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	447	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	448
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	449	TileLoopClearHelper(tile);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	450
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	451	if (GetTreeCounter(tile) < 15) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	452	AddTreeCounter(tile, 1);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	453	return;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	454	}
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	455	SetTreeCounter(tile, 0);
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	456
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	457	switch (GetTreeGrowth(tile)) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	458	case 3: /* regular sized tree */
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	459	if (_opt.landscape == LT_DESERT &&
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	460	GetTreeType(tile) != TREE_CACTUS &&
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	461	GetTropicZone(tile) == TROPICZONE_DESERT) {
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	462	AddTreeGrowth(tile, 1);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	463	} else {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	464	switch (GB(Random(), 0, 3)) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	465	case 0: /* start destructing */
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	466	AddTreeGrowth(tile, 1);
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	467	break;
27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	468
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	469	case 1: /* add a tree */
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	470	if (GetTreeCount(tile) < 3) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	471	AddTreeCount(tile, 1);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	472	SetTreeGrowth(tile, 0);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	473	break;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	474	}
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	475	/* FALL THROUGH */
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	476
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	477	case 2: { /* add a neighbouring tree */
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	478	TreeType treetype = GetTreeType(tile);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	479
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	480	tile += ToTileIndexDiff(_tileloop_trees_dir[Random() & 7]);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	481
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	482	if (!IsTileType(tile, MP_CLEAR)) return;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	483
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	484	switch (GetClearGround(tile)) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	485	case CL_GRASS:
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	486	if (GetClearDensity(tile) != 3) return;
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	487	MakeTree(tile, treetype, 0, 0, TREE_GROUND_GRASS, 0);
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	488	break;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	489
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	490	case CL_ROUGH: MakeTree(tile, treetype, 0, 0, TREE_GROUND_ROUGH, 0); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	491	case CL_SNOW: MakeTree(tile, treetype, 0, 0, TREE_GROUND_SNOW_DESERT, GetClearDensity(tile)); break;
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	492	default: return;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	493	}
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	494	break;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	495	}
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	496
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	497	default:
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	498	return;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	499	}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	500	}
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	501	break;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	502
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	503	case 6: /* final stage of tree destruction */
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	504	if (GetTreeCount(tile) > 0) {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	505	/* more than one tree, delete it */
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	506	AddTreeCount(tile, -1);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	507	SetTreeGrowth(tile, 3);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	508	} else {
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	509	/* just one tree, change type into MP_CLEAR */
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	510	switch (GetTreeGround(tile)) {
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	511	case TREE_GROUND_GRASS: MakeClear(tile, CL_GRASS, 3); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	512	case TREE_GROUND_ROUGH: MakeClear(tile, CL_ROUGH, 3); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	513	default: MakeClear(tile, CL_SNOW, GetTreeDensity(tile)); break;
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	514	}
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	515	}
2981 31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	516	break;
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	517
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	518	default:
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	519	AddTreeGrowth(tile, 1);
31760b6a88aa (svn r3556) Add accessors for handling tree tiles tron parents: 2968 diff changeset	520	break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	521	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	522
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	523	MarkTileDirtyByTile(tile);
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	524	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	525
1093 e8d26c7dc42f (svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile tron parents: 1059 diff changeset	526	void OnTick_Trees(void)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	527	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	528	uint32 r;
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	529	TileIndex tile;
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	530	ClearGround ct;
3017 915fae59d5e0 (svn r3597) Miscellaneous (I like that word) changes: Fix some indentation, add consts, reduce indentation level by short-circuit logic, convert if cascades to switch, whitespace, bracing, plus some minor stuff tron parents: 3003 diff changeset	531	TreeType tree;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	532
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	533	/* place a tree at a random rainforest spot */
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	534	if (_opt.landscape == LT_DESERT &&
3379 ea8aa9e71328 (svn r4181) CodeChange : Replaced [G/S]etMapExtraBits by [G/S]etTropicZone. Although it was an accessor, nor his usage nor the values were clear. belugas parents: 3271 diff changeset	535	(r = Random(), tile = RandomTileSeed(r), GetTropicZone(tile) == TROPICZONE_RAINFOREST) &&
1035 0a170deb6e33 (svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts tron parents: 1005 diff changeset	536	IsTileType(tile, MP_CLEAR) &&
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	537	(ct = GetClearGround(tile), ct == CL_GRASS \|\| ct == CL_ROUGH) &&
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	538	(tree = GetRandomTreeType(tile, GB(r, 24, 8))) != TREE_INVALID) {
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	539	MakeTree(tile, tree, 0, 0, ct == CL_ROUGH ? TREE_GROUND_ROUGH : TREE_GROUND_GRASS, 0);
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	540	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	541
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	542	// byte underflow
2088 f290b54c97cb (svn r2598) Small cleanup, especially get rid of a FindLandscapeHeight(), because it was overkill tron parents: 2085 diff changeset	543	if (--_trees_tick_ctr != 0) return;
193 0a7025304867 (svn r194) -Codechange: stripping trailing-spaces. Please keep this that way! truelight parents: 160 diff changeset	544
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	545	/* place a tree at a random spot */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	546	r = Random();
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	547	tile = TILE_MASK(r);
1035 0a170deb6e33 (svn r1536) Move GET_TILEHEIGHT, GET_TILETYPE and IS_TILETYPE to map.h, turn them into inline functions and add some asserts tron parents: 1005 diff changeset	548	if (IsTileType(tile, MP_CLEAR) &&
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	549	(ct = GetClearGround(tile), ct == CL_GRASS \|\| ct == CL_ROUGH \|\| ct == CL_SNOW) &&
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	550	(tree = GetRandomTreeType(tile, GB(r, 24, 8))) != TREE_INVALID) {
2955 27221592ebbc (svn r3514) -Codechange: Replace direct fiddling of bits for the ground type and density of clear tiles with symbolic names and accessors. tron parents: 2952 diff changeset	551	switch (ct) {
3441 d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	552	case CL_GRASS: MakeTree(tile, tree, 0, 0, TREE_GROUND_GRASS, 0); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	553	case CL_ROUGH: MakeTree(tile, tree, 0, 0, TREE_GROUND_ROUGH, 0); break;
d1cef7047cd4 (svn r4271) s/\<TR_/TREE_/ resp. s/\<TR_/TREE_GROUND/ tron parents: 3422 diff changeset	554	default: MakeTree(tile, tree, 0, 0, TREE_GROUND_SNOW_DESERT, GetClearDensity(tile)); break;
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	555	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	556	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	557	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	558
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	559	static void ClickTile_Trees(TileIndex tile)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	560	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	561	/* not used */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	562	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	563
1977 4392ae3d8e31 (svn r2483) Replace almost 500 "uint tile" (and variants) with "TileIndex tile" tron parents: 1902 diff changeset	564	static uint32 GetTileTrackStatus_Trees(TileIndex tile, TransportType mode)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	565	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	566	return 0;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	567	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	568
2436 177cb6a8339f (svn r2962) - const correctness for all Get* functions and most Draw* functions that don't change their pointer parameters Darkvater parents: 2243 diff changeset	569	static void ChangeTileOwner_Trees(TileIndex tile, PlayerID old_player, PlayerID new_player)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	570	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	571	/* not used */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	572	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	573
1093 e8d26c7dc42f (svn r1594) Convert all undefined parameter lists to (void) and add the appropriate warning flags in the Makefile tron parents: 1059 diff changeset	574	void InitializeTrees(void)
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	575	{
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	576	_trees_tick_ctr = 0;
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	577	}
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	578
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	579
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	580	const TileTypeProcs _tile_type_trees_procs = {
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	581	DrawTile_Trees, /* draw_tile_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	582	GetSlopeZ_Trees, /* get_slope_z_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	583	ClearTile_Trees, /* clear_tile_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	584	GetAcceptedCargo_Trees, /* get_accepted_cargo_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	585	GetTileDesc_Trees, /* get_tile_desc_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	586	GetTileTrackStatus_Trees, /* get_tile_track_status_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	587	ClickTile_Trees, /* click_tile_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	588	AnimateTile_Trees, /* animate_tile_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	589	TileLoop_Trees, /* tile_loop_clear */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	590	ChangeTileOwner_Trees, /* change_tile_owner_clear */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	591	NULL, /* get_produced_cargo_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	592	NULL, /* vehicle_enter_tile_proc */
29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	593	NULL, /* vehicle_leave_tile_proc */
39 d177340ed556 (svn r40) Final slope graphics fix dominik parents: 0 diff changeset	594	GetSlopeTileh_Trees, /* get_slope_tileh_proc */
0 29654efe3188 (svn r1) Import of revision 975 of old (crashed) SVN truelight parents: diff changeset	595	};

author	tron
	Tue, 04 Apr 2006 06:25:05 +0000
changeset 3441	d1cef7047cd4
parent 3422	12cdb13ddb56
child 3447	d136931464f7
permissions	-rw-r--r--