home *** CD-ROM | disk | FTP | other *** search
/ Ray Dream Gallery - The Best of 1995 / RAYDREAM95.iso / pc / _gal94 / windows / index.dir / 00027_Script_27 < prev    next >
Text File  |  1994-12-01  |  1KB  |  38 lines
  1. ---
  2. on MakePopSound
  3.   Global PopSound,gspeak
  4.   if objectP ( PopSound) then Popsound( mDispose)
  5.   set menulist = the text of cast (gspeak+74)
  6.   set PopSound to PopMenu(mNew, menuList, 201)
  7.   PopSound(mSetItemMark,0)
  8.   
  9. on SoundMenu
  10.   Global PopSound, SoundItemz
  11.   set sH = the left of sprite 19 + the stageLeft + 0
  12.   Set sV = The Top of sprite 19 + the stageTop -75
  13.   
  14.   
  15.   set result = Popsound(mPopNum, sH, sV, 0)
  16.   
  17.   if result = 1 then 
  18.     set the volume of sound 1 to 0
  19.     set the volume of sound 2 to 0
  20.   else 
  21.     if result = 2 then nothing
  22.     else
  23.       if result = 3 then
  24.         set the volume of sound 1 to 35
  25.         set the volume of sound 2 to 35
  26.       else
  27.         if result = 4 then 
  28.           set the volume of sound 1 to 120
  29.           set the volume of sound 2 to 120
  30.         else
  31.           if result = 5 then 
  32.             set the volume of sound 1 to 240
  33.             set the volume of sound 2 to 240
  34.           end if
  35.         end if
  36.       end if
  37.     end if
  38.   end if