# game_instance.cpp

Go to the documentation of this file.

    00001 /* $Id$ */
    00002
    00003 /*
    00004  * This file is part of OpenTTD.
    00005  * OpenTTD is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, version 2.
    00006  * OpenTTD is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
    00007  * See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with OpenTTD. If not, see <http://www.gnu.org/licenses/>.
    00008  */
    00009
    00012 #include "../stdafx.h"
    00013 #include "../error.h"
    00014
    00015 #include "../script/squirrel_class.hpp"
    00016
    00017 #include "../script/script_storage.hpp"
    00018 #include "../ai/ai_gui.hpp"
    00019 #include "game_config.hpp"
    00020 #include "game_info.hpp"
    00021 #include "game_instance.hpp"
    00022 #include "game_text.hpp"
    00023 #include "game.hpp"
    00024
    00025 /* Convert all Game related classes to Squirrel data.
    00026  * Note: this line is a marker in squirrel_export.sh. Do not change! */
    00027 #include "../script/api/game/game_accounting.hpp.sq"
    00028 #include "../script/api/game/game_admin.hpp.sq"
    00029 #include "../script/api/game/game_airport.hpp.sq"
    00030 #include "../script/api/game/game_base.hpp.sq"
    00031 #include "../script/api/game/game_basestation.hpp.sq"
    00032 #include "../script/api/game/game_bridge.hpp.sq"
    00033 #include "../script/api/game/game_bridgelist.hpp.sq"
    00034 #include "../script/api/game/game_cargo.hpp.sq"
    00035 #include "../script/api/game/game_cargolist.hpp.sq"
    00036 #include "../script/api/game/game_company.hpp.sq"
    00037 #include "../script/api/game/game_companymode.hpp.sq"
    00038 #include "../script/api/game/game_controller.hpp.sq"
    00039 #include "../script/api/game/game_date.hpp.sq"
    00040 #include "../script/api/game/game_depotlist.hpp.sq"
    00041 #include "../script/api/game/game_engine.hpp.sq"
    00042 #include "../script/api/game/game_enginelist.hpp.sq"
    00043 #include "../script/api/game/game_error.hpp.sq"
    00044 #include "../script/api/game/game_event.hpp.sq"
    00045 #include "../script/api/game/game_event_types.hpp.sq"
    00046 #include "../script/api/game/game_execmode.hpp.sq"
    00047 #include "../script/api/game/game_game.hpp.sq"
    00048 #include "../script/api/game/game_gamesettings.hpp.sq"
    00049 #include "../script/api/game/game_goal.hpp.sq"
    00050 #include "../script/api/game/game_industry.hpp.sq"
    00051 #include "../script/api/game/game_industrylist.hpp.sq"
    00052 #include "../script/api/game/game_industrytype.hpp.sq"
    00053 #include "../script/api/game/game_industrytypelist.hpp.sq"
    00054 #include "../script/api/game/game_infrastructure.hpp.sq"
    00055 #include "../script/api/game/game_list.hpp.sq"
    00056 #include "../script/api/game/game_log.hpp.sq"
    00057 #include "../script/api/game/game_map.hpp.sq"
    00058 #include "../script/api/game/game_marine.hpp.sq"
    00059 #include "../script/api/game/game_news.hpp.sq"
    00060 #include "../script/api/game/game_rail.hpp.sq"
    00061 #include "../script/api/game/game_railtypelist.hpp.sq"
    00062 #include "../script/api/game/game_road.hpp.sq"
    00063 #include "../script/api/game/game_sign.hpp.sq"
    00064 #include "../script/api/game/game_signlist.hpp.sq"
    00065 #include "../script/api/game/game_station.hpp.sq"
    00066 #include "../script/api/game/game_stationlist.hpp.sq"
    00067 #include "../script/api/game/game_subsidy.hpp.sq"
    00068 #include "../script/api/game/game_subsidylist.hpp.sq"
    00069 #include "../script/api/game/game_testmode.hpp.sq"
    00070 #include "../script/api/game/game_text.hpp.sq"
    00071 #include "../script/api/game/game_tile.hpp.sq"
    00072 #include "../script/api/game/game_tilelist.hpp.sq"
    00073 #include "../script/api/game/game_town.hpp.sq"
    00074 #include "../script/api/game/game_townlist.hpp.sq"
    00075 #include "../script/api/game/game_tunnel.hpp.sq"
    00076 #include "../script/api/game/game_vehicle.hpp.sq"
    00077 #include "../script/api/game/game_vehiclelist.hpp.sq"
    00078 #include "../script/api/game/game_viewport.hpp.sq"
    00079 #include "../script/api/game/game_waypoint.hpp.sq"
    00080 #include "../script/api/game/game_waypointlist.hpp.sq"
    00081 #include "../script/api/game/game_window.hpp.sq"
    00082
    00083
    00084 GameInstance::GameInstance() :
    00085   ScriptInstance("GS")
    00086 {}
    00087
    00088 void GameInstance::Initialize(GameInfo *info)
    00089 {
    00090   /* Register the GameController */
    00091   SQGSController_Register(this->engine);
    00092
    00093   ScriptInstance::Initialize(info->GetMainScript(), info->GetInstanceName(), OWNER_DEITY);
    00094 }
    00095
    00096 void GameInstance::RegisterAPI()
    00097 {
    00098   ScriptInstance::RegisterAPI();
    00099
    00100 /* Register all classes */
    00101   SQGSList_Register(this->engine);
    00102   SQGSAccounting_Register(this->engine);
    00103   SQGSAdmin_Register(this->engine);
    00104   SQGSAirport_Register(this->engine);
    00105   SQGSBase_Register(this->engine);
    00106   SQGSBaseStation_Register(this->engine);
    00107   SQGSBridge_Register(this->engine);
    00108   SQGSBridgeList_Register(this->engine);
    00109   SQGSBridgeList_Length_Register(this->engine);
    00110   SQGSCargo_Register(this->engine);
    00111   SQGSCargoList_Register(this->engine);
    00112   SQGSCargoList_IndustryAccepting_Register(this->engine);
    00113   SQGSCargoList_IndustryProducing_Register(this->engine);
    00114   SQGSCargoList_StationAccepting_Register(this->engine);
    00115   SQGSCompany_Register(this->engine);
    00116   SQGSCompanyMode_Register(this->engine);
    00117   SQGSDate_Register(this->engine);
    00118   SQGSDepotList_Register(this->engine);
    00119   SQGSEngine_Register(this->engine);
    00120   SQGSEngineList_Register(this->engine);
    00121   SQGSError_Register(this->engine);
    00122   SQGSEvent_Register(this->engine);
    00123   SQGSEventAdminPort_Register(this->engine);
    00124   SQGSEventCompanyBankrupt_Register(this->engine);
    00125   SQGSEventCompanyInTrouble_Register(this->engine);
    00126   SQGSEventCompanyMerger_Register(this->engine);
    00127   SQGSEventCompanyNew_Register(this->engine);
    00128   SQGSEventController_Register(this->engine);
    00129   SQGSEventGoalQuestionAnswer_Register(this->engine);
    00130   SQGSEventIndustryClose_Register(this->engine);
    00131   SQGSEventIndustryOpen_Register(this->engine);
    00132   SQGSEventStationFirstVehicle_Register(this->engine);
    00133   SQGSEventSubsidyAwarded_Register(this->engine);
    00134   SQGSEventSubsidyExpired_Register(this->engine);
    00135   SQGSEventSubsidyOffer_Register(this->engine);
    00136   SQGSEventSubsidyOfferExpired_Register(this->engine);
    00137   SQGSEventTownFounded_Register(this->engine);
    00138   SQGSEventVehicleCrashed_Register(this->engine);
    00139   SQGSEventWindowWidgetClick_Register(this->engine);
    00140   SQGSExecMode_Register(this->engine);
    00141   SQGSGame_Register(this->engine);
    00142   SQGSGameSettings_Register(this->engine);
    00143   SQGSGoal_Register(this->engine);
    00144   SQGSIndustry_Register(this->engine);
    00145   SQGSIndustryList_Register(this->engine);
    00146   SQGSIndustryList_CargoAccepting_Register(this->engine);
    00147   SQGSIndustryList_CargoProducing_Register(this->engine);
    00148   SQGSIndustryType_Register(this->engine);
    00149   SQGSIndustryTypeList_Register(this->engine);
    00150   SQGSInfrastructure_Register(this->engine);
    00151   SQGSLog_Register(this->engine);
    00152   SQGSMap_Register(this->engine);
    00153   SQGSMarine_Register(this->engine);
    00154   SQGSNews_Register(this->engine);
    00155   SQGSRail_Register(this->engine);
    00156   SQGSRailTypeList_Register(this->engine);
    00157   SQGSRoad_Register(this->engine);
    00158   SQGSSign_Register(this->engine);
    00159   SQGSSignList_Register(this->engine);
    00160   SQGSStation_Register(this->engine);
    00161   SQGSStationList_Register(this->engine);
    00162   SQGSStationList_Vehicle_Register(this->engine);
    00163   SQGSSubsidy_Register(this->engine);
    00164   SQGSSubsidyList_Register(this->engine);
    00165   SQGSTestMode_Register(this->engine);
    00166   SQGSText_Register(this->engine);
    00167   SQGSTile_Register(this->engine);
    00168   SQGSTileList_Register(this->engine);
    00169   SQGSTileList_IndustryAccepting_Register(this->engine);
    00170   SQGSTileList_IndustryProducing_Register(this->engine);
    00171   SQGSTileList_StationType_Register(this->engine);
    00172   SQGSTown_Register(this->engine);
    00173   SQGSTownEffectList_Register(this->engine);
    00174   SQGSTownList_Register(this->engine);
    00175   SQGSTunnel_Register(this->engine);
    00176   SQGSVehicle_Register(this->engine);
    00177   SQGSVehicleList_Register(this->engine);
    00178   SQGSVehicleList_Depot_Register(this->engine);
    00179   SQGSVehicleList_SharedOrders_Register(this->engine);
    00180   SQGSVehicleList_Station_Register(this->engine);
    00181   SQGSViewport_Register(this->engine);
    00182   SQGSWaypoint_Register(this->engine);
    00183   SQGSWaypointList_Register(this->engine);
    00184   SQGSWaypointList_Vehicle_Register(this->engine);
    00185   SQGSWindow_Register(this->engine);
    00186
    00187   RegisterGameTranslation(this->engine);
    00188 }
    00189
    00190 int GameInstance::GetSetting(const char *name)
    00191 {
    00192   return GameConfig::GetConfig()->GetSetting(name);
    00193 }
    00194
    00195 ScriptInfo *GameInstance::FindLibrary(const char *library, int version)
    00196 {
    00197   return (ScriptInfo *)Game::FindLibrary(library, version);
    00198 }
    00199
    00200 void GameInstance::Died()
    00201 {
    00202   ScriptInstance::Died();
    00203
    00204   ShowAIDebugWindow(OWNER_DEITY);
    00205
    00206   const GameInfo *info = Game::GetInfo();
    00207   if (info != NULL) {
    00208     ShowErrorMessage(STR_ERROR_AI_PLEASE_REPORT_CRASH, INVALID_STRING_ID, WL_WARNING);
    00209
    00210     if (info->GetURL() != NULL) {
    00211       ScriptLog::Info("Please report the error to the following URL:");
    00212       ScriptLog::Info(info->GetURL());
    00213     }
    00214   }
    00215 }
    00216
    00224 void CcGame(const CommandCost &result, TileIndex tile, uint32 p1, uint32 p2)
    00225 {
    00226   Game::GetGameInstance()->DoCommandCallback(result, tile, p1, p2);
    00227   Game::GetGameInstance()->Continue();
    00228 }
    00229
    00230 CommandCallback *GameInstance::GetDoCommandCallback()
    00231 {
    00232   return &CcGame;
    00233 }