home *** CD-ROM | disk | FTP | other *** search
- global primerPuppet, ultimoPuppet, primerCursor, ultimoCursor, BotonVolver, BotonSiguiente, BotonAnterior, botonPlay, botonStop, botonPausa, botonRew, botonAdv, BotonSalir, botonIdio1, botonIdio2, volumenpelicula
-
- on SaltarAPrincipal
- set posicion to 1
- DesactivarPuppets()
- cursor(200)
- set primerPuppet to 2
- set ultimoPuppet to 6
- go("Principal")
- end
-
- on SalirDePrincipal
- global BotonSalir, BotonInfo, BotonMP1, BotonMP2, BotonMP3
- destruir(BotonSalir)
- set BotonSalir to 0
- destruir(BotonInfo)
- set BotonInfo to 0
- destruir(BotonMP1)
- set BotonMP1 to 0
- destruir(BotonMP2)
- set BotonMP2 to 0
- destruir(BotonMP3)
- set BotonMP3 to 0
- cursor(200)
- end
-
- on SaltarACartelera
- set posicion to 1
- DesactivarPuppets()
- cursor(200)
- set primerPuppet to 2
- set ultimoPuppet to 2
- set primerCursor to 6
- set ultimoCursor to 17
- go("Cartelera")
- end
-
- on SalirDeCartelera
- global BotonMenu, BotonIzda, BotonDcha
- destruir(BotonMenu)
- set BotonMenu to 0
- destruir(BotonIzda)
- set BotonIzda to 0
- destruir(BotonDcha)
- set BotonDcha to 0
- set primerPuppet to 1
- set ultimoPuppet to 17
- DesactivarCursores()
- cursor(200)
- end
-
- on SaltaraEstreno
- set posicion to 1
- DesactivarPuppets()
- cursor(200)
- set primerPuppet to 2
- set ultimoPuppet to 3
- go("Estreno")
- end
-
- on SalirDeEstreno
- global BotonMenu, BotonTrailer
- destruir(BotonMenu)
- set BotonMenu to 0
- destruir(BotonTrailer)
- set BotonTrailer to 0
- DesactivarCursores()
- cursor(200)
- end
-
- on SaltarAInfo
- set posicion to 1
- DesactivarPuppets()
- cursor(200)
- set primerPuppet to 2
- set ultimoPuppet to 2
- preloadMember(member "Creditos" of castLib "Multimedia")
- preloadMember(member "Menu5b" of castLib "Graficos")
- go("Info")
- end
-
- on SalirDeInfo
- global BotonMenu
- destruir(BotonMenu)
- set BotonMenu to 0
- cursor(200)
- end
-
- on SaltarAPelicula
- DesactivarPuppets()
- DesactivarCursores()
- cursor(200)
- updateStage()
- unLoad()
- preLoadCast(the number of member "DEDO", the number of member "Menu3")
- preLoadCast(the number of member "MENU3", the number of member "Slide2b")
- set primerPuppet to 2
- set ultimoPuppet to 7
- set the text of member "Tiemposa" of castLib "Graficos" to "00:00"
- go("Pelicula")
- end
-
- on SalirDePelicula
- DestruirBotonesAVI()
- destruir(botonIdio1)
- set botonIdio1 to 0
- destruir(botonIdio2)
- set botonIdio2 to 0
- puppetSprite(10, 0)
- puppetSprite(11, 0)
- puppetSprite(12, 0)
- set the cursor of sprite 8 to 0
- set the cursor of sprite 9 to 0
- set the cursor of sprite 10 to 0
- set the cursor of sprite 11 to 0
- set volumenpelicula to the volume of sprite 20
- set the soundLevel to 7
- cursor(200)
- end
-
- on AvanzarPeli Tini, Tfin
- global retardoBoton, pulsadoBoton, botonRew, botonAdv
- if the timer >= retardoBoton then
- set tiempo to the movieTime of sprite 20 + (1 * 60)
- if tiempo >= (Tfin - 10) then
- set tiempo to Tfin - 10
- set pulsadoBoton to 0
- puppetSprite(7, 1)
- set the castNum of sprite 7 to cast "Bfw1d"
- Desactivar(botonAdv)
- end if
- puppetSprite(3, 0)
- activar(botonRew)
- set the movieTime of sprite 20 to tiempo
- end if
- end
-
- on RetrocederPeli Tini, Tfin
- global retardoBoton, botonRew, botonAdv
- if the timer >= retardoBoton then
- set tiempo to the movieTime of sprite 20 - (1 * 60)
- if tiempo <= Tini then
- set tiempo to Tini
- set pulsadoBoton to 0
- puppetSprite(3, 1)
- set the castNum of sprite 3 to cast "Brew1d"
- Desactivar(botonRew)
- end if
- puppetSprite(7, 0)
- activar(botonAdv)
- set the movieTime of sprite 20 to tiempo
- end if
- end
-
- on DestruirBotonesAVI
- DesactivarPuppets()
- if objectp(botonPlay) then
- destruir(botonPlay)
- end if
- if objectp(botonStop) then
- destruir(botonStop)
- end if
- if objectp(botonPausa) then
- destruir(botonPausa)
- end if
- if objectp(botonRew) then
- destruir(botonRew)
- end if
- if objectp(botonAdv) then
- destruir(botonAdv)
- end if
- if objectp(BotonSalir) then
- destruir(BotonSalir)
- end if
- end
-
- on DesactivarPuppetsPausa Tini, Tfin
- puppetSprite(2, 0)
- puppetSprite(6, 0)
- puppetSprite(5, 0)
- puppetSprite(4, 0)
- if the movieTime of sprite 20 > Tini then
- puppetSprite(3, 0)
- end if
- if the movieTime of sprite 20 < (Tfin - 10) then
- puppetSprite(7, 0)
- end if
- end
-