Tic Tac Toe

Inhalt der main.cmd
@echo off
title Tic Tac Toe
:laufwerk
set /p l=Laufwerksbuchstabe:

:set_value0
set /A z1=1
set /A z2=2
set /A z3=3
set /A z4=4
set /A z5=5
set /A z6=6
set /A z7=7
set /A z8=8
set /A z9=9
set X=Player1
set O=Player2
set /a winner=0
set /a tie=0

:main_menu
cls
echo +++++++++++++++++++++++++++
echo.
echo         Tic Tac Toe
echo          Main menu
echo.
echo +++++++++++++++++++++++++++
echo.

set /p newgame=Start a new game? [J/N]
if %newgame%==J goto new_game
if %newgame%==j goto new_game
if %newgame%==N goto so_what
if %newgame%==n goto so_what
if %newgame%==c goto command
goto main_menu

:so_what
echo Really? You start a file named 'Tic Tac Toe.cmd' and don't want to play?
pause >nul
goto end

:new_game



:name
set /p X=Name for Player1 [X]:
set /p O=Name for Player2 [O]:

:field_p1
call "%l%:\test\Tic Tac Toe\check_winner.cmd"
call "%l%:\test\Tic Tac Toe\check_tie.cmd"
if not %winner%==0 goto winner
cls
set fieldp2=0
echo Your turn %X%
echo %z1% %z2% %z3%
echo %z4% %z5% %z6%
echo %z7% %z8% %z9%

set /p fieldp1=%X% choose the field you want to set
if %fieldp1%==%z1% (set z1=X
                     goto field_p2)
if %fieldp1%==%z2% (set z2=X
                     goto field_p2)
if %fieldp1%==%z3% (set z3=X
                     goto field_p2)
if %fieldp1%==%z4% (set z4=X
                     goto field_p2)
if %fieldp1%==%z5% (set z5=X
                     goto field_p2)
if %fieldp1%==%z6% (set z6=X
                     goto field_p2)
if %fieldp1%==%z7% (set z7=X
                     goto field_p2)
if %fieldp1%==%z8% (set z8=X
                     goto field_p2)
if %fieldp1%==%Z9% (set z9=X
                     goto field_p2)
goto field_p1

:field_p2
call "%l%:\test\Tic Tac Toe\check.cmd"
call "%l%:\test\Tic Tac Toe\check_tie.cmd"
if NOT %winner%==0 goto winner
cls
set fieldp2=0
echo Your turn %O%
echo %z1% %z2% %z3%
echo %z4% %z5% %z6%
echo %z7% %z8% %z9%

set /p fieldp2=%O% choose the field you want to set
if %fieldp2%==%z1% (set z1=O
                     goto field_p1)
if %fieldp2%==%z2% (set z2=O
                     goto field_p1)
if %fieldp2%==%z3% (set z3=O
                     goto field_p1)
if %fieldp2%==%z4% (set z4=O
                     goto field_p1)
if %fieldp2%==%z5% (set z5=O
                     goto field_p1)
if %fieldp2%==%z6% (set z6=O
                     goto field_p1)
if %fieldp2%==%z7% (set z7=O
                     goto field_p1)
if %fieldp2%==%z8% (set z8=O
                     goto field_p1)
if %fieldp2%==%Z9% (set z9=O
                     goto field_p1)
goto field_p2

:winner
if %winner%==X goto winner_x
if %winner%==O goto winner_o
echo Sorry an error ocurred
pause >nul
goto set_value0

:winner_x
cls
echo Congrats %X% you won!
echo %z1% %z2% %z3%
echo %z4% %z5% %z6%
echo %z7% %z8% %z9%
pause >nul
goto savegame

:winner_o
cls
echo Congrats %O% you won!
echo %z1% %z2% %z3%
echo %z4% %z5% %z6%
echo %z7% %z8% %z9%
pause >nul
goto savegame

:savegame
set /p s=Do you want to save the result?
if %s%==J goto save
if %s%==j goto save
if %s%==N goto main_menu
if %s%==n goto main_menu
goto savegame

:save
(
echo %X%[X] vs. %O%[O]
echo %z1% %z2% %z3%
echo %z4% %z5% %z6%
echo %z7% %z8% %z9%
) > "%l%:\test\Tic Tac Toe\saves\%X%_vs_%O%.txt"
cls
echo Your game result has been saved!
pause >nul
goto set_value0

:command
set /p c=
%c%
goto command

:end

---------------------------------------------------------
Inhalt der check_tie.cmd
@echo off
if NOT %z1%==1 (
    if NOT %z2%==2 (
        if NOT %z3%==3 (
            if NOT %z4%==4 (
                if NOT %z5%==5(
                    if NOT %z6%==6 (
                        if NOT %z7%==7 (
                            if NOT %z8%==8 (
                                if NOT %z9%==9 (
                                set tie=1
                                )
                            )
                        )
                    )
                )
            )
        )
    )
)

---------------------------------------------------
Inhalt der check_winner.cmd
@echo off
set /a winner=0
if %z1%==%z2% (
    if %z2%==%z3% set winner=%z1%
)
if %z4%==%z5% (
    if %z5%==%z6% set winner=%z4%
)
if %z7%==%z8% (
    if %z8%==%z9% set winner=%z7%
)
if %z1%==%z4% (
    if %z4%==%z7% set winner=%z1%
)
if %z2%==%z5% (
    if %z5%==%z8% set winner=%z2%
)
if %z3%==%z6% (
    if %z6%==%z9% set winner=%z3%
)
if %z3%==%z5% (
    if %z5%==%z7% set winner=%z3%
)
if %z1%==%z5% (
    if %z5%==%z9% set winner=%z1%
)

-----------------------------------------
Inhalt der command.cmd (optional)
@echo off
:start
set /p jn=
%jn%
goto start