home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac - Best of 1995 / SVM-MAC-WIN-1995-133.img / mac / PARTCOM / coups / playvid.dir / 00002_Script_2 < prev    next >
Text File  |  1995-11-10  |  3KB  |  115 lines
  1. on startVideo
  2.   global duree, TailleCurseur  
  3.   --  --   *  duree = duree de la sÈquence en ticks (60Ëme de seconde)
  4.   --  --   *  curseurGauche= extreme gauche du curseur
  5.   --  --   *  curseurDroite is= extreme droite du curseur
  6.   --  --   *  TailleCurseur = facteur entre le curseur et la duree du clip
  7.   -----------Initialisation  du curseur  ------------
  8.   put the duration of cast "BigClip" into duree
  9.   put (float(duree)/(the width of cast "barre du curseur")) into TailleCurseur 
  10.   cursor 200
  11.   set the movierate of sprite 6 to 1  
  12. end 
  13.  
  14. on updateController
  15.   global duree, curseurGauche, TailleCurseur  
  16.   puppetsprite 13, true
  17.   -- set the loch of sprite 13 to curseurGauche
  18.   put ((the movietime of sprite 6/TailleCurseur) + curseurGauche) into sliderMover
  19.   set the loch of sprite 13 to sliderMover
  20.   updateStage
  21.   set the visible of sprite 13 = true
  22.   set the movierate of sprite 6 = 0
  23.   set the constraint of sprite 13 to 1 
  24.   cursor -1
  25. end
  26.  
  27.  
  28. on bougecurseur
  29.   global duree, curseurGauche, curseurDroite, TailleCurseur
  30.   puppetsprite 13, true
  31.   repeat while the mousedown
  32.     set the loch of sprite 13 to the mouseH
  33.     updatestage
  34.     set the movieTime of sprite 6 to (the locH of sprite 13 - curseurGauche) * TailleCurseur
  35.     updateStage
  36.   end repeat
  37.   
  38. end
  39.  
  40.  
  41. on playClip
  42.   set the castnum of sprite 14 to the number of cast "play-on"
  43.   updatestage
  44.   spritesoff
  45.   go to "retvideo"
  46.   set the movierate of sprite 6 to 1
  47. end
  48.  
  49. on spritesoff
  50.   repeat with n=13 to 16
  51.     puppetsprite n,false
  52.   end repeat
  53. end spritesoff
  54.  
  55. on RETOUR
  56.   spritesoff
  57.   go to label ("video")+3
  58.   set the movietime of sprite 6 to 0
  59.   set the movierate of sprite 6 to 1
  60. end
  61.  
  62.  
  63. on checkSON
  64.   global volume
  65.   
  66.   put (the  mouseH - the locH of sprite 47) into ZZZ
  67.   
  68.   if zzz < 25 then
  69.     exit    
  70.   else if zzz<40 then
  71.     if the soundLevel <> 1 then
  72.       set the soundLevel to 1
  73.       put the soundLevel into volume
  74.       exit 
  75.     end if
  76.   else if zzz<60 then
  77.     if the soundLevel <> 2 then
  78.       set the soundLevel to 2
  79.       put the soundLevel into volume
  80.       exit   
  81.     end if
  82.   else if zzz<75 then
  83.     if the soundLevel <> 3 then
  84.       set the soundLevel to 3
  85.       put the soundLevel into volume
  86.       exit    
  87.     end if
  88.   else if zzz<90 then
  89.     if the soundLevel <> 4 then
  90.       set the soundLevel to 4
  91.       put the soundLevel into volume
  92.       exit   
  93.     end if
  94.   else if zzz<105 then
  95.     if the soundLevel <> 5 then
  96.       set the soundLevel to 5
  97.       put the soundLevel into volume
  98.       exit   
  99.     end if
  100.   else if zzz<120 then
  101.     if the soundLevel <> 6 then
  102.       set the soundLevel to 6
  103.       put the soundLevel into volume
  104.       exit   
  105.     end if
  106.   else if zzz<135 then    
  107.     if the soundLevel <> 7 then
  108.       set the soundLevel to 7
  109.       put the soundLevel into volume
  110.       exit   
  111.     end if
  112.   end if    
  113. end
  114.  
  115.