game_instance.cpp

Go to the documentation of this file.
00001 /* $Id: game_instance.cpp 25342 2013-06-09 12:19:09Z zuu $ */
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_cargomonitor.hpp.sq"
00037 #include "../script/api/game/game_company.hpp.sq"
00038 #include "../script/api/game/game_companymode.hpp.sq"
00039 #include "../script/api/game/game_controller.hpp.sq"
00040 #include "../script/api/game/game_date.hpp.sq"
00041 #include "../script/api/game/game_depotlist.hpp.sq"
00042 #include "../script/api/game/game_engine.hpp.sq"
00043 #include "../script/api/game/game_enginelist.hpp.sq"
00044 #include "../script/api/game/game_error.hpp.sq"
00045 #include "../script/api/game/game_event.hpp.sq"
00046 #include "../script/api/game/game_event_types.hpp.sq"
00047 #include "../script/api/game/game_execmode.hpp.sq"
00048 #include "../script/api/game/game_game.hpp.sq"
00049 #include "../script/api/game/game_gamesettings.hpp.sq"
00050 #include "../script/api/game/game_goal.hpp.sq"
00051 #include "../script/api/game/game_industry.hpp.sq"
00052 #include "../script/api/game/game_industrylist.hpp.sq"
00053 #include "../script/api/game/game_industrytype.hpp.sq"
00054 #include "../script/api/game/game_industrytypelist.hpp.sq"
00055 #include "../script/api/game/game_infrastructure.hpp.sq"
00056 #include "../script/api/game/game_list.hpp.sq"
00057 #include "../script/api/game/game_log.hpp.sq"
00058 #include "../script/api/game/game_map.hpp.sq"
00059 #include "../script/api/game/game_marine.hpp.sq"
00060 #include "../script/api/game/game_news.hpp.sq"
00061 #include "../script/api/game/game_order.hpp.sq"
00062 #include "../script/api/game/game_rail.hpp.sq"
00063 #include "../script/api/game/game_railtypelist.hpp.sq"
00064 #include "../script/api/game/game_road.hpp.sq"
00065 #include "../script/api/game/game_sign.hpp.sq"
00066 #include "../script/api/game/game_signlist.hpp.sq"
00067 #include "../script/api/game/game_station.hpp.sq"
00068 #include "../script/api/game/game_stationlist.hpp.sq"
00069 #include "../script/api/game/game_story_page.hpp.sq"
00070 #include "../script/api/game/game_subsidy.hpp.sq"
00071 #include "../script/api/game/game_subsidylist.hpp.sq"
00072 #include "../script/api/game/game_testmode.hpp.sq"
00073 #include "../script/api/game/game_text.hpp.sq"
00074 #include "../script/api/game/game_tile.hpp.sq"
00075 #include "../script/api/game/game_tilelist.hpp.sq"
00076 #include "../script/api/game/game_town.hpp.sq"
00077 #include "../script/api/game/game_townlist.hpp.sq"
00078 #include "../script/api/game/game_tunnel.hpp.sq"
00079 #include "../script/api/game/game_vehicle.hpp.sq"
00080 #include "../script/api/game/game_vehiclelist.hpp.sq"
00081 #include "../script/api/game/game_viewport.hpp.sq"
00082 #include "../script/api/game/game_waypoint.hpp.sq"
00083 #include "../script/api/game/game_waypointlist.hpp.sq"
00084 #include "../script/api/game/game_window.hpp.sq"
00085 
00086 
00087 GameInstance::GameInstance() :
00088   ScriptInstance("GS")
00089 {}
00090 
00091 void GameInstance::Initialize(GameInfo *info)
00092 {
00093   this->versionAPI = info->GetAPIVersion();
00094 
00095   /* Register the GameController */
00096   SQGSController_Register(this->engine);
00097 
00098   ScriptInstance::Initialize(info->GetMainScript(), info->GetInstanceName(), OWNER_DEITY);
00099 }
00100 
00101 void GameInstance::RegisterAPI()
00102 {
00103   ScriptInstance::RegisterAPI();
00104 
00105 /* Register all classes */
00106   SQGSList_Register(this->engine);
00107   SQGSAccounting_Register(this->engine);
00108   SQGSAdmin_Register(this->engine);
00109   SQGSAirport_Register(this->engine);
00110   SQGSBase_Register(this->engine);
00111   SQGSBaseStation_Register(this->engine);
00112   SQGSBridge_Register(this->engine);
00113   SQGSBridgeList_Register(this->engine);
00114   SQGSBridgeList_Length_Register(this->engine);
00115   SQGSCargo_Register(this->engine);
00116   SQGSCargoList_Register(this->engine);
00117   SQGSCargoList_IndustryAccepting_Register(this->engine);
00118   SQGSCargoList_IndustryProducing_Register(this->engine);
00119   SQGSCargoList_StationAccepting_Register(this->engine);
00120   SQGSCargoMonitor_Register(this->engine);
00121   SQGSCompany_Register(this->engine);
00122   SQGSCompanyMode_Register(this->engine);
00123   SQGSDate_Register(this->engine);
00124   SQGSDepotList_Register(this->engine);
00125   SQGSEngine_Register(this->engine);
00126   SQGSEngineList_Register(this->engine);
00127   SQGSError_Register(this->engine);
00128   SQGSEvent_Register(this->engine);
00129   SQGSEventAdminPort_Register(this->engine);
00130   SQGSEventCompanyBankrupt_Register(this->engine);
00131   SQGSEventCompanyInTrouble_Register(this->engine);
00132   SQGSEventCompanyMerger_Register(this->engine);
00133   SQGSEventCompanyNew_Register(this->engine);
00134   SQGSEventCompanyTown_Register(this->engine);
00135   SQGSEventController_Register(this->engine);
00136   SQGSEventExclusiveTransportRights_Register(this->engine);
00137   SQGSEventGoalQuestionAnswer_Register(this->engine);
00138   SQGSEventIndustryClose_Register(this->engine);
00139   SQGSEventIndustryOpen_Register(this->engine);
00140   SQGSEventRoadReconstruction_Register(this->engine);
00141   SQGSEventStationFirstVehicle_Register(this->engine);
00142   SQGSEventSubsidyAwarded_Register(this->engine);
00143   SQGSEventSubsidyExpired_Register(this->engine);
00144   SQGSEventSubsidyOffer_Register(this->engine);
00145   SQGSEventSubsidyOfferExpired_Register(this->engine);
00146   SQGSEventTownFounded_Register(this->engine);
00147   SQGSEventVehicleCrashed_Register(this->engine);
00148   SQGSEventWindowWidgetClick_Register(this->engine);
00149   SQGSExecMode_Register(this->engine);
00150   SQGSGame_Register(this->engine);
00151   SQGSGameSettings_Register(this->engine);
00152   SQGSGoal_Register(this->engine);
00153   SQGSIndustry_Register(this->engine);
00154   SQGSIndustryList_Register(this->engine);
00155   SQGSIndustryList_CargoAccepting_Register(this->engine);
00156   SQGSIndustryList_CargoProducing_Register(this->engine);
00157   SQGSIndustryType_Register(this->engine);
00158   SQGSIndustryTypeList_Register(this->engine);
00159   SQGSInfrastructure_Register(this->engine);
00160   SQGSLog_Register(this->engine);
00161   SQGSMap_Register(this->engine);
00162   SQGSMarine_Register(this->engine);
00163   SQGSNews_Register(this->engine);
00164   SQGSOrder_Register(this->engine);
00165   SQGSRail_Register(this->engine);
00166   SQGSRailTypeList_Register(this->engine);
00167   SQGSRoad_Register(this->engine);
00168   SQGSSign_Register(this->engine);
00169   SQGSSignList_Register(this->engine);
00170   SQGSStation_Register(this->engine);
00171   SQGSStationList_Register(this->engine);
00172   SQGSStationList_Vehicle_Register(this->engine);
00173   SQGSStoryPage_Register(this->engine);
00174   SQGSSubsidy_Register(this->engine);
00175   SQGSSubsidyList_Register(this->engine);
00176   SQGSTestMode_Register(this->engine);
00177   SQGSText_Register(this->engine);
00178   SQGSTile_Register(this->engine);
00179   SQGSTileList_Register(this->engine);
00180   SQGSTileList_IndustryAccepting_Register(this->engine);
00181   SQGSTileList_IndustryProducing_Register(this->engine);
00182   SQGSTileList_StationType_Register(this->engine);
00183   SQGSTown_Register(this->engine);
00184   SQGSTownEffectList_Register(this->engine);
00185   SQGSTownList_Register(this->engine);
00186   SQGSTunnel_Register(this->engine);
00187   SQGSVehicle_Register(this->engine);
00188   SQGSVehicleList_Register(this->engine);
00189   SQGSVehicleList_Depot_Register(this->engine);
00190   SQGSVehicleList_SharedOrders_Register(this->engine);
00191   SQGSVehicleList_Station_Register(this->engine);
00192   SQGSViewport_Register(this->engine);
00193   SQGSWaypoint_Register(this->engine);
00194   SQGSWaypointList_Register(this->engine);
00195   SQGSWaypointList_Vehicle_Register(this->engine);
00196   SQGSWindow_Register(this->engine);
00197 
00198   RegisterGameTranslation(this->engine);
00199 
00200   if (!this->LoadCompatibilityScripts(this->versionAPI, GAME_DIR)) this->Died();
00201 }
00202 
00203 int GameInstance::GetSetting(const char *name)
00204 {
00205   return GameConfig::GetConfig()->GetSetting(name);
00206 }
00207 
00208 ScriptInfo *GameInstance::FindLibrary(const char *library, int version)
00209 {
00210   return (ScriptInfo *)Game::FindLibrary(library, version);
00211 }
00212 
00213 void GameInstance::Died()
00214 {
00215   ScriptInstance::Died();
00216 
00217   ShowAIDebugWindow(OWNER_DEITY);
00218 
00219   const GameInfo *info = Game::GetInfo();
00220   if (info != NULL) {
00221     ShowErrorMessage(STR_ERROR_AI_PLEASE_REPORT_CRASH, INVALID_STRING_ID, WL_WARNING);
00222 
00223     if (info->GetURL() != NULL) {
00224       ScriptLog::Info("Please report the error to the following URL:");
00225       ScriptLog::Info(info->GetURL());
00226     }
00227   }
00228 }
00229 
00237 void CcGame(const CommandCost &result, TileIndex tile, uint32 p1, uint32 p2)
00238 {
00239   Game::GetGameInstance()->DoCommandCallback(result, tile, p1, p2);
00240   Game::GetGameInstance()->Continue();
00241 }
00242 
00243 CommandCallback *GameInstance::GetDoCommandCallback()
00244 {
00245   return &CcGame;
00246 }