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