diff options
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 |