From c53e4b579a0217e01208b7e06ead853f4319df7c Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Thu, 30 Jun 2016 17:03:02 +0200
Subject: DIRECTOR: Lingo: Make global/local vars work

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

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

diff --git a/engines/director/director.cpp b/engines/director/director.cpp
index 9a22e675cb..7463a9e77a 100644
--- a/engines/director/director.cpp
+++ b/engines/director/director.cpp
@@ -105,6 +105,7 @@ _lingo->executeScript(kMovieScript, 2);
 
 	_lingo->addCode("--\n\
 macro SHIPX\n\
+global x\n\
 set x = 5\n\
 if x = 1 then\n\
 go \"Zoom\"\n\
@@ -117,12 +118,13 @@ put 100\n\
 \n\
 --\n\
 macro ZIPX\n\
-set x = 5\n\
+set x = 7\n\
 if x = 1 then\n\
 go \"ZIP\"\n\
 exit\n\
 end if\n\
 if x >1 then\n\
+put x\n\
 exit\n\
 end if\n\
 \n\
@@ -136,8 +138,11 @@ end if\n\
 ", kMovieScript, 1);
 
 _lingo->addCode("check(2, 3)\n\
+global x\n\
 shipx\n\
 put x\n\
+zipx\n\
+put x\n\
 ", kMovieScript, 2);
 
 _lingo->executeScript(kMovieScript, 2);
-- 
cgit v1.2.3