home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_40_PeliPlayLoop.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  1.7 KB  |  70 lines
  1. global botonPlay, botonStop, botonPausa, botonRew, botonAdv, BotonSalir, botonIdio1, botonIdio2, idioma, posicion, 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.     set the volume of sprite 20 to volumenpelicula
  22.   else
  23.     if rollOver(2) then
  24.       if posicion <> 2 then
  25.         DesactivarPuppets()
  26.       end if
  27.       set posicion to 2
  28.       seleccionar(BotonSalir)
  29.     else
  30.       if rollOver(6) then
  31.         if posicion <> 6 then
  32.           DesactivarPuppets()
  33.         end if
  34.         set posicion to 6
  35.         seleccionar(botonStop)
  36.       else
  37.         if rollOver(4) then
  38.           if posicion <> 4 then
  39.             DesactivarPuppets()
  40.           end if
  41.           set posicion to 4
  42.           seleccionar(botonPausa)
  43.         else
  44.           if posicion <> 0 then
  45.             set posicion to 0
  46.             DesactivarPuppets()
  47.           end if
  48.         end if
  49.       end if
  50.     end if
  51.   end if
  52. end
  53.  
  54. on exitFrame
  55.   if the movieTime of sprite 20 >= Duracion then
  56.     set the movieRate of sprite 20 to 0
  57.     DestruirBotonesAVI()
  58.     updateStage()
  59.     puppetSprite(10, 0)
  60.     puppetSprite(12, 0)
  61.     go("PeliStop")
  62.   end if
  63.   go(the frame)
  64. end
  65.  
  66. on mouseUp
  67.   set mueveslide2 to 0
  68.   cursor(0)
  69. end
  70.