26

    46

    64

			if (type2 != 0) break;

    88

int AiNew_Build_RoutePart(Player *p, Ai_PathFinderInfo *PathFinderInfo, byte flag)

    89

{

    90

	int part = PathFinderInfo->position;

   106

		if ((AI_PATHFINDER_FLAG_TUNNEL & route_extra[part]) != 0) {

   107

			cost += DoCommandByTile(route[part], 0, 0, flag, CMD_BUILD_TUNNEL);

   108

			PathFinderInfo->position++;

   109

			// TODO: problems!

   110

			if (CmdFailed(cost)) {

   111

				DEBUG(ai,0)("[AiNew - BuildPath] We have a serious problem: tunnel could not be build!");

   113

			}

   114

			return cost;

   115

		}

   116

		// Bridge code

   117

		if ((AI_PATHFINDER_FLAG_BRIDGE & route_extra[part]) != 0) {

   118

			cost += AiNew_Build_Bridge(p, route[part], route[part-1], flag);

   119

			PathFinderInfo->position++;

   120

			// TODO: problems!

   121

			if (CmdFailed(cost)) {

   122

				DEBUG(ai,0)("[AiNew - BuildPath] We have a serious problem: bridge could not be build!");

   124

			}

   125

			return cost;

   126

		}

   128

		// Build normal rail

   129

		// Keep it doing till we go an other way

   130

		if (route_extra[part-1] == 0 && route_extra[part] == 0) {

   131

			while (route_extra[part] == 0) {

   132

				// Get the current direction

   133

				dir = AiNew_GetRailDirection(route[part-1], route[part], route[part+1]);

   134

				// Is it the same as the last one?

   135

				if (old_dir != -1 && old_dir != dir) break;

   136

				old_dir = dir;

   137

				// Build the tile

   138

				res = DoCommandByTile(route[part], 0, dir, flag, CMD_BUILD_SINGLE_RAIL);

   139

				if (CmdFailed(res)) {

   140

					// Problem.. let's just abort it all!

   141

					p->ainew.state = AI_STATE_NOTHING;

   142

					return 0;

   143

				}

   144

				cost += res;

   145

				// Go to the next tile

   146

				part++;

   147

				// Check if it is still in range..

   148

				if (part >= PathFinderInfo->route_length - 1) break;

   149

			}

   150

			part--;

   151

		}

   152

		// We want to return the last position, so we go back one

   153

		PathFinderInfo->position = part;

   154

	} else {

   156

		if ((AI_PATHFINDER_FLAG_TUNNEL & route_extra[part]) != 0) {

   157

			cost += DoCommandByTile(route[part], 0x200, 0, flag, CMD_BUILD_TUNNEL);

   158

			PathFinderInfo->position++;

   159

			// TODO: problems!

   160

			if (CmdFailed(cost)) {

   161

				DEBUG(ai,0)("[AiNew - BuildPath] We have a serious problem: tunnel could not be build!");

   163

			}

   164

			return cost;

   165

		}

   166

		// Bridge code

   167

		if ((AI_PATHFINDER_FLAG_BRIDGE & route_extra[part]) != 0) {

   168

			cost += AiNew_Build_Bridge(p, route[part], route[part+1], flag);

   169

			PathFinderInfo->position++;

   170

			// TODO: problems!

   171

			if (CmdFailed(cost)) {

   172

				DEBUG(ai,0)("[AiNew - BuildPath] We have a serious problem: bridge could not be build!");

   174

			}

   175

			return cost;

   176

		}

   178

		// Build normal road

   179

		// Keep it doing till we go an other way

   180

		// EnsureNoVehicle makes sure we don't build on a tile where a vehicle is. This way

   181

		//  it will wait till the vehicle is gone..

   182

		if (route_extra[part-1] == 0 && route_extra[part] == 0 && (flag != DC_EXEC || EnsureNoVehicle(route[part]))) {

   183

			while (route_extra[part] == 0 && (flag != DC_EXEC || EnsureNoVehicle(route[part]))) {

   184

				// Get the current direction

   185

				dir = AiNew_GetRoadDirection(route[part-1], route[part], route[part+1]);

   186

				// Is it the same as the last one?

   187

				if (old_dir != -1 && old_dir != dir) break;

   188

				old_dir = dir;

   189

				// There is already some road, and it is a bridge.. don't build!!!

   190

				if (!IsTileType(route[part], MP_TUNNELBRIDGE)) {

   191

					// Build the tile

   192

					res = DoCommandByTile(route[part], dir, 0, flag | DC_NO_WATER, CMD_BUILD_ROAD);

   193

					// Currently, we ignore CMD_ERRORs!

   194

					if (CmdFailed(res) && flag == DC_EXEC && !IsTileType(route[part], MP_STREET) && !EnsureNoVehicle(route[part])) {

   195

						// Problem.. let's just abort it all!

   196

						DEBUG(ai,0)("Darn, the route could not be builded.. aborting!");

   197

						p->ainew.state = AI_STATE_NOTHING;

   198

						return 0;

   199

					}

   201

					if (!CmdFailed(res)) cost += res;

   202

				}

   203

				// Go to the next tile

   204

				part++;

   205

				// Check if it is still in range..

   206

				if (part >= PathFinderInfo->route_length - 1) break;

   207

			}

   208

			part--;

   209

			// We want to return the last position, so we go back one

   210

		}

   211

		if (!EnsureNoVehicle(route[part]) && flag == DC_EXEC) part--;

   212

		PathFinderInfo->position = part;

   213

	}

   215

	return cost;

   218

   221

int AiNew_PickVehicle(Player *p)

   222

{

   223

	if (p->ainew.tbt == AI_TRAIN) {

   224

		// Not supported yet

   225

		return -1;

   226

	} else {

   227

		int start, count, i, ret = CMD_ERROR;

   228

		start = _cargoc.ai_roadveh_start[p->ainew.cargo];

   229

		count = _cargoc.ai_roadveh_count[p->ainew.cargo];

   231

		// Let's check it backwards.. we simply want to best engine available..

   232

		for (i=start+count-1;i>=start;i--) {

   233

			// Is it availiable?

   234

			// Also, check if the reliability of the vehicle is above the AI_VEHICLE_MIN_RELIABILTY

   235

			if (!HASBIT(GetEngine(i)->player_avail, _current_player) || GetEngine(i)->reliability * 100 < AI_VEHICLE_MIN_RELIABILTY << 16) continue;

   236

			// Can we build it?

   237

			ret = DoCommandByTile(0, i, 0, DC_QUERY_COST, CMD_BUILD_ROAD_VEH);

   238

			if (!CmdFailed(ret)) break;

   239

		}

   240

		// We did not find a vehicle :(

   241

		if (CmdFailed(ret)) { return -1; }

   242

		return i;

   243

	}

   246

   254

	return CMD_ERROR;

   263

	if (p->ainew.tbt == AI_TRAIN)

   264

		return DoCommandByTile(tile, 0, direction, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_TRAIN_DEPOT);

   266

	ret = DoCommandByTile(tile, direction, 0, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD_DEPOT);

   267

	if (CmdFailed(ret)) return ret;

   268

	// Try to build the road from the depot

   269

	ret2 = DoCommandByTile(tile + TileOffsByDir(direction), _roadbits_by_dir[direction], 0, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD);

   270

	// If it fails, ignore it..

   271

	if (CmdFailed(ret2)) return ret;

   272

	return ret + ret2;