home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ray Dream Gallery - The Best of 1995
/
RAYDREAM95.iso
/
pc
/
_gal94
/
windows
/
cyber.dir
/
00134_Script_134
< prev
next >
Wrap
Text File
|
1994-12-01
|
1KB
|
46 lines
---
on MakePopSequence
Global PopSequence, gSpeak
if objectP ( PopSequence) then PopSequence( mDispose)
set menulist = the text of cast (80+gSpeak)
set PopSequence to PopMenu(mNew, menuList, 202)
PopSequence(mSetItemMark,0)
on SequenceMenu
Global PopSequence, SequenceItemz
set sH = the left of sprite 15 + the stageLeft -2
Set sV = The Top of sprite 15 + the stageTop +16
set result = PopSequence(mPopNum, sH, sV, 0)
if result = 1 then play frame "StartIndex" of movie "INDEX.DIR"
else
if result = 2 then nothing
else
if result = 3 then play frame "InteractiveStart" of movie "GRAPHIC.DIR"
else
if result = 4 then play frame "InteractiveStart" of movie "PHOTO.DIR"
else
if result= 5 then play frame "InteractiveStart" of movie "LOGO.DIR"
else
if result = 6 then play frame "InteractiveStart" of movie "illustra.DIR"
else
if result = 7 then nothing
else
if result = 8 then play frame "InteractiveStart" of movie "DESIGN.DIR"
else
if result = 9 then nothing
else
if result = 10 then play frame "exit"
updatestage
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if