home *** CD-ROM | disk | FTP | other *** search
/ Ray Dream Gallery - The Best of 1995 / RAYDREAM95.iso / pc / _gal94 / windows / design.dir / 00144_Script_144 < prev    next >
Text File  |  1994-12-01  |  763b  |  29 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 = 2 then play frame "StartIndex" of movie "index.DIR"
  18.   else
  19.     if result = 1 then play frame "self-runstart"  of movie "GRAPHIC.DIR"
  20.     else
  21.       if result = 3 then nothing
  22.       else 
  23.         if result = 4 then play frame "exit"
  24.         updatestage 
  25.       end if
  26.     end if
  27.   end if
  28. end if
  29.