1

/* $Id$ */

     2

     3

/*

     4

 * Next part is in Dutch, and only here for me, TrueLight, the maker of this new AI

     5

 */

     6

     7

// TODO: als iemand een vehicle stil zet op een weg waar de AI wil bouwen

     8

//         doet de AI helemaal niets meer

     9

// TODO: depot rondjes rijden stom iets dingus

    10

// TODO: jezelf afvragen of competitor_intelligence op niveau 2 wel meer geld moet opleverne...

    11

// TODO: als er iets in path komt, bouwt AI gewoon verder :(

    12

// TODO: mail routes

    13

    14

// FIXME: This code is horrible. Indisputably from the style POV, at least. --pasky

    15

    16

/*

    17

 * End of Dutch part

    18

 */

    19

    20

#include "stdafx.h"

    21

#include "openttd.h"

    22

#include "debug.h"

    23

#include "functions.h"

    24

#include "table/strings.h"

    25

#include "map.h"

    26

#include "tile.h"

    27

#include "command.h"

    28

#include "ai_new.h"

    29

#include "town.h"

    30

#include "industry.h"

    31

#include "station.h"

    32

#include "engine.h"

    33

#include "gui.h"

    34

#include "depot.h"

    35

    36

// This function is called after StartUp. It is the init of an AI

    44

	// We first have to init some things

    45

    46

	if (_current_player == 1) {

    47

		ShowErrorMessage(-1, TEMP_AI_IN_PROGRESS, 0, 0);

    48

	}

    49

    50

	// The PathFinder (AyStar)

    51

	// TODO: Maybe when an AI goes bankrupt, this is de-init

    52

	//  or when coming from a savegame.. should be checked out!

    57

	p->ainew.pathfinder = new_AyStar_AiPathFinder(12, &p->ainew.path_info);

    58

    59

	p->ainew.idle = 0;

    60

	p->ainew.last_vehiclecheck_date = _date;

    61

    62

	// We ALWAYS start with a bus route.. just some basic money ;)

    63

	p->ainew.action = AI_ACTION_BUS_ROUTE;

    64

    65

	// Let's popup the news, and after that, start building..

    66

	p->ainew.state = AI_STATE_WAKE_UP;

    67

}

    68

    70

// This function just waste some time

    71

//  It keeps it more real. The AI can build on such tempo no normal user

    72

//  can ever keep up with that. The competitor_speed already delays a bit

    73

//  but after the AI finished a track it really needs to go to sleep.

    74

//

    75

// Let's say, we sleep between one and three days if the AI is put on Very Fast.

    76

//  This means that on Very Slow it will be between 16 and 48 days.. slow enough?

    81

	if (p->ainew.idle == 0) p->ainew.idle = RandomRange(DAY_TICKS * 2) + DAY_TICKS;

    82

	if (--p->ainew.idle == 0) {

    83

		// We are done idling.. what you say? Let's do something!

    84

		// I mean.. the next tick ;)

    85

		p->ainew.state = AI_STATE_WAKE_UP;

    86

	}

    87

}

    88

    90

// This function picks out a task we are going to do.

    91

//  Currently supported:

    92

//    - Make new route

    93

//    - Check route

    94

//    - Build HQ

    97

	int32 money;

    98

	int c;

    99

	assert(p->ainew.state == AI_STATE_WAKE_UP);

   100

	// First, check if we have a HQ

   101

	if (p->location_of_house == 0) {

   102

		// We have no HQ yet, build one on a random place

   103

		// Random till we found a place for it!

   104

		// TODO: this should not be on a random place..

   105

		AiNew_Build_CompanyHQ(p, Random() % MapSize());

   106

		// Enough for now, but we want to come back here the next time

   107

		//  so we do not change any status

   108

		return;

   109

	}

   110

   111

	money = p->player_money - AI_MINIMUM_MONEY;

   112

   113

	// Let's pick an action!

   114

	if (p->ainew.action == AI_ACTION_NONE) {

   115

		c = Random() & 0xFF;

   120

		} else if (p->ainew.last_vehiclecheck_date + AI_DAYS_BETWEEN_VEHICLE_CHECKS < _date) {

   121

			// Check all vehicles once in a while

   122

			p->ainew.action = AI_ACTION_CHECK_ALL_VEHICLES;

   123

			p->ainew.last_vehiclecheck_date = _date;

   124

		} else if (c < 100 && !_patches.ai_disable_veh_roadveh) {

   125

			// Do we have any spots for road-vehicles left open?

   126

			if (GetFreeUnitNumber(VEH_Road) <= _patches.max_roadveh) {

   131

			}

   132

		}/* else if (c < 200 && !_patches.ai_disable_veh_train) {

   133

			if (GetFreeUnitNumber(VEH_Train) <= _patches.max_trains) {

   134

				p->ainew.action = AI_ACTION_TRAIN_ROUTE;

   135

			}

   136

		}*/

   137

   138

		p->ainew.counter = 0;

   139

	}

   140

   141

	if (p->ainew.counter++ > AI_MAX_TRIES_FOR_SAME_ROUTE) {

   142

		p->ainew.action = AI_ACTION_NONE;

   143

		return;

   144

	}

   145

   146

	if (_patches.ai_disable_veh_roadveh && (

   150

		p->ainew.action = AI_ACTION_NONE;

   151

		return;

   152

	}

   153

   154

	if (_patches.ai_disable_veh_roadveh && (

   158

		p->ainew.action = AI_ACTION_NONE;

   159

		return;

   160

	}

   161

   164

		// We start repaying some money..

   165

		p->ainew.state = AI_STATE_REPAY_MONEY;

   166

		return;

   167

	}

   168

   169

	if (p->ainew.action == AI_ACTION_CHECK_ALL_VEHICLES) {

   170

		p->ainew.state = AI_STATE_CHECK_ALL_VEHICLES;

   171

		return;

   172

	}

   173

   174

	// It is useless to start finding a route if we don't have enough money

   175

	//  to build the route anyway..

   178

		if (GetFreeUnitNumber(VEH_Road) > _patches.max_roadveh) {

   179

			p->ainew.action = AI_ACTION_NONE;

   180

			return;

   181

		}

   182

		p->ainew.cargo = AI_NEED_CARGO;

   183

		p->ainew.state = AI_STATE_LOCATE_ROUTE;

   184

		p->ainew.tbt = AI_BUS; // Bus-route

   185

		return;

   186

	}

   189

		if (GetFreeUnitNumber(VEH_Road) > _patches.max_roadveh) {

   190

			p->ainew.action = AI_ACTION_NONE;

   191

			return;

   192

		}

   193

		p->ainew.cargo = AI_NEED_CARGO;

   194

		p->ainew.last_id = 0;

   195

		p->ainew.state = AI_STATE_LOCATE_ROUTE;

   196

		p->ainew.tbt = AI_TRUCK;

   197

		return;

   198

	}

   199

   200

	p->ainew.state = AI_STATE_NOTHING;

   201

}

   202

   206

	p->ainew.action = AI_ACTION_NONE;

   207

	p->ainew.state = AI_STATE_NOTHING;

   208

}

   209

   211

// Check if a city or industry is good enough to start a route there

   214

	if (type == AI_CITY) {

   215

		Town *t = GetTown(ic);

   216

		Station *st;

   217

		uint count = 0;

   218

		int j = 0;

   219

   220

		// We don't like roadconstructions, don't even true such a city

   221

		if (t->road_build_months != 0) return false;

   222

   223

		// Check if the rating in a city is high enough

   224

		//  If not, take a chance if we want to continue

   225

		if (t->ratings[_current_player] < 0 && CHANCE16(1,4)) return false;

   226

   227

		if (t->max_pass - t->act_pass < AI_CHECKCITY_NEEDED_CARGO && !CHANCE16(1,AI_CHECKCITY_CITY_CHANCE)) return false;

   228

   229

		// Check if we have build a station in this town the last 6 months

   230

		//  else we don't do it. This is done, because stat updates can be slow

   231

		//  and sometimes it takes up to 4 months before the stats are corectly.

   232

		//  This way we don't get 12 busstations in one city of 100 population ;)

   233

		FOR_ALL_STATIONS(st) {

   234

			// Is it an active station

   235

			if (st->xy == 0) continue;

   236

			// Do we own it?

   237

			if (st->owner == _current_player) {

   238

				// Are we talking busses?

   239

				if (p->ainew.tbt == AI_BUS && (FACIL_BUS_STOP & st->facilities) != FACIL_BUS_STOP) continue;

   240

				// Is it the same city as we are in now?

   241

				if (st->town != t) continue;

   242

				// When was this station build?

   243

				if (_date - st->build_date < AI_CHECKCITY_DATE_BETWEEN) return false;

   244

				// Cound the amount of stations in this city that we own

   245

				count++;

   246

			} else {

   247

				// We do not own it, request some info about the station

   248

				//  we want to know if this station gets the same good. If so,

   249

				//  we want to know its rating. If it is too high, we are not going

   250

				//  to build there

   251

				if (!st->goods[CT_PASSENGERS].last_speed) continue;

   252

				// Is it around our city

   253

				if (DistanceManhattan(st->xy, t->xy) > 10) continue;

   254

				// It does take this cargo.. what is his rating?

   255

				if (st->goods[CT_PASSENGERS].rating < AI_CHECKCITY_CARGO_RATING) continue;

   256

				j++;

   257

				// When this is the first station, we build a second with no problem ;)

   258

				if (j == 1) continue;

   259

				// The rating is high.. second station...

   260

				//  a little chance that we still continue

   261

				//  But if there are 3 stations of this size, we never go on...

   262

				if (j == 2 && CHANCE16(1, AI_CHECKCITY_CARGO_RATING_CHANCE)) continue;

   263

				// We don't like this station :(

   264

				return false;

   265

			}

   266

		}

   267

   268

		// We are about to add one...

   269

		count++;

   270

		// Check if we the city can provide enough cargo for this amount of stations..

   271

		if (count * AI_CHECKCITY_CARGO_PER_STATION > t->max_pass) return false;

   272

   273

		// All check are okay, so we can build here!

   274

		return true;

   275

	}

   276

	if (type == AI_INDUSTRY) {

   277

		Industry *i = GetIndustry(ic);

   278

		Station *st;

   279

		int count = 0;

   280

		int j = 0;

   281

   282

		if (i->town != NULL && i->town->ratings[_current_player] < 0 && CHANCE16(1,4)) return false;

   283

   284

		// No limits on delevering stations!

   285

		//  Or for industry that does not give anything yet

   286

		if (i->produced_cargo[0] == 0xFF || i->total_production[0] == 0) return true;

   287

   288

		if (i->total_production[0] - i->total_transported[0] < AI_CHECKCITY_NEEDED_CARGO) return false;

   289

   290

		// Check if we have build a station in this town the last 6 months

   291

		//  else we don't do it. This is done, because stat updates can be slow

   292

		//  and sometimes it takes up to 4 months before the stats are corectly.

   293

		FOR_ALL_STATIONS(st) {

   294

			// Is it an active station

   295

			if (st->xy == 0) continue;

   296

   297

			// Do we own it?

   298

			if (st->owner == _current_player) {

   299

				// Are we talking trucks?

   300

				if (p->ainew.tbt == AI_TRUCK && (FACIL_TRUCK_STOP & st->facilities) != FACIL_TRUCK_STOP) continue;

   301

				// Is it the same city as we are in now?

   302

				if (st->town != i->town) continue;

   303

				// When was this station build?

   304

				if (_date - st->build_date < AI_CHECKCITY_DATE_BETWEEN) return false;

   305

				// Cound the amount of stations in this city that we own

   306

				count++;

   307

			} else {

   308

				// We do not own it, request some info about the station

   309

				//  we want to know if this station gets the same good. If so,

   310

				//  we want to know its rating. If it is too high, we are not going

   311

				//  to build there

   312

				if (i->produced_cargo[0] == 0xFF) continue;

   313

				// It does not take this cargo

   314

				if (!st->goods[i->produced_cargo[0]].last_speed) continue;

   315

				// Is it around our industry

   316

				if (DistanceManhattan(st->xy, i->xy) > 5) continue;

   317

				// It does take this cargo.. what is his rating?

   318

				if (st->goods[i->produced_cargo[0]].rating < AI_CHECKCITY_CARGO_RATING) continue;

   319

				j++;

   320

				// The rating is high.. a little chance that we still continue

   321

				//  But if there are 2 stations of this size, we never go on...

   322

				if (j == 1 && CHANCE16(1, AI_CHECKCITY_CARGO_RATING_CHANCE)) continue;

   323

				// We don't like this station :(

   324

				return false;

   325

			}

   326

		}

   327

   328

		// We are about to add one...

   329

		count++;

   330

		// Check if we the city can provide enough cargo for this amount of stations..

   331

		if (count * AI_CHECKCITY_CARGO_PER_STATION > i->total_production[0]) return false;

   332

   333

		// All check are okay, so we can build here!

   334

		return true;

   335

	}

   336

   337

	return true;

   338

}

   339

   340

   346

   363

		} else if (p->ainew.tbt == AI_TRUCK) {

   365

   368

		}

   369

   373

   381

   391

   402

   425

	}

   426

   427

	// The same city is not allowed

   428

	// Also check if the city is valid

   431

   435

   467

					if (GetIndustry(p->ainew.from_ic)->produced_cargo[0] == GetIndustry(p->ainew.temp)->accepts_cargo[i]) {

   468

						// Found a compatbiel industry

   469

						max_cargo = GetIndustry(p->ainew.from_ic)->total_production[0] - GetIndustry(p->ainew.from_ic)->total_transported[0];

   470

						found = true;

   481

					if (GetIndustry(p->ainew.temp)->produced_cargo[0] == GetIndustry(p->ainew.from_ic)->accepts_cargo[i]) {

   482

						// Found a compatbiel industry

   483

						found = true;

   484

						max_cargo = GetIndustry(p->ainew.temp)->total_production[0] - GetIndustry(p->ainew.from_ic)->total_transported[0];