home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme5.dxr / Internal_1_main.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.9 KB  |  76 lines
  1. on prepareMovie
  2.   global gMovie, gQuadro, gListaSeparatori, gMaxID, gScheggia, gLinkBio, gAccessoScheda, gTutorial
  3.   Accessoscheda = #back
  4.   member("dida1").text = EMPTY
  5.   member("dida2").text = EMPTY
  6.   member("dida3").text = EMPTY
  7.   member("titolo").text = EMPTY
  8.   member("dimensioni").text = EMPTY
  9.   gTutorial = "TOpere"
  10.   gScheggia = "off"
  11.   gMaxID = 11
  12.   gMovie = "Theme5"
  13.   do("set gListaSeparatori = [" & member("listaSeparatori").text & "]")
  14.   do("set gLinkBio = [" & member("LinksBio").text & "]")
  15.   the itemDelimiter = "#"
  16.   resettascheda()
  17. end
  18.  
  19. on stopMovie
  20.   global gScheggia, gMaxID, gListaSeparatori, gEchelle, gInsolite, gEtude, gNome, gNumero, gParola, gHyperLink, gAnno, gCst, finestra, gElencoOpere
  21.   if (the frameLabel = "collage") and (finestra <> "slideshow") then
  22.     gElencoOpere = 0
  23.   end if
  24.   gScheggia = 0
  25.   gMaxID = 0
  26.   gListaSeparatori = 0
  27.   gEchelle = 0
  28.   gInsolite = 0
  29.   gEtude = 0
  30.   gNome = 0
  31.   gNumero = 0
  32.   gParola = 0
  33.   gHyperLink = 0
  34.   gAnno = 0
  35.   gCst = 0
  36.   SCARICAMEM()
  37. end
  38.  
  39. on impostaGMAXID
  40.   global gMaxID
  41.   gMaxID = 11
  42. end
  43.  
  44. on resettascheda
  45.   repeat with i = 20 to 39
  46.     sprite(i).visible = 0
  47.   end repeat
  48.   repeat with i = 41 to 43
  49.     sprite(i).visible = 0
  50.   end repeat
  51.   repeat with i = 50 to 51
  52.     sprite(i).visible = 0
  53.   end repeat
  54.   preparascheda()
  55. end
  56.  
  57. on preparascheda
  58.   global gID, gAnno, gQuadro, gEchelle, gInsolite, gEtude
  59.   the itemDelimiter = "#"
  60.   dati = line gID of field "dati"
  61.   titolo = item 1 of dati
  62.   didalunga = item 2 of dati
  63.   gAnno = item 3 of dati
  64.   dimensioni = item 4 of dati
  65.   gQuadro = item 5 of dati
  66.   gEchelle = item 8 of dati
  67.   gInsolite = item 11 of dati
  68.   gEtude = item 12 of dati
  69.   set the text of field "titolo" to titolo
  70.   set the text of field "dida2" to didalunga
  71.   set the text of field "dimensioni" to dimensioni
  72.   sprite(41).visible = integer(gEtude)
  73.   sprite(42).visible = integer(gEchelle)
  74.   sprite(43).visible = integer(gInsolite)
  75. end
  76.