home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD1.ISO / ejv8-cd1 / viewer.dxr / 00031.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  378 b   |  17 lines
  1. on prepareMovie
  2.   global adrescode
  3.   adrescode = the moviePath & "idcode"
  4.   n = 1
  5.   X = 1
  6.   member("dossier").text = EMPTY
  7.   repeat while getNthFileNameInFolder(adrescode, n) <> EMPTY
  8.     if getNthFileNameInFolder(adrescode, n) contains "." then
  9.       nothing()
  10.     else
  11.       member("dossier").line[X] = "Dossier " & X
  12.       X = X + 1
  13.     end if
  14.     n = n + 1
  15.   end repeat
  16. end
  17.