From d440a73a41bb0d1dd6df22013a8df9b6b596600e Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Mon, 27 Jun 2016 10:59:38 +0200
Subject: DIRECTOR: Lingo: Fix handler parameter assigning. Added more debug
 output.

---
 engines/director/director.cpp | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

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

diff --git a/engines/director/director.cpp b/engines/director/director.cpp
index 6d8e51ccb8..cb31f88aa0 100644
--- a/engines/director/director.cpp
+++ b/engines/director/director.cpp
@@ -75,6 +75,29 @@ Common::Error DirectorEngine::run() {
 	_soundManager = new DirectorSound();
 
 #if 0
+_lingo->addCode("--\n\
+macro check par1, par2\n\
+if par1 = 3 then\n\
+  put -3\n\
+else\n\
+  put 0\n\
+end if\n\
+if par2 = 2 then\n\
+  put 2\n\
+else\n\
+  put 0\n\
+end if\n\
+put par1\n\
+put par2\n\
+", kMovieScript, 5);
+
+_lingo->addCode("check(3, 2)\n\
+", kMovieScript, 2);
+
+_lingo->executeScript(kMovieScript, 2);
+
+return Common::kNoError;
+
 	_lingo->addCode("--\n\
 macro SHIPX\n\
 set x = 5\n\
@@ -107,7 +130,8 @@ else\n\
 end if\n\
 ", kMovieScript, 1);
 
-_lingo->addCode("shipx\n\
+_lingo->addCode("check(2, 3)\n\
+shipx\n\
 put x\n\
 ", kMovieScript, 2);
 
-- 
cgit v1.2.3