home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DIGIZINE 1
/
DIGIZINE.BIN
/
main
/
sony
/
shared.dir
/
01046_Script_1046
< prev
next >
Wrap
Text File
|
1995-09-06
|
3KB
|
108 lines
On PlayQTSound whichSound, doLoop
global gQTSoundChannel
sound stop 1
set the castNum of sprite gQTSoundChannel to the number of cast whichSound
set the movieTime of sprite gQTSoundChannel to 0
if voidp(doLoop) then put FALSE into doLoop
set the loop of cast whichSound to doLoop
updateStage
set the movieRate of sprite gQTSoundChannel to 1
if doLoop then go to the frame
end
On KillQTSound
global gQTSoundChannel, gCurrSound
sound stop 1
put #not into gCurrSound
set the movieRate of sprite gQTSoundChannel to 0
end
On HoldQTSound whichSound
global gQTSoundChannel, gCurrSound, gCurrSoundTime
if gCurrSound <> whichSound then
if voidp(whichSound) then
put the name of cast the castNum of sprite gQTSoundChannel into whichSound
else
PlayQTSound whichSound
end if
put whichSound into gCurrSound
put the duration of cast gCurrSound into gCurrSoundTime
end if
if the movietime of sprite gQTSoundChannel >= gCurrSoundTime then
go to the frame + 1
put #not into gCurrSound
else
go to the frame
end if
end
On PlayOnceQTSound whichSound
global gQTSoundChannel, gCurrSound
sound stop 1
put the number of cast whichSound into currSound
if gCurrSound <> currSound then
set the castNum of sprite gQTSoundChannel to currSound
set the movieTime of sprite gQTSoundChannel to 0
updateStage
set the movieRate of sprite gQTSoundChannel to 1
put currSound into gCurrSound
end if
end
on LowerQTSound
nothing
-- global gQTSoundChannel,gQTSoundVolume
-- put the volume of sprite(gQTSoundChannel)
-- set the volume of sprite(gQTSoundChannel) = (gQTSoundVolume - 75)
-- put the volume of sprite(gQTSoundChannel)
end
on RaiseQTSound
nothing
-- global gQTSoundChannel,gQTSoundVolume
-- set the volume of sprite(gQTSoundChannel) = gQTSoundVolume
-- put the volume of sprite(gQTSoundChannel)
end
on HoldToClickQTSound whichClick, whichSound
global gQTSoundChannel, gCurrSound, gCurrSoundTime
if gCurrSound <> whichSound then
if voidp(whichSound) then
put the name of cast the castNum of sprite gQTSoundChannel into whichSound
else
PlayQTSound whichSound
end if
put whichSound into gCurrSound
put the duration of cast gCurrSound into gCurrSoundTime
end if
if the movietime of sprite gQTSoundChannel >= whichClick then
go to the frame + 1
put #not into gCurrSound
else
go to the frame - 1
end if
end