home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SVM Mac - Best of 1995
/
SVM-MAC-WIN-1995-133.img
/
pc
/
partcom
/
coups
/
playvid.dir
/
00002_Script_2
< prev
next >
Wrap
Text File
|
1995-11-10
|
3KB
|
115 lines
on startVideo
global duree, TailleCurseur
-- -- * duree = duree de la sÈquence en ticks (60Ëme de seconde)
-- -- * curseurGauche= extreme gauche du curseur
-- -- * curseurDroite is= extreme droite du curseur
-- -- * TailleCurseur = facteur entre le curseur et la duree du clip
-----------Initialisation du curseur ------------
put the duration of cast "BigClip" into duree
put (float(duree)/(the width of cast "barre du curseur")) into TailleCurseur
cursor 200
set the movierate of sprite 6 to 1
end
on updateController
global duree, curseurGauche, TailleCurseur
puppetsprite 13, true
-- set the loch of sprite 13 to curseurGauche
put ((the movietime of sprite 6/TailleCurseur) + curseurGauche) into sliderMover
set the loch of sprite 13 to sliderMover
updateStage
set the visible of sprite 13 = true
set the movierate of sprite 6 = 0
set the constraint of sprite 13 to 1
cursor -1
end
on bougecurseur
global duree, curseurGauche, curseurDroite, TailleCurseur
puppetsprite 13, true
repeat while the mousedown
set the loch of sprite 13 to the mouseH
updatestage
set the movieTime of sprite 6 to (the locH of sprite 13 - curseurGauche) * TailleCurseur
updateStage
end repeat
end
on playClip
set the castnum of sprite 14 to the number of cast "play-on"
updatestage
spritesoff
go to "retvideo"
set the movierate of sprite 6 to 1
end
on spritesoff
repeat with n=13 to 16
puppetsprite n,false
end repeat
end spritesoff
on RETOUR
spritesoff
go to label ("video")+3
set the movietime of sprite 6 to 0
set the movierate of sprite 6 to 1
end
on checkSON
global volume
put (the mouseH - the locH of sprite 47) into ZZZ
if zzz < 25 then
exit
else if zzz<40 then
if the soundLevel <> 1 then
set the soundLevel to 1
put the soundLevel into volume
exit
end if
else if zzz<60 then
if the soundLevel <> 2 then
set the soundLevel to 2
put the soundLevel into volume
exit
end if
else if zzz<75 then
if the soundLevel <> 3 then
set the soundLevel to 3
put the soundLevel into volume
exit
end if
else if zzz<90 then
if the soundLevel <> 4 then
set the soundLevel to 4
put the soundLevel into volume
exit
end if
else if zzz<105 then
if the soundLevel <> 5 then
set the soundLevel to 5
put the soundLevel into volume
exit
end if
else if zzz<120 then
if the soundLevel <> 6 then
set the soundLevel to 6
put the soundLevel into volume
exit
end if
else if zzz<135 then
if the soundLevel <> 7 then
set the soundLevel to 7
put the soundLevel into volume
exit
end if
end if
end