home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Slideshow.dxr / 00012_entrataristretto.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  678 b   |  25 lines
  1. global gmaxslide, pausa, gElencoOpere, gScappaPerMemoria
  2.  
  3. on prepareFrame
  4.   if gScappaPerMemoria <> 0 then
  5.     the itemDelimiter = "#"
  6.     tmp = item 2 of gScappaPerMemoria
  7.     tmp = integer(tmp)
  8.     set the member of sprite 1 to member(tmp, "SLIDE")
  9.     gScappaPerMemoria = 0
  10.   end if
  11.   nome = getAt(gElencoOpere, 1)
  12.   nome = nome & "01"
  13.   sprite(1).member = member(nome, "SLIDE")
  14.   the itemDelimiter = "#"
  15.   repeat with i = 1 to the number of lines in field "titolo#nomefile"
  16.     dati = line i of field "titolo#nomefile"
  17.     cod = item 2 of dati
  18.     if cod = nome then
  19.       dida = item 1 of dati
  20.       put dida into field "dida"
  21.       exit repeat
  22.     end if
  23.   end repeat
  24. end
  25.