From 6c816c5aac050b412dd0ac1c9e704ef00cac0825 Mon Sep 17 00:00:00 2001 From: Eugene Sandulenko Date: Fri, 6 Dec 2019 16:50:10 +0100 Subject: DIRECTOR: Added more 'if' statement tests --- engines/director/lingo/tests/if.lingo | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/engines/director/lingo/tests/if.lingo b/engines/director/lingo/tests/if.lingo index 0821d71699..6a5b500dec 100644 --- a/engines/director/lingo/tests/if.lingo +++ b/engines/director/lingo/tests/if.lingo @@ -50,6 +50,9 @@ else put FALSE end if +if abs(y) = x and abs(x) = y then put 5 +if abs(y) = x and abs(x) = y then put 5 else put 6 + if the selection = the text of cast A31 then go to frame "sEnd" exit @@ -88,7 +91,7 @@ else if whichTry = 1 then else if whichTry = 2 then put 5 go to frame "sShow" -else if whichTry = 3 then go to frame "sDo" +else if whichTry = 3 then go to frame "sDo" else put 7 end if if rollOver(2) then put "The cursor is INSIDE the square." into field "Cursor Status" @@ -96,6 +99,25 @@ else put "The cursor is OUTSIDE the square." into field "Cursor Status" end if +if the selection = the text of cast A31 then + if whichTry = 3 then go to frame "sDo" +else if whichTry = 1 then + if whichTry = 3 then go to frame "sDo" else + put 5 + end if +else if whichTry = 2 then + if whichTry = 3 then go to frame "sDo" else + if the selection = the text of cast A21 then + if whichTry = 3 then go to frame "Foo" + else if abra = 5 then put 6 else + put 7 + if abra = 7 thhen put 5 + end if + end if +else if whichTry = 3 then go to frame "sDo" +else put 6 + + macro WindowHorzP X set X1 = constrainH( 14, X ) if X1 = X then return( TRUE ) -- cgit v1.2.3