1

class Regression extends AIController {

     2

	stop     = false;

     3

     4

	function Start();

     5

	function Stop();

     6

     7

	constructor() {	}

     8

}

     9

    10

    11

    12

function Regression::TestInit()

    13

{

    14

	local settings = AISettings();

    15

    16

	print("");

    17

	print("--TestInit--");

    18

	print(" TickTest: " + this.GetTick());

    19

	this.Sleep(1);

    20

	print(" TickTest: " + this.GetTick());

    21

	print(" SetCommandDelay: " + settings.SetCommandDelay(1));

    22

}

    23

    24

function Regression::Std()

    25

{

    26

	print("");

    27

	print("--Std--");

    28

	print(" abs(-21): " + abs(-21));

    29

	print(" abs( 21): " + abs(21));

    30

}

    31

    32

function Regression::Base()

    33

{

    34

	local base = AIBase();

    35

    36

	print("");

    37

	print("--AIBase--");

    38

	print("  Rand():       " + base.Rand());

    39

	print("  Rand():       " + base.Rand());

    40

	print("  Rand():       " + base.Rand());

    41

	print("  RandRange(0): " + base.RandRange(0));

    42

	print("  RandRange(0): " + base.RandRange(0));

    43

	print("  RandRange(0): " + base.RandRange(0));

    44

	print("  RandRange(1): " + base.RandRange(1));

    45

	print("  RandRange(1): " + base.RandRange(1));

    46

	print("  RandRange(1): " + base.RandRange(1));

    47

	print("  RandRange(2): " + base.RandRange(2));

    48

	print("  RandRange(2): " + base.RandRange(2));

    49

	print("  RandRange(2): " + base.RandRange(2));

    50

	print("  RandRange(9): " + base.RandRange(9));

    51

	print("  RandRange(9): " + base.RandRange(9));

    52

	print("  RandRange(9): " + base.RandRange(9));

    53

	print("  Chance(1, 2): " + base.Chance(1, 2));

    54

	print("  Chance(1, 2): " + base.Chance(1, 2));

    55

	print("  Chance(1, 2): " + base.Chance(1, 2));

    56

}

    57

    58

function Regression::Cargo()

    59

{

    60

	local cargo = AICargo();

    61

    62

	print("");

    63

	print("--AICargo--");

    64

	for (local i = -1; i < 15; i++) {

    65

		print("  Cargo " + i);

    66

		print("    IsValidCargo():          " + cargo.IsValidCargo(i));

    67

		print("    GetCargoLabel():         '" + cargo.GetCargoLabel(i)+ "'");

    68

		print("    IsFreight():             " + cargo.IsFreight(i));

    69

		print("    GetCargoIncome(0, 0):    " + cargo.GetCargoIncome(0, 0, i));

    70

		print("    GetCargoIncome(10, 10):  " + cargo.GetCargoIncome(10, 10, i));

    71

		print("    GetCargoIncome(100, 10): " + cargo.GetCargoIncome(100, 10, i));

    72

		print("    GetCargoIncome(10, 100): " + cargo.GetCargoIncome(10, 100, i));

    73

	}

    74

}

    75

    76

function Regression::Company()

    77

{

    78

	local company = AICompany();

    79

    80

	print("");

    81

	print("--Company--");

    82

    83

	/* Test AIXXXMode() in scopes */

    84

	{

    85

		local test = AITestMode();

    86

		print("  SetCompanyName():     " + company.SetCompanyName("Regression"));

    87

		print("  SetCompanyName():     " + company.SetCompanyName("Regression"));

    88

		{

    89

			local exec = AIExecMode();

    90

			print("  SetCompanyName():     " + company.SetCompanyName("Regression"));

    91

			print("  SetCompanyName():     " + company.SetCompanyName("Regression"));

    92

		}

    93

	}

    94

    95

	print("  GetCompanyName():     " + company.GetCompanyName());

    96

	print("  GetPresidentName():   " + company.GetPresidentName());

    97

	print("  SetPresidentName():   " + company.SetPresidentName("Regression AI"));

    98

	print("  GetPresidentName():   " + company.GetPresidentName());

    99

	print("  GetCompanyValue():    " + company.GetCompanyValue());

   100

	print("  GetBankBalance():     " + company.GetBankBalance());

   101

	print("  GetLoanAmount():      " + company.GetLoanAmount());

   102

	print("  GetMaxLoanAmount():   " + company.GetMaxLoanAmount());

   103

	print("  GetLoanInterval():    " + company.GetLoanInterval());

   104

	print("  SetLoanAmount(1):     " + company.SetLoanAmount(1));

   105

	print("  SetLoanAmount(100):   " + company.SetLoanAmount(100));

   106

	print("  SetLoanAmount(10000): " + company.SetLoanAmount(10000));

   107

	print("  GetBankBalance():     " + company.GetBankBalance());

   108

	print("  GetLoanAmount():      " + company.GetLoanAmount());

   109

	print("  SetLoanAmount(10000): " + company.SetLoanAmount(company.GetMaxLoanAmount()));

   110

	print("  GetBankBalance():     " + company.GetBankBalance());

   111

	print("  GetLoanAmount():      " + company.GetLoanAmount());

   112

}

   113

   114

function Regression::Industry()

   115

{

   116

	local industry = AIIndustry();

   117

	local j = 0;

   118

   119

	print("");

   120

	print("--Industry--");

   121

	print("  GetMaxIndustryID():  " + industry.GetMaxIndustryID());

   122

	print("  GetIndustryCount():  " + industry.GetIndustryCount());

   123

	for (local i = -1; i < industry.GetMaxIndustryID() + 1; i++) {

   124

		if (industry.IsValidIndustry(i)) j++;

   125

		print("  Industry " + i);

   126

		print("    IsValidIndustry(): " + industry.IsValidIndustry(i));

   127

		print("    GetName():         " + industry.GetName(i));

   128

		print("    GetLocation():     " + industry.GetLocation(i));

   129

	}

   130

	print("  Valid Industries:    " + j);

   131

	print("  GetIndustryCount():  " + industry.GetIndustryCount());

   132

}

   133

   134

function Regression::List()

   135

{

   136

	local list = AIList();

   137

   138

	print("");

   139

	print("--List--");

   140

   141

	print("  IsEmpty():     " + list.IsEmpty());

   142

	list.AddItem(1);

   143

	list.AddItem(2);

   144

	for (local i = 1000; i < 1100; i++) {

   145

		list.AddItem(i);

   146

	}

   147

	list.RemoveItem(1050);

   148

	list.RemoveItem(1150);

   149

	print("  Count():       " + list.Count());

   150

	print("  HasItem(1050): " + list.HasItem(1050));

   151

	print("  HasItem(1051): " + list.HasItem(1051));

   152

	print("  IsEmpty():     " + list.IsEmpty());

   153

	list.SortByItem(true);

   154

	print("  List Dump:");

   155

	for (local i = list.Begin(); list.HasNext(); i = list.Next()) {

   156

		print("    " + i + " => " + list.GetValue(i));

   157

	}

   158

	list.Clear();

   159

	print("  IsEmpty():     " + list.IsEmpty());

   160

}

   161

   162

function Regression::Map()

   163

{

   164

	local map = AIMap();

   165

   166

	print("");

   167

	print("--Map--");

   168

	print("  GetMapSize():     " + map.GetMapSize());

   169

	print("  GetMapSizeX():    " + map.GetMapSizeX());

   170

	print("  GetMapSizeY():    " + map.GetMapSizeY());

   171

	print("  GetTileX(123):    " + map.GetTileX(123));

   172

	print("  GetTileY(123):    " + map.GetTileY(123));

   173

	print("  GetTileIndex():   " + map.GetTileIndex(123, 0));

   174

	print("  GetTileIndex():   " + map.GetTileIndex(0, 123));

   175

	print("  GetTileIndex():   " + map.GetTileIndex(0, 0));

   176

	print("  GetTileIndex():   " + map.GetTileIndex(-1, -1));

   177

	print("  GetTileIndex():   " + map.GetTileIndex(10000, 10000));

   178

	print("  IsValidTile(123): " + map.IsValidTile(123));

   179

	print("  GetTileX(124):    " + map.GetTileX(124));

   180

	print("  GetTileY(124):    " + map.GetTileY(124));

   181

	print("  IsValidTile(124): " + map.IsValidTile(124));

   182

	print("  IsValidTile(0):   " + map.IsValidTile(0));

   183

	print("  IsValidTile(-1):  " + map.IsValidTile(-1));

   184

	print("  IsValidTile():    " + map.IsValidTile(map.GetMapSize()));

   185

	print("  IsValidTile():    " + map.IsValidTile(map.GetMapSize() - 1));

   186

	print("  DemolishTile():   " + map.DemolishTile(19592));

   187

	print("  DemolishTile():   " + map.DemolishTile(19335));

   188

	print("  Distance");

   189

	print("    DistanceManhattan(): " + map.DistanceManhattan(1, 10000));

   190

	print("    DistanceMax():       " + map.DistanceMax(1, 10000));

   191

	print("    DistanceSquare():    " + map.DistanceSquare(1, 10000));

   192

	print("    DistanceFromEdge():  " + map.DistanceFromEdge(10000));

   193

}

   194

   195

function Regression::Order()

   196

{

   197

	local order = AIOrder();

   198

   199

	print("");

   200

	print("--Order--");

   201

	print("  GetNumberOfOrders():   " + order.GetNumberOfOrders(1024));

   202

	print("  GetOrderDestination(): " + order.GetOrderDestination(1024, 1));

   203

	print("  AreOrderFlagsValid():  " + order.AreOrderFlagsValid(33416, AIOrder.AIOF_TRANSFER));

   204

	print("  IsValidVehicleOrder(): " + order.IsValidVehicleOrder(1024, 1));

   205

	print("  GetOrderFlags():       " + order.GetOrderFlags(1024, 1));

   206

	print("  AppendOrder():         " + order.AppendOrder(1024, 33416, AIOrder.AIOF_TRANSFER));

   207

	print("  InsertOrder():         " + order.InsertOrder(1024, 0, 33416, AIOrder.AIOF_TRANSFER));

   208

	print("  GetNumberOfOrders():   " + order.GetNumberOfOrders(1024));

   209

	print("  IsValidVehicleOrder(): " + order.IsValidVehicleOrder(1024, 1));

   210

	print("  RemoveOrder():         " + order.RemoveOrder(1024, 0));

   211

	print("  ChangeOrder():         " + order.ChangeOrder(1024, 0, AIOrder.AIOF_FULL_LOAD));

   212

	print("  GetOrderDestination(): " + order.GetOrderDestination(1024, 0));

   213

	print("  CopyOrders():          " + order.CopyOrders(1025, 1));

   214

	print("  CopyOrders():          " + order.CopyOrders(1025, 1024));

   215

	print("  ShareOrders():         " + order.ShareOrders(1025, 1));

   216

	print("  ShareOrders():         " + order.ShareOrders(1025, 1024));

   217

	print("  UnshareOrders():       " + order.UnshareOrders(1025));

   218

}

   219

   220

function Regression::Road()

   221

{

   222

	local road = AIRoad();

   223

   224

	print("");

   225

	print("--Road--");

   226

	print("  Road");

   227

	print("    IsRoadTile():                  " + road.IsRoadTile(33411));

   228

	print("    BuildRoad():                   " + road.BuildRoad(0, 1));

   229

	print("    BuildRoad():                   " + road.BuildRoad(33411, 33411));

   230

	print("    BuildRoad():                   " + road.BuildRoad(33411, 33414));

   231

	print("    AreRoadTilesConnected():       " + road.AreRoadTilesConnected(33412, 33413));

   232

	print("    IsRoadTile():                  " + road.IsRoadTile(33411));

   233

	print("    RemoveRoad():                  " + road.RemoveRoad(33411, 33411));

   234

	print("    RemoveRoad():                  " + road.RemoveRoad(33411, 33412));

   235

	print("    RemoveRoad():                  " + road.RemoveRoad(19590, 19590));

   236

   237

	print("  Depot");

   238

	print("    IsRoadTile():                  " + road.IsRoadTile(33411));

   239

	print("    BuildRoadDepot():              " + road.BuildRoadDepot(0, 1));

   240

	print("    BuildRoadDepot():              " + road.BuildRoadDepot(33411, 33411));

   241

	print("    BuildRoadDepot():              " + road.BuildRoadDepot(33411, 33414));

   242

	print("    BuildRoadDepot():              " + road.BuildRoadDepot(33411, 33412));

   243

	print("    IsRoadTile():                  " + road.IsRoadTile(33411));

   244

	print("    GetRoadDepotFrontTile():       " + road.GetRoadDepotFrontTile(33411));

   245

	print("    IsRoadDepotTile():             " + road.IsRoadDepotTile(33411));

   246

	print("    RemoveRoadDepot():             " + road.RemoveRoadDepot(33411));

   247

	print("    RemoveRoadDepot():             " + road.RemoveRoadDepot(33411));

   248

   249

	print("  Station");

   250

	print("    IsRoadTile():                  " + road.IsRoadTile(33411));

   251

	print("    BuildRoadStation():            " + road.BuildRoadStation(0, 1, false, false));

   252

	print("    BuildRoadStation():            " + road.BuildRoadStation(33411, 33411, false, false));

   253

	print("    BuildRoadStation():            " + road.BuildRoadStation(33411, 33414, false, false));

   254

	print("    BuildRoadStation():            " + road.BuildRoadStation(33411, 33412, false, false));

   255

	print("    IsRoadTile():                  " + road.IsRoadTile(33411));

   256

	print("    GetDriveThroughBackTile():     " + road.GetDriveThroughBackTile(33411));

   257

	print("    GetRoadStationFrontTile():     " + road.GetRoadStationFrontTile(33411));

   258

	print("    IsRoadStationTile():           " + road.IsRoadStationTile(33411));

   259

	print("    IsDriveThroughRoadStationTile: " + road.IsDriveThroughRoadStationTile(33411));

   260

	print("    RemoveRoadStation():           " + road.RemoveRoadStation(33411));

   261

	print("    RemoveRoadStation():           " + road.RemoveRoadStation(33411));

   262

   263

	print("  Station Types");

   264

	print("    BuildRoadStation(truck):       " + road.BuildRoadStation(33411, 33410, false, false));

   265

	print("    BuildRoadStation(bus):         " + road.BuildRoadStation(33412, 33413, true,  false));

   266

	print("    BuildRoadStation(truck):       " + road.BuildRoadStation(33411 + 256, 33411, false, false));

   267

	print("    BuildRoadStation(bus):         " + road.BuildRoadStation(33412 + 256, 33412 + 256 + 256, true,  false));

   268

	print("    BuildRoadStation(truck-drive): " + road.BuildRoadStation(33413, 33412, false, true));

   269

	print("    BuildRoadStation(bus-drive):   " + road.BuildRoadStation(33414, 33413, true,  true));

   270

	print("    BuildRoadStation(truck-drive): " + road.BuildRoadStation(33415, 33414, false, true));

   271

	print("    BuildRoadStation(bus-drive):   " + road.BuildRoadStation(33416, 33415, true,  true));

   272

	print("    BuildRoadDepot():              " + road.BuildRoadDepot(33417, 33418));

   273

	print("    GetRoadStationFrontTile():     " + road.GetRoadStationFrontTile(33411 + 256));

   274

	print("    GetRoadStationFrontTile():     " + road.GetRoadStationFrontTile(33412 + 256));

   275

	print("    IsDriveThroughRoadStationTile: " + road.IsDriveThroughRoadStationTile(33415));

   276

	print("    GetDriveThroughBackTile():     " + road.GetDriveThroughBackTile(33415));

   277

	print("    GetRoadStationFrontTile():     " + road.GetRoadStationFrontTile(33415));

   278

	print("    IsRoadTile():                  " + road.IsRoadTile(33415));

   279

}

   280

   281

function Regression::Sign()

   282

{

   283

	local sign = AISign();

   284

	local j = 0;

   285

   286

	print("");

   287

	print("--Sign--");

   288

	print("  BuildSign(33410, 'Some Sign'):       " + sign.BuildSign(33410, "Some Sign"));

   289

	local sign_id = sign.BuildSign(33409, "Some other Sign");

   290

	print("  BuildSign(33409, 'Some other Sign'): " + sign_id);

   291

	print("  RemoveSign(" + sign_id + "):                       " + sign.RemoveSign(sign_id));

   292

	print("");

   293

	print("  GetMaxSignID():    " + sign.GetMaxSignID());

   294

	print("  GetSignCount():    " + sign.GetSignCount());

   295

	for (local i = -1; i < sign.GetMaxSignID() + 1; i++) {

   296

		if (sign.IsValidSign(i)) j++;

   297

		print("  Sign " + i);

   298

		print("    IsValidSign():   " + sign.IsValidSign(i));

   299

		print("    GetText():       " + sign.GetText(i));

   300

		print("    GetLocation():   " + sign.GetLocation(i));

   301

	}

   302

	print("  Valid Signs:       " + j);

   303

	print("  GetSignCount():    " + sign.GetSignCount());

   304

}

   305

   306

function Regression::TileList()

   307

{

   308

	local list = AITileList();

   309

   310

	print("");

   311

	print("--TileList--");

   312

	print("  Count():             " + list.Count());

   313

	list.AddRectangle(41895 - 256 * 2, 256 * 2 + 41895 + 8);

   314

	print("  Count():             " + list.Count());

   315

   326

	list.Valuate(AITileListBuildable());

   327

	list.KeepValue(1);

   328

	print("  Buildable():         done");

   329

	print("  KeepValue(1):        done");

   330

	print("  Count():             " + list.Count());

   331

   332

	list.Valuate(AITileListCargoAcceptance(0));

   333

	list.KeepAboveValue(10);

   334

	print("  CargoAcceptance():   done");

   335

	print("  KeepAboveValue(10):  done");

   336

	print("  Count():             " + list.Count());

   337

	print("  ListDump:");

   338

	for (local i = list.Begin(); list.HasNext(); i = list.Next()) {

   339

		print("    " + i + " => " + list.GetValue(i));

   340

	}

   341

   342

	list.Valuate(AITileListRoadTile());

   343

	list.KeepValue(1);

   344

	print("  RoadTile():          done");

   345

	print("  KeepValue(1):        done");

   346

	print("  Count():             " + list.Count());

   347

	print("  ListDump:");

   348

	for (local i = list.Begin(); list.HasNext(); i = list.Next()) {

   349

		print("    " + i + " => " + list.GetValue(i));

   350

	}

   351

   352

	list.Valuate(AITileListNeighbourRoad());

   353

	list.KeepValue(1);

   354

	print("  NeighbourRoad():     done");

   355

	print("  KeepValue(1):        done");

   356

	print("  Count():             " + list.Count());

   357

	print("  ListDump:");

   358

	for (local i = list.Begin(); list.HasNext(); i = list.Next()) {

   359

		print("    " + i + " => " + list.GetValue(i));

   360

	}

   361

}

   362

   363

function Regression::Town()

   364

{

   365

	local town = AITown();

   366

	local j = 0;

   367

   368

	print("");

   369

	print("--Town--");

   370

	print("  GetMaxTownID():    " + town.GetMaxTownID());

   371

	print("  GetTownCount():    " + town.GetTownCount());

   372

	for (local i = -1; i < town.GetMaxTownID() + 1; i++) {

   373

		if (town.IsValidTown(i)) j++;

   374

		print("  Town " + i);

   375

		print("    IsValidTown():   " + town.IsValidTown(i));

   376

		print("    GetName():       " + town.GetName(i));

   377

		print("    GetPopulation(): " + town.GetPopulation(i));

   378

		print("    GetLocation():   " + town.GetLocation(i));

   379

	}

   380

	print("  Valid Towns:       " + j);

   381

	print("  GetTownCount():    " + town.GetTownCount());

   382

}

   383

   384

function Regression::TownList()

   385

{

   386

	local list = AITownList();

   387

   388

	print("");

   389

	print("--TownList--");

   390

	print("  Count():             " + list.Count());

   391

	list.Valuate(AITownListGetPopulation());

   392

	list.KeepAboveValue(500);

   393

	print("  KeepAboveValue(500): done");

   394

	print("  Count():             " + list.Count());

   395

	print("  ListDump:");

   396

	for (local i = list.Begin(); list.HasNext(); i = list.Next()) {

   397

		print("    " + i + " => " + list.GetValue(i));

   398

	}

   399

}

   400

   401

function Regression::Vehicle()

   402

{

   403

	local accounting = AIAccounting();

   404

	local company = AICompany();

   405

	local vehicle = AIVehicle();

   406

	local j = 0;

   407

   408

	print("");

   409

	print("--Vehicle--");

   410

	for (local i = -1; i < 257; i++) {

   411

		if (vehicle.IsValidEngine(i)) j++;

   412

		print("  Engine " + i);

   413

		print("    IsValidEngine():    " + vehicle.IsValidEngine(i));

   414

	}

   415

	print("  Valid Engines:        " + j);

   416

	print("  IsValidVehicle(-1):   " + vehicle.IsValidVehicle(-1));

   417

	print("  IsValidVehicle(0):    " + vehicle.IsValidVehicle(0));

   418

	print("  IsValidVehicle(1024): " + vehicle.IsValidVehicle(1024));

   419

	print("  ISValidVehicle(9999): " + vehicle.IsValidVehicle(9999));

   420

   421

	for (local i = -1; i < 15; i++) {

   422

		print("  FindBestRoadVehicle Cargo " + i);

   423

		print("    Reliability 0:      " + vehicle.FindBestRoadVehicle(i, 0));

   424

		print("    Reliability 50:     " + vehicle.FindBestRoadVehicle(i, 50));

   425

		print("    Reliability 100:    " + vehicle.FindBestRoadVehicle(i, 100));

   426

	}

   427

   428

	local bank = company.GetBankBalance();

   429

   430

	{

   431

		local transaction = AITransactionMode();

   432

		print("  BuildVehicle():       " + vehicle.BuildVehicle(33417, 153));

   433

		print("  IsValidVehicle(1024): " + vehicle.IsValidVehicle(1024));

   434

   435

		print("  --Transaction--");

   436

		print("    GetCosts():         " + transaction.GetCosts());

   437

		print("    Execute():          " + transaction.Execute());

   438

   439

		print("  IsValidVehicle(1024): " + vehicle.IsValidVehicle(1024));

   440

	}

   441

	print("  CloneVehicle():       " + vehicle.CloneVehicle(33417, 1024, true));

   442

   443

	local bank_after = company.GetBankBalance();

   444

   445

	print("  --Accounting--");

   446

	print("    GetCosts():         " + accounting.GetCosts());

   447

	print("    Should be:          " + (bank - bank_after));

   448

	print("    ResetCosts():       " + accounting.ResetCosts());

   449

   450

	bank = company.GetBankBalance();

   451

   452

	print("  SellVehicle(1025):    " + vehicle.SellVehicle(1025));

   453

	print("  StartStopVehicle():   " + vehicle.StartStopVehicle(1024));

   454

	print("  SendVehicleToDepot(): " + vehicle.SendVehicleToDepot(1024));

   455

   456

	bank_after = company.GetBankBalance();

   457

   458

	print("  --Accounting--");

   459

	print("    GetCosts():         " + accounting.GetCosts());

   460

	print("    Should be:          " + (bank - bank_after));

   461

   462

	print("  CloneVehicle():       " + vehicle.CloneVehicle(33417, 1024, true));

   463

}

   464

   465

   466

function Regression::Start()

   467

{

   468

	this.TestInit();

   469

	this.Std();

   470

	this.Base();

   471

	this.Cargo();

   472

	this.Company();

   473

	this.Industry();

   474

	this.Map();

   475

	this.List();

   476

	this.Road();

   477

	this.Sign();

   478

	this.TileList();

   479

	this.Town();

   480

	this.TownList();

   481

	this.Vehicle();

   482

	/* Order has to be after Vehicle */

   483

	this.Order();

   484

}

   485

   486

function Regression::Stop()

   487

{

   488

	this.stop = true;

   489

}

   490

   491

class FRegression extends AIFactory {

   492

	function GetAuthor()      { return "OpenTTD Dev Team"; }

   493

	function GetName()        { return "Regression"; }

   494

	function GetDescription() { return "This runs regression-tests on all commands. On the same map the result should always be the same."; }

   495

	function GetVersion()     { return 1; }

   496

	function GetDate()        { return "2007-03-18"; }

   497

	function CreateInstance() { return "Regression"; }

   498

}

   499

   500

/* Only enable this if you want to run the regression test.

   501

 *  The best way to do it is to disable all other AIs, so you are sure thisone