home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_50_Peli4BAdv.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  676 b   |  28 lines
  1. on mouseDown
  2.   global botonAdv, botonRew, pulsadoBoton, retardoBoton, Duracion
  3.   if the movieTime of sprite 20 < Duracion then
  4.     puppetSound("CLICK")
  5.     pulsar(botonAdv)
  6.     updateStage()
  7.     set pulsadoBoton to 1
  8.     set retardoBoton to the timer + 60
  9.     set tiempo to the movieTime of sprite 20 + 5
  10.     if tiempo >= Duracion then
  11.       set tiempo to Duracion
  12.       puppetSprite(7, 1)
  13.       set the castNum of sprite 7 to cast "Bfw1d"
  14.       Desactivar(botonAdv)
  15.     else
  16.       activar(botonAdv)
  17.     end if
  18.     puppetSprite(3, 0)
  19.     activar(botonRew)
  20.     set the movieTime of sprite 20 to tiempo
  21.   end if
  22. end
  23.  
  24. on mouseUp
  25.   global pulsadoBoton
  26.   set pulsadoBoton to 0
  27. end
  28.