home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Slideshow.dxr / 00001_main.ls next >
Encoding:
Text File  |  2000-12-21  |  986 b   |  46 lines
  1. on prepareMovie
  2.   global gMovie
  3.   gMovie = "slideshow"
  4. end
  5.  
  6. on startMovie
  7.   global gMovie, gElencoOpere, gElencoOpereOld, gTutorial
  8.   if gElencoOpereOld <> #vuoto then
  9.     gElencoOpere = gElencoOpereOld
  10.   end if
  11.   gTutorial = "TSlideshow"
  12.   if gElencoOpere <> 0 then
  13.     if count(gElencoOpere) = 1 then
  14.       sprite(4).visible = 0
  15.     end if
  16.   end if
  17.   gElencoOpereOld = #vuoto
  18.   gMovie = "slideshow"
  19. end
  20.  
  21. on stopMovie
  22.   global gmaxslide, pausa
  23.   pausa = 0
  24.   gmaxslide = 0
  25.   unLoad()
  26. end
  27.  
  28. on salta
  29.   global gQuadro, gMovie, gID, gOrigineElenco, gElencoOpere, gElencoOpereOld
  30.   gOrigineElenco = "Slideshow"
  31.   tmp = the member of sprite 1
  32.   nome = member(tmp).name
  33.   gID = char 3 to 4 of nome
  34.   gID = integer(gID)
  35.   delete char 6 to 7 of nome
  36.   gQuadro = nome
  37.   if (gElencoOpere <> 0) or (gElencoOpere <> []) then
  38.     gElencoOpereOld = gElencoOpere
  39.   end if
  40.   gElencoOpere = []
  41.   append(gElencoOpere, gQuadro)
  42.   tmp = char 1 of gQuadro
  43.   gMovie = "Theme" & tmp
  44.   go("scheda", gMovie)
  45. end
  46.