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