home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ray Dream Gallery - The Best of 1995
/
RAYDREAM95.iso
/
pc
/
_gal94
/
windows
/
cyber.dir
/
00135_Script_135
< prev
next >
Wrap
Text File
|
1994-12-01
|
762b
|
30 lines
---
on MakePopGallery
Global PopGallery, gSpeak
if objectP ( PopGallery) thEn PopGallery( mDispose)
set menulist = the text of cast (85+gSpeak)
set PopGallery to PopMenu(mNew, menuList, 203)
PopGallery(mSetItemMark,0)
on GalleryMenu
Global PopGallery
set sH = the left of sprite 16 + the stageleft + 52
Set sV = The Top of sprite 16 + the stageTop +17
set result = PopGallery(mPopNum, sH, sV, 0)
if result = 1 then play frame "self-runstart" of movie "GRAPHIC.DIR"
else
if result = 2 then play frame "StartIndex" of movie "INDEX.DIR"
else
if result = 3 then nothing
else
if result = 4 then play frame "exit"
updatestage
end if
end if
end if
end if