summaryrefslogtreecommitdiff
path: root/src/ai/ai_instance.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'src/ai/ai_instance.cpp')
-rw-r--r--src/ai/ai_instance.cpp104
1 files changed, 69 insertions, 35 deletions
diff --git a/src/ai/ai_instance.cpp b/src/ai/ai_instance.cpp
index 14413d0bd..cb1a04171 100644
--- a/src/ai/ai_instance.cpp
+++ b/src/ai/ai_instance.cpp
@@ -132,12 +132,9 @@ AIInstance::AIInstance(AIInfo *info) :
/* Register the API functions and classes */
this->RegisterAPI();
- /* Run the constructor if it exists. Don't allow any DoCommands in it. */
- if (this->engine->MethodExists(*this->instance, "constructor")) {
- AIObject::SetAllowDoCommand(false);
- this->engine->CallMethod(*this->instance, "constructor");
- AIObject::SetAllowDoCommand(true);
- }
+ /* The topmost stack item is true if there is data from a savegame
+ * and false otherwise. */
+ sq_pushbool(this->engine->vm, false);
}
AIInstance::~AIInstance()
@@ -271,8 +268,15 @@ void AIInstance::GameLoop()
this->callback = NULL;
if (!this->is_started) {
- /* Start the AI by calling Start() */
try {
+ /* Run the constructor if it exists. Don't allow any DoCommands in it. */
+ if (this->engine->MethodExists(*this->instance, "constructor")) {
+ AIObject::SetAllowDoCommand(false);
+ this->engine->CallMethod(*this->instance, "constructor");
+ AIObject::SetAllowDoCommand(true);
+ }
+ this->CallLoad();
+ /* Start the AI by calling Start() */
if (!this->engine->CallMethod(*this->instance, "Start", _settings_game.ai.ai_max_opcode_till_suspend)) this->Died();
} catch (AI_VMSuspend e) {
this->suspend = e.GetSuspendTime();
@@ -494,20 +498,33 @@ void AIInstance::Save()
return;
}
- /* We don't want to be interrupted during the save function. */
- AIObject::SetAllowDoCommand(false);
-
- HSQOBJECT savedata;
- if (this->engine->MethodExists(*this->instance, "Save")) {
+ HSQUIRRELVM vm = this->engine->GetVM();
+ if (!this->is_started) {
+ SQBool res;
+ sq_getbool(vm, -1, &res);
+ if (!res) {
+ SaveEmpty();
+ return;
+ }
+ /* Push the loaded savegame data to the top of the stack. */
+ sq_push(vm, -3);
+ _ai_sl_byte = 1;
+ SlObject(NULL, _ai_byte);
+ /* Save the data that was just loaded. */
+ SaveObject(vm, -1, AISAVE_MAX_DEPTH, false);
+ sq_poptop(vm);
+ } else if (this->engine->MethodExists(*this->instance, "Save")) {
+ HSQOBJECT savedata;
+ /* We don't want to be interrupted during the save function. */
+ AIObject::SetAllowDoCommand(false);
this->engine->CallMethod(*this->instance, "Save", &savedata);
+ AIObject::SetAllowDoCommand(true);
+
if (!sq_istable(savedata)) {
AILog::Error("Save function should return a table.");
- _ai_sl_byte = 0;
- SlObject(NULL, _ai_byte);
- AIObject::SetAllowDoCommand(true);
+ SaveEmpty();
return;
}
- HSQUIRRELVM vm = this->engine->GetVM();
sq_pushobject(vm, savedata);
if (SaveObject(vm, -1, AISAVE_MAX_DEPTH, true)) {
_ai_sl_byte = 1;
@@ -524,7 +541,6 @@ void AIInstance::Save()
SlObject(NULL, _ai_byte);
}
- AIObject::SetAllowDoCommand(true);
}
/* static */ bool AIInstance::LoadObjects(HSQUIRRELVM vm)
@@ -600,37 +616,55 @@ void AIInstance::Load(int version)
return;
}
HSQUIRRELVM vm = this->engine->GetVM();
- SQInteger old_top = sq_gettop(vm);
SlObject(NULL, _ai_byte);
/* Check if there was anything saved at all. */
if (_ai_sl_byte == 0) return;
+
+ /* First remove the value "false" since we have data to load. */
+ sq_poptop(vm);
+ LoadObjects(vm);
+ sq_pushinteger(vm, version);
+ sq_pushbool(vm, true);
+}
+
+void AIInstance::CallLoad()
+{
+ HSQUIRRELVM vm = this->engine->GetVM();
+ /* Is there save data that we should load? */
+ SQBool res;
+ sq_getbool(vm, -1, &res);
+ sq_poptop(vm);
+ if (!res) return;
+
+ if (!this->engine->MethodExists(*this->instance, "Load")) {
+ AILog::Warning("Loading failed: there was data for the AI to load, but the AI does not have a Load() function.");
+
+ /* Pop the savegame data and version. */
+ sq_pop(vm, 2);
+ return;
+ }
+
AIObject::SetAllowDoCommand(false);
/* Go to the instance-root */
sq_pushobject(vm, *this->instance);
/* Find the function-name inside the script */
sq_pushstring(vm, OTTD2FS("Load"), -1);
- if (SQ_FAILED(sq_get(vm, -2))) sq_pushnull(vm);
+ /* Change the "Load" string in a function pointer */
+ sq_get(vm, -2);
+ /* Push the main instance as "this" object */
sq_pushobject(vm, *this->instance);
- sq_pushinteger(vm, version);
-
- LoadObjects(vm);
-
- if (this->engine->MethodExists(*this->instance, "Load")) {
- sq_call(vm, 3, SQFalse, SQFalse);
+ /* Push the savegame data and version as arguments */
+ sq_push(vm, -5);
+ sq_push(vm, -5);
- /* Pop 1) the object instance, 2) the (null) result. */
- sq_pop(vm, 2);
- } else {
- AILog::Warning("Loading failed: there was data for the AI to load, but the AI does not have a Load() function.");
-
- /* Pop 1) the object instance, 2) the function name, 3) the instance again, 4) the version */
- sq_pop(vm, 4);
- }
+ /* Call the AI load function. sq_call removes the arguments (but not the
+ * function pointer) from the stack. */
+ sq_call(vm, 3, SQFalse, SQFalse);
- assert(sq_gettop(vm) == old_top);
+ /* Pop 1) The savegame data, 2) the version, 3) the object instance, 4) the function pointer. */
+ sq_pop(vm, 4);
AIObject::SetAllowDoCommand(true);
- return;
}