digiturf_lua/tile_functions.lua at master · dylanrees/digiturf_lua · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

function IsSolid (xpos, ypos) --looks at the Hazard Grid to tell you whether a given space is a solid, i.e. impassalbe
	local answer = false
	SolidTable = {"water", "chaos", "lava", "light","cave", "dark", "stonehead",
	"tallmountain"} -- this table contains the names of all the solid hazards
	for i = 1, table.getn(SolidTable) do
		if (HazardGrid[xpos][ypos] == SolidTable[i]) then answer = true end
	end
	return answer
end

function GetDepop (xpos, ypos) --looks at the Hazard Grid to tell you whether a given space has the depop property
	local answer = 0
	DepopTable = {{"lava",15},{"radioactive",30},{"desert",3},{"tundra",2},{"stonehead",20000}} -- this table contains the names of all the depop hazards and their depop levels
	for i = 1, table.getn(DepopTable) do
		if (HazardGrid[xpos][ypos] == DepopTable[i][1]) then answer = DepopTable[i][2] end
	end
	return answer
end

tilenames = {
"nothing",
"water",
"chaos",
"lava",
"radioactive",
"forest",
"mountain",
"grassland",
"desert",
"light",
"cave",
"tundra",
"metal",
"dark",
"stonehead",
"tallmountain",
"stronghold"}

--total of 17

function depop(xpos,ypos) -- depopulates a game square, returning it to non-ownership
	OwnerGrid[xpos][ypos]="nobody"
	ColorGrid[xpos][ypos][0] = 50
	ColorGrid[xpos][ypos][1] = 50
	ColorGrid[xpos][ypos][2] = 50
end

function GetStability (xpos, ypos) --looks at the Hazard Grid to tell you how much random color-changing will happen on a spot
	local answer = 1 --by default, the coefficient is unity. higher value = more unstable
	StabileTable = {{"forest",0.5},{"grassland",0.5},{"desert",1},{"tundra",2},{"stronghold", 0.2}} --all hazards with non-unity stability
	for i = 1, table.getn(StabileTable) do
		if (HazardGrid[xpos][ypos] == StabileTable[i][1]) then answer = StabileTable[i][2] end
	end
	return answer
end

function GetGrabCost (xpos, ypos) --looks at the Hazard Grid to tell you how hard it is to grab unowned land
	local answer = 15 --default value.  this is the number of "action points" you need to claim it
	local CostTable = {{"forest",30},{"mountain",40},{"grassland",10},{"desert",25},{"tundra",30},{"metal",5}} --all hazards with non-default grab cost
	for i = 1, table.getn(CostTable) do
		if (HazardGrid[xpos][ypos] == CostTable[i][1]) then answer = CostTable[i][2] end
	end
	return answer
end

function GetStealCost (xpos, ypos) --looks at the Hazard Grid to tell you how hard it is to steal owned land
	local answer = 60 --default value.  this is the number of "action points" you need to claim it
	local CostTable = {{"forest",75},{"mountain",95},{"grassland",40},{"desert",75},{"tundra",80},{"stronghold",100}} --all hazards with non-default steal cost
		for i = 1, table.getn(CostTable) do
		if (HazardGrid[xpos][ypos] == CostTable[i][1]) then answer = CostTable[i][2] end
	end
	return answer
end