From 5b7ad5cd15fc8b99b1a7be7f9bdaa6f4002a8f2c Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Thu, 11 Aug 2016 08:29:11 +0200
Subject: DIRECTOR: Lingo: Added constants 'true' and 'false'

---
 engines/director/lingo/lingo-builtins.cpp | 28 +++++++++++++++++++++++++++-
 engines/director/lingo/lingo.h            |  3 +++
 2 files changed, 30 insertions(+), 1 deletion(-)

(limited to 'engines/director')

diff --git a/engines/director/lingo/lingo-builtins.cpp b/engines/director/lingo/lingo-builtins.cpp
index 5001eeabb9..573a005bb5 100644
--- a/engines/director/lingo/lingo-builtins.cpp
+++ b/engines/director/lingo/lingo-builtins.cpp
@@ -104,7 +104,11 @@ static struct BuiltinProto {
 	// Sound
 	{ "beep",	 		Lingo::b_beep,			0, 1, false },	// D2
 	{ "mci",	 		Lingo::b_mci,			1, 1, false },
-	{ "mciwait",		Lingo::b_mciwait,			1, 1, false },
+	{ "mciwait",		Lingo::b_mciwait,		1, 1, false },
+	// Constants
+	{ "false",			Lingo::b_false,			0, 0, false },	// D2
+	{ "true",			Lingo::b_true,			0, 0, false },	// D2
+
 	{ 0, 0, 0, 0, false }
 };
 
@@ -513,6 +517,8 @@ void Lingo::b_puppetPalette(int nargs) {
 }
 
 void Lingo::b_puppetSound(int nargs) {
+	g_lingo->convertVOIDtoString(0, nargs);
+
 	g_lingo->printStubWithArglist("b_puppetSound", nargs);
 
 	g_lingo->dropStack(nargs);
@@ -594,5 +600,25 @@ void Lingo::b_mciwait(int nargs) {
 	g_lingo->func_mciwait(*d.u.s);
 }
 
+///////////////////
+// Constants
+///////////////////
+void Lingo::b_true(int nargs) {
+	Datum d;
+
+	d.type = INT;
+	d.u.i = 1;
+
+	g_lingo->push(d);
+}
+
+void Lingo::b_false(int nargs) {
+	Datum d;
+
+	d.type = INT;
+	d.u.i = 0;
+
+	g_lingo->push(d);
+}
 
 } // End of namespace Director
diff --git a/engines/director/lingo/lingo.h b/engines/director/lingo/lingo.h
index a42b796014..35bdea9635 100644
--- a/engines/director/lingo/lingo.h
+++ b/engines/director/lingo/lingo.h
@@ -322,6 +322,9 @@ public:
 	static void b_mci(int nargs);
 	static void b_mciwait(int nargs);
 
+	static void b_false(int nargs);
+	static void b_true(int nargs);
+
 	void func_mci(Common::String &s);
 	void func_mciwait(Common::String &s);
 	void func_goto(Datum &frame, Datum &movie);
-- 
cgit v1.2.3