From d70a76f1d6e5fdb5e7dd0a3c45f7c6acf4f8a94f Mon Sep 17 00:00:00 2001
From: Eugene Sandulenko
Date: Thu, 30 Jun 2016 17:13:34 +0200
Subject: DIRECTOR: Lingo: Make 'global' accept list of variables

---
 engines/director/director.cpp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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

diff --git a/engines/director/director.cpp b/engines/director/director.cpp
index 7463a9e77a..2081ebdc89 100644
--- a/engines/director/director.cpp
+++ b/engines/director/director.cpp
@@ -105,13 +105,14 @@ _lingo->executeScript(kMovieScript, 2);
 
 	_lingo->addCode("--\n\
 macro SHIPX\n\
-global x\n\
+global x, y\n\
 set x = 5\n\
 if x = 1 then\n\
 go \"Zoom\"\n\
 exit\n\
 end if\n\
 if x >1 then\n\
+set y = 10\n\
 exit\n\
 end if\n\
 put 100\n\
@@ -138,11 +139,13 @@ end if\n\
 ", kMovieScript, 1);
 
 _lingo->addCode("check(2, 3)\n\
-global x\n\
+global x, y\n\
+set y = 8\n\
 shipx\n\
 put x\n\
 zipx\n\
 put x\n\
+put y\n\
 ", kMovieScript, 2);
 
 _lingo->executeScript(kMovieScript, 2);
-- 
cgit v1.2.3