home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_59_Peli3SlideLoop.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  1.1 KB  |  52 lines
  1. global Duracion
  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.   ActualizaContador()
  17.   updateStage()
  18.   set eltiempo to (the locH of sprite 10 - (65 + 23)) * 1.0 * Duracion / 465
  19.   if eltiempo < 0 then
  20.     set the movieTime of sprite 20 to 0
  21.   else
  22.     if eltiempo > Duracion then
  23.       set the movieTime of sprite 20 to Duracion
  24.     else
  25.       set the movieTime of sprite 20 to eltiempo
  26.     end if
  27.   end if
  28. end
  29.  
  30. on exitFrame
  31.   if not (the stillDown) then
  32.     mouseUp()
  33.   else
  34.     go(the frame)
  35.   end if
  36. end
  37.  
  38. on mouseUp
  39.   cursor(0)
  40.   puppetSprite(10, 1)
  41.   set the castNum of sprite 10 to member "Slide1a" of castLib "Graficos"
  42.   puppetSprite(12, 1)
  43.   set the castNum of sprite 12 to member "Tiemposa" of castLib "Graficos"
  44.   if the movieTime of sprite 20 >= Duracion then
  45.     puppetSprite(10, 0)
  46.     puppetSprite(12, 0)
  47.     go("PeliStop")
  48.   else
  49.     go("PeliPlay")
  50.   end if
  51. end
  52.