home *** CD-ROM | disk | FTP | other *** search
/ PC Master 1997 July & August / PCM97.iso / demos.dxr / 00017.ls next >
Encoding:
Text File  |  1998-06-23  |  1.0 KB  |  41 lines
  1. on startMovie
  2.   global nm, bnm, dscr, inst, rn, pth, xfile
  3.   set nm to []
  4.   set dscr to []
  5.   set inst to []
  6.   set rn to []
  7.   set pth to []
  8.   set xfile to []
  9.   repeat with i = 55 to 70
  10.     set the visible of sprite i to 0
  11.   end repeat
  12.   set the visible of sprite 6 to 0
  13.   set the visible of sprite 4 to 0
  14.   set iold to the itemDelimiter
  15.   set the itemDelimiter to ";"
  16.   set fp to new(xtra("fileio"))
  17.   openFile(fp, "demodat.csv", 1)
  18.   set txt to readLine(fp)
  19.   set txt to chars(txt, 1, length(txt) - 1)
  20.   add(nm, item 1 of txt)
  21.   add(pth, item 4 of txt)
  22.   add(dscr, item 5 of txt)
  23.   add(inst, item 2 of txt)
  24.   add(rn, item 3 of txt)
  25.   add(xfile, item 6 of txt)
  26.   repeat while txt > EMPTY
  27.     set txt to readLine(fp)
  28.     set txt to chars(txt, 2, length(txt) - 1)
  29.     add(nm, item 1 of txt)
  30.     add(pth, item 4 of txt)
  31.     add(dscr, item 5 of txt)
  32.     add(inst, item 2 of txt)
  33.     add(rn, item 3 of txt)
  34.     add(xfile, item 6 of txt)
  35.   end repeat
  36.   closeFile(fp)
  37.   set fp to 0
  38.   set the itemDelimiter to iold
  39.   set the text of member "description" to EMPTY
  40. end
  41.