home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_38_PeliStopLoop.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  1.7 KB  |  70 lines
  1. global botonPlay, botonStop, botonPausa, botonRew, botonAdv, BotonSalir, botonIdio1, botonIdio2, posicion, idioma, mueveslide2, volumenpelicula
  2.  
  3. on enterFrame
  4.   if mueveslide2 then
  5.     cursor([cast "DEDO", cast "DEDOM"])
  6.     set laposic to the mouseH
  7.     if laposic < (471 + 12) then
  8.       set laposic to 471 + 12
  9.     end if
  10.     if laposic > (571 + 12) then
  11.       set laposic to 571 + 12
  12.     end if
  13.     puppetSprite(11, 1)
  14.     set the locH of sprite 11 to laposic
  15.     set volumenpelicula to integer((laposic - 471 - 12) * 2.5600000000000005)
  16.   else
  17.     if rollOver(2) then
  18.       if posicion <> 2 then
  19.         puppetSound("SELECT2")
  20.         updateStage()
  21.         DesactivarPuppets()
  22.       end if
  23.       set posicion to 2
  24.       seleccionar(BotonSalir)
  25.     else
  26.       if rollOver(5) then
  27.         if posicion <> 5 then
  28.           puppetSound("SELECT2")
  29.           updateStage()
  30.           DesactivarPuppets()
  31.         end if
  32.         set posicion to 5
  33.         seleccionar(botonPlay)
  34.       else
  35.         if rollOver(8) and (idioma <> 1) then
  36.           if posicion <> 8 then
  37.             puppetSound("SELECT2")
  38.             updateStage()
  39.             DesactivarPuppets()
  40.           end if
  41.           set posicion to 8
  42.         else
  43.           if rollOver(9) and (idioma <> 2) then
  44.             if posicion <> 9 then
  45.               puppetSound("SELECT2")
  46.               updateStage()
  47.               DesactivarPuppets()
  48.             end if
  49.             set posicion to 9
  50.           else
  51.             if posicion <> 0 then
  52.               set posicion to 0
  53.               DesactivarPuppets()
  54.             end if
  55.           end if
  56.         end if
  57.       end if
  58.     end if
  59.   end if
  60. end
  61.  
  62. on exitFrame
  63.   go(the frame)
  64. end
  65.  
  66. on mouseUp
  67.   set mueveslide2 to 0
  68.   cursor(0)
  69. end
  70.