home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_60_Peli4SlideLoop.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  1.6 KB  |  66 lines
  1. global Duracion, botonRew, botonAdv
  2.  
  3. on enterFrame
  4.   cursor([cast "DEDO", cast "DEDOM"])
  5.   if the mouseH < (65 + 23) then
  6.     puppetSprite(10, 1)
  7.     set the locH of sprite 10 to 65 + 23
  8.   else
  9.     if the mouseH > (530 + 23) then
  10.       puppetSprite(10, 1)
  11.       set the locH of sprite 10 to 530 + 23
  12.     else
  13.       set the locH of sprite 10 to the mouseH
  14.     end if
  15.   end if
  16.   set eltiempo to (the locH of sprite 10 - (65 + 23)) * 1.0 * Duracion / 465
  17.   ActualizaContador()
  18.   updateStage()
  19.   if eltiempo > 0 then
  20.     puppetSprite(3, 0)
  21.     activar(botonRew)
  22.   else
  23.     set the movieTime of sprite 20 to 0
  24.   end if
  25.   if eltiempo < Duracion then
  26.     puppetSprite(7, 0)
  27.     activar(botonAdv)
  28.   else
  29.     set the movieTime of sprite 20 to Duracion
  30.   end if
  31.   if (eltiempo > 0) and (eltiempo < Duracion) then
  32.     set the movieTime of sprite 20 to eltiempo
  33.   end if
  34. end
  35.  
  36. on exitFrame
  37.   if not (the stillDown) then
  38.     mouseUp()
  39.   else
  40.     go(the frame)
  41.   end if
  42. end
  43.  
  44. on mouseUp
  45.   global Duracion
  46.   cursor(0)
  47.   puppetSprite(10, 1)
  48.   set the castNum of sprite 10 to member "Slide1a" of castLib "Graficos"
  49.   puppetSprite(12, 1)
  50.   set the castNum of sprite 12 to member "Tiemposa" of castLib "Graficos"
  51.   if the movieTime of sprite 20 <= 0 then
  52.     set the movieTime of sprite 20 to 0
  53.     puppetSprite(3, 1)
  54.     set the castNum of sprite 3 to member "Brew1d"
  55.     Desactivar(botonRew)
  56.   else
  57.     if the movieTime of sprite 20 >= Duracion then
  58.       set the movieTime of sprite 20 to Duracion
  59.       puppetSprite(7, 1)
  60.       set the castNum of sprite 7 to cast "Bfw1d"
  61.       Desactivar(botonAdv)
  62.     end if
  63.   end if
  64.   go(the frame - 1)
  65. end
  66.