home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Internet.dxr / 00001_MAIN.ls next >
Encoding:
Text File  |  2000-12-21  |  1.6 KB  |  79 lines
  1. on startMovie
  2.   global gMovie
  3.   gMovie = "internet"
  4.   the itemDelimiter = "#"
  5. end
  6.  
  7. on stopMovie
  8.   global gWWW, gSez, gPagine
  9.   gWWW = 0
  10.   gSez = 0
  11.   gPagine = 0
  12.   repeat with j = 1 to 8
  13.     linkfield = "link" & j
  14.     didafield = "dida" & j
  15.     member(linkfield).text = EMPTY
  16.     member(didafield).text = EMPTY
  17.   end repeat
  18.   member("contatore").text = EMPTY
  19.   SCARICAMEM()
  20. end
  21.  
  22. on contalink
  23.   global gSez, gPagine
  24.   fielddati = "dati" & gSez
  25.   TotLink = member(fielddati).line.count
  26.   gPagine = float(float(TotLink) / 8.0)
  27.   tmp = integer(gPagine)
  28.   if gPagine > tmp then
  29.     gPagine = tmp + 1
  30.   else
  31.     if gPagine <= tmp then
  32.       gPagine = tmp
  33.     end if
  34.   end if
  35. end
  36.  
  37. on caricasezione primo, ultimo
  38.   global gSez, gPagine, gPaginaCorrente
  39.   datifield = "dati" & gSez
  40.   sprite(3).member = member(gSez)
  41.   k = 1
  42.   h = 10
  43.   repeat with i = primo to ultimo
  44.     dati = line i of field datifield
  45.     linkfield = "link" & k
  46.     didafield = "dida" & k
  47.     member(linkfield).text = item 2 of dati
  48.     member(didafield).text = item 3 of dati
  49.     if dati = EMPTY then
  50.       immagine = "dummyimg"
  51.       sprite(h).member = member(immagine)
  52.     else
  53.       immagine = item 1 of dati
  54.       sprite(h).member = member(immagine, gSez)
  55.     end if
  56.     k = k + 1
  57.     h = h + 3
  58.   end repeat
  59.   case primo of
  60.     1:
  61.       gPaginaCorrente = 1
  62.     9:
  63.       gPaginaCorrente = 2
  64.     17:
  65.       gPaginaCorrente = 3
  66.     25:
  67.       gPaginaCorrente = 4
  68.     33:
  69.       gPaginaCorrente = 5
  70.     41:
  71.       gPaginaCorrente = 6
  72.     49:
  73.       gPaginaCorrente = 7
  74.     57:
  75.       gPaginaCorrente = 8
  76.   end case
  77.   member("contatore").text = "Pagina" && gPaginaCorrente && "di" && gPagine
  78. end
  79.