Initialize with OpenTTD 1.9.3
This commit is contained in:
dP
270
src/game/game_instance.cpp
Normal file
270
src/game/game_instance.cpp
Normal file
@@ -0,0 +1,270 @@
|
||||
/* $Id$ */
|
||||
|
||||
/*
|
||||
* This file is part of OpenTTD.
|
||||
* 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.
|
||||
* 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.
|
||||
* 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/>.
|
||||
*/
|
||||
|
||||
/** @file game_instance.cpp Implementation of GameInstance. */
|
||||
|
||||
#include "../stdafx.h"
|
||||
#include "../error.h"
|
||||
|
||||
#include "../script/squirrel_class.hpp"
|
||||
|
||||
#include "../script/script_storage.hpp"
|
||||
#include "../ai/ai_gui.hpp"
|
||||
#include "game_config.hpp"
|
||||
#include "game_info.hpp"
|
||||
#include "game_instance.hpp"
|
||||
#include "game_text.hpp"
|
||||
#include "game.hpp"
|
||||
|
||||
/* Convert all Game related classes to Squirrel data.
|
||||
* Note: this line is a marker in squirrel_export.sh. Do not change! */
|
||||
#include "../script/api/game/game_accounting.hpp.sq"
|
||||
#include "../script/api/game/game_admin.hpp.sq"
|
||||
#include "../script/api/game/game_airport.hpp.sq"
|
||||
#include "../script/api/game/game_base.hpp.sq"
|
||||
#include "../script/api/game/game_basestation.hpp.sq"
|
||||
#include "../script/api/game/game_bridge.hpp.sq"
|
||||
#include "../script/api/game/game_bridgelist.hpp.sq"
|
||||
#include "../script/api/game/game_cargo.hpp.sq"
|
||||
#include "../script/api/game/game_cargolist.hpp.sq"
|
||||
#include "../script/api/game/game_cargomonitor.hpp.sq"
|
||||
#include "../script/api/game/game_client.hpp.sq"
|
||||
#include "../script/api/game/game_clientlist.hpp.sq"
|
||||
#include "../script/api/game/game_company.hpp.sq"
|
||||
#include "../script/api/game/game_companymode.hpp.sq"
|
||||
#include "../script/api/game/game_controller.hpp.sq"
|
||||
#include "../script/api/game/game_date.hpp.sq"
|
||||
#include "../script/api/game/game_depotlist.hpp.sq"
|
||||
#include "../script/api/game/game_engine.hpp.sq"
|
||||
#include "../script/api/game/game_enginelist.hpp.sq"
|
||||
#include "../script/api/game/game_error.hpp.sq"
|
||||
#include "../script/api/game/game_event.hpp.sq"
|
||||
#include "../script/api/game/game_event_types.hpp.sq"
|
||||
#include "../script/api/game/game_execmode.hpp.sq"
|
||||
#include "../script/api/game/game_game.hpp.sq"
|
||||
#include "../script/api/game/game_gamesettings.hpp.sq"
|
||||
#include "../script/api/game/game_goal.hpp.sq"
|
||||
#include "../script/api/game/game_industry.hpp.sq"
|
||||
#include "../script/api/game/game_industrylist.hpp.sq"
|
||||
#include "../script/api/game/game_industrytype.hpp.sq"
|
||||
#include "../script/api/game/game_industrytypelist.hpp.sq"
|
||||
#include "../script/api/game/game_infrastructure.hpp.sq"
|
||||
#include "../script/api/game/game_list.hpp.sq"
|
||||
#include "../script/api/game/game_log.hpp.sq"
|
||||
#include "../script/api/game/game_map.hpp.sq"
|
||||
#include "../script/api/game/game_marine.hpp.sq"
|
||||
#include "../script/api/game/game_news.hpp.sq"
|
||||
#include "../script/api/game/game_order.hpp.sq"
|
||||
#include "../script/api/game/game_rail.hpp.sq"
|
||||
#include "../script/api/game/game_railtypelist.hpp.sq"
|
||||
#include "../script/api/game/game_road.hpp.sq"
|
||||
#include "../script/api/game/game_sign.hpp.sq"
|
||||
#include "../script/api/game/game_signlist.hpp.sq"
|
||||
#include "../script/api/game/game_station.hpp.sq"
|
||||
#include "../script/api/game/game_stationlist.hpp.sq"
|
||||
#include "../script/api/game/game_story_page.hpp.sq"
|
||||
#include "../script/api/game/game_storypageelementlist.hpp.sq"
|
||||
#include "../script/api/game/game_storypagelist.hpp.sq"
|
||||
#include "../script/api/game/game_subsidy.hpp.sq"
|
||||
#include "../script/api/game/game_subsidylist.hpp.sq"
|
||||
#include "../script/api/game/game_testmode.hpp.sq"
|
||||
#include "../script/api/game/game_text.hpp.sq"
|
||||
#include "../script/api/game/game_tile.hpp.sq"
|
||||
#include "../script/api/game/game_tilelist.hpp.sq"
|
||||
#include "../script/api/game/game_town.hpp.sq"
|
||||
#include "../script/api/game/game_townlist.hpp.sq"
|
||||
#include "../script/api/game/game_tunnel.hpp.sq"
|
||||
#include "../script/api/game/game_vehicle.hpp.sq"
|
||||
#include "../script/api/game/game_vehiclelist.hpp.sq"
|
||||
#include "../script/api/game/game_viewport.hpp.sq"
|
||||
#include "../script/api/game/game_waypoint.hpp.sq"
|
||||
#include "../script/api/game/game_waypointlist.hpp.sq"
|
||||
#include "../script/api/game/game_window.hpp.sq"
|
||||
|
||||
#include "../safeguards.h"
|
||||
|
||||
|
||||
GameInstance::GameInstance() :
|
||||
ScriptInstance("GS")
|
||||
{}
|
||||
|
||||
void GameInstance::Initialize(GameInfo *info)
|
||||
{
|
||||
this->versionAPI = info->GetAPIVersion();
|
||||
|
||||
/* Register the GameController */
|
||||
SQGSController_Register(this->engine);
|
||||
|
||||
ScriptInstance::Initialize(info->GetMainScript(), info->GetInstanceName(), OWNER_DEITY);
|
||||
}
|
||||
|
||||
void GameInstance::RegisterAPI()
|
||||
{
|
||||
ScriptInstance::RegisterAPI();
|
||||
|
||||
/* Register all classes */
|
||||
SQGSList_Register(this->engine);
|
||||
SQGSAccounting_Register(this->engine);
|
||||
SQGSAdmin_Register(this->engine);
|
||||
SQGSAirport_Register(this->engine);
|
||||
SQGSBase_Register(this->engine);
|
||||
SQGSBaseStation_Register(this->engine);
|
||||
SQGSBridge_Register(this->engine);
|
||||
SQGSBridgeList_Register(this->engine);
|
||||
SQGSBridgeList_Length_Register(this->engine);
|
||||
SQGSCargo_Register(this->engine);
|
||||
SQGSCargoList_Register(this->engine);
|
||||
SQGSCargoList_IndustryAccepting_Register(this->engine);
|
||||
SQGSCargoList_IndustryProducing_Register(this->engine);
|
||||
SQGSCargoList_StationAccepting_Register(this->engine);
|
||||
SQGSCargoMonitor_Register(this->engine);
|
||||
SQGSClient_Register(this->engine);
|
||||
SQGSClientList_Register(this->engine);
|
||||
SQGSClientList_Company_Register(this->engine);
|
||||
SQGSCompany_Register(this->engine);
|
||||
SQGSCompanyMode_Register(this->engine);
|
||||
SQGSDate_Register(this->engine);
|
||||
SQGSDepotList_Register(this->engine);
|
||||
SQGSEngine_Register(this->engine);
|
||||
SQGSEngineList_Register(this->engine);
|
||||
SQGSError_Register(this->engine);
|
||||
SQGSEvent_Register(this->engine);
|
||||
SQGSEventAdminPort_Register(this->engine);
|
||||
SQGSEventCompanyBankrupt_Register(this->engine);
|
||||
SQGSEventCompanyInTrouble_Register(this->engine);
|
||||
SQGSEventCompanyMerger_Register(this->engine);
|
||||
SQGSEventCompanyNew_Register(this->engine);
|
||||
SQGSEventCompanyTown_Register(this->engine);
|
||||
SQGSEventController_Register(this->engine);
|
||||
SQGSEventExclusiveTransportRights_Register(this->engine);
|
||||
SQGSEventGoalQuestionAnswer_Register(this->engine);
|
||||
SQGSEventIndustryClose_Register(this->engine);
|
||||
SQGSEventIndustryOpen_Register(this->engine);
|
||||
SQGSEventRoadReconstruction_Register(this->engine);
|
||||
SQGSEventStationFirstVehicle_Register(this->engine);
|
||||
SQGSEventSubsidyAwarded_Register(this->engine);
|
||||
SQGSEventSubsidyExpired_Register(this->engine);
|
||||
SQGSEventSubsidyOffer_Register(this->engine);
|
||||
SQGSEventSubsidyOfferExpired_Register(this->engine);
|
||||
SQGSEventTownFounded_Register(this->engine);
|
||||
SQGSEventVehicleCrashed_Register(this->engine);
|
||||
SQGSEventWindowWidgetClick_Register(this->engine);
|
||||
SQGSExecMode_Register(this->engine);
|
||||
SQGSGame_Register(this->engine);
|
||||
SQGSGameSettings_Register(this->engine);
|
||||
SQGSGoal_Register(this->engine);
|
||||
SQGSIndustry_Register(this->engine);
|
||||
SQGSIndustryList_Register(this->engine);
|
||||
SQGSIndustryList_CargoAccepting_Register(this->engine);
|
||||
SQGSIndustryList_CargoProducing_Register(this->engine);
|
||||
SQGSIndustryType_Register(this->engine);
|
||||
SQGSIndustryTypeList_Register(this->engine);
|
||||
SQGSInfrastructure_Register(this->engine);
|
||||
SQGSLog_Register(this->engine);
|
||||
SQGSMap_Register(this->engine);
|
||||
SQGSMarine_Register(this->engine);
|
||||
SQGSNews_Register(this->engine);
|
||||
SQGSOrder_Register(this->engine);
|
||||
SQGSRail_Register(this->engine);
|
||||
SQGSRailTypeList_Register(this->engine);
|
||||
SQGSRoad_Register(this->engine);
|
||||
SQGSSign_Register(this->engine);
|
||||
SQGSSignList_Register(this->engine);
|
||||
SQGSStation_Register(this->engine);
|
||||
SQGSStationList_Register(this->engine);
|
||||
SQGSStationList_Cargo_Register(this->engine);
|
||||
SQGSStationList_CargoPlanned_Register(this->engine);
|
||||
SQGSStationList_CargoPlannedByFrom_Register(this->engine);
|
||||
SQGSStationList_CargoPlannedByVia_Register(this->engine);
|
||||
SQGSStationList_CargoPlannedFromByVia_Register(this->engine);
|
||||
SQGSStationList_CargoPlannedViaByFrom_Register(this->engine);
|
||||
SQGSStationList_CargoWaiting_Register(this->engine);
|
||||
SQGSStationList_CargoWaitingByFrom_Register(this->engine);
|
||||
SQGSStationList_CargoWaitingByVia_Register(this->engine);
|
||||
SQGSStationList_CargoWaitingFromByVia_Register(this->engine);
|
||||
SQGSStationList_CargoWaitingViaByFrom_Register(this->engine);
|
||||
SQGSStationList_Vehicle_Register(this->engine);
|
||||
SQGSStoryPage_Register(this->engine);
|
||||
SQGSStoryPageElementList_Register(this->engine);
|
||||
SQGSStoryPageList_Register(this->engine);
|
||||
SQGSSubsidy_Register(this->engine);
|
||||
SQGSSubsidyList_Register(this->engine);
|
||||
SQGSTestMode_Register(this->engine);
|
||||
SQGSText_Register(this->engine);
|
||||
SQGSTile_Register(this->engine);
|
||||
SQGSTileList_Register(this->engine);
|
||||
SQGSTileList_IndustryAccepting_Register(this->engine);
|
||||
SQGSTileList_IndustryProducing_Register(this->engine);
|
||||
SQGSTileList_StationType_Register(this->engine);
|
||||
SQGSTown_Register(this->engine);
|
||||
SQGSTownEffectList_Register(this->engine);
|
||||
SQGSTownList_Register(this->engine);
|
||||
SQGSTunnel_Register(this->engine);
|
||||
SQGSVehicle_Register(this->engine);
|
||||
SQGSVehicleList_Register(this->engine);
|
||||
SQGSVehicleList_Depot_Register(this->engine);
|
||||
SQGSVehicleList_SharedOrders_Register(this->engine);
|
||||
SQGSVehicleList_Station_Register(this->engine);
|
||||
SQGSViewport_Register(this->engine);
|
||||
SQGSWaypoint_Register(this->engine);
|
||||
SQGSWaypointList_Register(this->engine);
|
||||
SQGSWaypointList_Vehicle_Register(this->engine);
|
||||
SQGSWindow_Register(this->engine);
|
||||
|
||||
RegisterGameTranslation(this->engine);
|
||||
|
||||
if (!this->LoadCompatibilityScripts(this->versionAPI, GAME_DIR)) this->Died();
|
||||
}
|
||||
|
||||
int GameInstance::GetSetting(const char *name)
|
||||
{
|
||||
return GameConfig::GetConfig()->GetSetting(name);
|
||||
}
|
||||
|
||||
ScriptInfo *GameInstance::FindLibrary(const char *library, int version)
|
||||
{
|
||||
return (ScriptInfo *)Game::FindLibrary(library, version);
|
||||
}
|
||||
|
||||
void GameInstance::Died()
|
||||
{
|
||||
ScriptInstance::Died();
|
||||
|
||||
ShowAIDebugWindow(OWNER_DEITY);
|
||||
|
||||
const GameInfo *info = Game::GetInfo();
|
||||
if (info != NULL) {
|
||||
ShowErrorMessage(STR_ERROR_AI_PLEASE_REPORT_CRASH, INVALID_STRING_ID, WL_WARNING);
|
||||
|
||||
if (info->GetURL() != NULL) {
|
||||
ScriptLog::Info("Please report the error to the following URL:");
|
||||
ScriptLog::Info(info->GetURL());
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/**
|
||||
* DoCommand callback function for all commands executed by Game Scripts.
|
||||
* @param result The result of the command.
|
||||
* @param tile The tile on which the command was executed.
|
||||
* @param p1 p1 as given to DoCommandPInternal.
|
||||
* @param p2 p2 as given to DoCommandPInternal.
|
||||
* @param cmd cmd as given to DoCommandPInternal.
|
||||
*/
|
||||
void CcGame(const CommandCost &result, TileIndex tile, uint32 p1, uint32 p2, uint32 cmd)
|
||||
{
|
||||
if (Game::GetGameInstance()->DoCommandCallback(result, tile, p1, p2, cmd)) {
|
||||
Game::GetGameInstance()->Continue();
|
||||
}
|
||||
}
|
||||
|
||||
CommandCallback *GameInstance::GetDoCommandCallback()
|
||||
{
|
||||
return &CcGame;
|
||||
}
|
||||
Reference in New Issue
Block a user