DIRECTOR: Lingo: Split 'on ...' statement when preprocessing

D4 scripts do not have respective 'end...' statement, which leads
to syntax errors. Now we are preprocessing those as well.

1 files changed, 6 insertions, 1 deletions

diff --git a/engines/director/lingo/lingo.cpp b/engines/director/lingo/lingo.cpp
index 5775eb13bc..706f76777d 100644
--- a/engines/director/lingo/lingo.cpp
+++ b/engines/director/lingo/lingo.cpp
@@ -140,6 +140,11 @@ const char *Lingo::findNextDefinition(const char *s) {
 			return res;
 		}
 
+		if (!strncmp(res, "on ", 3)) {
+			debugC(1, kDebugLingoCompile, "See on");
+			return res;
+		}
+
 		if (!strncmp(res, "factory ", 8)) {
 			debugC(1, kDebugLingoCompile, "See factory");
 			return res;
@@ -195,7 +200,7 @@ void Lingo::addCode(const char *code, ScriptType type, uint16 id) {
 
 			if (chunk.hasPrefix("factory") || chunk.hasPrefix("method"))
 				_inFactory = true;
-			else if (chunk.hasPrefix("macro"))
+			else if (chunk.hasPrefix("macro") || chunk.hasPrefix("on"))
 				_inFactory = false;
 			else
 				_inFactory = false;