blob: 0821d7169989933c68d9f361d84cdf479a12aa97 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
--
set x = 1
if x = 5 then exit
else put 10.0
set y = 4
repeat with x = 1 to 6
if x = 3 then put 30
else if x = 4 then put 40
else if x = 5 then put 50
else put 10.0
if x = 1 then
put 1
else if x = 2 then
put 1232.12345678901234
put 2.2
else if x = 3 then
put 3
else if x = 4 then
put 4
else if x = 5 then
put 5
else if x = 6 then
put 6
end if
if x = 4 then put 40
else put 50
end repeat
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
if abs(y) = x and abs(x) = y then
put TRUE
else
put FALSE
end if
if the selection = the text of cast A31 then
go to frame "sEnd"
exit
else if whichTry = 1 then go to frame "sTell"
else if whichTry = 2 then go to frame "sShow"
else if whichTry = 3 then go to frame "sDo"
if the selection = the text of cast A31 then
go to frame "sEnd"
exit
else if whichTry = 1 then
go to frame "sTell"
else if whichTry = 2 then
put 5
go to frame "sShow"
else if whichTry = 3 then go to frame "sDo"
else put 6
if the selection = the text of cast A31 then go to frame "sEnd" else put 7
if the selection = the text of cast A31 then go to frame "sEnd"
else if whichTry = 1 then
go to frame "sTell"
else if whichTry = 2 then
put 5
go to frame "sShow"
else if whichTry = 3 then go to frame "sDo"
else
put 6
put 7
end if
if the selection = the text of cast A31 then go to frame "sEnd"
else if whichTry = 1 then
go to frame "sTell"
else if whichTry = 2 then
put 5
go to frame "sShow"
else if whichTry = 3 then go to frame "sDo"
if rollOver(2) then
put "The cursor is INSIDE the square." into field "Cursor Status"
else
put "The cursor is OUTSIDE the square." into field "Cursor Status"
end if
macro WindowHorzP X
set X1 = constrainH( 14, X )
if X1 = X then return( TRUE )
else return( FALSE )
|