1

/* $Id$ */

     2

     3

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

     4

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

     5

#include "../../aircraft.h"

     6

#include "../../bridge_map.h"

     7

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

     8

#include "../../landscape.h"

     9

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

    10

#include "../../rail_map.h"

    11

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

    12

#include "../../roadveh.h"

    13

#include "../../station_map.h"

    14

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

    15

#include "../../player.h"

    16

#include "../../tunnel_map.h"

    17

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

    18

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

    19

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

    20

#include "../../town.h"

    21

#include "../../industry.h"

    22

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

    23

#include "../../pathfind.h"

    24

#include "../../economy.h"

    25

#include "../../airport.h"

    26

#include "../../depot.h"

    27

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

    28

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

    29

#include "../../date.h"

    30

#include "../../helpers.hpp"

    31

#include "default.h"

    32

    33

// remove some day perhaps?

    34

static uint _ai_service_interval;

    35

    36

typedef void AiStateAction(Player *p);

    37

    38

enum {

    39

	AIS_0                            =  0,

    40

	AIS_1                            =  1,

    41

	AIS_VEH_LOOP                     =  2,

    42

	AIS_VEH_CHECK_REPLACE_VEHICLE    =  3,

    43

	AIS_VEH_DO_REPLACE_VEHICLE       =  4,

    44

	AIS_WANT_NEW_ROUTE               =  5,

    45

	AIS_BUILD_DEFAULT_RAIL_BLOCKS    =  6,

    46

	AIS_BUILD_RAIL                   =  7,

    47

	AIS_BUILD_RAIL_VEH               =  8,

    48

	AIS_DELETE_RAIL_BLOCKS           =  9,

    49

	AIS_BUILD_DEFAULT_ROAD_BLOCKS    = 10,

    50

	AIS_BUILD_ROAD                   = 11,

    51

	AIS_BUILD_ROAD_VEHICLES          = 12,

    52

	AIS_DELETE_ROAD_BLOCKS           = 13,

    53

	AIS_AIRPORT_STUFF                = 14,

    54

	AIS_BUILD_DEFAULT_AIRPORT_BLOCKS = 15,

    55

	AIS_BUILD_AIRCRAFT_VEHICLES      = 16,

    56

	AIS_CHECK_SHIP_STUFF             = 17,

    57

	AIS_BUILD_DEFAULT_SHIP_BLOCKS    = 18,

    58

	AIS_DO_SHIP_STUFF                = 19,

    59

	AIS_SELL_VEHICLE                 = 20,

    60

	AIS_REMOVE_STATION               = 21,

    61

	AIS_REMOVE_TRACK                 = 22,

    62

	AIS_REMOVE_SINGLE_RAIL_TILE      = 23

    63

};

    64

    65

    66

#include "../../table/ai_rail.h"

    67

    68

static TrackBits GetRailTrackStatus(TileIndex tile)

    69

{

    70

	uint32 r = GetTileTrackStatus(tile, TRANSPORT_RAIL);

    71

	return (TrackBits)(byte) (r | r >> 8);

    72

}

    73

    74

    75

static void AiCase0(Player *p)

    76

{

    77

	p->ai.state = AIS_REMOVE_TRACK;

    78

	p->ai.state_counter = 0;

    79

}

    80

    81

static void AiCase1(Player *p)

    82

{

    83

	p->ai.cur_veh = NULL;

    84

	p->ai.state = AIS_VEH_LOOP;

    85

}

    86

    87

static void AiStateVehLoop(Player *p)

    88

{

    89

	Vehicle *v;

    90

	uint index;

    91

    92

	index = (p->ai.cur_veh == NULL) ? 0 : p->ai.cur_veh->index + 1;

    93

    94

	FOR_ALL_VEHICLES_FROM(v, index) {

    95

		if (v->owner != _current_player) continue;

    96

    97

		if ((v->type == VEH_TRAIN && v->subtype == 0) ||

    98

				v->type == VEH_ROAD ||

    99

				(v->type == VEH_AIRCRAFT && IsNormalAircraft(v)) ||

   100

				v->type == VEH_SHIP) {

   101

			/* replace engine? */

   102

			if (v->type == VEH_TRAIN && v->engine_type < 3 &&

   103

					(_eco->GetPrice(CEconomy::BUILD_RAILVEHICLE) >> 3) < p->player_money) {

   104

				p->ai.state = AIS_VEH_CHECK_REPLACE_VEHICLE;

   105

				p->ai.cur_veh = v;

   106

				return;

   107

			}

   108

   109

			/* not profitable? */

   110

			if (v->age >= 730 &&

   111

					v->profit_last_year < _eco->GetPrice(CEconomy::STATION_VALUE) * 5 &&

   112

					v->profit_this_year < _eco->GetPrice(CEconomy::STATION_VALUE) * 5) {

   113

				p->ai.state_counter = 0;

   114

				p->ai.state = AIS_SELL_VEHICLE;

   115

				p->ai.cur_veh = v;

   116

				return;

   117

			}

   118

   119

			/* not reliable? */

   120

			if (v->age >= v->max_age || (

   121

						v->age != 0 &&

   122

						GetEngine(v->engine_type)->reliability < 35389

   123

					)) {

   124

				p->ai.state = AIS_VEH_CHECK_REPLACE_VEHICLE;

   125

				p->ai.cur_veh = v;

   126

				return;

   127

			}

   128

		}

   129

	}

   130

   131

	p->ai.state = AIS_WANT_NEW_ROUTE;

   132

	p->ai.state_counter = 0;

   133

}

   134

   135

static EngineID AiChooseTrainToBuild(RailType railtype, int32 money, byte flag, TileIndex tile)

   136

{

   137

	EngineID best_veh_index = INVALID_ENGINE;

   138

	byte best_veh_score = 0;

   139

	int32 ret;

   140

	EngineID i;

   141

   142

	for (i = 0; i < NUM_TRAIN_ENGINES; i++) {

   143

		const RailVehicleInfo *rvi = RailVehInfo(i);

   144

		const Engine* e = GetEngine(i);

   145

   146

		if (!IsCompatibleRail(rvi->railtype, railtype) ||

   147

				rvi->railveh_type == RAILVEH_WAGON ||

   148

				(rvi->railveh_type == RAILVEH_MULTIHEAD && flag & 1) ||

   149

				!HASBIT(e->player_avail, _current_player) ||

   150

				e->reliability < 0x8A3D) {

   151

			continue;

   152

		}

   153

   154

		ret = DoCommand(tile, i, 0, 0, CMD_BUILD_RAIL_VEHICLE);

   155

		if (!CmdFailed(ret) && ret <= money && rvi->ai_rank >= best_veh_score) {

   156

			best_veh_score = rvi->ai_rank;

   157

			best_veh_index = i;

   158

		}

   159

	}

   160

   161

	return best_veh_index;

   162

}

   163

   164

static EngineID AiChooseRoadVehToBuild(CargoID cargo, int32 money, TileIndex tile)

   165

{

   166

	EngineID best_veh_index = INVALID_ENGINE;

   167

	int32 best_veh_rating = 0;

   168

	EngineID i = ROAD_ENGINES_INDEX;

   169

	EngineID end = i + NUM_ROAD_ENGINES;

   170

   171

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

   172

		const RoadVehicleInfo *rvi = RoadVehInfo(i);

   173

		const Engine* e = GetEngine(i);

   174

		int32 rating;

   175

		int32 ret;

   176

   177

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

   178

			continue;

   179

		}

   180

   181

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

   182

		if (rvi->cargo_type != cargo && !CanRefitTo(i, cargo)) continue;

   183

   184

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

   185

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

   186

		if (rating <= best_veh_rating) continue;

   187

   188

		ret = DoCommand(tile, i, 0, 0, CMD_BUILD_ROAD_VEH);

   189

		if (CmdFailed(ret)) continue;

   190

   191

		/* Add the cost of refitting */

   192

		if (rvi->cargo_type != cargo) ret += GetRefitCost(i);

   193

		if (ret > money) continue;

   194

   195

		best_veh_rating = rating;

   196

		best_veh_index = i;

   197

	}

   198

   199

	return best_veh_index;

   200

}

   201

   202

static EngineID AiChooseAircraftToBuild(int32 money, byte flag)

   203

{

   204

	EngineID best_veh_index = INVALID_ENGINE;

   205

	int32 best_veh_cost = 0;

   206

	EngineID i;

   207

   208

	for (i = AIRCRAFT_ENGINES_INDEX; i != AIRCRAFT_ENGINES_INDEX + NUM_AIRCRAFT_ENGINES; i++) {

   209

		const Engine* e = GetEngine(i);

   210

		int32 ret;

   211

   212

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

   213

			continue;

   214

		}

   215

   216

		if ((AircraftVehInfo(i)->subtype & AIR_CTOL) != flag) continue;

   217

   218

		ret = DoCommand(0, i, 0, DC_QUERY_COST, CMD_BUILD_AIRCRAFT);

   219

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

   220

			best_veh_cost = ret;

   221

			best_veh_index = i;

   222

		}

   223

	}

   224

   225

	return best_veh_index;

   226

}

   227

   228

static int32 AiGetBasePrice(const Player* p)

   229

{

   230

	int32 base = _eco->GetPrice(CEconomy::STATION_VALUE);

   231

   232

	// adjust base price when more expensive vehicles are available

   233

	switch (p->ai.railtype_to_use) {

   234

		default: NOT_REACHED();

   235

		case RAILTYPE_RAIL:     break;

   236

		case RAILTYPE_ELECTRIC: break;

   237

		case RAILTYPE_MONO:     base = (base * 3) >> 1; break;

   238

		case RAILTYPE_MAGLEV:   base *= 2; break;

   239

	}

   240

   241

	return base;

   242

}

   243

   244

#if 0

   245

static EngineID AiChooseShipToBuild(byte cargo, int32 money)

   246

{

   247

	// XXX: not done

   248

	return INVALID_ENGINE;

   249

}

   250

#endif

   251

   252

static EngineID AiChooseRoadVehToReplaceWith(const Player* p, const Vehicle* v)

   253

{

   254

	int32 avail_money = p->player_money + v->value;

   255

	return AiChooseRoadVehToBuild(v->cargo_type, avail_money, v->tile);

   256

}

   257

   258

static EngineID AiChooseAircraftToReplaceWith(const Player* p, const Vehicle* v)

   259

{

   260

	int32 avail_money = p->player_money + v->value;

   261

	return AiChooseAircraftToBuild(

   262

		avail_money, AircraftVehInfo(v->engine_type)->subtype & AIR_CTOL

   263

	);

   264

}

   265

   266

static EngineID AiChooseTrainToReplaceWith(const Player* p, const Vehicle* v)

   267

{

   268

	int32 avail_money = p->player_money + v->value;

   269

	const Vehicle* u = v;

   270

	int num = 0;

   271

   272

	while (++num, u->next != NULL) {

   273

		u = u->next;

   274

	}

   275

   276

	// XXX: check if a wagon

   277

	return AiChooseTrainToBuild(v->u.rail.railtype, avail_money, 0, v->tile);

   278

}

   279

   280

static EngineID AiChooseShipToReplaceWith(const Player* p, const Vehicle* v)

   281

{

   282

	error("!AiChooseShipToReplaceWith");

   283

   284

	/* maybe useless, but avoids compiler warning this way */

   285

	return INVALID_ENGINE;

   286

}

   287

   288

static void AiHandleGotoDepot(Player *p, int cmd)

   289

{

   290

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

   291

		DoCommand(0, p->ai.cur_veh->index, 0, DC_EXEC, cmd);

   292

   293

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

   294

		p->ai.state = AIS_VEH_DO_REPLACE_VEHICLE;

   295

		return;

   296

	}

   297

   298

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

   299

		p->ai.cur_veh->current_order.type = OT_DUMMY;

   300

		p->ai.cur_veh->current_order.flags = 0;

   301

		InvalidateWindow(WC_VEHICLE_VIEW, p->ai.cur_veh->index);

   302

	}

   303

}

   304

   305

static void AiRestoreVehicleOrders(Vehicle *v, BackuppedOrders *bak)

   306

{

   307

	uint i;

   308

   309

	for (i = 0; bak->order[i].type != OT_NOTHING; i++) {

   310

		if (!DoCommandP(0, v->index + (i << 16), PackOrder(&bak->order[i]), NULL, CMD_INSERT_ORDER | CMD_NO_TEST_IF_IN_NETWORK))

   311

			break;

   312

	}

   313

}

   314

   315

static void AiHandleReplaceTrain(Player *p)

   316

{

   317

	const Vehicle* v = p->ai.cur_veh;

   318

	BackuppedOrders orderbak[1];

   319

	EngineID veh;

   320

   321

	// wait until the vehicle reaches the depot.

   322

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

   323

		AiHandleGotoDepot(p, CMD_SEND_TRAIN_TO_DEPOT);

   324

		return;

   325

	}

   326

   327

	veh = AiChooseTrainToReplaceWith(p, v);

   328

	if (veh != INVALID_ENGINE) {

   329

		TileIndex tile;

   330

   331

		BackupVehicleOrders(v, orderbak);

   332

		tile = v->tile;

   333

   334

		if (!CmdFailed(DoCommand(0, v->index, 2, DC_EXEC, CMD_SELL_RAIL_WAGON)) &&

   335

				!CmdFailed(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_RAIL_VEHICLE))) {

   336

			VehicleID veh = _new_vehicle_id;

   337

			AiRestoreVehicleOrders(GetVehicle(veh), orderbak);

   338

			DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_TRAIN);

   339

   340

			DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT);

   341

		}

   342

	}

   343

}

   344

   345

static void AiHandleReplaceRoadVeh(Player *p)

   346

{

   347

	const Vehicle* v = p->ai.cur_veh;

   348

	BackuppedOrders orderbak[1];

   349

	EngineID veh;

   350

   351

	if (!IsRoadVehInDepotStopped(v)) {

   352

		AiHandleGotoDepot(p, CMD_SEND_ROADVEH_TO_DEPOT);

   353

		return;

   354

	}

   355

   356

	veh = AiChooseRoadVehToReplaceWith(p, v);

   357

	if (veh != INVALID_ENGINE) {

   358

		TileIndex tile;

   359

   360

		BackupVehicleOrders(v, orderbak);

   361

		tile = v->tile;

   362

   363

		if (!CmdFailed(DoCommand(0, v->index, 0, DC_EXEC, CMD_SELL_ROAD_VEH)) &&

   364

				!CmdFailed(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_ROAD_VEH))) {

   365

			VehicleID veh = _new_vehicle_id;

   366

   367

			AiRestoreVehicleOrders(GetVehicle(veh), orderbak);

   368

			DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_ROADVEH);

   369

			DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT);

   370

		}

   371

	}

   372

}

   373

   374

static void AiHandleReplaceAircraft(Player *p)

   375

{

   376

	const Vehicle* v = p->ai.cur_veh;

   377

	BackuppedOrders orderbak[1];

   378

	EngineID veh;

   379

   380

	if (!IsAircraftInHangarStopped(v)) {

   381

		AiHandleGotoDepot(p, CMD_SEND_AIRCRAFT_TO_HANGAR);

   382

		return;

   383

	}

   384

   385

	veh = AiChooseAircraftToReplaceWith(p, v);

   386

	if (veh != INVALID_ENGINE) {

   387

		TileIndex tile;

   388

   389

		BackupVehicleOrders(v, orderbak);

   390

		tile = v->tile;

   391

   392

		if (!CmdFailed(DoCommand(0, v->index, 0, DC_EXEC, CMD_SELL_AIRCRAFT)) &&

   393

				!CmdFailed(DoCommand(tile, veh, 0, DC_EXEC, CMD_BUILD_AIRCRAFT))) {

   394

			VehicleID veh = _new_vehicle_id;

   395

			AiRestoreVehicleOrders(GetVehicle(veh), orderbak);

   396

			DoCommand(0, veh, 0, DC_EXEC, CMD_START_STOP_AIRCRAFT);

   397

   398

			DoCommand(0, veh, _ai_service_interval, DC_EXEC, CMD_CHANGE_SERVICE_INT);

   399

		}

   400

	}

   401

}

   402

   403

static void AiHandleReplaceShip(Player *p)

   404

{

   405

	error("!AiHandleReplaceShip");

   406

}

   407

   408

typedef EngineID CheckReplaceProc(const Player* p, const Vehicle* v);

   409

   410

static CheckReplaceProc* const _veh_check_replace_proc[] = {

   411

	AiChooseTrainToReplaceWith,

   412

	AiChooseRoadVehToReplaceWith,

   413

	AiChooseShipToReplaceWith,

   414

	AiChooseAircraftToReplaceWith,

   415

};

   416

   417

typedef void DoReplaceProc(Player *p);

   418

static DoReplaceProc* const _veh_do_replace_proc[] = {

   419

	AiHandleReplaceTrain,

   420

	AiHandleReplaceRoadVeh,

   421

	AiHandleReplaceShip,

   422

	AiHandleReplaceAircraft

   423

};

   424

   425

static void AiStateCheckReplaceVehicle(Player *p)

   426

{

   427

	const Vehicle* v = p->ai.cur_veh;

   428

   429

	if (!IsValidVehicle(v) ||

   430

			v->owner != _current_player ||

   431

			v->type > VEH_SHIP ||

   432

			_veh_check_replace_proc[v->type - VEH_TRAIN](p, v) == INVALID_ENGINE) {

   433

		p->ai.state = AIS_VEH_LOOP;

   434

	} else {

   435

		p->ai.state_counter = 0;

   436

		p->ai.state = AIS_VEH_DO_REPLACE_VEHICLE;

   437

	}

   438

}

   439

   440

static void AiStateDoReplaceVehicle(Player *p)

   441

{

   442

	const Vehicle* v = p->ai.cur_veh;

   443

   444

	p->ai.state = AIS_VEH_LOOP;

   445

	// vehicle is not owned by the player anymore, something went very wrong.

   446

	if (!IsValidVehicle(v) || v->owner != _current_player) return;

   447

	_veh_do_replace_proc[v->type - VEH_TRAIN](p);

   448

}

   449

   450

struct FoundRoute {

   451

	int distance;

   452

	CargoID cargo;

   453

	void *from;

   454

	void *to;

   455

};

   456

   457

static Town *AiFindRandomTown()

   458

{

   459

	return GetRandomTown();

   460

}

   461

   462

static Industry *AiFindRandomIndustry()

   463

{

   464

	int num = RandomRange(GetMaxIndustryIndex());

   465

	if (IsValidIndustry(GetIndustry(num))) return GetIndustry(num);

   466

   467

	return NULL;

   468

}

   469

   470

static void AiFindSubsidyIndustryRoute(FoundRoute *fr)

   471

{

   472

	uint i;

   473

	CargoID cargo;

   474

	const Subsidy* s;

   475

	Industry* from;

   476

	TileIndex to_xy;

   477

   478

	// initially error

   479

	fr->distance = -1;

   480

   481

	// Randomize subsidy index..

   482

	i = RandomRange(lengthof(_subsidies) * 3);

   483

	if (i >= lengthof(_subsidies)) return;

   484

   485

	s = &_subsidies[i];

   486

   487

	// Don't want passengers or mail

   488

	cargo = s->cargo_type;

   489

	if (cargo == CT_INVALID ||

   490

			cargo == CT_PASSENGERS ||

   491

			cargo == CT_MAIL ||

   492

			s->age > 7) {

   493

		return;

   494

	}

   495

	fr->cargo = cargo;

   496