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

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);

src/script/squirrel.hpp

@@ -214,6 +214,11 @@ public:
 	 */
 	void ResetCrashed();
 
+	/**
+	 * Set the AI status to crashed.
+	 */
+	void CrashOccurred();
+
 	/**
 	 * Are we allowed to suspend the squirrel script at this moment?
 	 */