1

/* $Id$ */

     2

     3

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

     4

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

     5

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

     6

#include "../../functions.h"

     7

#include "../../map.h"

     8

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

     9

#include "../../tile.h"

    10

#include "../../vehicle.h"

    11

#include "../../command.h"

    12

#include "trolly.h"

    13

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

    14

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

    15

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

    16

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

    17

#include "../ai.h"

    18

    19

// Build HQ

    20

//  Params:

    21

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

    22

bool AiNew_Build_CompanyHQ(Player *p, TileIndex tile)

    23

{

    24

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

    25

		return false;

    26

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

    27

	return true;

    28

}

    29

    30

    31

// Build station

    32

//  Params:

    33

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

    34

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

    35

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

    36

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

    37

//    direction : the direction of the station

    38

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

    39

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

    40

{

    41

	if (type == AI_TRAIN)

    42

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

    43

    44

	if (type == AI_BUS)

    45

		return AI_DoCommand(tile, direction, RS_BUS, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD_STOP);

    46

    47

	return AI_DoCommand(tile, direction, RS_TRUCK, flag | DC_AUTO | DC_NO_WATER, CMD_BUILD_ROAD_STOP);

    48

}

    49

    50

    51

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

    52

//  Params:

    53

//   tile_a : starting point

    54

//   tile_b : end point

    55

//   flag : flag passed to DoCommand

    56

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

    57

{

    58

	int bridge_type, bridge_len, type, type2;

    59

    60

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

    61

	bridge_len = GetBridgeLength(tile_a, tile_b);

    62

	type = type2 = 0;

    63

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

    64

		if (CheckBridge_Stuff(bridge_type, bridge_len)) {

    65

			type2 = type;

    66

			type = bridge_type;

    67

			// We found two bridges, exit

    68

			if (type2 != 0) break;

    69

		}

    70

	}

    71

	// There is only one bridge that can be build..

    72

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

    73

    74

	// Now, simply, build the bridge!

    75

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

    76

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

    77

    78

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

    79

}

    80

    81

    82

// Build the route part by part

    83

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

    84

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

    85

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

    86

//

    87

//  Params:

    88

//   PathFinderInfo : Pointer to the PathFinderInfo used for AiPathFinder

    89

//   part : Which part we need to build

    90

//

    91

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

    92

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

    93

{

    94

	int part = PathFinderInfo->position;

    95

	byte *route_extra = PathFinderInfo->route_extra;

    96

	TileIndex *route = PathFinderInfo->route;

    97

	int dir;

    98

	int old_dir = -1;

    99

	int cost = 0;

   100

	int res;

   101

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

   102

	//  the first pieces and the last piece

   103

	if (part < 1) part = 1;

   104

	// When we are done, stop it

   105

	if (part >= PathFinderInfo->route_length - 1) { PathFinderInfo->position = -2; return 0; }

   106

   107

   108

	if (PathFinderInfo->rail_or_road) {

   109

		// Tunnel code

   110

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

   111

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

   112

			PathFinderInfo->position++;

   113

			// TODO: problems!

   114

			if (CmdFailed(cost)) {

   115

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

   116

				return 0;

   117

			}

   118

			return cost;

   119

		}

   120

		// Bridge code

   121

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

   122

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

   123

			PathFinderInfo->position++;

   124

			// TODO: problems!

   125

			if (CmdFailed(cost)) {

   126

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

   127

				return 0;

   128

			}

   129

			return cost;

   130

		}

   131

   132

		// Build normal rail

   133

		// Keep it doing till we go an other way

   134

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

   135

			while (route_extra[part] == 0) {

   136

				// Get the current direction

   137

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

   138

				// Is it the same as the last one?

   139

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

   140

				old_dir = dir;

   141

				// Build the tile

   142

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

   143

				if (CmdFailed(res)) {

   144

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

   145

					p->ainew.state = AI_STATE_NOTHING;

   146

					return 0;

   147

				}

   148

				cost += res;

   149

				// Go to the next tile

   150

				part++;

   151

				// Check if it is still in range..

   152

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

   153

			}

   154

			part--;

   155

		}

   156

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

   157

		PathFinderInfo->position = part;

   158

	} else {

   159

		// Tunnel code

   160

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

   161

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

   162

			PathFinderInfo->position++;

   163

			// TODO: problems!

   164

			if (CmdFailed(cost)) {

   165

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

   166

				return 0;

   167

			}

   168

			return cost;

   169

		}

   170

		// Bridge code

   171

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

   172

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

   173

			PathFinderInfo->position++;

   174

			// TODO: problems!

   175

			if (CmdFailed(cost)) {

   176

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

   177

				return 0;

   178

			}

   179

			return cost;

   180

		}

   181

   182

		// Build normal road

   183

		// Keep it doing till we go an other way

   184

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

   185

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

   186

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

   187

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

   188

				// Get the current direction

   189

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

   190

				// Is it the same as the last one?

   191

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

   192

				old_dir = dir;

   193

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

   194

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

   195

					// Build the tile

   196

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

   197

					// Currently, we ignore CMD_ERRORs!

   198

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

   199

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

   200

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

   201

						p->ainew.state = AI_STATE_NOTHING;

   202

						return 0;

   203

					}

   204

   205

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

   206

				}

   207

				// Go to the next tile

   208

				part++;

   209

				// Check if it is still in range..

   210

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

   211

			}

   212

			part--;

   213

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

   214

		}

   215

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

   216

		PathFinderInfo->position = part;

   217

	}

   218

   219

	return cost;

   220

}

   221

   222

   223

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

   224

// It returns INVALID_ENGINE if not suitable engine is found

   225

EngineID AiNew_PickVehicle(Player *p)

   226

{

   227

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

   228

		// Not supported yet

   229

		return INVALID_ENGINE;

   230

	} else {

   231

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

   232

		EngineID end = start + _cargoc.ai_roadveh_count[p->ainew.cargo];

   233

		EngineID i;

   234

   235

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

   236

		for (i = end - 1; i >= start; i--) {

   237

			const Engine* e = GetEngine(i);

   238

			int32 ret;

   239

   240

			// Is it availiable?

   241

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

   242

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

   243

			// Can we build it?

   244

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

   245

			if (!CmdFailed(ret)) return i;

   246

		}

   247

		// We did not find a vehicle :(

   248

		return INVALID_ENGINE;

   249

	}

   250

}

   251

   252

   253

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

   254

{

   255

	Player* p = GetPlayer(_current_player);

   256

   257

	if (success) {

   258

		p->ainew.state = AI_STATE_GIVE_ORDERS;

   259

		p->ainew.veh_id = _new_vehicle_id;

   260

	} else {

   261

		/* XXX this should be handled more gracefully */

   262

		p->ainew.state = AI_STATE_NOTHING;

   263

	}

   264

}

   265

   266

   267

// Builds the best vehicle possible

   268

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

   269

{

   270

	EngineID i = AiNew_PickVehicle(p);

   271

   272

	if (i == INVALID_ENGINE) return CMD_ERROR;

   273

	if (p->ainew.tbt == AI_TRAIN) return CMD_ERROR;

   274

   275

	if (flag & DC_EXEC) {

   276

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

   277

	} else {

   278

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

   279

	}

   280

}

   281

   282

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

   283

{

   284

	int ret, ret2;

   285

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

   286

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

   287

   288

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

   289

	if (CmdFailed(ret)) return ret;

   290

	// Try to build the road from the depot

   291

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

   292

	// If it fails, ignore it..

   293

	if (CmdFailed(ret2)) return ret;

   294

	return ret + ret2;

   295

}