home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Slideshow.dxr / 00014_entrataNormale.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  651 b   |  24 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.   tmp = the memberNum of sprite 1
  12.   nome = member(tmp, "SLIDE").name
  13.   the itemDelimiter = "#"
  14.   repeat with i = 1 to the number of lines in field "titolo#nomefile"
  15.     dati = line i of field "titolo#nomefile"
  16.     cod = item 2 of dati
  17.     if cod = nome then
  18.       dida = item 1 of dati
  19.       put dida into field "dida"
  20.       exit repeat
  21.     end if
  22.   end repeat
  23. end
  24.