From 2dba6126b72cfcc1643e7623e6f558a41931bf37 Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Mon, 4 Jul 2016 22:45:34 +0200
Subject: DIRECTOR: Lingo: Eat all leading whitespaces

---
 engines/director/director.cpp | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

(limited to 'engines/director/director.cpp')

diff --git a/engines/director/director.cpp b/engines/director/director.cpp
index e145a4db8e..d9e43124cd 100644
--- a/engines/director/director.cpp
+++ b/engines/director/director.cpp
@@ -92,20 +92,22 @@ Common::Error DirectorEngine::run() {
 	_lingo = new Lingo(this);
 	_soundManager = new DirectorSound();
 
-#if 0
+#if 1
 	_lingo->addCode("--\n\
-	if 5 then\n\
-	  exit\n\
-	else if 6 then\n\
-	  put x\n\
-	  exit\n\
-    else if 7 then exit\n\
-	end if\n\
-	if 5 then exit\n\
-	else exit\n\
+	-- repeat with x = 1 to 5\n\
+		if x = 1 then\n\
+		  put 1\n\
+		else if x = 2 then\n\
+		  put 2.1\n\
+		  put 2.2\n\
+	    else if x = 3 then put 3\n\
+		end if\n\
+		if x = 4 then put 4\n\
+		else put 5\n\
+	-- end repeat\n\
 ", kMovieScript, 2);
 
-//_lingo->executeScript(kMovieScript, 2);
+_lingo->executeScript(kMovieScript, 2);
 
 return Common::kNoError;
 
-- 
cgit v1.2.3