home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
WH Questions 1
/
WebberInteractiveWHQ&ALevel1.iso
/
InteractiveWH
/
Disk_1
/
Help.dir
/
00001_Script_MouseOverMenu
next >
Wrap
Text File
|
2006-03-24
|
1KB
|
104 lines
Global TheSelected
on mouseEnter me
TheNum = me.spriteNum
if TheNum <> TheSelected then
sprite(TheNum).color = rgb(255, 255, 0)
end if
end
On MouseLeave me
TheNum = me.spriteNum
if TheNum <> TheSelected then
sprite(TheNum).color = rgb(255, 255, 255)
end if
end
On MouseUp me
repeat with i = 10 to 40
sprite(i).color = rgb(255, 255, 255)
end repeat
TheNum = me.spriteNum
TheSelected = TheNum
sprite(TheNum).color = rgb(0, 255, 255)
Case TheNum of
10:
go to frame 1
11:
go to frame 3
12:
go to frame 4
13:
go to frame 5
14:
go to frame 6
15:
go to frame 6
16:
go to frame 6
17:
go to frame 7
18:
go to frame 8
19:
go to frame 8
20:
go to frame 8
21:
go to frame 9
22:
go to frame 9
23:
go to frame 9
24:
go to frame 10
25:
go to frame 10
26:
go to frame 10
27:
go to frame 11
28:
go to frame 11
29:
go to frame 11
30:
go to frame 11
31:
go to frame 13
32:
go to frame 13
33:
go to frame 14
34:
go to frame 14
35:
go to frame 15
36:
go to frame 16
37:
go to frame 17
38:
go to frame 17
end case
end