4 files changed, 46 insertions, 39 deletions

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index c623b2f4a6..3283db5282 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -871,7 +871,7 @@ void Lingo::b_continue(int nargs) {
 }
 
 void Lingo::b_dontPassEvent(int nargs) {
-	g_lingo->dontPassEvent = true;
+	g_lingo->_dontPassEvent = true;
 	warning("dontPassEvent raised");
 }
 
diff --git a/engines/director/lingo/lingo-events.cpp b/engines/director/lingo/lingo-events.cpp
index 9a270cc824..b48278dd48 100644
--- a/engines/director/lingo/lingo-events.cpp
+++ b/engines/director/lingo/lingo-events.cpp
@@ -132,7 +132,7 @@ void Lingo::primaryEventHandler(LEvent event) {
 	}
 #ifdef DEBUG_DONTPASSEVENT
 	// #define DEBUG_DONTPASSEVENT to simulate raising of the dontPassEvent flag
-	g_lingo->dontPassEvent = true;
+	g_lingo->_dontPassEvent = true;
 	debugC(3, kDebugLingoExec, "STUB: primaryEventHandler raising dontPassEvent");
 #else
 	debugC(3, kDebugLingoExec, "STUB: primaryEventHandler not raising dontPassEvent");
@@ -157,32 +157,35 @@ void Lingo::processInputEvent(LEvent event) {
 
 	primaryEventHandler(event);
 
-	if (g_lingo->dontPassEvent) {
-		g_lingo->dontPassEvent = false;
-	} else {
-		if (_vm->getVersion() > 3) {
-			if (true) {
-				// TODO: Check whether occurring over a sprite
-				g_lingo->processEvent(event, kSpriteScript, currentFrame->_sprites[spriteId]->_scriptId);
-			}
-			g_lingo->processEvent(event, kCastScript, currentFrame->_sprites[spriteId]->_castId);
-			g_lingo->processEvent(event, kFrameScript, score->_frames[score->getCurrentFrame()]->_actionId);
-			// TODO: Is the kFrameScript call above correct?
-		} else if (event == kEventMouseUp) {
-			// Frame script overrides sprite script
-			if (!currentFrame->_sprites[spriteId]->_scriptId) {
-				g_lingo->processEvent(kEventNone, kSpriteScript, currentFrame->_sprites[spriteId]->_castId + 1024);
-				g_lingo->processEvent(event, kSpriteScript, currentFrame->_sprites[spriteId]->_castId + 1024);
-			} else {
-				g_lingo->processEvent(kEventNone, kFrameScript, currentFrame->_sprites[spriteId]->_scriptId);
-			}
+	if (g_lingo->_dontPassEvent) {
+		g_lingo->_dontPassEvent = false;
+
+		return;
+	}
+
+	if (_vm->getVersion() > 3) {
+		if (true) {
+			// TODO: Check whether occurring over a sprite
+			g_lingo->processEvent(event, kSpriteScript, currentFrame->_sprites[spriteId]->_scriptId);
 		}
-		if (event == kEventKeyDown) {
-			// TODO: is the above condition necessary or useful?
-			g_lingo->processEvent(event, kGlobalScript, 0);
+		g_lingo->processEvent(event, kCastScript, currentFrame->_sprites[spriteId]->_castId);
+		g_lingo->processEvent(event, kFrameScript, score->_frames[score->getCurrentFrame()]->_actionId);
+		// TODO: Is the kFrameScript call above correct?
+	} else if (event == kEventMouseUp) {
+		// Frame script overrides sprite script
+		if (!currentFrame->_sprites[spriteId]->_scriptId) {
+			g_lingo->processEvent(kEventNone, kSpriteScript, currentFrame->_sprites[spriteId]->_castId + 1024);
+			g_lingo->processEvent(event, kSpriteScript, currentFrame->_sprites[spriteId]->_castId + 1024);
+		} else {
+			g_lingo->processEvent(kEventNone, kFrameScript, currentFrame->_sprites[spriteId]->_scriptId);
 		}
-		runMovieScript(event);
 	}
+	if (event == kEventKeyDown) {
+		// TODO: is the above condition necessary or useful?
+		g_lingo->processEvent(event, kGlobalScript, 0);
+	}
+	if (!g_lingo->_dontPassEvent)
+		runMovieScript(event);
 }
 
 void Lingo::runMovieScript(LEvent event) {
@@ -214,22 +217,24 @@ void Lingo::processFrameEvent(LEvent event) {
 		primaryEventHandler(event);
 	}
 
-	if (g_lingo->dontPassEvent) {
-		g_lingo->dontPassEvent = false;
+	if (g_lingo->_dontPassEvent) {
+		g_lingo->_dontPassEvent = false;
+
+		return;
+	}
+
+	int entity;
+
+	if (event == kEventPrepareFrame || event == kEventIdle) {
+		entity = score->getCurrentFrame();
 	} else {
-		int entity;
+		assert(score->_frames[score->getCurrentFrame()] != nullptr);
+		entity = score->_frames[score->getCurrentFrame()]->_actionId;
+	}
+	processEvent(event, kFrameScript, entity);
 
-		if (event == kEventPrepareFrame || event == kEventIdle) {
-			entity = score->getCurrentFrame();
-		} else {
-			assert(score->_frames[score->getCurrentFrame()] != nullptr);
-			entity = score->_frames[score->getCurrentFrame()]->_actionId;
-		}
-		processEvent(event,
-					 kFrameScript,
-					 entity);
+	if (!g_lingo->_dontPassEvent)
 		runMovieScript(event);
-	}
 }
 
 void Lingo::processGenericEvent(LEvent event) {
diff --git a/engines/director/lingo/lingo.cpp b/engines/director/lingo/lingo.cpp
index c998c37a11..54f8243705 100644
--- a/engines/director/lingo/lingo.cpp
+++ b/engines/director/lingo/lingo.cpp
@@ -70,6 +70,8 @@ Lingo::Lingo(DirectorEngine *vm) : _vm(vm) {
 
 	_localvars = NULL;
 
+	_dontPassEvent = false;
+
 	initEventHandlerTypes();
 
 	initBuiltIns();
diff --git a/engines/director/lingo/lingo.h b/engines/director/lingo/lingo.h
index 3281445f81..f3a8edf35b 100644
--- a/engines/director/lingo/lingo.h
+++ b/engines/director/lingo/lingo.h
@@ -620,7 +620,7 @@ private:
 
 	int _floatPrecision;
 
-	bool dontPassEvent;
+	bool _dontPassEvent;
 
 public:
 	void executeImmediateScripts(Frame *frame);