1

/* $Id$ */

     2

     3

#include "../../stdafx.h"

     4

#include "../../openttd.h"

     5

#include "../../debug.h"

     6

#include "../../road_map.h"

     7

#include "../../command_func.h"

     8

#include "trolly.h"

     9

#include "../../engine.h"

    10

#include "../../station.h"

    11

#include "../../variables.h"

    12

#include "../../bridge.h"

    13

#include "../../vehicle_func.h"

    14

#include "../../vehicle_base.h"

    15

#include "../ai.h"

    16

    17

// Build HQ

    18

//  Params:

    19

//    tile : tile where HQ is going to be build

    20

bool AiNew_Build_CompanyHQ(Player *p, TileIndex tile)

    21

{

    22

	if (CmdFailed(AI_DoCommand(tile, 0, 0, DC_AUTO | DC_NO_WATER, CMD_BUILD_COMPANY_HQ)))

    23

		return false;

    24

	AI_DoCommand(tile, 0, 0, DC_EXEC | DC_AUTO | DC_NO_WATER, CMD_BUILD_COMPANY_HQ);

    25

	return true;

    26

}

    27

    28

    29

// Build station

    30

//  Params:

    31

//    type : AI_TRAIN/AI_BUS/AI_TRUCK : indicates the type of station

    32

//    tile : tile where station is going to be build

    33

//    length : in case of AI_TRAIN: length of station

    34

//    numtracks : in case of AI_TRAIN: tracks of station

    35

//    direction : the direction of the station

    36

//    flag : flag passed to DoCommand (normally 0 to get the cost or DC_EXEC to build it)

    37

CommandCost AiNew_Build_Station(Player *p, byte type, TileIndex tile, byte length, byte numtracks, byte direction, byte flag)

    38

{

    39

	if (type == AI_TRAIN)

    40

		return AI_DoCommand(tile, direction + (numtracks << 8) + (length << 16), 0, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_RAILROAD_STATION);

    41

    42

	if (type == AI_BUS)

    43

		return AI_DoCommand(tile, direction, ROADTYPES_ROAD << 2 | RoadStop::BUS, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD_STOP);

    44

    45

	return AI_DoCommand(tile, direction, ROADTYPES_ROAD << 2 | RoadStop::TRUCK, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD_STOP);

    46

}

    47

    48

    49

// Builds a brdige. The second best out of the ones available for this player

    50

//  Params:

    51

//   tile_a : starting point

    52

//   tile_b : end point

    53

//   flag : flag passed to DoCommand

    54

CommandCost AiNew_Build_Bridge(Player *p, TileIndex tile_a, TileIndex tile_b, byte flag)

    55

{

    56

	int bridge_type, bridge_len, type, type2;

    57

    58

	// Find a good bridgetype (the best money can buy)

    59

	bridge_len = GetBridgeLength(tile_a, tile_b);

    60

	type = type2 = 0;

    61

	for (bridge_type = MAX_BRIDGES-1; bridge_type >= 0; bridge_type--) {

    62

		if (CheckBridge_Stuff(bridge_type, bridge_len)) {

    63

			type2 = type;

    64

			type = bridge_type;

    65

			// We found two bridges, exit

    66

			if (type2 != 0) break;

    67

		}

    68

	}

    69

	// There is only one bridge that can be built

    70

	if (type2 == 0 && type != 0) type2 = type;

    71

    72

	// Now, simply, build the bridge!

    74

		return AI_DoCommand(tile_a, tile_b, (0x00 << 8) + type2, flag | DC_AUTO, CMD_BUILD_BRIDGE);

    75

	} else {

    76

		return AI_DoCommand(tile_a, tile_b, ((0x80 | ROADTYPES_ROAD) << 8) + type2, flag | DC_AUTO, CMD_BUILD_BRIDGE);

    77

	}

    78

}

    79

    80

    81

// Build the route part by part

    82

// Basicly what this function do, is build that amount of parts of the route

    83

//  that go in the same direction. It sets 'part' to the last part of the route builded.

    84

//  The return value is the cost for the builded parts

    85

//

    86

//  Params:

    87

//   PathFinderInfo : Pointer to the PathFinderInfo used for AiPathFinder

    88

//   part : Which part we need to build

    89

//

    90

// TODO: skip already builded road-pieces (e.g.: cityroad)

    91

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

    92

{

    93

	int part = PathFinderInfo->position;

    94

	byte *route_extra = PathFinderInfo->route_extra;

    95

	TileIndex *route = PathFinderInfo->route;

    96

	int dir;

    97

	int old_dir = -1;

    98

	CommandCost cost;

    99

	CommandCost res;

   100

	// We need to calculate the direction with the parent of the parent.. so we skip

   101

	//  the first pieces and the last piece

   102

	if (part < 1) part = 1;

   103

	// When we are done, stop it

   104

	if (part >= PathFinderInfo->route_length - 1) {

   105

		PathFinderInfo->position = -2;

   106

		return CommandCost();

   107

	}

   108

   109

   110

	if (PathFinderInfo->rail_or_road) {

   111

		// Tunnel code

   112

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

   113

			cost.AddCost(AI_DoCommand(route[part], 0, 0, flag, CMD_BUILD_TUNNEL));

   114

			PathFinderInfo->position++;

   115

			// TODO: problems!

   116

			if (CmdFailed(cost)) {

   117

				DEBUG(ai, 0, "[BuildPath] tunnel could not be built (0x%X)", route[part]);

   118

				return CommandCost();

   119

			}

   120

			return cost;

   121

		}

   122

		// Bridge code

   123

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

   124

			cost.AddCost(AiNew_Build_Bridge(p, route[part], route[part - 1], flag));

   125

			PathFinderInfo->position++;

   126

			// TODO: problems!

   127

			if (CmdFailed(cost)) {

   128

				DEBUG(ai, 0, "[BuildPath] bridge could not be built (0x%X, 0x%X)", route[part], route[part - 1]);

   129

				return CommandCost();

   130

			}

   131

			return cost;

   132

		}

   133

   134

		// Build normal rail

   135

		// Keep it doing till we go an other way

   136

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

   137

			while (route_extra[part] == 0) {

   138

				// Get the current direction

   139

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

   140

				// Is it the same as the last one?

   141

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

   142

				old_dir = dir;

   143

				// Build the tile

   144

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

   145

				if (CmdFailed(res)) {

   146

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

   148

					return CommandCost();

   149

				}

   150

				cost.AddCost(res);

   151

				// Go to the next tile

   152

				part++;

   153

				// Check if it is still in range..

   154

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

   155

			}

   156

			part--;

   157

		}

   158

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

   159

		PathFinderInfo->position = part;

   160

	} else {

   161

		// Tunnel code

   162

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

   163

			cost.AddCost(AI_DoCommand(route[part], 0x200 | ROADTYPES_ROAD, 0, flag, CMD_BUILD_TUNNEL));

   164

			PathFinderInfo->position++;

   165

			// TODO: problems!

   166

			if (CmdFailed(cost)) {

   167

				DEBUG(ai, 0, "[BuildPath] tunnel could not be built (0x%X)", route[part]);

   168

				return CommandCost();

   169

			}

   170

			return cost;

   171

		}

   172

		// Bridge code

   173

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

   174

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

   175

			PathFinderInfo->position++;

   176

			// TODO: problems!

   177

			if (CmdFailed(cost)) {

   178

				DEBUG(ai, 0, "[BuildPath] bridge could not be built (0x%X, 0x%X)", route[part], route[part + 1]);

   179

				return CommandCost();

   180

			}

   181

			return cost;

   182

		}

   183

   184

		// Build normal road

   185

		// Keep it doing till we go an other way

   186

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

   187

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

   188

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

   189

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

   190

				// Get the current direction

   191

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

   192

				// Is it the same as the last one?

   193

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

   194

				old_dir = dir;

   195

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

   196

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

   197

					// Build the tile

   198

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

   199

					// Currently, we ignore CMD_ERRORs!

   200

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

   201

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

   202

						DEBUG(ai, 0, "[BuidPath] route building failed at tile 0x%X, aborting", route[part]);

   204

						return CommandCost();

   205

					}

   206

   207

					if (CmdSucceeded(res)) cost.AddCost(res);

   208

				}

   209

				// Go to the next tile

   210

				part++;

   211

				// Check if it is still in range..

   212

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

   213

			}

   214

			part--;

   215

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

   216

		}

   217

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

   218

		PathFinderInfo->position = part;

   219

	}

   220

   221

	return cost;

   222

}

   223

   224

   225

// This functions tries to find the best vehicle for this type of cargo

   226

// It returns INVALID_ENGINE if not suitable engine is found

   227

EngineID AiNew_PickVehicle(Player *p)

   228

{

   230

		// Not supported yet

   231

		return INVALID_ENGINE;

   232

	} else {

   233

		EngineID best_veh_index = INVALID_ENGINE;

   234

		int32 best_veh_rating = 0;

   235

		EngineID start = ROAD_ENGINES_INDEX;

   236

		EngineID end   = ROAD_ENGINES_INDEX + NUM_ROAD_ENGINES;

   237

		EngineID i;

   238

   239

		/* Loop through all road vehicles */

   240

		for (i = start; i != end; i++) {

   241

			const RoadVehicleInfo *rvi = RoadVehInfo(i);

   242

			const Engine* e = GetEngine(i);

   243

			int32 rating;

   244

			CommandCost ret;

   245

   246

			/* Skip vehicles which can't take our cargo type */

   248

   249

			// Is it availiable?

   250

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

   251

			if (!HasBit(e->player_avail, _current_player) || e->reliability * 100 < AI_VEHICLE_MIN_RELIABILTY << 16) continue;

   252

   253

			/* Rate and compare the engine by speed & capacity */

   254

			rating = rvi->max_speed * rvi->capacity;

   255

			if (rating <= best_veh_rating) continue;

   256

   257

			// Can we build it?

   258

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

   259

			if (CmdFailed(ret)) continue;

   260

   261

			best_veh_rating = rating;

   262

			best_veh_index = i;

   263

		}

   264

   265

		return best_veh_index;

   266

	}

   267

}

   268

   269

   270

void CcAI(bool success, TileIndex tile, uint32 p1, uint32 p2)

   271

{

   272

	Player* p = GetPlayer(_current_player);

   273

   274

	if (success) {

   277

   279

			/* Cargo type doesn't match, so refit it */

   281

				/* Refit failed, so sell the vehicle */

   284

			}

   285

		}

   286

	} else {

   287

		/* XXX this should be handled more gracefully */

   289

	}

   290

}

   291

   292

   293

// Builds the best vehicle possible

   294

CommandCost AiNew_Build_Vehicle(Player *p, TileIndex tile, byte flag)

   295

{

   296

	EngineID i = AiNew_PickVehicle(p);

   297

   298

	if (i == INVALID_ENGINE) return CMD_ERROR;

   300

   301

	if (flag & DC_EXEC) {

   302

		return AI_DoCommandCc(tile, i, 0, flag, CMD_BUILD_ROAD_VEH, CcAI);

   303

	} else {

   304

		return AI_DoCommand(tile, i, 0, flag, CMD_BUILD_ROAD_VEH);

   305

	}

   306

}

   307

   308

CommandCost AiNew_Build_Depot(Player* p, TileIndex tile, DiagDirection direction, byte flag)

   309

{

   310

	CommandCost ret, ret2;

   312

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

   313

	} else {

   314

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

   315

		if (CmdFailed(ret2)) return ret;

   316

		// Try to build the road from the depot

   317

		ret2 = AI_DoCommand(tile + TileOffsByDiagDir(direction), DiagDirToRoadBits(ReverseDiagDir(direction)), 0, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD);

   318

		// If it fails, ignore it..

   319

		if (CmdFailed(ret2)) return ret;

   320

		ret.AddCost(ret2);

   321

		return ret;

   322

	}

   323

}