diff options
Diffstat (limited to 'engines/director/lingo')
| -rw-r--r-- | engines/director/lingo/tests/if.lingo | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/engines/director/lingo/tests/if.lingo b/engines/director/lingo/tests/if.lingo index 8f1e2391e6..cbf70f6873 100644 --- a/engines/director/lingo/tests/if.lingo +++ b/engines/director/lingo/tests/if.lingo @@ -25,3 +25,24 @@ repeat with x = 1 to 6 if x = 4 then put 40 else put 50 end repeat + + +macro checkKey + if the keyCode = 36 then -- return key goes to first menu + go to frame 1 + else if the keyCode = 123 then -- left arrow goes to previous menu + dontPassEvent + go to marker(-1) + else if the keyCode = 124 then -- right arrow goes to next menu + dontPassEvent + go to marker(1) + else if the keyCode = 125 then -- down arrow goes to last (bottom) menu + dontPassEvent + go to frame "credits" + else if the keyCode = 126 then -- up arrow goes to first (top) menu + dontPassEvent + go to frame 1 + end if + +-- specialized macros to determine which sub-menu to return to +-- (these two files appear in two different menus) |