Untitled

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION

REM Measuring programming progress by lines of code is like measuring aircraft building progress by weight.
REM --
REM Bill Gates

REM startup code
:INIT
    cls
    color 0f
    SET LOC=INIT
    SET /A "SAVE=1" & REM TEMP CHANGE TO FIX LACK OF LOADSAVE ERROR LEVELS
    ECHO New game (1)
    IF EXIST dta\tmp\sav\name.txt ECHO Continue (2)
    SET /p TMP_MOVE=":" || SET /A "TMP_MOVE=0"
    IF %TMP_MOVE% EQU 1 (
        GOTO opening_sequence
    ) ELSE (
        IF %TMP_MOVE% EQU 2 (
            CALL :LOADSAVE
        ) ELSE (
            GOTO INIT
        )
    )
::END

:opening_sequence
    REM DELETE TEMP FILIES
    DEL /Q dta\tmp\*
    DEL /Q dta\tmp\sav\*
    REM SET STATE VARIABLES
    SET /A "OT=((%RANDOM%)%%65536)"
    SET TMP_MOVE=""
    SET TMP_PROMPT=""
    SET /A "POKE=0"
    SET /A "STARTER=0"
    SET /A "STARTERDIA=0"
    SET /A "OAKRBAT=0"
    SET /A "DEX=0"
    SET /A "EFOUR=0"
    SET LOC="INIT"

    CLS
    COLOR 0f
    SET LOC=opening_sequence

    ECHO Hello there^^! Welcome to the world of POKÉMON^^!
    ECHO My name is OAK^^! People call me the POKÉMON PROF^^!
    PAUSE >NUL
    ECHO This world is inhabited by creatures called POKÉMON^^!
    ECHO For some people, POKÉMON are pets. Others use them for fights.
    ECHO Myself... I study POKÉMON as a profession.
    PAUSE >NUL
    ECHO First, what is your name?
    SET /P PLAYER=":" || SET PLAYER=GREEN
    ECHO Right^^! So your name is %PLAYER%^^!
    PAUSE >NUL
    ECHO This is my grandson. He's been your rival since you were a baby.
    ECHO ...Erm, what is his name again?
    SET /P RIVAL=":" || Set RIVAL=BLUE
    ECHO That's right^^! I remember now^^! His name is %RIVAL%^^!
    PAUSE >NUL
    CLS
    ECHO %PLAYER%^^!
    ECHO Your very own POKÉMON legend is about to unfold^^!
    ECHO A world of dreams and adventures with POKÉMON awaits^^! Let's go^^!
    PAUSE >NUL

    GOTO 1f-player_house
::END

::PalletTown
    :pallet_town
        IF %DEX% EQU 0 (
            GOTO pre-dex-pallet_town
        ) ELSE (
            GOTO post-dex-pallet_town
        )
        :pre-dex-pallet_town
            CLS
            COLOR 0D
            SET LOC=pre-dex-pallet_town

            TYPE ast\map\pallet_town00.txt
            ECHO(
            ECHO              %PLAYER%'s House                    %RIVAL%'s House
            ECHO(
            TYPE ast\map\pallet_town01.txt
            ECHO(
            ECHO                                           Oak Pokemon Research Lab
            ECHO(
            ECHO                         Pallet Town
            ECHO                 Shades of your journey await^^!
            ECHO(

            ECHO OPTIONS
            ECHO i.   Go to Route 1
            ECHO ii.  Go to your House
            ECHO iii. Go to %rival%'s House
            ECHO iv.  Go to Oak Pokemon Research Lab
            ECHO v.   Talk to Girl
            ECHO vi.  Talk to Man
            SET /A "TMP_MOVE=0"
            SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
            IF %TMP_MOVE% EQU 1 (
                GOTO route_one
            ) ELSE (
                IF %TMP_MOVE% EQU 2 (
                    GOTO gf-player_house
                ) ELSE (
                    IF %TMP_MOVE% EQU 3 (
                        GOTO gf-rival_house
                    ) ELSE (
                        IF %TMP_MOVE% EQU 4 (
                            GOTO oak_lab
                        ) ELSE (
                            IF %TMP_MOVE% EQU 5 (
                                ECHO GIRL: I'm raising POKÉMON too^^! When they get strong, they can protect me^^!
                                PAUSE >NUL
                                GOTO pallet_town
                            ) ELSE (
                                IF %TMP_MOVE% EQU 6 (
                                    ECHO MAN: Technology is incredible^^!
                                    ECHO You can now store and recall items and POKÉMON as data via PC^^!
                                    PAUSE >NUL
                                    GOTO pallet_town
                                ) ELSE (
                                    IF /I %TMP_MOVE% == X (
                                        CALL :SAVEGAME
                                        GOTO pallet_town
                                    ) ELSE (
                                        GOTO pallet_town
                                    )
                                )
                            )
                        )
                    )
                )
            )
        ::END
        :post-dex-pallet_town
            SET LOC=post-dex-pallet_town
        ::END
    ::END

    :gf-player_house
        IF %POKE% EQU 0 (
            GOTO pre-poke-gf-player_house
        ) ELSE (
            GOTO post-poke-gf-player_house
        )
        :pre-poke-gf-player_house
            CLS
            COLOR 09
            SET LOC=pre-poke-gf-player_house

            TYPE ast\map\player_house.txt
            ECHO(
            ECHO %PLAYER%'s House GF
            ECHO(
            ECHO MUM: Right. All boys leave home someday. It said so on TV.
            ECHO Prof.Oak, next door, is looking for you.
            PAUSE >NUL

            ECHO OPTIONS
            ECHO i.   Go outside
            ECHO ii.  Go upstairs
            ECHO iii. Watch TV
            SET /A "TMP_MOVE=0"
            SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
            IF %TMP_MOVE% EQU 1 (
                GOTO pallet_town
            ) ELSE (
                IF %TMP_MOVE% EQU 2 (
                    GOTO 1f-player_house
                ) ELSE (
                    IF %TMP_MOVE% EQU 3 (
                        ECHO There's a movie on TV.
                        ECHO Four boys are walking on railroad tracks.
                        ECHO I better go too.
                        PAUSE >NUL
                        GOTO gf-player_house
                    ) ELSE (
                        IF /I %TMP_MOVE% == X (
                            CALL :SAVEGAME
                            GOTO gf-player_house
                        ) ELSE (
                            GOTO gf-player_house
                        )
                    )
                )
            )
        ::END
        :post-poke-gf-player_house
            CLS
            COLOR 09
            SET LOC=pre-poke-gf-player_house

            TYPE ast\map\player_house.txt
            ECHO(
            ECHO %PLAYER%'s House GF
            ECHO(

            ECHO OPTIONS
            ECHO i.   Go outside
            ECHO ii.  Go upstairs
            ECHO iii. Watch TV
            ECHO iv.  Talk to Mum
            SET /A "TMP_MOVE=0"
            SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
            IF %TMP_MOVE% EQU 1 (
                GOTO pallet_town
            ) ELSE (
                IF %TMP_MOVE% EQU 2 (
                    GOTO 1f-player_house
                ) ELSE (
                    IF %TMP_MOVE% EQU 3 (
                        ECHO There's a movie on TV.
                        ECHO Four boys are walking on railroad tracks.
                        ECHO I better go too.
                        PAUSE >NUL
                        GOTO gf-player_house
                    ) ELSE (
                        IF %TMP_MOVE% EQU 4 (
                            ECHO MUM: %PLAYER%^^! You should take a quick rest.
                            REM CALL Heal-Pokemon
                            ECHO Oh good^^! You and your POKÉMON are looking great^^! Take care now^^!
                            PAUSE >NUL
                        )
                            IF /I %TMP_MOVE% == X (
                                CALL :SAVEGAME
                                GOTO gf-player_house
                            ) ELSE (
                                GOTO gf-player_house
                            )
                        )
                    )
                )
            )
        ::END
    ::END

    :1f-player_house
        CLS
        COLOR 09
        SET LOC=1f-player_house

        TYPE ast\map\player_house.txt
        ECHO(
        ECHO %PLAYER%'s House 1F
        ECHO(

        ECHO OPTIONS
        ECHO i.  Go downstairs
        ECHO ii. Play the SNES
        SET /A "TMP_MOVE=0"
        SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
        IF %TMP_MOVE% EQU 1 (
            GOTO gf-player_house
        ) ELSE (
            IF %TMP_MOVE% EQU 2 (
                ECHO %PLAYER% is playing the SNES^^!
                ECHO ...Okay^^! It's time to go^^!
                PAUSE >NUL
                GOTO 1f-player_house
            ) ELSE (
                IF /I %TMP_MOVE% == X (
                    CALL :SAVEGAME
                    GOTO 1f-player_house
                ) ELSE (
                    GOTO 1f-player_house
                )
            )
        )
    ::END

    :gf-rival_house
     IF %POKE% EQU 0 (
            GOTO pre-poke-gf-rival_house
        ) ELSE (
            GOTO post-poke-gf-rival_house
        )
        :pre-poke-gf-rival_house
            CLS
            COLOR 09
            SET LOC=pre-poke-gf-rival_house

            TYPE ast\map\player_house.txt
            ECHO(
            ECHO %RIVAL%'s House GF
            ECHO(

            ECHO OPTIONS
            ECHO i.   Go outside
            ECHO ii.  Go upstairs
            ECHO iii. Check out the map
            ECHO iv.  Talk to %RIVAL%'s sister
            SET /A "TMP_MOVE=0"
            SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
            IF %TMP_MOVE% EQU 1 (
                GOTO pallet_town
            ) ELSE (
                IF %TMP_MOVE% EQU 2 (
                    GOTO 1f-rival_house
                ) ELSE (
                    IF %TMP_MOVE% EQU 3 (
                        ECHO It's a big map^^! This is useful^^!
                        PAUSE >NUL
                        GOTO gf-rival_house
                    ) ELSE (
                        IF %TMP_MOVE% EQU 4 (
                            ECHO %RIVAL%'s SIS: Hi %PLAYER%^^! %RIVAL% is out at Grandpa's lab.
                            PAUSE >NUL
                            GOTO gf-rival_house
                        ) ELSE (
                            IF /I %TMP_MOVE% == X (
                                CALL :SAVEGAME
                                GOTO gf-rival_house
                            ) ELSE (
                                GOTO gf-rival_house
                            )
                        )
                    )
                )
            )
        ::END
        :post-poke-gf-rival_house
            CLS
            COLOR 09
            SET LOC=pre-poke-gf-rival_house

            TYPE ast\map\player_house.txt
            ECHO(
            ECHO %player%'s House GF
            ECHO(
        ::END
    ::END

    :1f-rival_house
        CLS
        COLOR 0E
        SET LOC=1f-rival_house

        TYPE ast\map\player_house.txt
        ECHO(
        ECHO %RIVAL%'s House 1F
        ECHO(

        ECHO OPTIONS
        ECHO i. Go downstairs
        SET /A "TMP_MOVE=0"
        SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
        IF %TMP_MOVE% EQU 1 (
            GOTO gf-rival_house
        ) ELSE (
            IF /I %TMP_MOVE% == X (
                CALL :SAVEGAME
                GOTO 1f-rival_house
            ) ELSE (
                GOTO 1f-rival_house
            )
        )
    ::END

    :oak_lab
        IF %EFOUR% EQU 1 (
            GOTO post-efour-oak_lab
        ) ELSE (
            IF %DEX% EQU 1 (
                GOTO post-dex-oak_lab
            ) ELSE (
                IF %POKE% EQU 1 (
                    GOTO post-poke-oak_lab
                ) ELSE (
                    IF %OAKRBAT% EQU 1 (
                        GOTO post-starter-oak_lab
                    ) ELSE (
                        IF %STARTER% EQU 1 (
                            GOTO pre-starter-oak_lab
                        ) ELSE (
                            GOTO pre-poke-oak_lab
                        )
                    )
                )
            )
        )
        :pre-poke-oak_lab
            CLS
            COLOR 0E
            SET LOC=pre-poke-oak_lab

            TYPE ast\map\oak_lab.txt
            ECHO(
            ECHO Oak POKÉMON Research Lab
            ECHO(

            ECHO OPTIONS
            ECHO i.    Go outside
            ECHO ii.   Talk to %RIVAL%
            ECHO iii.  Turn on the computer
            ECHO iv.   Check out the book
            ECHO v.    Read the posters
            ECHO vi.   Check out the POKÉ BALLS
            ECHO vii.  Talk to AIDE one
            ECHO viii. Talk to AIDE two
            ECHO ix.   Talk to AIDE three
            SET /A "TMP_MOVE=0"
            SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
            IF %TMP_MOVE% EQU 1 (
                GOTO pallet_town
            ) ELSE (
                IF %TMP_MOVE% EQU 2 (
                    ECHO %RIVAL%: Yo %PLAYER%^^! Gramps isn't around^^!
                    PAUSE >NUL
                    GOTO oak_lab
                ) ELSE (
                    IF %TMP_MOVE% EQU 3 (
                        ECHO There's an e-mail message here^^!...
                        PAUSE >NUL
                        ECHO Calling all POKÉMON trainers^^!
                        ECHO The elite trainers of POKÉMON LEAGUE are ready to take on all comers^^!
                        ECHO Bring your best POKÉMON and see how you rate as a trainer^^!
                        ECHO(
                        ECHO POKÉMON LEAGUE HQ INDIGO PLATEAU
                        ECHO PS: PROF.OAK, please visit us! ...
                        PAUSE >NUL
                        GOTO oak_lab
                    ) ELSE (
                        IF %TMP_MOVE% EQU 4 (
                            ECHO It's encyclopedia-like, but the pages are blank^^!
                            PAUSE >NUL
                            GOTO oak_lab
                        ) ELSE (
                            IF %TMP_MOVE% EQU 5 (
                                ECHO POSTER 1: Push START to open the MENU!
                                ECHO POSTER 2: The SAVE option is on the MENU screen.
                                PAUSE >NUL
                                GOTO oak_lab
                            ) ELSE (
                                IF %TMP_MOVE% EQU 6 (
                                    ECHO Those are POKÉ BALLS. They contain POKÉMON^^!
                                    PAUSE >NUL
                                    GOTO oak_lab
                                ) ELSE (
                                    IF %TMP_MOVE% EQU 7 (
                                        ECHO AIDE: I study POKÉMON as PROF. OAK'S AIDE.
                                        PAUSE >NUL
                                        GOTO oak_lab
                                    ) ELSE (
                                        IF %TMP_MOVE% EQU 8 (
                                            ECHO AIDE: I study POKÉMON as PROF. OAK'S AIDE.
                                            PAUSE >NUL
                                            GOTO oak_lab
                                        ) ELSE (
                                            IF %TMP_MOVE% EQU 9 (
                                                ECHO AIDE: PROF. OAK is the authority on POKÉMON^^! Many POKÉMON trainers hold him in high regard^^!.
                                                PAUSE >NUL
                                                GOTO oak_lab
                                            ) ELSE (
                                                IF /I %TMP_MOVE% == X (
                                                    CALL :SAVEGAME
                                                    GOTO oak_lab
                                                ) ELSE (
                                                    GOTO oak_lab
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        ::END

        :pre-starter-oak_lab
            CLS
            COLOR 0E
            SET LOC=pre-starter-oak_lab

            TYPE ast\map\oak_lab.txt
            ECHO(
            ECHO Oak POKÉMON Research Lab
            ECHO(
            IF %STARTERDIA% NEQ 1 (
                ECHO %RIVAL%: Gramps^^! I'm fed up with waiting^^!
                ECHO PROF. OAK: %RIVAL%? Let me think... Oh, that's right, I told you to come^^!
                ECHO Just wait^^!
                PAUSE >NUL
                ECHO PROF. OAK: Here, %PLAYER%^^! There are 3 POKÉMON here^^! Haha^^! They are inside the POKÉ BALLS.
                ECHO When I was young, I was a serious POKÉMON trainer. In my old age, I have only 3 left, but you can have one^^!
                ECHO Choose!
                ECHO %RIVAL%: Hey^^! Gramps^^! What about me?
                ECHO PROF. OAK: Be patient^^! %RIVAL%, you can have one too^!
                PAUSE >NUL
                SET /A "STARTERDIA=1"
                GOTO oak_lab
            ) ELSE (
                ECHO OPTIONS
                ECHO i.   Go outside
                ECHO ii.  Talk to PROF. OAK
                ECHO iii. Talk to %RIVAL%
                ECHO iv.  Check out POKÉ BALL one
                ECHO v.   Check out POKÉ BALL two
                ECHO vi.  Check out POKÉ BALL three
                SET /A "TMP_MOVE=0"
                SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
                IF !TMP_MOVE! EQU 1 (
                    ECHO PROF. OAK: Hey^^! Don't go away yet^^!
                    PAUSE >NUL
                    GOTO oak_lab
                ) ELSE (
                    IF !TMP_MOVE! EQU 2 (
                        ECHO PROF. OAK: Now, %RIVAL%, which POKÉMON do you want?
                        PAUSE >NUL
                        GOTO oak_lab
                    ) ELSE (
                        IF !TMP_MOVE! EQU 3 (
                            ECHO %RIVAL%: Heh, I don't need to be greedy like you^^! Go ahead and choose, %PLAYER%^^!
                            PAUSE >NUL
                            GOTO oak_lab
                        ) ELSE (
                            IF !TMP_MOVE! EQU 4 (
                                ECHO PROF. OAK: So^^! You want the plant POKÉMON, BULBASAUR ^^^(Y/N^^^)?
                                SET /P TMP_PROMPT=":" || SET TMP_PROMPT=N
                                IF /I !TMP_PROMPT! == Y (
                                    ECHO PROF. OAK: This POKÉMON is really energetic^^!
                                    CALL src\GIVEPKMN %OT% 0 1 5
                                    ECHO %RIVAL%: I'll take this one, then^^!
                                    CALL src\GIVEPKMN 0 1 4 5
                                    PAUSE >NUL
                                    SET /A "OAKRBAT=1"
                                    GOTO oak_lab
                                ) ELSE (
                                    GOTO oak_lab
                                )
                            ) ELSE (
                                IF !TMP_MOVE! EQU 5 (
                                    ECHO PROF. OAK: So^^! You want the fire POKÉMON, CHARMANDER ^^^(Y/N^^^)?
                                    SET /P TMP_PROMPT=":" || SET TMP_PROMPT=N
                                    IF /I !TMP_PROMPT! == Y (
                                        ECHO PROF. OAK: This POKÉMON is really energetic^^!
                                        CALL src\GIVEPKMN %OT% 0 4 5
                                        ECHO %RIVAL%: I'll take this one, then^^!
                                        CALL src\GIVEPKMN 0 1 7 5
                                        PAUSE >NUL
                                        SET /A "OAKRBAT=1"
                                        GOTO oak_lab
                                    ) ELSE (
                                        GOTO oak_lab
                                    )
                                ) ELSE (
                                    IF !TMP_MOVE! EQU 6 (
                                        ECHO PROF. OAK: So^^! You want the water POKÉMON, SQUIRTLE ^^^(Y/N^^^)?
                                        SET /P TMP_PROMPT=":" || SET TMP_PROMPT=N
                                        IF /I !TMP_PROMPT! == Y (
                                            ECHO PROF. OAK: This POKÉMON is really energetic!
                                            CALL src\GIVEPKMN %OT% 0 7 5
                                            ECHO %RIVAL%: I'll take this one, then^^!
                                            CALL src\GIVEPKMN 0 1 1 5
                                            PAUSE >NUL
                                            SET /A "OAKRBAT=1"
                                            GOTO oak_lab
                                        ) ELSE (
                                            GOTO oak_lab
                                        )
                                    ) ELSE (
                                        IF /I !TMP_MOVE! == X (
                                            CALL :SAVEGAME
                                            GOTO oak_lab
                                        ) ELSE (
                                            GOTO oak_lab
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        ::END

        :post-starter-oak_lab
            CLS
            COLOR 0E
            SET LOC=post-starter-oak_lab

            TYPE ast\map\oak_lab.txt
            ECHO(
            ECHO Oak POKÉMON Research Lab
            ECHO(

            ECHO OPTIONS
            ECHO i.    Go outside
            ECHO ii.   Talk to %RIVAL%
            ECHO iii.  Check out the computer
            ECHO iv.   Check out the book
            ECHO v.    Read the posters
            ECHO vi.   Check out the POKÉ BALL
            ECHO vii.  Talk to OAK
            SET /A "TMP_MOVE=0"
            SET /P TMP_MOVE=":" || SET /A "TMP_MOVE=0"
            IF %TMP_MOVE% EQU 1 (
                ECHO %RIVAL%: Wait %PLAYER%^^! Let's check out our POKÉMON^^! Come on, I'll take you on^^!
                PAUSE >NUL
                REM INITIATE RIVAL BATTLE
                CALL TBATTLE 0 1
                SET /A "POKE=1"
                GOTO oak_lab
            ) ELSE (
                IF %TMP_MOVE% EQU 2 (
                    ECHO %RIVAL%: My POKEMON looks a lot stronger.
                    PAUSE >NUL
                    GOTO oak_lab
                ) ELSE (
                    IF %TMP_MOVE% EQU 3 (
                        ECHO There's an e-mail message here^^!...
                        PAUSE >NUL
                        ECHO Calling all POKÉMON trainers^^!
                        ECHO The elite trainers of POKÉMON LEAGUE are ready to take on all comers^^!
                        ECHO Bring your best POKÉMON and see how you rate as a trainer^^!
                        ECHO(
                        ECHO POKÉMON LEAGUE HQ INDIGO PLATEAU
                        ECHO PS: PROF.OAK, please visit us! ...
                        PAUSE >NUL
                        GOTO oak_lab
                    ) ELSE (
                        IF %TMP_MOVE% EQU 4 (
                            ECHO It's encyclopedia-like, but the pages are blank^^!
                            PAUSE >NUL
                            GOTO oak_lab
                        ) ELSE (
                            IF %TMP_MOVE% EQU 5 (
                                ECHO POSTER 1: Push START to open the MENU!
                                ECHO POSTER 2: The SAVE option is on the MENU screen.
                                PAUSE >NUL
                                GOTO oak_lab
                            ) ELSE (
                                IF %TMP_MOVE% EQU 6 (
                                    ECHO That's PROF.OAK's last POKÉMON^^!
                                    PAUSE >NUL
                                    GOTO oak_lab
                                ) ELSE (
                                    IF %TMP_MOVE% EQU 7 (
                                        ECHO OAK: If a wild POKÉMON appears, your POKÉMON can fight against it^^!
                                        PAUSE >NUL
                                        GOTO oak_lab
                                    ) ELSE (
                                        IF /I %TMP_MOVE% == X (
                                            CALL :SAVEGAME
                                            GOTO oak_lab
                                        ) ELSE (
                                            GOTO oak_lab
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        ::END

        :post-poke-oak_lab
            CLS
            COLOR 0E
            SET LOC=post-poke-oak_lab

            ECHO GOOD ONE MATE YOU GOT A POKEMON
            PAUSE >NUL
        ::END

        :post-dex-oak_lab
            CLS
            COLOR 0E
            SET LOC=post-dex-oak_lab
        ::END

        :post-efour-oak_lab
            CLS
            COLOR 0E
            SET LOC=post-efour-oak_lab
        ::END
    ::END
::END

::RouteOne
    :route_one
        IF %POKE% EQU 0 (
            GOTO pre-poke-route_one
        ) ELSE (
            GOTO post-poke-route_one
        )
        :pre-poke-route_one
            CLS
            COLOR 0a
            SET LOC=pre-poke-route_one

            TYPE ast\map\route_one.txt
            ECHO(
            ECHO ROUTE 1
            ECHO(

            ECHO PROF. OAK: Hey^^!
            ECHO Wait^^!
            ECHO Don't go out^^!
            PAUSE >NUL
            ECHO PROF. OAK: It's unsafe^^! Wild POKÉMON live in tall grass^^!
            ECHO You need your own POKÉMON for your protection.
            ECHO I know^^! Here, come with me^^!
            PAUSE >NUL
            set /A "STARTER=1"
            GOTO oak_lab


        ::END

        :post-poke-route_one
        ::END
    ::END
::END

REM FUNCTIONS
:SAVEGAME
    CLS
    COLOR 0F

    IF EXIST dta\tmp\sav\name.txt DEL /q dta\tmp\sav\name.txt
    IF EXIST dta\tmp\sav\bool.txt DEL /q dta\tmp\sav\bool.txt
    ECHO Saving game
    ECHO Do not turn of the power
    TIMEOUT 1 >NUL
    CLS
    ECHO Saving game .
    ECHO Do not turn of the power
    TIMEOUT 1 >NUL
    CLS
    ECHO Saving game ..
    ECHO Do not turn of the power
    TIMEOUT 1 >NUL
    CLS
    ECHO Saving game ...
    ECHO Do not turn of the power
    TIMEOUT 1 >NUL
    CLS
    ECHO Saving game .
    ECHO Do not turn of the power
    TIMEOUT 1 >NUL
    ECHO %OT%,%PLAYER%,%RIVAL%,%LOC%>dta\tmp\sav\name.txt
    ECHO %STARTER%.%STARTERDIA%.%POKE%.%DEX%.%EFOUR%>dta\tmp\sav\bool.txt
    FOR %%A IN (dta\tmp\*_PARTY.TXT) DO (
        SET "PARAM=%%A"
        COPY %PARAM% %PARAM:dta\tmp=dta\tmp\sav% >NUL
    )
    FOR %%A IN (dta\tmp\*_BOX*.TXT) DO (
        SET "PARAM=%%A"
        COPY %PARAM% %PARAM:dta\tmp=dta\tmp\sav% >NUL
    )

    CLS
    ECHO Game Saved
    TIMEOUT 1 >NUL
    GOTO :EOF
::END

:LOADSAVE
    DEL /Q dta\tmp\*
    SET /A "SAVE=1"
    IF NOT EXIST dta\tmp\sav\name.txt SET /A "SAVE=0"
    IF NOT EXIST dta\tmp\sav\bool.txt SET /A "SAVE=0"
    FOR /F "TOKENS=1 DELIMS=," %%A IN (dta\tmp\sav\name.txt) DO (SET OT=%%A) || SET /A "SAVE=0"
    IF [%OT%] == [] SET /A "SAVE=0"
    FOR /F "TOKENS=2 DELIMS=," %%A IN (dta\tmp\sav\name.txt) DO (SET PLAYER=%%A) || SET /A "SAVE=0"
    IF [%PLAYER%] == [] SET /A "SAVE=0"
    FOR /F "TOKENS=3 DELIMS=," %%A IN (dta\tmp\sav\name.txt) DO (SET RIVAL=%%A) || SET /A "SAVE=0"
    IF [%RIVAL%] == [] SET /A "SAVE=0"
    FOR /F "TOKENS=4 DELIMS=," %%A IN (dta\tmp\sav\name.txt) DO (SET LOC=%%A) || SET /A "SAVE=0"
    IF [%LOC%] == [] SET /A "SAVE=0"

    FOR /F "TOKENS=1 DELIMS=." %%A IN (dta\tmp\sav\bool.txt) DO (SET STARTER=%%A) || SET /A "SAVE=0"
    IF [%STARTER%] == [] SET /A "SAVE=0"
    FOR /F "TOKENS=2 DELIMS=." %%A IN (dta\tmp\sav\bool.txt) DO (SET STARTERDIA=%%A) || SET /A "SAVE=0"
    IF [%STARTERDIA%] == [] SET /A "SAVE=0"
    FOR /F "TOKENS=3 DELIMS=." %%A IN (dta\tmp\sav\bool.txt) DO (SET POKE=%%A) || SET /A "SAVE=0"
    IF [%POKE%] == [] SET /A "SAVE=0"
    FOR /F "TOKENS=4 DELIMS=." %%A IN (dta\tmp\sav\bool.txt) DO (SET DEX=%%A) || SET /A "SAVE=0"
    IF [%DEX%] == [] SET /A "SAVE=0"
    FOR /F "TOKENS=5 DELIMS=." %%A IN (dta\tmp\sav\bool.txt) DO (SET EFOUR=%%A) || SET /A "SAVE=0"
    IF [%EFOUR%] == [] SET /A "SAVE=0"
    IF %SAVE% NEQ 0 (
        FOR %%A IN (dta\tmp\sav\*_PARTY.TXT) DO (
            SET "PARAM=%%A"
            COPY %PARAM% %PARAM:dta\tmp\sav=dta\tmp% >NUL
        )
        FOR %%A IN (dta\tmp\sav\*_BOX*.TXT) DO (
            SET "PARAM=%%A"
            COPY %PARAM% %PARAM:dta\tmp\sav=dta\tmp% >NUL
        )
        GOTO %LOC%
    ) ELSE (
        ECHO Save file missing or corrupted.
        PAUSE >NUL
        GOTO OpeningSequence
    )
::END