cpp/openttd-patchpack/source Changeset - r19514:de47675bfa33

Changeset - r19514:de47675bfa33

Parent rev.

Child rev.

[Not reviewed]

master

0 1 0

frosch - 12 years ago 2012-07-27 19:55:27
frosch@openttd.org

(svn r24439) -Fix [FS#5254]: In some cases ships could be covered with land.

1 file changed with 11 insertions and 0 deletions:

src/rail_cmd.cpp

0 comments (0 inline, 0 general)

src/rail_cmd.cpp

➞

Show inline comments

@@ @@ -2930,6 +2930,14 @@ static CommandCost TestAutoslopeOnRailTi @@
 	return  cost;
+}
 /**
  * Test-procedure for HasVehicleOnPos to check for a ship.
  */
 static Vehicle *EnsureNoShipProc(Vehicle *v, void *data)
+{
 	return v->type == VEH_SHIP ? v : NULL;
+}
 static CommandCost TerraformTile_Track(TileIndex tile, DoCommandFlag flags, int z_new, Slope tileh_new)
+{
 	int z_old;
@@ @@ -2939,6 +2947,9 @@ static CommandCost TerraformTile_Track(T @@
 		/* Is there flat water on the lower halftile that must be cleared expensively? */
 		bool was_water = (GetRailGroundType(tile) == RAIL_GROUND_WATER && IsSlopeWithOneCornerRaised(tileh_old));
 		/* Allow clearing the water only if there is no ship */
 		if (was_water && HasVehicleOnPos(tile, NULL, &EnsureNoShipProc)) return_cmd_error(STR_ERROR_SHIP_IN_THE_WAY);
 		/* First test autoslope. However if it succeeds we still have to test the rest, because non-autoslope terraforming is cheaper. */
 		CommandCost autoslope_result = TestAutoslopeOnRailTile(tile, flags, z_old, tileh_old, z_new, tileh_new, rail_bits);

0 comments (0 inline, 0 general)