home *** CD-ROM | disk | FTP | other *** search
/ Seeker / Seeker.iso / files_w / ending.dir / 00065.ls < prev    next >
Encoding:
Text File  |  1994-12-08  |  2.2 KB  |  22 lines
  1. on savedata
  2.   global getpoints, getpieces, getitems, explode, etcpict, moteloldman, sheriffcheck, masterrunning, nearmiss, seedog, oldsuzan
  3.   openXLib("fileio.dll")
  4.   set fileobj to fileio(mnew, "?write", "S_DATA.TXT")
  5.   if objectp(fileobj) then
  6.     set line1 to string(getAt(getpoints, 1)) & "," & string(getAt(getpoints, 2)) & "," & string(getAt(getpoints, 3)) & "," & string(getAt(getpoints, 4)) & "," & string(getAt(getpoints, 5)) & "," & string(getAt(getpoints, 6)) & "," & string(getAt(getpoints, 7)) & "," & string(getAt(getpoints, 8)) & RETURN
  7.     set line2 to string(getAt(getpieces, 1)) & "," & string(getAt(getpieces, 2)) & "," & string(getAt(getpieces, 3)) & "," & string(getAt(getpieces, 4)) & "," & string(getAt(getpieces, 5)) & "," & string(getAt(getpieces, 6)) & "," & string(getAt(getpieces, 7)) & "," & string(getAt(getpieces, 8)) & "," & string(getAt(getpieces, 9)) & "," & string(getAt(getpieces, 10)) & RETURN
  8.     set line3 to string(getAt(getitems, 1)) & "," & string(getAt(getitems, 2)) & "," & string(getAt(getitems, 3)) & "," & string(getAt(getitems, 4)) & "," & string(getAt(getitems, 5)) & "," & string(getAt(getitems, 6)) & "," & string(getAt(getitems, 7)) & RETURN
  9.     set line4 to string(getAt(explode, 1)) & "," & string(getAt(explode, 2)) & "," & string(getAt(explode, 3)) & "," & string(getAt(explode, 4)) & RETURN
  10.     set line5 to string(getAt(etcpict, 1)) & "," & string(getAt(etcpict, 2)) & "," & string(getAt(etcpict, 3)) & "," & string(getAt(etcpict, 4)) & "," & string(getAt(etcpict, 5)) & "," & string(getAt(etcpict, 6)) & "," & string(getAt(etcpict, 7)) & "," & string(getAt(etcpict, 8)) & "," & string(getAt(etcpict, 9)) & "," & string(getAt(etcpict, 10)) & "," & string(getAt(etcpict, 11)) & "," & string(getAt(etcpict, 12)) & "," & string(getAt(etcpict, 13)) & RETURN
  11.     set line6 to string(moteloldman) & "," & string(sheriffcheck) & "," & string(masterrunning) & "," & string(nearmiss) & "," & string(seedog) & "," & string(oldsuzan)
  12.     set data to line1 & line2 & line3 & line4 & line5 & line6
  13.     fileobj(mwritestring, data)
  14.     fileobj(mdispose)
  15.   else
  16.     if fileio(merror, fileobj) <> "File Not Found" then
  17.       alert("Can't saved -->This error is" && QUOTE & fileio(merror, fileobj) & QUOTE)
  18.     end if
  19.   end if
  20.   closeXLib("fileio.dll")
  21. end
  22.