home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_42_PeliPausaLoop.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  3.5 KB  |  120 lines
  1. global botonPlay, botonStop, botonPausa, botonRew, botonAdv, BotonSalir, botonIdio1, botonIdio2, idioma, posicion, pulsadoBoton, Duracion, mueveslide2, volumenpelicula
  2.  
  3. on enterFrame
  4.   set eltiempo to the movieTime of sprite 20
  5.   set distancia to 65 + (eltiempo / (Duracion * 1.0) * 465) + 24
  6.   puppetSprite(10, 1)
  7.   set the locH of sprite 10 to distancia
  8.   ActualizaContador()
  9.   if mueveslide2 then
  10.     cursor([cast "DEDO", cast "DEDOM"])
  11.     set laposic to the mouseH
  12.     if laposic < (471 + 12) then
  13.       set laposic to 471 + 12
  14.     end if
  15.     if laposic > (571 + 12) then
  16.       set laposic to 571 + 12
  17.     end if
  18.     puppetSprite(11, 1)
  19.     set the locH of sprite 11 to laposic
  20.     set volumenpelicula to integer((laposic - 471 - 12) * 2.5600000000000005)
  21.   else
  22.     if rollOver(2) then
  23.       if posicion <> 2 then
  24.         puppetSound("SELECT2")
  25.         updateStage()
  26.         DesactivarPuppetsPausa(0, Duracion)
  27.       end if
  28.       set posicion to 2
  29.       seleccionar(BotonSalir)
  30.     else
  31.       if rollOver(3) then
  32.         DesactivarPuppetsPausa(0, Duracion)
  33.         if the movieTime of sprite 20 > 0 then
  34.           if posicion <> 3 then
  35.             set posicion to 3
  36.             puppetSound("SELECT2")
  37.           end if
  38.           if pulsadoBoton = 1 then
  39.             pulsar(botonRew)
  40.             RetrocederPeli(0, Duracion)
  41.           else
  42.             seleccionar(botonRew)
  43.           end if
  44.           updateStage()
  45.         end if
  46.       else
  47.         if rollOver(6) then
  48.           if posicion <> 6 then
  49.             puppetSound("SELECT2")
  50.             updateStage()
  51.             DesactivarPuppetsPausa(0, Duracion)
  52.           end if
  53.           set posicion to 6
  54.           seleccionar(botonStop)
  55.         else
  56.           if rollOver(5) then
  57.             if posicion <> 5 then
  58.               puppetSound("SELECT2")
  59.               updateStage()
  60.               DesactivarPuppetsPausa(0, Duracion)
  61.             end if
  62.             set posicion to 5
  63.             seleccionar(botonPlay)
  64.           else
  65.             if rollOver(7) then
  66.               DesactivarPuppetsPausa(0, Duracion)
  67.               if the movieTime of sprite 20 < Duracion then
  68.                 if posicion <> 7 then
  69.                   set posicion to 7
  70.                   puppetSound("SELECT2")
  71.                 end if
  72.                 if pulsadoBoton = 1 then
  73.                   pulsar(botonAdv)
  74.                   AvanzarPeli(0, Duracion)
  75.                 else
  76.                   seleccionar(botonAdv)
  77.                 end if
  78.                 updateStage()
  79.               end if
  80.             else
  81.               if rollOver(8) and (idioma <> 1) then
  82.                 if posicion <> 8 then
  83.                   puppetSound("SELECT2")
  84.                   updateStage()
  85.                   DesactivarPuppetsPausa(0, Duracion)
  86.                 end if
  87.                 set posicion to 8
  88.               else
  89.                 if rollOver(9) and (idioma <> 2) then
  90.                   if posicion <> 9 then
  91.                     puppetSound("SELECT2")
  92.                     updateStage()
  93.                     DesactivarPuppetsPausa(0, Duracion)
  94.                   end if
  95.                   set posicion to 9
  96.                 else
  97.                   if posicion <> 0 then
  98.                     set posicion to 0
  99.                     DesactivarPuppetsPausa(0, Duracion)
  100.                   end if
  101.                 end if
  102.               end if
  103.             end if
  104.           end if
  105.         end if
  106.       end if
  107.     end if
  108.   end if
  109. end
  110.  
  111. on exitFrame
  112.   go(the frame)
  113. end
  114.  
  115. on mouseUp
  116.   global pulsadoBoton
  117.   set pulsadoBoton to 0
  118.   set mueveslide2 to 0
  119. end
  120.