PerfectWorld3

function PlacePossibleOasis(x,y)		
	local terrainDesert	= GameInfoTypes["TERRAIN_DESERT"];
	local featureOasis = FeatureTypes.FEATURE_OASIS
	local tiles = elevationMap:GetRadiusAroundHex(x,y,1)
	local plot = Map.GetPlot(x,y)
	if not plot:IsHills() and not plot:IsMountain() and plot:GetTerrainType() == terrainDesert then
		local canPlace = true
		for n=1,#tiles do
			local xx = tiles[n][1]
			local yy = tiles[n][2]
			local nPlot = Map.GetPlot(xx,yy)
			if nPlot:GetTerrainType() ~= terrainDesert then
				canPlace = false
				break
			elseif nPlot:GetFeatureType() ~= FeatureTypes.NO_FEATURE then
				canPlace = false
				break
				
			elseif                                    -- Lamb 15022013 - start
				local roll1 = Map.Rand(2, "Placing - PW3");
				if roll1 == 1 then           -- (if roll ==0 canPlace)
					canPlace = false
					break
				end                                -- Lamb 15022013 - fin
				
			end
		end
		if canPlace then		
			plot:SetFeatureType(featureOasis,-1)
		end
	end
end

if allow_mountains_on_coast == false then -- remove any mountains from coastal plots
		for x = 0, self.iGridW - 1 do
			for y = 0, self.iGridH - 1 do
				local plot = Map.GetPlot(x, y)
				if plot:GetPlotType() == PlotTypes.PLOT_MOUNTAIN then
					if plot:IsCoastalLand() then
						plot:SetPlotType(PlotTypes.PLOT_HILLS, false, true); -- These flags are for recalc of areas and rebuild of graphics. Instead of recalc over and over, do recalc at end of loop.
					end
				end
			end
		end
		-- This function needs to recalculate areas after operating. However, so does 
		-- adding feature ice, so the recalc was removed from here and put in MapGenerator()
	end

lot:SetPlotType(PlotTypes.PLOT_HILLS, false, true); -- These flags are for recalc of areas and rebuild of graphics. Instead of recalc over and over, do recalc at end of loop.

--range is inclusive, low and high are possible results
function PWRandint(low, high)
	return math.random(low, high)
end

			elseif                                    -- Lamb 15022013 - start
				local roll1 = PWRandint(1,2);             -- Bobert13
				if roll1 == 1 then           -- (if roll == 2 canPlace)
					canPlace = false
					break
				end                                -- Lamb 15022013 - fin

function AddRivers()
	local gridWidth, gridHeight = Map.GetGridSize();
	for y = 0, gridHeight - 1,1 do
		for x = 0,gridWidth - 1,1 do
			local plot = Map.GetPlot(x, y)

			local WOfRiver, NWOfRiver, NEOfRiver = riverMap:GetFlowDirections(x,y)

			if WOfRiver == FlowDirectionTypes.NO_FLOWDIRECTION then
				plot:SetWOfRiver(false,WOfRiver)
			else
				local xx,yy = elevationMap:GetNeighbor(x,y,mc.E)
				local nPlot = Map.GetPlot(xx,yy)
				if plot:IsMountain() and nPlot:IsMountain() then
					plot:SetPlotType(PlotTypes.PLOT_LAND,false,true) [COLOR="SeaGreen"]-- Changed second flag to "true"[/COLOR]
				end
				plot:SetWOfRiver(true,WOfRiver)
				--print(string.format("(%d,%d)WOfRiver = true dir=%d",x,y,WOfRiver))
			end

			if NWOfRiver == FlowDirectionTypes.NO_FLOWDIRECTION then
				plot:SetNWOfRiver(false,NWOfRiver)
			else
				local xx,yy = elevationMap:GetNeighbor(x,y,mc.SE)
				local nPlot = Map.GetPlot(xx,yy)
				if plot:IsMountain() and nPlot:IsMountain() then
					plot:SetPlotType(PlotTypes.PLOT_LAND,false,true) [COLOR="SeaGreen"]-- Changed second flag to "true"[/COLOR]
				end
				plot:SetNWOfRiver(true,NWOfRiver)
				--print(string.format("(%d,%d)NWOfRiver = true dir=%d",x,y,NWOfRiver))
			end

			if NEOfRiver == FlowDirectionTypes.NO_FLOWDIRECTION then
				plot:SetNEOfRiver(false,NEOfRiver)
			else
				local xx,yy = elevationMap:GetNeighbor(x,y,mc.SW)
				local nPlot = Map.GetPlot(xx,yy)
				if plot:IsMountain() and nPlot:IsMountain() then
					plot:SetPlotType(PlotTypes.PLOT_LAND,false,true) [COLOR="SeaGreen"]-- Changed second flag to "true"[/COLOR]
				end
				plot:SetNEOfRiver(true,NEOfRiver)
				--print(string.format("(%d,%d)NEOfRiver = true dir=%d",x,y,NEOfRiver))
			end
		end
	end
	Map.RecalculateAreas(); [COLOR="SeaGreen"]-- This line is just for good measure.[/COLOR]
end

	for y = 0, gridHeight - 1,1 do
		for x = 0,gridWidth - 1,1 do
			local i = elevationMap:GetIndex(x,y)
			local plot = Map.GetPlot(x, y)
			if not elevationMap:IsBelowSeaLevel(x,y) then
				if plot:GetPlotType() == PlotTypes.PLOT_LAND then
					local tiles = elevationMap:GetRadiusAroundHex(x,y,1)
					local mountainFound = false
					for n=1,#tiles do
						local xx = tiles[n][1]
						local yy = tiles[n][2]
						local nPlot = Map.GetPlot(xx,yy)
						if nPlot:GetPlotType() == PlotTypes.PLOT_MOUNTAIN then
							mountainFound = true
						end
					end
					if mountainFound then
						plot:SetPlotType(PlotTypes.PLOT_HILLS,false,true)
					end
				end
			end
		end
	end

for y = 0, gridHeight - 1,1 do
		for x = 0,gridWidth - 1,1 do
			local i = diffMap:GetIndex(x,y)
			local plot = Map.GetPlot(x, y);
			if elevationMap:IsBelowSeaLevel(x,y) then
				plot:SetPlotType(PlotTypes.PLOT_OCEAN, false, false)
			elseif diffMap.data[i] < hillsThreshold then
				plot:SetPlotType(PlotTypes.PLOT_LAND,false,false)
			[COLOR="SeaGreen"]--This code makes the game only ever plot flat land if it's within two tiles of 
			--the seam. This prevents issues with tiles that don't look like what they are.[/COLOR]
			elseif x == 0 or x == 1 or x == gridWidth - 1 or x == gridWidth -2 then
				plot:SetPlotType(PlotTypes.PLOT_LAND,false,false)
			[COLOR="SeaGreen"]-- Bobert13[/COLOR]
			elseif diffMap.data[i] < mountainsThreshold then
				plot:SetPlotType(PlotTypes.PLOT_HILLS,false,false)
			else
				plot:SetPlotType(PlotTypes.PLOT_MOUNTAIN,false,false)
			end
		end
	end

	--These attenuation factors lower the altitude of the map edges. This is
	--currently used to prevent large continents in the uninhabitable polar
	--regions. East/west attenuation is set to zero, but modded maps may
	--have need for them.
	mconst.northAttenuationFactor = 0.75
	mconst.northAttenuationRange = 0.15 --percent of the map height.
	mconst.southAttenuationFactor = 0.75
	mconst.southAttenuationRange = 0.15

	--east west attenuation may be desired for flat maps.
	mconst.eastAttenuationFactor = 0.0
	mconst.eastAttenuationRange = 0.0 --percent of the map width.
	mconst.westAttenuationFactor = 0.0
	mconst.westAttenuationRange = 0.0