continue;

		}

		if (!CmdFailed(ret) && ret <= money &&

				rvi->ai_rank >= best_veh_score) {

			best_veh_score = rvi->ai_rank;

		if (!HASBIT(e->player_avail, _current_player) || e->reliability < 0x8A3D)

			continue;

		if (!CmdFailed(ret) && ret <= money && ret >= best_veh_cost) {

			best_veh_cost = ret;

			best_veh_index = i;

			if (i>=253) continue;

		}

		if (!CmdFailed(ret) && ret <= money && ret >= best_veh_cost) {

			best_veh_cost = ret;

			best_veh_index = i;

static void AiHandleGotoDepot(Player *p, int cmd)

{

	if (p->ai.cur_veh->current_order.type != OT_GOTO_DEPOT)

	if (++p->ai.state_counter <= 1387) {

		p->ai.state = AIS_VEH_DO_REPLACE_VEHICLE;

		BackupVehicleOrders(v, orderbak);

		tile = v->tile;

			VehicleID veh = _new_train_id;

			AiRestoreVehicleOrders(GetVehicle(veh), orderbak);

		}

	}

}

		BackupVehicleOrders(v, orderbak);

		tile = v->tile;

			VehicleID veh = _new_roadveh_id;

			AiRestoreVehicleOrders(GetVehicle(veh), orderbak);

		}

	}

}

		BackupVehicleOrders(v, orderbak);

		tile = v->tile;

			VehicleID veh = _new_aircraft_id;

			AiRestoreVehicleOrders(GetVehicle(veh), orderbak);

		}

	}

}

		if (p->mode < 2) {

			if (p->mode == 0) {

				// Depot

			} else {

				// Station

			}

			if (CmdFailed(ret)) return CMD_ERROR;

			for (i = 0; i != 6; i++, j >>= 1) {

				if (j&1) {

					k = i;

					if (CmdFailed(ret)) return CMD_ERROR;

					total_cost += ret;

				}

				if (flag & DC_EXEC) {

					j = 4 - j;

					do {

					} while (--j);

				} else {

					ret = _price.build_signals;

			//Clear stuff and then build single rail.

			if (GetTileSlope(c,NULL) != 0)

				return CMD_ERROR;

			if (CmdFailed(ret)) return CMD_ERROR;

			total_cost += ret + _price.build_rail;

			if (flag & DC_EXEC) {

			}

			goto clear_town_stuff;

	if (slope != 0) {

		if (mode > 0 || (mode == 0 && !(r & 0xC))) {

			// Terraform up

				DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_TERRAFORM_LAND);

		} else if (h != 0) {

			// Terraform down

				DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_TERRAFORM_LAND);

		}

	}

		}

		// Is building a (rail)bridge possible at this place (type doesn't matter)?

			DC_AUTO, CMD_BUILD_BRIDGE)) )

				return;

		AiBuildRailRecursive(arf, tile_new, dir2);

	uint z;

	if (GetTileSlope(tile, &z) == _dir_table_2[p[0] & 3] && z != 0) {

		if (!CmdFailed(cost) && cost <= (arf->player->player_money>>4)) {

			AiBuildRailRecursive(arf, _build_tunnel_endtile, p[0]&3);

		do {

			// Make sure the tile is not in the list of banned tiles and that a rail can be built here.

			if (!AiIsTileBanned(arf->player, tile, p[0]) &&

				AiBuildRailRecursive(arf, tile, p[1]);

			}

		*/

		for (i = MAX_BRIDGES - 1; i != 0; i--) {

			if (CheckBridge_Stuff(i, bridge_len)) {

				if (!CmdFailed(cost) && cost < (p->player_money >> 5))

					break;

			}

		}

		// Build it

		p->ai.cur_tile_a = arf.bridge_end_tile;

		p->ai.state_counter = 0;

	} else if (arf.best_ptr[0]&0x40) {

		// tunnel

		p->ai.cur_tile_a = _build_tunnel_endtile;

		p->ai.state_counter = 0;

	} else {

		// rail

		p->ai.cur_dir_a = arf.best_ptr[1];

			DC_EXEC | DC_AUTO | DC_NO_WATER | DC_NO_RAIL_OVERLAP, CMD_BUILD_SINGLE_RAIL);

		p->ai.state_counter = 0;

	}

	if (IsTileType(tile, MP_TUNNELBRIDGE)) {

		if (IsTunnel(tile)) {

			// Clear the tunnel and continue at the other side of it.

				return false;

			p->ai.cur_tile_a = TILE_MASK(_build_tunnel_endtile - TileOffsByDir(p->ai.cur_dir_a));

			return true;

			tilenew = TILE_MASK(tile - TileOffsByDir(p->ai.cur_dir_a));

			// And clear the bridge.

				return false;

			p->ai.cur_tile_a = tilenew;

			return true;

	// Then remove and signals if there are any.

	if (IsTileType(tile, MP_RAILWAY) &&

			GetRailTileType(tile) == RAIL_TYPE_SIGNALS) {

	}

	// And also remove the rail.

		return false;

	// Find the direction at the other edge of the rail.

	p->ai.cur_tile_a = tile;

	p->ai.start_dir_a = dir;

	p->ai.cur_dir_a = dir;

	assert(TILE_MASK(tile) != 0xFF00);

	p->ai.cur_tile_b = tile;

	p->ai.start_dir_b = dir;

	p->ai.cur_dir_b = dir;

	assert(TILE_MASK(tile) != 0xFF00);

			/* veh will return INVALID_ENGINE if no suitable wagon is available.

			 * We shall treat this in the same way as having no money */

			if (veh == INVALID_ENGINE) goto handle_nocash;

			if (CmdFailed(cost)) goto handle_nocash;

			p->ai.wagon_list[i] = _new_wagon_id;

			p->ai.wagon_list[i + 1] = INVALID_VEHICLE;

		// after a while, if AI still doesn't have cash, get out of this block by selling the wagons.

		if (++p->ai.state_counter == 1000) {

			for (i = 0; p->ai.wagon_list[i] != INVALID_VEHICLE; i++) {

				assert(!CmdFailed(cost));

			}

			p->ai.state =	AIS_0;

	}

	// Try to build the locomotive

	assert(!CmdFailed(cost));

	loco_id = _new_train_id;

	if (v->next != NULL) {

		i = p->ai.wagon_list[p->ai.num_wagons * 2 - 2];

		p->ai.wagon_list[p->ai.num_wagons * 2 - 2] = INVALID_VEHICLE;

	}

	// Move the wagons onto the train

	for (i = 0; p->ai.wagon_list[i] != INVALID_VEHICLE; i++) {

	}

	for (i = 0; p->ai.order_list_blocks[i] != 0xFF; i++) {

		if (p->ai.num_want_fullload != 0 && (is_pass || i == 0))

			order.flags |= OF_FULL_LOAD;

	}

	if (p->ai.num_want_fullload != 0) p->ai.num_want_fullload--;

		if (aib->cur_building_rule != 255) {

			b = _default_rail_track_data[aib->cur_building_rule]->data;

			while (b->mode != 4) {

				b++;

			}

		}

				if ((GetRoadBits(c) & p->attr) == p->attr) continue;

			}

			if (CmdFailed(ret)) return CMD_ERROR;

			total_cost += ret;

		if (p->mode == 0) {

			// Depot

			goto clear_town_stuff;

		} else if (p->mode == 1) {

			if (_want_road_truck_station) {

				// Truck station

			} else {

				// Bus station

			}

clear_town_stuff:;

			if (GetTileSlope(c, NULL) != 0) return CMD_ERROR;

			if (!IsTileType(c, MP_STREET) || GetRoadType(c) != ROAD_NORMAL) {

				if (CmdFailed(ret)) return CMD_ERROR;

			}

		1+2,

		8+4,

	};

}

static inline void AiCheckBuildRoadBridgeHere(AiRoadFinder *arf, TileIndex tile, const byte *p)

		}

		// Is building a (rail)bridge possible at this place (type doesn't matter)?

			return;

		AiBuildRoadRecursive(arf, tile_new, dir2);

	uint z;

	if (GetTileSlope(tile, &z) == _dir_table_2[p[0] & 3] && z != 0) {

		if (!CmdFailed(cost) && cost <= (arf->player->player_money>>4)) {

			AiBuildRoadRecursive(arf, _build_tunnel_endtile, p[0]&3);

		*/

		for (i = 10; i != 0; i--) {

			if (CheckBridge_Stuff(i, bridge_len)) {

				if (!CmdFailed(cost) && cost < (p->player_money >> 5)) break;

			}

		}

		// Build it

		p->ai.state_counter = 0;

	} else if (arf.best_ptr[0]&0x40) {

		// tunnel

		p->ai.cur_tile_a = _build_tunnel_endtile;

		p->ai.state_counter = 0;

	} else {

		return;

	}

	loco_id = _new_roadveh_id;

		if (p->ai.num_want_fullload != 0 && (is_pass || i == 0))

			order.flags |= OF_FULL_LOAD;

	}

	if (p->ai.num_want_fullload != 0) p->ai.num_want_fullload--;

	if (--p->ai.num_loco_to_build == 0) p->ai.state = AIS_0;

			b = _road_default_block_data[aib->cur_building_rule]->data;

			while (b->mode != 4) {

				if (b->mode <= 1) {

				}

				b++;

			}

	for (; p->mode == 0; p++) {

		if (!HASBIT(_avail_aircraft, p->attr)) return CMD_ERROR;

		if (CmdFailed(ret)) return CMD_ERROR;

		total_cost += ret;

	}

	/* XXX - Have the AI pick the hangar terminal in an airport. Eg get airport-type

	 * and offset to the FIRST depot because the AI picks the st->xy tile */

	tile += ToTileIndexDiff(GetAirport(GetStationByTile(tile)->airport_type)->airport_depots[0]);

	loco_id = _new_aircraft_id;

	for (i=0; p->ai.order_list_blocks[i] != 0xFF; i++) {

		if (p->ai.num_want_fullload != 0 && (is_pass || i == 0))

			order.flags |= OF_FULL_LOAD;

	}

	if (p->ai.num_want_fullload != 0) p->ai.num_want_fullload--;

			if (!IsTileDepotType(v->tile, TRANSPORT_RAIL) || v->u.rail.track != 0x80 || !(v->vehstatus&VS_STOPPED)) {

				if (v->current_order.type != OT_GOTO_DEPOT)

				goto going_to_depot;

			}

			// Sell whole train

		} else if (v->type == VEH_Road) {

			if (!IsTileDepotType(v->tile, TRANSPORT_ROAD) || v->u.road.state != 254 || !(v->vehstatus&VS_STOPPED)) {

				if (v->current_order.type != OT_GOTO_DEPOT)

				goto going_to_depot;

			}

		} else if (v->type == VEH_Aircraft) {

			if (!IsHangarTile(v->tile) || !(v->vehstatus & VS_STOPPED)) {

				if (v->current_order.type != OT_GOTO_DEPOT)

				goto going_to_depot;

			}

			} else if (v->type == VEH_Ship) {

			// XXX: not implemented

			error("!v->type == VEH_Ship");

					(tile = st->train_tile) != 0 ||

					(tile = st->dock_tile) != 0 ||

					(tile = st->airport_tile) != 0)) {

		}

		used++;

	}

			if (GetRailTrackStatus(tile + TileOffsByDir(dir)) & _depot_bits[dir])

				return;

		}

	} else if (IsTileType(tile, MP_STREET)) {

		if (!IsTileOwner(tile, _current_player)) return;

			dir = GetRoadDepotDirection(tile);

				TILE_MASK(tile + TileOffsByDir(dir)),

				DiagDirToRoadBits(ReverseDiagDir(dir)),

				0,

			// Computer wants to buy it.

			old_p = _current_player;

			_current_player = p->index;

			_current_player = old_p;

		}

	}

	if (p->player_money > base * 1400) {

		// Decrease loan

		if (p->current_loan != 0) {

		}

	} else if (p->player_money < base * 500) {

		// Increase loan

		if (p->current_loan < _economy.max_loan &&

				p->num_valid_stat_ent >= 2 &&

				-(p->old_economy[0].expenses+p->old_economy[1].expenses) < base * 60) {

		}

	}

}

	if (p->location_of_house == 0 &&

			p->last_build_coordinate != 0) {

		tile = AdjustTileCoordRandomly(p->last_build_coordinate, 8);

	}

}