DIRECTOR: Lingo: Added string constants as expressions

1 files changed, 10 insertions, 0 deletions

diff --git a/engines/director/lingo/lingo-code.cpp b/engines/director/lingo/lingo-code.cpp
index 6151c1b60b..72e771ddef 100644
--- a/engines/director/lingo/lingo-code.cpp
+++ b/engines/director/lingo/lingo-code.cpp
@@ -116,6 +116,16 @@ void Lingo::c_fconstpush() {
 	g_lingo->push(d);
 }
 
+void Lingo::c_stringpush() {
+	Datum d;
+	char *s = (char *)&(*g_lingo->_currentScript)[g_lingo->_pc];
+	g_lingo->_pc += g_lingo->calcStringAlignment(s);
+
+	d.u.s = new Common::String(s);
+	d.type = STRING;
+	g_lingo->push(d);
+}
+
 void Lingo::c_varpush() {
 	char *name = (char *)&(*g_lingo->_currentScript)[g_lingo->_pc];
 	Datum d;