321 GAMES/321GAMES.iso/logic/runes/runes.exe/runes.DXR/00099_CHECKUPG.ls

Text File | 1996-07-01 | 930 b | 32 lines

on CHECKUPG
  global UPG, USERNAME, SCRAMBLENAME, CODENUMBER, REGFILE, GREADOBJECT, REGNAME, TMPUSERNAME
  set TMPUSERNAME to EMPTY
  set ALLCODES to EMPTY
  set USERNAME to EMPTY
  set SCRAMBLENAME to EMPTY
  set CODENUMBER to EMPTY
  set UPG to 0
  if objectp(GREADOBJECT) then
    GREADOBJECT(mdispose)
  end if
  set GREADOBJECT to FileIO(mnew, "READ", the pathName & "RUNES.DAT")
  set ALLCODES to GREADOBJECT(mReadLine)
  GREADOBJECT(mdispose)
  set USERNAME to item 1 of ALLCODES
  set CODENUMBER to item 2 of ALLCODES
  set SCRAMBLENAME to item 3 of ALLCODES
  if CODENUMBER = "mnmvbque" then
    repeat with n = 1 to length(USERNAME)
      set ZW to char n of USERNAME
      set ZWW to charToNum(ZW) + 57 + n
      set TMPUSERNAME to TMPUSERNAME & numToChar(ZWW)
    end repeat
    if TMPUSERNAME = SCRAMBLENAME then
      set UPG to 1
    end if
    if UPG = 1 then
      set REGNAME to USERNAME
    end if
  end if
end