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 >
Wrap
Text File
|
1994-12-01
|
1KB
|
38 lines
---
on MakePopSound
Global PopSound,gspeak
if objectP ( PopSound) then Popsound( mDispose)
set menulist = the text of cast (gspeak+74)
set PopSound to PopMenu(mNew, menuList, 201)
PopSound(mSetItemMark,0)
on SoundMenu
Global PopSound, SoundItemz
set sH = the left of sprite 19 + the stageLeft + 0
Set sV = The Top of sprite 19 + the stageTop -75
set result = Popsound(mPopNum, sH, sV, 0)
if result = 1 then
set the volume of sound 1 to 0
set the volume of sound 2 to 0
else
if result = 2 then nothing
else
if result = 3 then
set the volume of sound 1 to 35
set the volume of sound 2 to 35
else
if result = 4 then
set the volume of sound 1 to 120
set the volume of sound 2 to 120
else
if result = 5 then
set the volume of sound 1 to 240
set the volume of sound 2 to 240
end if
end if
end if
end if
end if