Ray Dream Gallery - The Best of 1995/RAYDREAM95.iso/pc/_gal94/windows/illustra.dir/00134_Script_134

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 nothing
else
if result = 7 then play frame "InteractiveStart" of movie "Cyber.DIR"
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