596 /**

   597  * Switches the rail type on a level crossing.

   598  * @param tile        The tile on which the railtype is to be convert.

   599  * @param totype      The railtype we want to convert to

   600  * @param exec        Switches between test and execute mode

   601  * @return            The cost and state of the operation

   602  * @retval CMD_ERROR  An error occured during the operation.

   603  */

   604 CommandCost DoConvertStreetRail(TileIndex tile, RailType totype, bool exec)

   605 {

   606 	/* not a railroad crossing? */

   607 	if (!IsLevelCrossing(tile)) return CMD_ERROR;

   608 

   609 	if (exec) {

   610 		SetRailType(tile, totype);

   611 		MarkTileDirtyByTile(tile);

   612 		YapfNotifyTrackLayoutChange(tile, FindFirstTrack(GetCrossingRailBits(tile)));

   613 		VehicleFromPos(tile, NULL, &UpdateTrainPowerProc);

   614 	}

   615 

   616 	return CommandCost(RailConvertCost(GetRailType(tile), totype));

   617 }

   618 

   619