/**************************************************************************\
|*                                                                        *|
|* The Wheel of Fortune, v6.0; MAINT MODULE, by Dotoran of Frontiers BBS! *|
|*                                                                        *|
\**************************************************************************/
options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
tr=transmit ; se=sendstring ; gc=getchar ; gu=getuser ; gs=getscratch
changewhere 'WOF, v6.0 MAINT' ; call GETCONFIG

exp='Exp'  /* Expansion variable for possible 5th Registered Utility */

MAINT:
    tr 'f1n1c9ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»'
    tr 'c9ºcc>X<>X<cfr1 The Wheel of Fortune Maintenance Menu r0cc>X<>X<c9º' ; tr 'c9ºº'
    tr 'c9ºcf[caCcf]caonfigure cbWheel of Fortunec9º' ; tr 'c9ºº'
    tr 'c9ºcf[ceWcf]ceeed the cbWOF cePlayers Filec9º' ; tr 'c9ºº'
    tr 'c9ºcf[caRcf]caeset the cbWheel of Fortunec9º' ; tr 'c9ºº' ; if reg=1 then do
    tr 'c9ºcf[ce1cf] ceRegistered cbWOF ceGamEditorc9º'
    tr 'c9ºcf[ca2cf] caRegistered cbWOF caRegEditorc9º'
    tr 'c9ºcf[ce3cf] ceRegistered cbWOF cePuzEditorc9º'
    tr 'c9ºcf[ca4cf] caRegistered cbWOF caColEditorc9º'
    tr 'c9ºcf[ce5cf] ceRegistered cbWOF ce'exp'Editorc9º' ; tr 'c9ºº' ; end ; if reg=0 then do
    tr 'c9ºcf[ceVcf]ceiew Registered Screen Shotsc9º' ; tr 'c9ºº' ; end
    tr 'c9ºcf[cdQcf]cduit this Maintenance Menuc9º'
    tr 'c9ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼn1'
    se 'cbMaintc9: cf>>>--caCcf,ceWcf,caRcf,cdQcf--> ' ; gc ; a=index('CWRVQ12345',result)
    if a=5 | a=0 | (reg=0 & a>5) | (reg=1 & a=4) then do ; tr 'cdQuit' ; exit ; end
    if a=1 then do ; tr 'caConfigure#0'||dfile||'Config}' ; changewhere 'WOF, v6.0 MAINT' ; signal MAINT ; end
    if a=2 then do ; tr 'ceWeedf1' ; signal WEEDPLAYERS ; end
    if a=3 then do ; tr 'caResetn1' ; signal RESET ; end
    if a=4 & reg=0 then do ; tr 'ceView Screens#0'||dfile||'Register.Viewer}' ; changewhere 'WOF, v6.0 MAINT' ; signal MAINT ; end
    if a=6 & reg=1 then do ; tr 'ceGamEditor#0'||dfile||'Reg.GamEditor}' ; changewhere 'WOF, v6.0 MAINT' ; signal MAINT ; end
    if a=7 & reg=1 then do ; tr 'caRegEditor#0'||dfile||'Reg.RegEditor}' ; changewhere 'WOF, v6.0 MAINT' ; signal MAINT ; end
    if a=8 & reg=1 then do ; tr 'cePuzEditor#0'||dfile||'Reg.PuzEditor}' ; changewhere 'WOF, v6.0 MAINT' ; signal MAINT ; end
    if a=9 & reg=1 then do ; tr 'caColEditor#0'||dfile||'Reg.ColEditor}' ; changewhere 'WOF, v6.0 MAINT' ; signal MAINT ; end
    if a=10 & reg=1 then do ; tr 'ca'||exp2||'Editor#0'||dfile||'Reg.'||exp2||'Editor}' ; changewhere 'WOF, v6.0 MAINT' ; signal MAINT ; end

WEEDPLAYERS:
    tr 'cc>X<>X<cfr1 Weed Wheel of Fortune Players File r0cc>X<>X<n1'
    tr 'c6Choose from these possible c9weed c6parameters:n1'
    tr '>4ca1cb> caAll players who have NEVER WON a game.'
    tr '>4ce2cb> ceAll players who have won a TOTAL of $0 bucks.'
    tr '>4ca3cb> caAll players who were INACTIVE for the PAST 10 GAMES.'
    tr '>4ce4cb> ceNEVER WON a game AND a total of $0 bucks.'
    tr '>4ca5cb> caNEVER WON a game AND were INACTIVE in PAST 10 GAMES.'
    tr '>4ce6cb> ceWON a total of $0 bucks AND were INACTIVE in PAST 10 GAMES.'
    tr '>4ca7cb> caNEVER WON a game OR money, AND were INACTIVE in PAST 10 GAMES.n1'
    se 'c9Weed c6users using cfwhich c6parameters? c7[c9Abortc7]c6: ca' ; gc ; p=index('1234567',result)
    if p=0 then do ; tr 'c9Abort' ; signal MAINT ; end ; else tr p'n1'
    call open(f1,dfile||'GameData','r') ; puz=readln(f1) ; call close(f1)
    call open(f1,dfile||'Players','r') ; do i=1 until eof(f1) ; p.i=readln(f1)
    end i ; tot=i-1 ; call close(f1) ; d=0 ; call open(f1,dfile||'Players','w')
    do i=1 to tot ; a='' ; parse var p.i h'|'tw'|'tm'|'cp'|'j
        if p=1 & tw>0 then a=p.i ; if p=2 & tm>0 then a=p.i
        if p=3 & cp>puz-10 then a=p.i ; if p=4 & tw>0 & tm>0 then a=p.i
        if p=5 & tw>0 & cp>puz-10 then a=p.i ; if p=6 & tm>0 & cp>puz-10 then a=p.i
        if p=7 & tw>0 & tm>0 & cp>puz-10 then a=p.i ; if a~='' then call writeln(f1,a)
        else do ; co='a' ; if d//2=0 then co='e' ; tr 'c9Deletedc6: c'co||h ; d=d+1 ; end
    end i ; call close(f1) ; if d=0 then tr 'cbr1 NO PLAYERS DELETED r0n1'
    else tr 'n1caTotal c6ofc9: cd'||d||' cePlayers c9Deletedc6!n1'
    tr 'c7Press cdAny c7Keyc6...g1'
  signal MAINT

RESET:
    se 'c6Do a c7[caCc7]caompletec6, or c7[cbPc7]cbartial c6Reset? c7[c9Abortc7]c6: '
    gc ; a=index('CP',result) ; if a=0 then do ; tr 'c9Abort' ; signal MAINT ; end
    if a=1 then do ; tr 'caCompletef1'
        tr 'cc>X<>X<cfr1 Complete Wheel of Fortune Reset r0cc>X<>X<n1'
        tr 'c6The following cbfiles c6will be c9deletedc6:n1'
        tr 'caGameData c7>>--> caInfo on Current Game being Played.'
        tr 'ceLastPlayer cf>>--> ceInfo on the Last Player of Game.'
        tr 'caPlayers c7>>--> caData file on ALL WOF Players.'
        tr 'ceWinner cf>>--> ceInfo on Winner of the LAST Game.'
        tr 'caWinners c7>>--> caInfo on the LAST 20 Winners.'
        tr 'ceBWinner cf>>--> ceInfo on Winner of LAST BONUS Game.'
        tr 'caBWinners c7>>--> caInfo on LAST 20 BONUS Winners.'
        tr 'ceLog.NEW.#? cf>>--> ceEvents that occurred during THIS Game.'
        tr 'caLog.OLD.#? c7>>--> caEvents that occurred during LAST Game.'
        tr 'ceStats cf>>--> ceInfo on the HIGH SCORES obtained.n1'
        se 'c6Are you cbSURE c6you want to do this? c7[caNoc7]c6: ca'
        gc ; a=result ; if a~='Y' then do ; tr 'No.' ; signal MAINT ; end
        tr 'Yes!n2cbResetting caCOMPLETE c6Game...n1'
        tr 'c9Deleting cb"caGameDatacb"c6.....file...$odelete '||dfile||'GameData}cdDonec6.'
        tr 'c9Deleting cb"caPlayerscb"c6......file...$odelete '||dfile||'Players}cdDonec6.'
        se 'c9Deleting cb"caLastPlayercb"c6...file...'
            if exists(dfile||'LastPlayer') then se '$odelete '||dfile||'LastPlayer}'
            tr 'cdDonec6.'
        tr 'c9Deleting cb"caWinnercb"c6.......file...$odelete '||dfile||'Winner}cdDonec6.'
        tr 'c9Deleting cb"caWinnerscb"c6......file...$odelete '||dfile||'Winners}cdDonec6.'
        tr 'c9Deleting cb"caBWinnercb"c6......file...$odelete '||dfile||'Bwinner}cdDonec6.'
        tr 'c9Deleting cb"caBWinnerscb"c6.....file...$odelete '||dfile||'BWinners}cdDonec6.'
        tr 'c9Deleting cb"caLog.NEW.#?cb"c6...file...$odelete '||dfile||'Log.NEW.#?}cdDonec6.'
        tr 'c9Deleting cb"caLog.OLD.#?cb"c6...file...'
            if exists(dfile||'Log.OLD.ASC') then se '$odelete '||dfile||'Log.OLD.#?}'
            tr 'cdDonec6.'
        tr 'c9Deleting cb"caStatscb"c6........file...$odelete '||dfile||'Stats}cdDonec6.n1'
        tr 'cbWheel of Fortunec6, cfv6.0 c6has been caCOMPLETELY cbResetc6!n1'
        tr 'Simply enter one of the ceGame Modules c6to cfSTART c6a c9NEW c6Game!'
      exit ; end
    if a=2 then do ; tr 'cbPartialf1'
        tr 'cc>X<>X<cfr1 Partial Wheel of Fortune Reset r0cc>X<>X<n1'
        se 'c9Delete cb"caGameDatacb"c6.....file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'GameData} cdDonec6.' ; else tr 'No.'
        se 'c9Delete cb"caPlayerscb"c6......file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'Players} cdDonec6.' ; else tr 'No.'
        se 'c9Delete cb"caLastPlayercb"c6...file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then do ; se 'Yes!' ; if exists(dfile||'LastPlayer') then se '$odelete '||dfile||'LastPlayer}'
            tr ' cdDonec6.' ; end ; else tr 'No.'
        se 'c9Delete cb"caWinnercb"c6.......file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'Winner} cdDonec6.' ; else tr 'No.'
        se 'c9Delete cb"caWinnerscb"c6......file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'Winners} cdDonec6.' ; else tr 'No.'
        se 'c9Delete cb"caBWinnercb"c6......file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'BWinner} cdDonec6.' ; else tr 'No.'
        se 'c9Delete cb"caBWinnerscb"c6.....file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'BWinners} cdDonec6.' ; else tr 'No.'
        se 'c9Delete cb"caLog.NEW.#?cb"c6...file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'Log.NEW.#?} cdDonec6.' ; else tr 'No.'
        se 'c9Delete cb"caLog.OLD.#?cb"c6...file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then do ; se 'Yes!' ; if exists(dfile||'Log.OLD.ASC') then se '$odelete '||dfile||'Log.OLD.#?}'
            tr ' cdDonec6.' ; end ; else tr 'No.'
        se 'c9Delete cb"caStatscb"c6........file? c7[ceNoc7]c6: ce' ; gc ; a=result
        if a='Y' then tr 'Yes!$odelete '||dfile||'Stats} cdDonec6.' ; else tr 'No.'
        if ~exists(dfile||'GameData') | ~exists(dfile||'Players') then do
            se 'n1c6For cfsafety c6reasons, we must now c9EXIT c6the file. Simply enter '
            tr 'one of the ceGame Modules c6to cabind c6any changes made here...' ; end
      exit ; end

GETCONFIG:
    call open(f1,'pfiles:WoFortune.Config','r')
        do 3 ; dfile=readln(f1) ; end
    call close(f1) ; reg=exists(dfile||'Reg.Key')
  return

SYNTAX: ; ERROR: ; IOERR:
    tr 'n2ce*** c9BOOM ce*** c9Error Detectedce!' ; tr 'c6ERc9:cb'rc' c6(ca'errortext(rc)'c6) @ cf'sigl
    tr 'cdSysop has been notified...' ; logentry 'ER:'rc' ('errortext(rc)') @ 'sigl
    logentry 'while using WOF, v6.0 MAINT' ; bufferflush
  exit

/* Completed: November 11, 1993              Frontiers BBS (716)/823-9892 */