Ray Dream Gallery - The Best of 1995/RAYDREAM95.iso/pc/_gal94/windows/graphic.dir/00136_Script_136

Text File | 1994-12-01 | 693b | 31 lines

---
on MakePopSound
Global PopSound
if objectP ( PopSound) then Popsound( mDispose)
set menulist = the text of cast B78
set PopSound to PopMenu(mNew, menuList, 201)
PopSound(mSetItemMark,0)

on SoundMenu
Global PopSound, SoundItemz
set sH = the left of sprite 8 + the stageLeft -22
Set sV = The Top of sprite 8 + the stageTop -80


set result = Popsound(mPopNum, sH, sV, 0)

if result = 1 then set the volume of sound 1 to 0
else
if result = 2 then nothing
else
if result = 3 then set the volume of sound 1 to 60
else
if result = 4 then set the volume of sound 1 to 120
else
if result = 5 then set the volume of sound 1 to 240
end if
end if
end if
end if
end if