From 76e66a4be40c0622f22c974b0724e743d113b7fb Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Sat, 4 Feb 2017 23:31:53 +0100
Subject: DIRECTOR: Lingo: Implemented b_quit()

---
 engines/director/lingo/lingo-builtins.cpp | 5 ++++-
 engines/director/score.h                  | 3 ++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'engines')

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 3f0f5e4850..bb2bdc2fe7 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -755,7 +755,10 @@ void Lingo::b_printFrom(int nargs) {
 }
 
 void Lingo::b_quit(int nargs) {
-	warning("STUB: b_quit");
+	if (g_director->_currentScore)
+		g_director->_currentScore->_stopPlay = true;
+
+	g_lingo->pushVoid();
 }
 
 void Lingo::b_restart(int nargs) {
diff --git a/engines/director/score.h b/engines/director/score.h
index a53c13fc4d..dca1b8fc02 100644
--- a/engines/director/score.h
+++ b/engines/director/score.h
@@ -109,6 +109,8 @@ public:
 	Archive *_movieArchive;
 	Common::Rect _movieRect;
 
+	bool _stopPlay;
+
 private:
 	uint16 _versionMinor;
 	uint16 _versionMajor;
@@ -123,7 +125,6 @@ private:
 	Common::String _currentLabel;
 	uint32 _nextFrameTime;
 	uint32 _flags;
-	bool _stopPlay;
 	uint16 _castArrayEnd;
 	uint16 _movieScriptCount;
 	uint16 _stageColor;
-- 
cgit v1.2.3