diff options
author | Eugene Sandulenko | 2016-07-10 13:05:30 +0200 |
---|---|---|
committer | Eugene Sandulenko | 2016-08-03 23:40:36 +0200 |
commit | 1f0005c4e269ec8d9b848b85e40ab11d7d67a979 (patch) | |
tree | 934904e2099afcf9bc270c64eca03647598635dc /engines/director/lingo/tests/macros.lingo | |
parent | 6b4cff264588f73170da1b31121a9176efcadeba (diff) | |
download | scummvm-rg350-1f0005c4e269ec8d9b848b85e40ab11d7d67a979.tar.gz scummvm-rg350-1f0005c4e269ec8d9b848b85e40ab11d7d67a979.tar.bz2 scummvm-rg350-1f0005c4e269ec8d9b848b85e40ab11d7d67a979.zip |
DIRECTOR: Lingo: Initial code for Lingo test suite. Uses special game target
Diffstat (limited to 'engines/director/lingo/tests/macros.lingo')
-rw-r--r-- | engines/director/lingo/tests/macros.lingo | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/engines/director/lingo/tests/macros.lingo b/engines/director/lingo/tests/macros.lingo new file mode 100644 index 0000000000..9167f1dffb --- /dev/null +++ b/engines/director/lingo/tests/macros.lingo @@ -0,0 +1,55 @@ +-- +macro SHIPX +global x, y +set x = Random(5) +if x = 1 then +go \"Zoom\" +exit +end if +if x >1 then +set y = 10 +exit +end if +put 100 + +-- +macro ZIPX +set x = Random(5) +if x = 1 then +go \"ZIP\" +exit +end if +if x >1 then +put x +exit +end if + +-- +macro check par1, par2 +, par3 +if par1 = 3 then +put -3 +else +put 0 +end if +if par2 = 2 then +put 2 +else +put 0 +end if +put par1 +put par2 +put par3 +", kMovieScript, 1); + +_lingo->addCode("check(2, 3) +global x, y +set y = 8 +shipx +put x +zipx +put x +put y +check(1, 2, 3) +check 4, 5, 6 +check 7, 8 |