# HG changeset patch
# User pasky
# Date 1100912921 0
# Node ID 21f9985e12d14f52b6b6dc9fee1bdb680b5231aa
# Parent  76be94b577997d2ab35703d0e255c423a1aa5220
(svn r694) Make the town sometimes build streets on slopes.

diff -r 76be94b57799 -r 21f9985e12d1 town_cmd.c
--- a/town_cmd.c	Fri Nov 19 22:59:31 2004 +0000
+++ b/town_cmd.c	Sat Nov 20 01:08:41 2004 +0000
@@ -416,6 +416,7 @@
 
 		slope = GetTileSlope(tile, NULL);
 		if (slope == 0) {
+no_slope:
 			// Tile has no slope
 			// Disallow the road if any neighboring tile has a road.
 			if (HASBIT(GetTownRoadMask(TILE_ADD(tile, _roadblock_tileadd[dir+1])), dir^2) ||
@@ -434,10 +435,17 @@
 			uint32 r = Random();
 
 			if (CHANCE16I(1,8, r) && !_generating_world) {
+				int32 res;
+
 				if (CHANCE16I(1,16,r))
-					DoCommandByTile(tile, slope, 0, DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_TERRAFORM_LAND);
+					res = DoCommandByTile(tile, slope, 0, DC_EXEC | DC_AUTO | DC_NO_WATER,
+					                      CMD_TERRAFORM_LAND);
 				else
-					DoCommandByTile(tile, slope^0xF, 1, DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_TERRAFORM_LAND);
+					res = DoCommandByTile(tile, slope^0xF, 1, DC_EXEC | DC_AUTO | DC_NO_WATER,
+					                      CMD_TERRAFORM_LAND);
+				if (res == CMD_ERROR && CHANCE16I(1,3,r))
+					// We can consider building on the slope, though.
+					goto no_slope;
 			}
 			return false;
 		}