# HG changeset patch
# User pasky
# Date 1100912921 0
# Node ID 64f0772071fbb573c375a491d6b38a186f213494
# Parent  1e4c56f32f7e387a1b9dee5b2635b2f3a88fb93b
(svn r694) Make the town sometimes build streets on slopes.

diff -r 1e4c56f32f7e -r 64f0772071fb 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;
 		}