home *** CD-ROM | disk | FTP | other *** search
/ Ray Dream Gallery - The Best of 1995 / RAYDREAM95.iso / pc / _gal94 / windows / illustra.dir / 00135_Script_135 < prev    next >
Text File  |  1994-12-01  |  739b  |  28 lines
  1. ---
  2. on MakePopGallery
  3.   Global PopGallery, gspeak
  4.   if objectP ( PopGallery) then PopGallery( mDispose)
  5.   set menulist = the text of cast (85+gspeak)
  6.   set PopGallery to PopMenu(mNew, menuList, 203)
  7.   PopGallery(mSetItemMark,0)
  8.   
  9. on GalleryMenu
  10.   Global PopGallery
  11.   set sH = the left of sprite 16 + the stageleft + 52
  12.   Set sV = The Top of sprite 16 + the stageTop +17
  13.   
  14.   
  15.   set result = PopGallery(mPopNum, sH, sV, 0)
  16.   
  17.   if result = 1 then play frame "self-Runstart"  of movie "Graphic.DIR"
  18.   else
  19.     if result = 2 then play frame "StartIndex" of movie "index.DIR"
  20.     else
  21.       if result = 3 then nothing
  22.       else
  23.         if result = 4 then  play frame "exit"
  24.       end if
  25.     end if
  26.   end if
  27. end if
  28.