home *** CD-ROM | disk | FTP | other *** search
/ 321 GAMES / 321GAMES.iso / logic / runes / runes.exe / runes.DXR / 00079_RECORDSCORE.ls < prev    next >
Encoding:
Text File  |  1996-07-01  |  733 b   |  28 lines
  1. on RECORDSCORE
  2.   global GWRITEOBJECT, ALLSCORE, SCOREFIL, TEMALL, PUZZ, CODEWORDP
  3.   set TEMALL to EMPTY
  4.   set SCOREFIL to "RUNES.SKR"
  5.   repeat with n = 1 to 26
  6.     if PUZZ <> n then
  7.       set TEMALL to TEMALL & char n of ALLSCORE
  8.     end if
  9.     if PUZZ = n then
  10.       set TEMALL to TEMALL & "1"
  11.     end if
  12.   end repeat
  13.   set ALLSCORE to EMPTY
  14.   set ALLSCORE to TEMALL
  15.   set CODEWORDP to ALLSCORE
  16.   CIPHER()
  17.   set ALLSCORE to CODEWORDP
  18.   if objectp(GWRITEOBJECT) then
  19.     GWRITEOBJECT(mdispose)
  20.   end if
  21.   set GWRITEOBJECT to FileIO(mnew, "WRITE", the pathName & SCOREFIL)
  22.   set ALLSCORE to ALLSCORE & RETURN & numToChar(10)
  23.   GWRITEOBJECT(mWriteString, ALLSCORE)
  24.   GWRITEOBJECT(mdispose)
  25.   DECIPHER()
  26.   set ALLSCORE to CODEWORDP
  27. end
  28.