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

	print("");

    15

	print("--TestInit--");

    16

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

    17

	Sleep(1);

    18

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

    19

}

    20

    21

function Regression::Std()

    22

{

    23

	print("");

    24

	print("--Std--");

    25

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

    26

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

    27

}

    28

    29

function Regression::Base()

    30

{

    31

	local base = AIBase();

    32

    33

	print("");

    34

	print("--AIBase--");

    35

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

    36

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

    37

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

    38

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

    39

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

    40

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

    41

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

    42

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

    43

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

    44

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

    45

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

    46

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

    47

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

    48

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

    49

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

    50

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

    51

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

    52

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

    53

}

    54

    55

function Regression::Cargo()

    56

{

    57

	local cargo = AICargo();

    58

    59

	print("");

    60

	print("--AICargo--");

    61

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

    62

		print("  Cargo " + i);

    63

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

    64

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

    65

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

    66

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

    67

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

    68

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

    69

	}

    70

}

    71

    72

function Regression::Company()

    73

{

    74

	local company = AICompany();

    75

    76

	print("");

    77

	print("--Company--");

    78

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

    79

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

    80

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

    81

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

    82

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

    83

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

    84

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

    85

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

    86

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

    87

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

    88

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

    89

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

    90

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

    91

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

    92

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

    93

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

    94

}

    95

    96

function Regression::Industry()

    97

{

    98

	local industry = AIIndustry();

    99

	local j = 0;

   100

   101

	print("");

   102

	print("--Industry--");

   103

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

   104

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

   106

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

   107

		print("  Industry " + i);

   108

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

   109

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

   110

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

   111

	}

   112

	print("  Valid Industries:    " + j);

   113

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

   114

}

   115

   116

function Regression::Map()

   117

{

   118

	local map = AIMap();

   119

   120

	print("");

   121

	print("--Map--");

   122

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

   123

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

   124

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

   125

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

   126

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

   127

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

   128

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

   129

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

   130

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

   131

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

   132

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

   133

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

   134

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

   135

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

   136

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

   137

	print("  Distance");

   138

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

   139

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

   140

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

   141

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

   142

}

   143

   144

function Regression::Road()

   145

{

   146

	local company = AICompany();

   147

	local road = AIRoad();

   148

   149

	print("");

   150

	print("--Road--");

   151

	print("  Road");

   152

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

   153

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

   154

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

   155

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

   156

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

   157

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

   158

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

   159

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

   160

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

   161

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

   162

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

   163

   164

	print("  Depot");

   165

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

   166

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

   167

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

   168

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

   169

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

   170

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

   171

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

   172

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

   173

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

   174

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

   175

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

   176

   177

	print("  Station");

   178

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

   179

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

   180

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

   181

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

   182

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

   183

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

   184

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

   185

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

   186

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

   187

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

   188

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

   189

   190

	print("  Station Types");

   191

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

   192

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

   193

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

   194

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

   195

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

   196

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

   197

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

   198

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

   199

}

   200

   226

function Regression::Town()

   227

{

   228

	local town = AITown();

   229

	local j = 0;

   230

   231

	print("");

   232

	print("--Town--");

   233

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

   234

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

   236

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

   237

		print("  Town " + i);

   238

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

   239

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

   240

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

   241

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

   242

	}

   244

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

   245

}

   246

   247

   248

function Regression::Start()

   249

{

   250

	this.TestInit();

   251

	this.Std();

   252

	this.Base();

   253

	this.Cargo();

   254

	this.Company();

   255

	this.Industry();

   256

	this.Map();

   257

	this.Road();

   259

	this.Town();

   260

}

   261

   262

function Regression::Stop()

   263

{

   264

	this.stop = true;

   265

}

   266

   267

class FRegression extends AIFactory {

   268

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

   269

	function GetName()        { return "Regression"; }

   270

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

   271

	function GetVersion()     { return 1; }

   272

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

   273

	function CreateInstance() { return "Regression"; }

   274

}

   275

   276

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

   277

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

   278

 *  kicks in, and use a pre-made savegame of which you already know the result.

   279

 * You can compare the output from this AI with the pre-made one, and it should

   280

 *  match. If not, something went wrong. */

   281

iFRegression <-FRegression();