OpenTTD Source
1.11.0-beta2
|
Go to the documentation of this file.
10 #include "../stdafx.h"
12 #include "../saveload/saveload.h"
14 #include "../script/squirrel_class.hpp"
21 #include "api/script_controller.hpp"
22 #include "api/script_error.hpp"
23 #include "api/script_event.hpp"
24 #include "api/script_log.hpp"
26 #include "../company_base.h"
27 #include "../company_func.h"
28 #include "../fileio_func.h"
30 #include "../safeguards.h"
32 ScriptStorage::~ScriptStorage()
35 if (
event_data !=
nullptr) ScriptEventController::FreeEventPointer();
36 if (
log_data !=
nullptr) ScriptLog::FreeLogPointer();
44 static void PrintFunc(
bool error_msg,
const SQChar *message)
47 ScriptController::Print(error_msg, message);
58 is_save_data_on_stack(false),
71 ScriptObject::ActiveInstance active(
this);
73 this->
controller =
new ScriptController(company);
80 ScriptObject::SetAllowDoCommand(
false);
84 }
else if (!this->
engine->
LoadScript(main_script) || this->engine->IsSuspended()) {
85 if (this->
engine->
IsSuspended()) ScriptLog::Error(
"This script took too long to load script. AI is not started.");
100 ScriptObject::SetAllowDoCommand(
true);
117 char script_name[32];
118 seprintf(script_name,
lastof(script_name),
"compat_%s.nut", api_version);
121 std::string buf = FioGetDirectory(sp, dir);
127 ScriptLog::Error(
"Failed to load API compatibility script");
128 DEBUG(script, 0,
"Error compiling / running API compatibility script: %s", buf.c_str());
132 ScriptLog::Warning(
"API compatibility script not found");
136 ScriptInstance::~ScriptInstance()
138 ScriptObject::ActiveInstance active(
this);
156 DEBUG(script, 0,
"The script died unexpectedly.");
171 ScriptObject::ActiveInstance active(
this);
173 if (this->
IsDead())
return;
184 if (--this->
suspend > 0)
return;
209 ScriptObject::SetAllowDoCommand(
false);
213 if (this->
engine->
IsSuspended()) ScriptLog::Error(
"This script took too long to initialize. Script is not started.");
219 if (this->
engine->
IsSuspended()) ScriptLog::Error(
"This script took too long in the Load function. Script is not started.");
223 ScriptObject::SetAllowDoCommand(
true);
265 instance->engine->InsertResult(ScriptObject::GetLastCommandRes());
270 instance->engine->InsertResult(ScriptObject::GetNewVehicleID());
275 instance->engine->InsertResult(ScriptObject::GetNewSignID());
280 instance->engine->InsertResult(ScriptObject::GetNewGroupID());
285 instance->engine->InsertResult(ScriptObject::GetNewGoalID());
290 instance->engine->InsertResult(ScriptObject::GetNewStoryPageID());
295 instance->engine->InsertResult(ScriptObject::GetNewStoryPageElementID());
305 ScriptObject::ActiveInstance active(
this);
307 return ScriptObject::GetLogPointer();
352 if (max_depth == 0) {
353 ScriptLog::Error(
"Savedata can only be nested to 25 deep. No data saved.");
357 switch (sq_gettype(vm, index)) {
364 sq_getinteger(vm, index, &res);
366 int value = (int)res;
378 sq_getstring(vm, index, &buf);
379 size_t len = strlen(buf) + 1;
381 ScriptLog::Error(
"Maximum string length is 254 chars. No data saved.");
387 SlArray(
const_cast<char *
>(buf), len, SLE_CHAR);
398 while (SQ_SUCCEEDED(sq_next(vm, index - 1))) {
400 bool res =
SaveObject(vm, -1, max_depth - 1, test);
421 while (SQ_SUCCEEDED(sq_next(vm, index - 1))) {
444 sq_getbool(vm, index, &res);
461 ScriptLog::Error(
"You tried to save an unsupported type. No data saved.");
474 ScriptObject::ActiveInstance active(
this);
494 bool backup_allow = ScriptObject::GetAllowDoCommand();
495 ScriptObject::SetAllowDoCommand(
false);
517 ScriptObject::SetAllowDoCommand(backup_allow);
519 if (!sq_istable(savedata)) {
520 ScriptLog::Error(this->
engine->
IsSuspended() ?
"This script took too long to Save." :
"Save function should return a table.");
525 sq_pushobject(vm, savedata);
536 ScriptLog::Warning(
"Save function is not implemented");
568 if (vm !=
nullptr) sq_pushinteger(vm, (SQInteger)value);
574 static char buf[256];
576 if (vm !=
nullptr) sq_pushstring(vm, buf, -1);
581 if (vm !=
nullptr) sq_newarray(vm, 0);
583 if (vm !=
nullptr) sq_arrayappend(vm, -2);
590 if (vm !=
nullptr) sq_newtable(vm);
593 if (vm !=
nullptr) sq_rawset(vm, -3);
606 if (vm !=
nullptr) sq_pushnull(vm);
614 default: NOT_REACHED();
629 ScriptObject::ActiveInstance active(
this);
631 if (this->
engine ==
nullptr || version == -1) {
641 sq_pushinteger(vm, version);
655 ScriptLog::Warning(
"Loading failed: there was data for the script to load, but the script does not have a Load() function.");
665 sq_pushstring(vm,
"Load", -1);
676 if (SQ_FAILED(sq_call(vm, 3, SQFalse, SQFalse,
MAX_SL_OPS)))
return false;
690 ScriptObject::ActiveInstance active(
this);
692 if (!ScriptObject::CheckLastCommand(tile, p1, p2, cmd)) {
693 DEBUG(script, 1,
"DoCommandCallback terminating a script, last command does not match expected command");
697 ScriptObject::SetLastCommandRes(result.
Succeeded());
700 ScriptObject::SetLastError(ScriptError::StringToError(result.
GetErrorMessage()));
702 ScriptObject::IncreaseDoCommandCosts(result.
GetCost());
703 ScriptObject::SetLastCost(result.
GetCost());
713 ScriptObject::ActiveInstance active(
this);
715 ScriptEventController::InsertEvent(event);
718 size_t ScriptInstance::GetAllocatedMemory()
const
virtual void LoadDummyScript()=0
Load the dummy script.
A throw-class that is given when the script wants to suspend.
void * log_data
Pointer to the log data storage.
uint32 TileIndex
The index/ID of a Tile.
static bool SaveObject(HSQUIRRELVM vm, SQInteger index, int max_depth, bool test)
Save one object (int / string / array / table) to the savegame.
class Squirrel * engine
A wrapper around the squirrel vm.
static byte _script_sl_byte
Used as source/target by the script saveload code to store/load a single byte.
static void PrintFunc(bool error_msg, const SQChar *message)
Callback called by squirrel when a script uses "print" and for error messages.
size_t last_allocated_memory
Last known allocated memory value (for display for crashed scripts)
The storage for each script.
bool CallLoad()
Call the script Load function if it exists and data was loaded from a savegame.
bool is_dead
True if the script has been stopped.
void InsertEvent(class ScriptEvent *event)
Insert an event for this script.
void GameLoop()
Run the GameLoop of a script.
void SetPrintFunction(SQPrintFunc *func)
Set a custom print function, so you can handle outputs from SQ yourself.
int GetSuspendTime()
Get the amount of ticks the script should be suspended.
bool DoCommandCallback(const CommandCost &result, TileIndex tile, uint32 p1, uint32 p2, uint32 cmd)
DoCommand callback function for all commands executed by scripts.
class ScriptController * controller
The script main class.
void Save()
Call the script Save function and save all data in the savegame.
class Squirrel * engine
The engine we're scanning with.
@ SQSL_STRING
The following data is an string.
@ SQSL_ARRAY
The following data is an array.
@ SQSL_INT
The following data is an integer.
Runtime information about a script like a pointer to the squirrel vm and the current state.
ScriptInstance(const char *APIName)
Create a new script.
void Unpause()
Resume execution of the script.
static void DoCommandReturnStoryPageElementID(ScriptInstance *instance)
Return a StoryPageElementID reply for a DoCommand.
static bool LoadObjects(HSQUIRRELVM vm)
Load all objects from a savegame.
Searchpath
Types of searchpaths OpenTTD might use.
SQObject * instance
Squirrel-pointer to the script main class.
#define FOR_ALL_SEARCHPATHS(sp)
Iterator for all the search paths.
bool is_save_data_on_stack
Is the save data still on the squirrel stack?
HSQUIRRELVM GetVM()
Get the squirrel VM.
bool is_paused
Is the script paused? (a paused script will not be executed until unpaused)
SQSaveLoadType
The type of the data that follows in the savegame.
Owner
Enum for all companies/owners.
StringID GetErrorMessage() const
Returns the error message of a command.
@ SQSL_TABLE
The following data is an table.
bool Succeeded() const
Did this command succeed?
SQInteger GetOpsTillSuspend()
Get the number of operations the script can execute before being suspended.
@ SQSL_BOOL
The following data is a boolean.
void Pause()
Suspends the script for the current tick and then pause the execution of script.
static void DoCommandReturnGoalID(ScriptInstance *instance)
Return a GoalID reply for a DoCommand.
void ReleaseSQObject(HSQOBJECT *obj)
Decrease the ref count of a squirrel object.
class ScriptStorage * storage
Some global information for each running script.
SQInteger GetOpsTillSuspend()
How many operations can we execute till suspension?
bool HasScriptCrashed()
Find out if the squirrel script made an error before.
bool LoadScript(const char *script)
Load a script.
static void DoCommandReturnSignID(ScriptInstance *instance)
Return a SignID reply for a DoCommand.
Common return value for all commands.
bool in_shutdown
Is this instance currently being destructed?
static const SaveLoad _script_byte[]
SaveLoad array that saves/loads exactly one byte.
void ThrowError(const char *error)
Throw a Squirrel error that will be nicely displayed to the user.
ScriptSettings script
settings for scripts
#define DEBUG(name, level,...)
Output a line of debugging information.
static void DoCommandReturn(ScriptInstance *instance)
Return a true/false reply for a DoCommand.
static void SaveEmpty()
Don't save any data in the savegame.
@ SQSL_NULL
A null variable.
bool FileExists(const std::string &filename)
Test whether the given filename exists.
void SetGlobalPointer(void *ptr)
Sets a pointer in the VM that is reachable from where ever you are in SQ.
bool Failed() const
Did this command fail?
#define SLE_END()
End marker of a struct/class save or load.
bool IsDead() const
Return the "this script died" value.
void * event_data
Pointer to the event data storage.
size_t GetAllocatedMemory() const noexcept
Get number of bytes allocated by this VM.
GameSettings _settings_game
Game settings of a running game or the scenario editor.
Money GetCost() const
The costs as made up to this moment.
bool is_started
Is the scripts constructor executed?
static void DoCommandReturnStoryPageID(ScriptInstance *instance)
Return a StoryPageID reply for a DoCommand.
virtual void RegisterAPI()
Register all API functions to the VM.
bool CallMethod(HSQOBJECT instance, const char *method_name, HSQOBJECT *ret, int suspend)
Call a method of an instance, in various flavors.
void Initialize(const char *main_script, const char *instance_name, CompanyID company)
Initialize the script and prepare it for its first run.
void SlObject(void *object, const SaveLoad *sld)
Main SaveLoad function.
std::string main_script
The full path of the script.
static void LoadEmpty()
Load and discard data from a savegame.
static void DoCommandReturnGroupID(ScriptInstance *instance)
Return a GroupID reply for a DoCommand.
Script_SuspendCallbackProc * GetSuspendCallback()
Get the callback to call when the script can run again.
void squirrel_register_std(Squirrel *engine)
Register all standard functions we want to give to a script.
#define SLEG_VAR(variable, type)
Storage of a global variable in every savegame version.
void ResumeError()
Resume the VM with an error so it prints a stack trace.
bool CreateClassInstance(const char *class_name, void *real_instance, HSQOBJECT *instance)
Exactly the same as CreateClassInstanceVM, only callable without instance of Squirrel.
CompanyID _current_company
Company currently doing an action.
static const int MAX_CONSTRUCTOR_OPS
The maximum number of operations for initial start of a script.
void CollectGarbage()
Tell the VM to do a garbage collection run.
Script_SuspendCallbackProc * callback
Callback that should be called in the next tick the script runs.
bool MethodExists(HSQOBJECT instance, const char *method_name)
Check if a method exists in an instance.
void CrashOccurred()
Set the script status to crashed.
uint32 script_max_opcode_till_suspend
max opcode calls till scripts will suspend
static void DoCommandReturnVehicleID(ScriptInstance *instance)
Return a VehicleID reply for a DoCommand.
class ScriptStorage * GetStorage()
Get the storage of this script.
int CDECL seprintf(char *str, const char *last, const char *format,...)
Safer implementation of snprintf; same as snprintf except:
Subdirectory
The different kinds of subdirectories OpenTTD uses.
virtual void Died()
Tell the script it died.
int suspend
The amount of ticks to suspend this script before it's allowed to continue.
bool Resume(int suspend=-1)
Resume a VM when it was suspended via a throw.
A throw-class that is given when the script made a fatal error.
void Continue()
A script in multiplayer waits for the server to handle his DoCommand.
void ReleaseObject(HSQOBJECT *ptr)
Release a SQ object.
static const TileIndex INVALID_TILE
The very nice invalid tile marker.
bool IsPaused()
Checks if the script is paused.
bool IsSuspended()
Did the squirrel code suspend or return normally.
bool LoadCompatibilityScripts(const char *api_version, Subdirectory dir)
Load squirrel scripts to emulate an older API.
@ CMD_END
Must ALWAYS be on the end of this list!! (period)
void Load(int version)
Load data from a savegame and store it on the stack.
@ SQSL_ARRAY_TABLE_END
Marks the end of an array or table, no data follows.
static void DecreaseOps(HSQUIRRELVM vm, int amount)
Tell the VM to remove amount ops from the number of ops till suspend.
void SlArray(void *array, size_t length, VarType conv)
Save/Load an array.
#define lastof(x)
Get the last element of an fixed size array.
void * GetLogPointer()
Get the log pointer of this script.
void CollectGarbage() const
Let the VM collect any garbage.
static const uint SQUIRREL_MAX_DEPTH
The maximum recursive depth for items stored in the savegame.
const char * GetErrorMessage()
The error message associated with the fatal error.
static const int MAX_SL_OPS
The maximum number of operations for saving or loading the data of a script.