home *** CD-ROM | disk | FTP | other *** search
/ Más de 2,500 Juegos / CD1.iso / ZIPDAT / 0324 / 0324.ZIP / Setup.exe / SQUARK.EXE / SQUARK.dxr / 00091_WRITESCORE.ls < prev    next >
Encoding:
Text File  |  1999-08-01  |  824 b   |  28 lines
  1. on WRITESCORE
  2.   global SLEVEL, SNAME, SSCORE, SDATE, SKFILE, SCORETEXT
  3.   if objectp(MYFILE) then
  4.     set MYFILE to 0
  5.   end if
  6.   set MYFILE to new(xtra("FILEIO"))
  7.   openFile(MYFILE, the moviePath & "Squark.sco", 0)
  8.   delete(MYFILE)
  9.   closeFile(MYFILE)
  10.   set MYFILE to 0
  11.   if objectp(MYFLIE) then
  12.     set MYFILE to 0
  13.   end if
  14.   set SCORETEXT to EMPTY
  15.   repeat with n = 1 to 10
  16.     set SCORETEXT to SCORETEXT & getAt(SNAME, n) & ","
  17.     set SCORETEXT to SCORETEXT & getAt(SLEVEL, n) & ","
  18.     set SCORETEXT to SCORETEXT & getAt(SSCORE, n) & ","
  19.     set SCORETEXT to SCORETEXT & getAt(SDATE, n) & ","
  20.   end repeat
  21.   set MYFILE to new(xtra("FILEIO"))
  22.   createFile(MYFILE, the moviePath & "Squark.sco")
  23.   openFile(MYFILE, the moviePath & "Squark.sco", 0)
  24.   writeString(MYFILE, SCORETEXT)
  25.   closeFile(MYFILE)
  26.   set MYFILE to 0
  27. end
  28.