CHG: more time for startign complex tutorials

git-svn-id: svn://tron.homeunix.org/simutrans/simutrans/trunk@11894 8aca7d54-2c30-db11-9de9-000461428c89

Author: prissi

src/simutrans/dataobj/scenario.cc

@@ -174,7 +174,7 @@ bool scenario_t::load_script(const char* filename)
 	}
 
 	// load scenario definition
-	if (const char* err = script->call_script(filename)) {
+	if (const char* err = script->call_script(filename,2000000)) {
 		dbg->error("scenario_t::load_script", "error [%s] calling %s", err, filename);
 		return false;
 	}

src/simutrans/script/script.cc

@@ -165,15 +165,15 @@ script_vm_t::~script_vm_t()
 	delete log;
 }
 
-const char* script_vm_t::call_script(const char* filename)
+const char* script_vm_t::call_script(const char* filename, uint32 ops)
 {
 	// load script
 	if (!SQ_SUCCEEDED(sqstd_loadfile(vm, filename, true))) {
 		return "Reading / compiling script failed";
 	}
 	// call it
 	sq_pushroottable(vm);
-	if (!SQ_SUCCEEDED(sq_call_restricted(vm, 1, SQFalse, SQTrue, 100000))) {
+	if (!SQ_SUCCEEDED(sq_call_restricted(vm, 1, SQFalse, SQTrue, ops))) {
 		sq_pop(vm, 1); // pop script
 		return "Call script failed";
 	}

src/simutrans/script/script.h

@@ -35,7 +35,7 @@ class script_vm_t {
 	 * loads file, calls script
 	 * @returns error msg (or NULL if succeeded)
 	 */
-	const char* call_script(const char* filename);
+	const char* call_script(const char* filename, uint32 ops=100000);
 
 	/**
 	 * compiles and executes given string