1

/* $Id$ */

     2

     3

/** @file ai_controller.cpp Implementation of AIControler. */

     4

     5

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

     6

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

     7

#include "../../player_func.h"

     8

#include "../../core/alloc_func.hpp"

    10

#include "table/strings.h"

    11

    12

#include <squirrel.h>

    13

#include "../../squirrel.hpp"

    14

#include "../../squirrel_helper.hpp"

    15

#include "../../squirrel_class.hpp"

    16

#include "../../squirrel_std.hpp"

    17

#include "ai_controller.hpp"

    18

#include "../ai_threads.h"

    19

#include "../ai_info.hpp"

    20

    21

/* Convert all AI related classes to Squirrel data.

    22

 * Note: this line a marker in squirrel_export.sh. Do not change! */

    23

#include "ai_abstractlist.hpp.sq"

    24

#include "ai_accounting.hpp.sq"

    25

#include "ai_airport.hpp.sq"

    26

#include "ai_base.hpp.sq"

    27

#include "ai_bridge.hpp.sq"

    28

#include "ai_bridgelist.hpp.sq"

    29

#include "ai_cargo.hpp.sq"

    30

#include "ai_cargolist.hpp.sq"

    31

#include "ai_company.hpp.sq"

    32

#include "ai_controller.hpp.sq"

    33

#include "ai_date.hpp.sq"

    34

#include "ai_engine.hpp.sq"

    35

#include "ai_enginelist.hpp.sq"

    36

#include "ai_error.hpp.sq"

    37

#include "ai_event.hpp.sq"

    38

#include "ai_event_types.hpp.sq"

    39

#include "ai_execmode.hpp.sq"

    40

#include "ai_gamesettings.hpp.sq"

    41

#include "ai_industry.hpp.sq"

    42

#include "ai_industrylist.hpp.sq"

    43

#include "ai_list.hpp.sq"

    44

#include "ai_log.hpp.sq"

    45

#include "ai_map.hpp.sq"

    46

#include "ai_marine.hpp.sq"

    47

#include "ai_order.hpp.sq"

    48

#include "ai_road.hpp.sq"

    49

#include "ai_settings.hpp.sq"

    50

#include "ai_sign.hpp.sq"

    51

#include "ai_station.hpp.sq"

    52

#include "ai_stationlist.hpp.sq"

    53

#include "ai_subsidy.hpp.sq"

    54

#include "ai_subsidylist.hpp.sq"

    55

#include "ai_testmode.hpp.sq"

    56

#include "ai_tile.hpp.sq"

    57

#include "ai_tilelist.hpp.sq"

    58

#include "ai_town.hpp.sq"

    59

#include "ai_townlist.hpp.sq"

    60

#include "ai_transactionmode.hpp.sq"

    61

#include "ai_tunnel.hpp.sq"

    62

#include "ai_vehicle.hpp.sq"

    63

#include "ai_vehiclelist.hpp.sq"

    64

    65

/* static */ void AIController::Sleep(uint ticks)

    66

{

    67

	AI_SuspendPlayer(_current_player, ticks);

    68

}

    69

    70

/* static */ void AIController::Print(bool error_msg, const char *message)

    71

{

    72

	AILog::Log(error_msg ? AILog::LOG_SQ_ERROR : AILog::LOG_SQ_INFO, message);

    73

}

    74

    75

void AIController::RegisterClasses()

    76

{

    77

	this->engine->AddMethod("import", &AILibrary::Import, 4, "?ssi");

    78

    79

	/* Register all classes */

    80

	squirrel_register_std(this->engine);

    81

	SQAIAbstractList_Register(this->engine);

    82

	SQAIAccounting_Register(this->engine);

    83

	SQAIAirport_Register(this->engine);

    84

	SQAIBase_Register(this->engine);

    85

	SQAIBridge_Register(this->engine);

    86

	SQAIBridgeList_Register(this->engine);

    87

	SQAIBridgeList_Length_Register(this->engine);

    88

	SQAICargo_Register(this->engine);

    89

	SQAICargoList_Register(this->engine);

    90

	SQAICompany_Register(this->engine);

    91

	SQAIController_Register(this->engine);

    92

	SQAIDate_Register(this->engine);

    93

	SQAIEngine_Register(this->engine);

    94

	SQAIEngineList_Register(this->engine);

    95

	SQAIError_Register(this->engine);

    96

	SQAIEvent_Register(this->engine);

    97

	SQAIEventCompanyBankrupt_Register(this->engine);

    98

	SQAIEventCompanyInTrouble_Register(this->engine);

    99

	SQAIEventCompanyMerger_Register(this->engine);

   100

	SQAIEventCompanyNew_Register(this->engine);

   101

	SQAIEventController_Register(this->engine);

   102

	SQAIEventEnginePreview_Register(this->engine);

   103

	SQAIEventIndustryClose_Register(this->engine);

   104

	SQAIEventIndustryOpen_Register(this->engine);

   105

	SQAIEventSubsidyAwarded_Register(this->engine);

   106

	SQAIEventSubsidyExpired_Register(this->engine);

   107

	SQAIEventSubsidyOffer_Register(this->engine);

   108

	SQAIEventSubsidyOfferExpired_Register(this->engine);

   109

	SQAIEventTest_Register(this->engine);

   110

	SQAIEventVehicleCrash_Register(this->engine);

   111

	SQAIEventVehicleLost_Register(this->engine);

   112

	SQAIEventVehicleUnprofitable_Register(this->engine);

   113

	SQAIEventVehicleWaitingInDepot_Register(this->engine);

   114

	SQAIExecMode_Register(this->engine);

   115

	SQAIGameSettings_Register(this->engine);

   116

	SQAIIndustry_Register(this->engine);

   117

	SQAIIndustryList_Register(this->engine);

   118

	SQAIIndustryList_CargoAccepting_Register(this->engine);

   119

	SQAIIndustryList_CargoProducing_Register(this->engine);

   120

	SQAIList_Register(this->engine);

   121

	SQAILog_Register(this->engine);

   122

	SQAIMap_Register(this->engine);

   123

	SQAIMarine_Register(this->engine);

   124

	SQAIOrder_Register(this->engine);

   125

	SQAIRoad_Register(this->engine);

   126

	SQAISettings_Register(this->engine);

   127

	SQAISign_Register(this->engine);

   128

	SQAIStation_Register(this->engine);

   129

	SQAIStationList_Register(this->engine);

   130

	SQAIStationList_Vehicle_Register(this->engine);

   131

	SQAISubsidy_Register(this->engine);

   132

	SQAISubsidyList_Register(this->engine);

   133

	SQAITestMode_Register(this->engine);

   134

	SQAITile_Register(this->engine);

   135

	SQAITileList_Register(this->engine);

   136

	SQAITileList_IndustryAccepting_Register(this->engine);

   137

	SQAITileList_IndustryProducing_Register(this->engine);

   138

	SQAITileList_StationType_Register(this->engine);

   139

	SQAITown_Register(this->engine);

   140

	SQAITownList_Register(this->engine);

   141

	SQAITransactionMode_Register(this->engine);

   142

	SQAITunnel_Register(this->engine);

   143

	SQAIVehicle_Register(this->engine);

   144

	SQAIVehicleList_Register(this->engine);

   145

	SQAIVehicleList_Station_Register(this->engine);

   146

   147

	this->engine->SetGlobalPointer(this->engine);

   148

}

   149

   150

static void PrintFunc(bool error_msg, const SQChar *message)

   151

{

   152

	/* Convert to OpenTTD internal capable string */

   153

	AIController::Print(error_msg, FS2OTTD(message));

   154

}

   155

   161

{

   169

   170

	/* Create the Squirrel Engine and assign all required classes and settings */

   171

	this->engine = new Squirrel();

   172

	this->engine->SetPrintFunction(&PrintFunc);

   173

	this->RegisterClasses();

   175

		delete this->engine;

   176

		this->engine = NULL;

   177

		return;

   178

	}

   179

	/* Create the main-class */

   180

	this->SQ_instance = MallocT<SQObject>(sizeof(SQObject));

   182

		delete this->engine;

   183

		this->engine = NULL;

   184

		return;

   185

	}

   186

   187

	/* Run the constructor first */

   188

	if (this->engine->MethodExists(*this->SQ_instance, "constructor")) {

   189

		this->engine->CallMethod(*this->SQ_instance, "constructor");

   190

	}

   191

	/* When that is done, start the Start() function */

   192

	this->engine->CallMethod(*this->SQ_instance, "Start");

   193

}

   194

   195

AIController::~AIController()

   196

{

   197

	if (this->engine != NULL) delete this->engine;

   198

	free(this->SQ_instance);

   208

}

   209

   210

void AIController::IncreaseTick()

   211

{

   212

	this->tick++;

   213

}

   214

   215

uint AIController::GetTick()

   216

{

   217

	return this->tick;

   218

}