home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme1.dxr / Internal_1_main.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  2.0 KB  |  79 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 = "Theme1"
  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, gSuonoAttivo, riattivagSuonoAttivo
  21.   if (the frameLabel = "collage") and (finestra <> "slideshow") then
  22.     gElencoOpere = 0
  23.   end if
  24.   if riattivagSuonoAttivo = 1 then
  25.     gSuonoAttivo = 1
  26.   end if
  27.   gScheggia = 0
  28.   gMaxID = 0
  29.   gListaSeparatori = 0
  30.   gEchelle = 0
  31.   gInsolite = 0
  32.   gEtude = 0
  33.   gNome = 0
  34.   gNumero = 0
  35.   gParola = 0
  36.   gHyperLink = 0
  37.   gAnno = 0
  38.   gCst = 0
  39.   SCARICAMEM()
  40. end
  41.  
  42. on impostaGMAXID
  43.   global gMaxID
  44.   gMaxID = 11
  45. end
  46.  
  47. on resettascheda
  48.   repeat with i = 20 to 39
  49.     sprite(i).visible = 0
  50.   end repeat
  51.   repeat with i = 41 to 43
  52.     sprite(i).visible = 0
  53.   end repeat
  54.   repeat with i = 50 to 51
  55.     sprite(i).visible = 0
  56.   end repeat
  57.   preparascheda()
  58. end
  59.  
  60. on preparascheda
  61.   global gID, gAnno, gQuadro, gEchelle, gInsolite, gEtude
  62.   the itemDelimiter = "#"
  63.   dati = line gID of field "dati"
  64.   titolo = item 1 of dati
  65.   didalunga = item 2 of dati
  66.   gAnno = item 3 of dati
  67.   dimensioni = item 4 of dati
  68.   gQuadro = item 5 of dati
  69.   gEchelle = item 8 of dati
  70.   gInsolite = item 11 of dati
  71.   gEtude = item 12 of dati
  72.   set the text of field "titolo" to titolo
  73.   set the text of field "dida2" to didalunga
  74.   set the text of field "dimensioni" to dimensioni
  75.   sprite(41).visible = integer(gEtude)
  76.   sprite(42).visible = integer(gEchelle)
  77.   sprite(43).visible = integer(gInsolite)
  78. end
  79.