diff options
| author | Eugene Sandulenko | 2016-06-27 10:59:38 +0200 |
|---|---|---|
| committer | Eugene Sandulenko | 2016-08-03 23:40:36 +0200 |
| commit | d440a73a41bb0d1dd6df22013a8df9b6b596600e (patch) | |
| tree | fe6942bb4fba5b11681cadb64128a2483e24e412 /engines/director/director.cpp | |
| parent | e93960e200319b61bae57bfc4c1d75d710744fb2 (diff) | |
| download | scummvm-rg350-d440a73a41bb0d1dd6df22013a8df9b6b596600e.tar.gz scummvm-rg350-d440a73a41bb0d1dd6df22013a8df9b6b596600e.tar.bz2 scummvm-rg350-d440a73a41bb0d1dd6df22013a8df9b6b596600e.zip | |
DIRECTOR: Lingo: Fix handler parameter assigning. Added more debug output.
Diffstat (limited to 'engines/director/director.cpp')
| -rw-r--r-- | engines/director/director.cpp | 26 |
1 files changed, 25 insertions, 1 deletions
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); |