(svn r16834) -Fix [FS#3034]: call the AI Save() function only once so AIs can't crash OpenTTD

2 files changed, 10 insertions, 0 deletions

diff --git a/src/script/squirrel.cpp b/src/script/squirrel.cpp
index 6955d2d24..3fb778043 100644
--- a/src/script/squirrel.cpp
+++ b/src/script/squirrel.cpp
@@ -509,6 +509,11 @@ void Squirrel::ResetCrashed()
 	this->crashed = false;
 }
 
+void Squirrel::CrashOccurred()
+{
+	this->crashed = true;
+}
+
 bool Squirrel::CanSuspend()
 {
 	return sq_can_suspend(this->vm);
diff --git a/src/script/squirrel.hpp b/src/script/squirrel.hpp
index b878c2b95..32f24cb11 100644
--- a/src/script/squirrel.hpp
+++ b/src/script/squirrel.hpp
@@ -215,6 +215,11 @@ public:
 	void ResetCrashed();
 
 	/**
+	 * Set the AI status to crashed.
+	 */
+	void CrashOccurred();
+
+	/**
 	 * Are we allowed to suspend the squirrel script at this moment?
 	 */
 	bool CanSuspend();