home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_47_Peli4BRev.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  648 b   |  28 lines
  1. on mouseDown
  2.   global botonRew, botonAdv, pulsadoBoton, retardoBoton
  3.   if the movieTime of sprite 20 > 0 then
  4.     puppetSound("CLICK")
  5.     pulsar(botonRew)
  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 <= 0 then
  11.       set tiempo to 0
  12.       puppetSprite(3, 1)
  13.       set the castNum of sprite 3 to member "Brew1d"
  14.       Desactivar(botonRew)
  15.     else
  16.       activar(botonRew)
  17.     end if
  18.     puppetSprite(7, 0)
  19.     activar(botonAdv)
  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.