1

import("queue.priority_queue", "PQ", 2);

     2

import("queue.binary_heap", "BH", 1);

     3

import("graph.aystar", "AS", 3);

     4

     5

class Regression extends AIController {

     6

	function Start();

     7

}

     8

     9

    10

    11

function Regression::TestInit()

    12

{

    13

	print("");

    14

	print("--TestInit--");

    15

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

    16

	this.Sleep(1);

    17

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

    18

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

    19

	print(" IsValid(vehicle.plane_speed): " + AIGameSettings.IsValid("vehicle.plane_speed"));

    20

	print(" vehicle.plane_speed: " + AIGameSettings.GetValue("vehicle.plane_speed"));

    21

	require("require.nut");

    26

}

    27

    28

function Regression::Std()

    29

{

    30

	print("");

    31

	print("--Std--");

    32

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

    33

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

    34

}

    35

    36

function Regression::Base()

    37

{

    38

	print("");

    39

	print("--AIBase--");

    40

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

    41

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

    42

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

    43

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

    44

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

    45

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

    46

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

    47

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

    48

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

    49

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

    50

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

    51

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

    52

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

    53

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

    54

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

    55

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

    56

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

    57

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

    58

}

    59

    60

function Regression::Airport()

    61

{

    62

	print("");

    63

	print("--AIAirport--");

    64

    65

	print("  IsHangarTile():       " + AIAirport.IsHangarTile(32116));

    66

	print("  IsAirportTile():      " + AIAirport.IsAirportTile(32116));

    67

	print("  GetHangarOfAirport(): " + AIAirport.GetHangarOfAirport(32116));

    68

    69

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

    70

		print("  AirportAvailable(" + i + "):         " + AIAirport.AirportAvailable(i));

    71

		print("  GetAirportWidth(" + i + "):          " + AIAirport.GetAirportWidth(i));

    72

		print("  GetAirportHeight(" + i + "):         " + AIAirport.GetAirportHeight(i));

    73

		print("  GetAirportCoverageRadius(" + i + "): " + AIAirport.GetAirportCoverageRadius(i));

    74

	}

    75

    76

	print("  GetBankBalance():     " + AICompany.GetBankBalance(AICompany.MY_COMPANY));

    77

	print("  BuildAirport():       " + AIAirport.BuildAirport(32116, 0));

    78

	print("  IsHangarTile():       " + AIAirport.IsHangarTile(32116));

    79

	print("  IsAirportTile():      " + AIAirport.IsAirportTile(32116));

    80

	print("  GetHangarOfAirport(): " + AIAirport.GetHangarOfAirport(32116));

    81

	print("  IsHangarTile():       " + AIAirport.IsHangarTile(32119));

    82

	print("  IsAirportTile():      " + AIAirport.IsAirportTile(32119));

    83

	print("  GetBankBalance():     " + AICompany.GetBankBalance(AICompany.MY_COMPANY));

    84

    85

	print("  RemoveAirport():      " + AIAirport.RemoveAirport(32118));

    86

	print("  IsHangarTile():       " + AIAirport.IsHangarTile(32119));

    87

	print("  IsAirportTile():      " + AIAirport.IsAirportTile(32119));

    88

	print("  GetBankBalance():     " + AICompany.GetBankBalance(AICompany.MY_COMPANY));

    89

	print("  BuildAirport():       " + AIAirport.BuildAirport(32116, 0));

    90

}

    91

    92

function Regression::Bridge()

    93

{

    94

	local j = 0;

    95

    96

	print("");

    97

	print("--Bridge--");

    98

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

    99

		if (AIBridge.IsValidBridge(i)) j++;

   100

		print("  Bridge " + i);

   101

		print("    IsValidBridge():    " + AIBridge.IsValidBridge(i));

   102

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

   103

		print("    GetMaxSpeed():      " + AIBridge.GetMaxSpeed(i));

   104

		print("    GetPrice():         " + AIBridge.GetPrice(i, 5));

   105

		print("    GetMaxLength():     " + AIBridge.GetMaxLength(i));

   106

		print("    GetMinLength():     " + AIBridge.GetMinLength(i));

   107

		print("    GetYearAvailable(): " + AIBridge.GetYearAvailable(i));

   108

	}

   109

	print("  Valid Bridges:        " + j);

   110

   111

	print("  IsBridgeTile():       " + AIBridge.IsBridgeTile(33160));

   112

	print("  RemoveBridge():       " + AIBridge.RemoveBridge(33155));

   113

	print("  GetLastErrorString(): " + AIError.GetLastErrorString());

   114

	print("  GetOtherBridgeEnd():  " + AIBridge.GetOtherBridgeEnd(33160));

   115

	print("  BuildBridge():        " + AIBridge.BuildBridge(AIVehicle.VEHICLE_ROAD, 5, 33160, 33155));

   116

	print("  IsBridgeTile():       " + AIBridge.IsBridgeTile(33160));

   117

	print("  IsBridgeTile():       " + AIBridge.IsBridgeTile(33155));

   118

	print("  GetOtherBridgeEnd():  " + AIBridge.GetOtherBridgeEnd(33160));

   119

	print("  BuildBridge():        " + AIBridge.BuildBridge(AIVehicle.VEHICLE_ROAD, 5, 33160, 33155));

   120

	print("  GetLastErrorString(): " + AIError.GetLastErrorString());

   121

	print("  RemoveBridge():       " + AIBridge.RemoveBridge(33155));

   122

	print("  IsBridgeTile():       " + AIBridge.IsBridgeTile(33160));

   123

}

   124

   125

function Regression::BridgeList()

   126

{

   127

	local list = AIBridgeList();

   128

   129

	print("");

   130

	print("--BridgeList--");

   131

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

   132

	list.Valuate(AIBridge.GetMaxSpeed);

   133

	print("  MaxSpeed ListDump:");

   134

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

   135

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

   136

	}

   137

	list.Valuate(AIBridge.GetPrice, 5);

   138

	print("  Price ListDump:");

   139

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

   140

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

   141

	}

   142

	list.Valuate(AIBridge.GetMaxLength);

   143

	print("  MaxLength ListDump:");

   144

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

   145

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

   146

	}

   147

	list.Valuate(AIBridge.GetMinLength);

   148

	print("  MinLength ListDump:");

   149

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

   150

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

   151

	}

   152

	list.Valuate(AIBridge.GetYearAvailable);

   153

	print("  YearAvailable ListDump:");

   154

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

   155

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

   156

	}

   157

   158

	local list = AIBridgeList_Length(14);

   159

   160

	print("");

   161

	print("--BridgeList_Length--");

   162

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

   163

	list.Valuate(AIBridge.GetMaxSpeed);

   164

	print("  MaxSpeed ListDump:");

   165

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

   166

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

   167

	}

   168

	list.Valuate(AIBridge.GetPrice, 14);

   169

	print("  Price ListDump:");

   170

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

   171

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

   172

	}

   173

}

   174

   175

function Regression::Cargo()

   176

{

   177

	print("");

   178

	print("--AICargo--");

   179

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

   180

		print("  Cargo " + i);

   181

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

   182

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

   183

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

   184

		print("    HasCargoClass():         " + AICargo.HasCargoClass(i, AICargo.CC_PASSENGERS));

   185

		print("    GetTownEffect():         " + AICargo.GetTownEffect(i));

   186

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

   187

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

   188

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

   189

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

   190

	}

   191

}

   192

   193

function Regression::CargoList()

   194

{

   195

	local list = AICargoList();

   196

   197

	print("");

   198

	print("--CargoList--");

   199

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

   200

	list.Valuate(AICargo.IsFreight);

   201

	print("  IsFreight ListDump:");

   202

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

   203

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

   204

	}

   205

   206

	list.Valuate(AICargo.GetCargoIncome, 100, 100);

   207

	print("  CargoIncomes(100, 100) ListDump:");

   208

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

   209

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

   210

	}

   211

}

   212

   213

function Regression::Company()

   214

{

   215

	print("");

   216

	print("--Company--");

   217

   218

	/* Test AIXXXMode() in scopes */

   219

	{

   220

		local test = AITestMode();

   221

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

   222

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

   223

		{

   224

			local exec = AIExecMode();

   225

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

   226

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

   227

			print("  GetLastErrorString(): " + AIError.GetLastErrorString());

   228

		}

   229

	}

   230

   231

	print("  GetCompanyName():            " + AICompany.GetCompanyName(AICompany.MY_COMPANY));

   232

	print("  GetPresidentName():          " + AICompany.GetPresidentName(AICompany.MY_COMPANY));

   233

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

   234

	print("  GetPresidentName():          " + AICompany.GetPresidentName(AICompany.MY_COMPANY));

   235

	print("  GetCompanyValue():           " + AICompany.GetCompanyValue(AICompany.MY_COMPANY));

   236

	print("  GetBankBalance():            " + AICompany.GetBankBalance(AICompany.MY_COMPANY));

   237

	print("  GetCompanyName():            " + AICompany.GetCompanyName(240));

   238

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

   239

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

   240

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

   241

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

   242

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

   243

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

   244

	print("  GetLastErrorString():        " + AIError.GetLastErrorString());

   245

	print("  GetBankBalance():            " + AICompany.GetBankBalance(AICompany.MY_COMPANY));

   246

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

   247

	print("  SetMinimumLoanAmount(31337): " + AICompany.SetMinimumLoanAmount(31337));

   248

	print("  GetBankBalance():            " + AICompany.GetBankBalance(AICompany.MY_COMPANY));

   249

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

   250

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

   251

	print("  GetBankBalance():            " + AICompany.GetBankBalance(AICompany.MY_COMPANY));

   252

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

   253

	print("  GetCompanyHQ():              " + AICompany.GetCompanyHQ(AICompany.MY_COMPANY));

   254

	print("  BuildCompanyHQ():            " + AICompany.BuildCompanyHQ(AIMap.GetTileIndex(127, 129)));

   255

	print("  GetCompanyHQ():              " + AICompany.GetCompanyHQ(AICompany.MY_COMPANY));

   256

	print("  BuildCompanyHQ():            " + AICompany.BuildCompanyHQ(AIMap.GetTileIndex(129, 129)));

   257

	print("  GetCompanyHQ():              " + AICompany.GetCompanyHQ(AICompany.MY_COMPANY));

   258

	print("  BuildCompanyHQ():            " + AICompany.BuildCompanyHQ(AIMap.GetTileIndex(129, 128)));

   259

	print("  GetLastErrorString():        " + AIError.GetLastErrorString());

   260

	print("  GetAutoRenewStatus();        " + AICompany.GetAutoRenewStatus(AICompany.MY_COMPANY));

   261

	print("  SetAutoRenewStatus(true);    " + AICompany.SetAutoRenewStatus(true));

   262

	print("  GetAutoRenewStatus();        " + AICompany.GetAutoRenewStatus(AICompany.MY_COMPANY));

   263

	print("  SetAutoRenewStatus(true);    " + AICompany.SetAutoRenewStatus(true));

   264

	print("  SetAutoRenewStatus(false);   " + AICompany.SetAutoRenewStatus(false));

   265

	print("  GetAutoRenewMonths();        " + AICompany.GetAutoRenewMonths(AICompany.MY_COMPANY));

   266

	print("  SetAutoRenewMonths(-12);     " + AICompany.SetAutoRenewMonths(-12));

   267

	print("  GetAutoRenewMonths();        " + AICompany.GetAutoRenewMonths(AICompany.MY_COMPANY));

   268

	print("  SetAutoRenewMonths(-12);     " + AICompany.SetAutoRenewMonths(-12));

   269

	print("  SetAutoRenewMonths(6);       " + AICompany.SetAutoRenewMonths(6));

   270

	print("  GetAutoRenewMoney();         " + AICompany.GetAutoRenewMoney(AICompany.MY_COMPANY));

   271

	print("  SetAutoRenewMoney(200000);   " + AICompany.SetAutoRenewMoney(200000));

   272

	print("  GetAutoRenewMoney();         " + AICompany.GetAutoRenewMoney(AICompany.MY_COMPANY));

   273

	print("  SetAutoRenewMoney(200000);   " + AICompany.SetAutoRenewMoney(200000));

   274

	print("  SetAutoRenewMoney(100000);   " + AICompany.SetAutoRenewMoney(100000));

   275

}

   276

   277

function Regression::Engine()

   278

{

   279

	local j = 0;

   280

   281

	print("");

   282

	print("--Engine--");

   283

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

   284

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

   285

		print("  Engine " + i);

   286

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

   287

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

   288

		print("    GetCargoType():     " + AIEngine.GetCargoType(i));

   289

		print("    CanRefitCargo():    " + AIEngine.CanRefitCargo(i, 1));

   290

		print("    GetCapacity():      " + AIEngine.GetCapacity(i));

   291

		print("    GetReliability():   " + AIEngine.GetReliability(i));

   292

		print("    GetMaxSpeed():      " + AIEngine.GetMaxSpeed(i));

   293

		print("    GetPrice():         " + AIEngine.GetPrice(i));

   294

		print("    GetMaxAge():        " + AIEngine.GetMaxAge(i));

   295

		print("    GetRunningCost():   " + AIEngine.GetRunningCost(i));

   296

		print("    GetVehicleType():   " + AIEngine.GetVehicleType(i));

   297

		print("    GetRoadType():      " + AIEngine.GetRoadType(i));

   298

	}

   299

	print("  Valid Engines:        " + j);

   300

}

   301

   302

function Regression::EngineList()

   303

{

   304

	local list = AIEngineList(AIVehicle.VEHICLE_ROAD);

   305

   306

	print("");

   307

	print("--EngineList--");

   308

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

   309

	list.Valuate(AIEngine.GetCargoType);

   310

	print("  CargoType ListDump:");

   311

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

   312

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

   313

	}

   314

	list.Valuate(AIEngine.GetCapacity);

   315

	print("  Capacity ListDump:");

   316

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

   317

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

   318

	}

   319

	list.Valuate(AIEngine.GetReliability);

   320

	print("  Reliability ListDump:");

   321

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

   322

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

   323

	}

   324

	list.Valuate(AIEngine.GetMaxSpeed);

   325

	print("  MaxSpeed ListDump:");

   326

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

   327

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

   328

	}

   329

	list.Valuate(AIEngine.GetPrice);

   330

	print("  Price ListDump:");

   331

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

   332

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

   333

	}

   334

}

   335

   336

function Regression::Event()

   337

{

   338

	print("");

   339

	print("--Event--");

   340

	AIEventController.Test();

   341

	local e = AIEventController.GetNextEvent();

   342

	print("  GetNextEvent:      " + (e == null ? "null" : "instance"));

   343

	print("    GetEventType:    " + e.GetEventType());

   344

	local c = AIEventTest.Convert(e);

   345

	print("    Convert:         " + (c == null ? "null" : "instance"));

   346

	print("      GetTest:       " + c.GetTest());

   347

   348

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

   349

	AIEventController.DisableEvent(1);

   350

	AIEventController.Test();

   351

	e = AIEventController.GetNextEvent();

   352

	print("  GetNextEvent:      " + (e == null ? "null" : "instance"));

   353

   354

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

   355

	AIEventController.EnableEvent(1);

   356

	AIEventController.Test();

   357

	e = AIEventController.GetNextEvent();

   358

	print("  GetNextEvent:      " + (e == null ? "null" : "instance"));

   359

   360

	{

   361

		print("  DisableAllEvents():done");

   362

		AIEventController.DisableAllEvents();

   363

		AIEventController.Test();

   364

		e = AIEventController.GetNextEvent();

   365

		print("  GetNextEvent:      " + (e == null ? "null" : "instance"));

   366

	}

   367

   368

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

   369

	AIEventController.EnableEvent(1);

   370

	AIEventController.Test();

   371

	e = AIEventController.GetNextEvent();

   372

	print("  GetNextEvent:      " + (e == null ? "null" : "instance"));

   373

	e = AIEventController.GetNextEvent();

   374

	print("  GetNextEvent:      " + (e == null ? "null" : "instance"));

   375

   376

	AIEventController.EnableAllEvents();

   377

}

   378

   379

function cost_callback(old_path, new_tile, self) { if (old_path == null) return 0; return old_path.GetCost() + 1; }

   380

function estimate_callback(tile, goals, self) { return goals[0] - tile; }

   381

function neighbours_callback(path, cur_tile, self) { return [cur_tile + 1]; }

   382

   383

function Regression::Graph()

   384

{

   385

	print("--AyStar--");

   386

	print("  Fastest path:");

   387

	local as = AS(cost_callback, estimate_callback, neighbours_callback);

   388

   389

	local path = false;

   390

	as.InitializePath([1], [10]);

   391

	while (path == false) path = as.FindPath(5);

   392

   393

	while (path != null) {

   394

		print("    Tile " + path.GetNode());

   395

		path = path.GetParent();

   396

	}

   397

}

   398

   399

function Regression::Industry()

   400

{

   401

	local j = 0;

   402

   403

	print("");

   404

	print("--Industry--");

   405

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

   406

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

   407

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

   408

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

   409

		print("  Industry " + i);

   410

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

   411

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

   412

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

   413

		print("    GetProduction():   " + AIIndustry.GetProduction(i, 1));

   414

		print("    IsCargoAccepted(): " + AIIndustry.IsCargoAccepted(i, 1));

   415

   416

		local cargo_list = AICargoList();

   417

		for (local j = cargo_list.Begin(); cargo_list.HasNext(); j = cargo_list.Next()) {

   418

			if (AIIndustry.GetProduction(i, j) > 0) {

   419

				print("	   GetLastMonthProduction(): " + AIIndustry.GetLastMonthProduction(i, j));

   420

				print("	   GetLastMonthTransported(): " + AIIndustry.GetLastMonthTransported(i, j));

   421

			}

   422

		}

   423

	}

   424

	print("  Valid Industries:    " + j);

   425

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

   426

}

   427

   428

function Regression::IndustryList()

   429

{

   430

	local list = AIIndustryList();

   431

   432

	print("");

   433

	print("--IndustryList--");

   434

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

   435

	list.Valuate(AIIndustry.GetLocation);

   436

	print("  Location ListDump:");

   437

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

   438

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

   439

	}

   440

	list.Valuate(AIIndustry.GetDistanceManhattanToTile, 30000);

   441

	print("  DistanceManhattanToTile(30000) ListDump:");

   442

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

   443

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

   444

	}

   445

	list.Valuate(AIIndustry.GetDistanceSquareToTile, 30000);

   446

	print("  DistanceSquareToTile(30000) ListDump:");

   447

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

   448

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

   449

	}

   450

	list.Valuate(AIIndustry.GetAmountOfStationsAround);

   451

	print("  GetAmountOfStationsAround(30000) ListDump:");

   452

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

   453

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

   454

	}

   455

	list.Valuate(AIIndustry.IsCargoAccepted, 1);

   456

	print("  CargoAccepted(1) ListDump:");

   457

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

   458

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

   459

	}

   460

	list.Valuate(AIIndustry.GetProduction, 1);

   461

	list.KeepAboveValue(50);

   462

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

   463

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

   464

	print("  Production ListDump:");

   465

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

   466

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

   467

	}

   468

   469

	list = AIIndustryList_CargoAccepting(1);

   470

	print("--IndustryList_CargoAccepting--");

   471

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

   472

	list.Valuate(AIIndustry.GetLocation);

   473

	print("  Location ListDump:");

   474

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

   475

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

   476

	}

   477

   478

	list = AIIndustryList_CargoProducing(1);

   479

	print("--IndustryList_CargoProducing--");

   480

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

   481

	list.Valuate(AIIndustry.GetLocation);

   482

	print("  Location ListDump:");

   483

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

   484

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

   485

	}

   486

}

   487

   488

function CustomValuator(list_id)

   489

{

   490

	return list_id * 4343;