src/game/game_instance.cpp

   1 /* $Id$ */
   2
   3 /*
   4  * This file is part of OpenTTD.
   5  * 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.
   6  * 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.
   7  * 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/>.
   8  */
   9
  10 /** @file game_instance.cpp Implementation of GameInstance. */
  11
  12 #include "../stdafx.h"
  13 #include "../error.h"
  14
  15 #include "../script/squirrel_class.hpp"
  16
  17 #include "../script/script_storage.hpp"
  18 #include "../ai/ai_gui.hpp"
  19 #include "game_config.hpp"
  20 #include "game_info.hpp"
  21 #include "game_instance.hpp"
  22 #include "game_text.hpp"
  23 #include "game.hpp"
  24
  25 /* Convert all Game related classes to Squirrel data.
  26  * Note: this line is a marker in squirrel_export.sh. Do not change! */
  27 #include "../script/api/game/game_accounting.hpp.sq"
  28 #include "../script/api/game/game_admin.hpp.sq"
  29 #include "../script/api/game/game_airport.hpp.sq"
  30 #include "../script/api/game/game_base.hpp.sq"
  31 #include "../script/api/game/game_basestation.hpp.sq"
  32 #include "../script/api/game/game_bridge.hpp.sq"
  33 #include "../script/api/game/game_bridgelist.hpp.sq"
  34 #include "../script/api/game/game_cargo.hpp.sq"
  35 #include "../script/api/game/game_cargolist.hpp.sq"
  36 #include "../script/api/game/game_cargomonitor.hpp.sq"
  37 #include "../script/api/game/game_company.hpp.sq"
  38 #include "../script/api/game/game_companymode.hpp.sq"
  39 #include "../script/api/game/game_controller.hpp.sq"
  40 #include "../script/api/game/game_date.hpp.sq"
  41 #include "../script/api/game/game_depotlist.hpp.sq"
  42 #include "../script/api/game/game_engine.hpp.sq"
  43 #include "../script/api/game/game_enginelist.hpp.sq"
  44 #include "../script/api/game/game_error.hpp.sq"
  45 #include "../script/api/game/game_event.hpp.sq"
  46 #include "../script/api/game/game_event_types.hpp.sq"
  47 #include "../script/api/game/game_execmode.hpp.sq"
  48 #include "../script/api/game/game_game.hpp.sq"
  49 #include "../script/api/game/game_gamesettings.hpp.sq"
  50 #include "../script/api/game/game_goal.hpp.sq"
  51 #include "../script/api/game/game_industry.hpp.sq"
  52 #include "../script/api/game/game_industrylist.hpp.sq"
  53 #include "../script/api/game/game_industrytype.hpp.sq"
  54 #include "../script/api/game/game_industrytypelist.hpp.sq"
  55 #include "../script/api/game/game_infrastructure.hpp.sq"
  56 #include "../script/api/game/game_list.hpp.sq"
  57 #include "../script/api/game/game_log.hpp.sq"
  58 #include "../script/api/game/game_map.hpp.sq"
  59 #include "../script/api/game/game_marine.hpp.sq"
  60 #include "../script/api/game/game_news.hpp.sq"
  61 #include "../script/api/game/game_order.hpp.sq"
  62 #include "../script/api/game/game_rail.hpp.sq"
  63 #include "../script/api/game/game_railtypelist.hpp.sq"
  64 #include "../script/api/game/game_road.hpp.sq"
  65 #include "../script/api/game/game_sign.hpp.sq"
  66 #include "../script/api/game/game_signlist.hpp.sq"
  67 #include "../script/api/game/game_station.hpp.sq"
  68 #include "../script/api/game/game_stationlist.hpp.sq"
  69 #include "../script/api/game/game_story_page.hpp.sq"
  70 #include "../script/api/game/game_storypageelementlist.hpp.sq"
  71 #include "../script/api/game/game_storypagelist.hpp.sq"
  72 #include "../script/api/game/game_subsidy.hpp.sq"
  73 #include "../script/api/game/game_subsidylist.hpp.sq"
  74 #include "../script/api/game/game_testmode.hpp.sq"
  75 #include "../script/api/game/game_text.hpp.sq"
  76 #include "../script/api/game/game_tile.hpp.sq"
  77 #include "../script/api/game/game_tilelist.hpp.sq"
  78 #include "../script/api/game/game_town.hpp.sq"
  79 #include "../script/api/game/game_townlist.hpp.sq"
  80 #include "../script/api/game/game_tunnel.hpp.sq"
  81 #include "../script/api/game/game_vehicle.hpp.sq"
  82 #include "../script/api/game/game_vehiclelist.hpp.sq"
  83 #include "../script/api/game/game_viewport.hpp.sq"
  84 #include "../script/api/game/game_waypoint.hpp.sq"
  85 #include "../script/api/game/game_waypointlist.hpp.sq"
  86 #include "../script/api/game/game_window.hpp.sq"
  87
  88 #include "../safeguards.h"
  89
  90
  91 GameInstance::GameInstance() :
  92         ScriptInstance("GS")
  93 {}
  94
  95 void GameInstance::Initialize(GameInfo *info)
  96 {
  97         this->versionAPI = info->GetAPIVersion();
  98
  99         /* Register the GameController */
 100         SQGSController_Register(this->engine);
 101
 102         ScriptInstance::Initialize(info->GetMainScript(), info->GetInstanceName(), OWNER_DEITY);
 103 }
 104
 105 void GameInstance::RegisterAPI()
 106 {
 107         ScriptInstance::RegisterAPI();
 108
 109 /* Register all classes */
 110         SQGSList_Register(this->engine);
 111         SQGSAccounting_Register(this->engine);
 112         SQGSAdmin_Register(this->engine);
 113         SQGSAirport_Register(this->engine);
 114         SQGSBase_Register(this->engine);
 115         SQGSBaseStation_Register(this->engine);
 116         SQGSBridge_Register(this->engine);
 117         SQGSBridgeList_Register(this->engine);
 118         SQGSBridgeList_Length_Register(this->engine);
 119         SQGSCargo_Register(this->engine);
 120         SQGSCargoList_Register(this->engine);
 121         SQGSCargoList_IndustryAccepting_Register(this->engine);
 122         SQGSCargoList_IndustryProducing_Register(this->engine);
 123         SQGSCargoList_StationAccepting_Register(this->engine);
 124         SQGSCargoMonitor_Register(this->engine);
 125         SQGSCompany_Register(this->engine);
 126         SQGSCompanyMode_Register(this->engine);
 127         SQGSDate_Register(this->engine);
 128         SQGSDepotList_Register(this->engine);
 129         SQGSEngine_Register(this->engine);
 130         SQGSEngineList_Register(this->engine);
 131         SQGSError_Register(this->engine);
 132         SQGSEvent_Register(this->engine);
 133         SQGSEventAdminPort_Register(this->engine);
 134         SQGSEventCompanyBankrupt_Register(this->engine);
 135         SQGSEventCompanyInTrouble_Register(this->engine);
 136         SQGSEventCompanyMerger_Register(this->engine);
 137         SQGSEventCompanyNew_Register(this->engine);
 138         SQGSEventCompanyTown_Register(this->engine);
 139         SQGSEventController_Register(this->engine);
 140         SQGSEventExclusiveTransportRights_Register(this->engine);
 141         SQGSEventGoalQuestionAnswer_Register(this->engine);
 142         SQGSEventIndustryClose_Register(this->engine);
 143         SQGSEventIndustryOpen_Register(this->engine);
 144         SQGSEventRoadReconstruction_Register(this->engine);
 145         SQGSEventStationFirstVehicle_Register(this->engine);
 146         SQGSEventSubsidyAwarded_Register(this->engine);
 147         SQGSEventSubsidyExpired_Register(this->engine);
 148         SQGSEventSubsidyOffer_Register(this->engine);
 149         SQGSEventSubsidyOfferExpired_Register(this->engine);
 150         SQGSEventTownFounded_Register(this->engine);
 151         SQGSEventVehicleCrashed_Register(this->engine);
 152         SQGSEventWindowWidgetClick_Register(this->engine);
 153         SQGSExecMode_Register(this->engine);
 154         SQGSGame_Register(this->engine);
 155         SQGSGameSettings_Register(this->engine);
 156         SQGSGoal_Register(this->engine);
 157         SQGSIndustry_Register(this->engine);
 158         SQGSIndustryList_Register(this->engine);
 159         SQGSIndustryList_CargoAccepting_Register(this->engine);
 160         SQGSIndustryList_CargoProducing_Register(this->engine);
 161         SQGSIndustryType_Register(this->engine);
 162         SQGSIndustryTypeList_Register(this->engine);
 163         SQGSInfrastructure_Register(this->engine);
 164         SQGSLog_Register(this->engine);
 165         SQGSMap_Register(this->engine);
 166         SQGSMarine_Register(this->engine);
 167         SQGSNews_Register(this->engine);
 168         SQGSOrder_Register(this->engine);
 169         SQGSRail_Register(this->engine);
 170         SQGSRailTypeList_Register(this->engine);
 171         SQGSRoad_Register(this->engine);
 172         SQGSSign_Register(this->engine);
 173         SQGSSignList_Register(this->engine);
 174         SQGSStation_Register(this->engine);
 175         SQGSStationList_Register(this->engine);
 176         SQGSStationList_Cargo_Register(this->engine);
 177         SQGSStationList_CargoPlanned_Register(this->engine);
 178         SQGSStationList_CargoPlannedByFrom_Register(this->engine);
 179         SQGSStationList_CargoPlannedByVia_Register(this->engine);
 180         SQGSStationList_CargoPlannedFromByVia_Register(this->engine);
 181         SQGSStationList_CargoPlannedViaByFrom_Register(this->engine);
 182         SQGSStationList_CargoWaiting_Register(this->engine);
 183         SQGSStationList_CargoWaitingByFrom_Register(this->engine);
 184         SQGSStationList_CargoWaitingByVia_Register(this->engine);
 185         SQGSStationList_CargoWaitingFromByVia_Register(this->engine);
 186         SQGSStationList_CargoWaitingViaByFrom_Register(this->engine);
 187         SQGSStationList_Vehicle_Register(this->engine);
 188         SQGSStoryPage_Register(this->engine);
 189         SQGSStoryPageElementList_Register(this->engine);
 190         SQGSStoryPageList_Register(this->engine);
 191         SQGSSubsidy_Register(this->engine);
 192         SQGSSubsidyList_Register(this->engine);
 193         SQGSTestMode_Register(this->engine);
 194         SQGSText_Register(this->engine);
 195         SQGSTile_Register(this->engine);
 196         SQGSTileList_Register(this->engine);
 197         SQGSTileList_IndustryAccepting_Register(this->engine);
 198         SQGSTileList_IndustryProducing_Register(this->engine);
 199         SQGSTileList_StationType_Register(this->engine);
 200         SQGSTown_Register(this->engine);
 201         SQGSTownEffectList_Register(this->engine);
 202         SQGSTownList_Register(this->engine);
 203         SQGSTunnel_Register(this->engine);
 204         SQGSVehicle_Register(this->engine);
 205         SQGSVehicleList_Register(this->engine);
 206         SQGSVehicleList_Depot_Register(this->engine);
 207         SQGSVehicleList_SharedOrders_Register(this->engine);
 208         SQGSVehicleList_Station_Register(this->engine);
 209         SQGSViewport_Register(this->engine);
 210         SQGSWaypoint_Register(this->engine);
 211         SQGSWaypointList_Register(this->engine);
 212         SQGSWaypointList_Vehicle_Register(this->engine);
 213         SQGSWindow_Register(this->engine);
 214
 215         RegisterGameTranslation(this->engine);
 216
 217         if (!this->LoadCompatibilityScripts(this->versionAPI, GAME_DIR)) this->Died();
 218 }
 219
 220 int GameInstance::GetSetting(const char *name)
 221 {
 222         return GameConfig::GetConfig()->GetSetting(name);
 223 }
 224
 225 ScriptInfo *GameInstance::FindLibrary(const char *library, int version)
 226 {
 227         return (ScriptInfo *)Game::FindLibrary(library, version);
 228 }
 229
 230 void GameInstance::Died()
 231 {
 232         ScriptInstance::Died();
 233
 234         ShowAIDebugWindow(OWNER_DEITY);
 235
 236         const GameInfo *info = Game::GetInfo();
 237         if (info != NULL) {
 238                 ShowErrorMessage(STR_ERROR_AI_PLEASE_REPORT_CRASH, INVALID_STRING_ID, WL_WARNING);
 239
 240                 if (info->GetURL() != NULL) {
 241                         ScriptLog::Info("Please report the error to the following URL:");
 242                         ScriptLog::Info(info->GetURL());
 243                 }
 244         }
 245 }
 246
 247 /**
 248  * DoCommand callback function for all commands executed by Game Scripts.
 249  * @param result The result of the command.
 250  * @param tile The tile on which the command was executed.
 251  * @param p1 p1 as given to DoCommandPInternal.
 252  * @param p2 p2 as given to DoCommandPInternal.
 253  */
 254 void CcGame(const CommandCost &result, TileIndex tile, uint32 p1, uint32 p2)
 255 {
 256         Game::GetGameInstance()->DoCommandCallback(result, tile, p1, p2);
 257         Game::GetGameInstance()->Continue();
 258 }
 259
 260 CommandCallback *GameInstance::GetDoCommandCallback()
 261 {
 262         return &CcGame;
 263 }