DIRECTOR: Lingo: Added constants 'true' and 'false'

2 files changed, 30 insertions, 1 deletions

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);