home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1998 May / CineCDW_02.iso / Datos / Datos.dat / Internal_2_Saltos.ls < prev    next >
Encoding:
Text File  |  1998-04-13  |  4.2 KB  |  189 lines

  1. global primerPuppet, ultimoPuppet, primerCursor, ultimoCursor, BotonVolver, BotonSiguiente, BotonAnterior, botonPlay, botonStop, botonPausa, botonRew, botonAdv, BotonSalir, botonIdio1, botonIdio2, volumenpelicula
  2.  
  3. on SaltarAPrincipal
  4.   set posicion to 1
  5.   DesactivarPuppets()
  6.   cursor(200)
  7.   set primerPuppet to 2
  8.   set ultimoPuppet to 6
  9.   go("Principal")
  10. end
  11.  
  12. on SalirDePrincipal
  13.   global BotonSalir, BotonInfo, BotonMP1, BotonMP2, BotonMP3
  14.   destruir(BotonSalir)
  15.   set BotonSalir to 0
  16.   destruir(BotonInfo)
  17.   set BotonInfo to 0
  18.   destruir(BotonMP1)
  19.   set BotonMP1 to 0
  20.   destruir(BotonMP2)
  21.   set BotonMP2 to 0
  22.   destruir(BotonMP3)
  23.   set BotonMP3 to 0
  24.   cursor(200)
  25. end
  26.  
  27. on SaltarACartelera
  28.   set posicion to 1
  29.   DesactivarPuppets()
  30.   cursor(200)
  31.   set primerPuppet to 2
  32.   set ultimoPuppet to 2
  33.   set primerCursor to 6
  34.   set ultimoCursor to 17
  35.   go("Cartelera")
  36. end
  37.  
  38. on SalirDeCartelera
  39.   global BotonMenu, BotonIzda, BotonDcha
  40.   destruir(BotonMenu)
  41.   set BotonMenu to 0
  42.   destruir(BotonIzda)
  43.   set BotonIzda to 0
  44.   destruir(BotonDcha)
  45.   set BotonDcha to 0
  46.   set primerPuppet to 1
  47.   set ultimoPuppet to 17
  48.   DesactivarCursores()
  49.   cursor(200)
  50. end
  51.  
  52. on SaltaraEstreno
  53.   set posicion to 1
  54.   DesactivarPuppets()
  55.   cursor(200)
  56.   set primerPuppet to 2
  57.   set ultimoPuppet to 3
  58.   go("Estreno")
  59. end
  60.  
  61. on SalirDeEstreno
  62.   global BotonMenu, BotonTrailer
  63.   destruir(BotonMenu)
  64.   set BotonMenu to 0
  65.   destruir(BotonTrailer)
  66.   set BotonTrailer to 0
  67.   DesactivarCursores()
  68.   cursor(200)
  69. end
  70.  
  71. on SaltarAInfo
  72.   set posicion to 1
  73.   DesactivarPuppets()
  74.   cursor(200)
  75.   set primerPuppet to 2
  76.   set ultimoPuppet to 2
  77.   preloadMember(member "Creditos" of castLib "Multimedia")
  78.   preloadMember(member "Menu5b" of castLib "Graficos")
  79.   go("Info")
  80. end
  81.  
  82. on SalirDeInfo
  83.   global BotonMenu
  84.   destruir(BotonMenu)
  85.   set BotonMenu to 0
  86.   cursor(200)
  87. end
  88.  
  89. on SaltarAPelicula
  90.   DesactivarPuppets()
  91.   DesactivarCursores()
  92.   cursor(200)
  93.   updateStage()
  94.   unLoad()
  95.   preLoadCast(the number of member "DEDO", the number of member "Menu3")
  96.   preLoadCast(the number of member "MENU3", the number of member "Slide2b")
  97.   set primerPuppet to 2
  98.   set ultimoPuppet to 7
  99.   set the text of member "Tiemposa" of castLib "Graficos" to "00:00"
  100.   go("Pelicula")
  101. end
  102.  
  103. on SalirDePelicula
  104.   DestruirBotonesAVI()
  105.   destruir(botonIdio1)
  106.   set botonIdio1 to 0
  107.   destruir(botonIdio2)
  108.   set botonIdio2 to 0
  109.   puppetSprite(10, 0)
  110.   puppetSprite(11, 0)
  111.   puppetSprite(12, 0)
  112.   set the cursor of sprite 8 to 0
  113.   set the cursor of sprite 9 to 0
  114.   set the cursor of sprite 10 to 0
  115.   set the cursor of sprite 11 to 0
  116.   set volumenpelicula to the volume of sprite 20
  117.   set the soundLevel to 7
  118.   cursor(200)
  119. end
  120.  
  121. on AvanzarPeli Tini, Tfin
  122.   global retardoBoton, pulsadoBoton, botonRew, botonAdv
  123.   if the timer >= retardoBoton then
  124.     set tiempo to the movieTime of sprite 20 + (1 * 60)
  125.     if tiempo >= (Tfin - 10) then
  126.       set tiempo to Tfin - 10
  127.       set pulsadoBoton to 0
  128.       puppetSprite(7, 1)
  129.       set the castNum of sprite 7 to cast "Bfw1d"
  130.       Desactivar(botonAdv)
  131.     end if
  132.     puppetSprite(3, 0)
  133.     activar(botonRew)
  134.     set the movieTime of sprite 20 to tiempo
  135.   end if
  136. end
  137.  
  138. on RetrocederPeli Tini, Tfin
  139.   global retardoBoton, botonRew, botonAdv
  140.   if the timer >= retardoBoton then
  141.     set tiempo to the movieTime of sprite 20 - (1 * 60)
  142.     if tiempo <= Tini then
  143.       set tiempo to Tini
  144.       set pulsadoBoton to 0
  145.       puppetSprite(3, 1)
  146.       set the castNum of sprite 3 to cast "Brew1d"
  147.       Desactivar(botonRew)
  148.     end if
  149.     puppetSprite(7, 0)
  150.     activar(botonAdv)
  151.     set the movieTime of sprite 20 to tiempo
  152.   end if
  153. end
  154.  
  155. on DestruirBotonesAVI
  156.   DesactivarPuppets()
  157.   if objectp(botonPlay) then
  158.     destruir(botonPlay)
  159.   end if
  160.   if objectp(botonStop) then
  161.     destruir(botonStop)
  162.   end if
  163.   if objectp(botonPausa) then
  164.     destruir(botonPausa)
  165.   end if
  166.   if objectp(botonRew) then
  167.     destruir(botonRew)
  168.   end if
  169.   if objectp(botonAdv) then
  170.     destruir(botonAdv)
  171.   end if
  172.   if objectp(BotonSalir) then
  173.     destruir(BotonSalir)
  174.   end if
  175. end
  176.  
  177. on DesactivarPuppetsPausa Tini, Tfin
  178.   puppetSprite(2, 0)
  179.   puppetSprite(6, 0)
  180.   puppetSprite(5, 0)
  181.   puppetSprite(4, 0)
  182.   if the movieTime of sprite 20 > Tini then
  183.     puppetSprite(3, 0)
  184.   end if
  185.   if the movieTime of sprite 20 < (Tfin - 10) then
  186.     puppetSprite(7, 0)
  187.   end if
  188. end
  189.