@echo off
CHCP 437 > nul & mode con: cols=28 lines=17 & setlocal enabledelayedexpansion & set PP1=0 & set PP2=0
:restart
color 0F
set "f1=ú" & set "f2=ú" & set "f3=ú" & set "f4=ú" & set "f5=ú" & set "f6=ú" & set "f7=ú" & set "f8=ú" & set "f9=ú" & set "tIco1=  " & set "tIco2=  " & set "turn=O" & set turns=0 & set "winner=Winner: -"
:change_player
if "%turn%"=="O" (set "tIco1=^^" & set "tIco2=  " & set "turn=X") else (set "tIco1=  " & set "tIco2=^^" & set "turn=O")
set /a turns=%turns%+1
:draw_screen
cls
echo. ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿& echo. ³ Batch TicTacToe by Luc ³& echo. ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ& echo        ÚÄÄÄÂÄÄÄÂÄÄÄ¿& echo        ³ %f1% ³ %f2% ³ %f3% ³& echo        ÃÄÄÄÅÄÄÄÅÄÄÄ´& echo        ³ %f4% ³ %f5% ³ %f6% ³& echo        ÃÄÄÄÅÄÄÄÅÄÄÄ´& echo        ³ %f7% ³ %f8% ³ %f9% ³& echo        ÀÄÄÄÁÄÄÄÁÄÄÄÙ& echo.& echo  P1: %PP1%               P2: %PP2%& echo  %tIco1%                   %tIco2%& echo.& echo       %winner%
if not "%winner%"=="Winner: -" (pause>nul & goto restart)
choice /C 123456789qr /N
if %errorlevel%==10 exit
if %errorlevel%==11 goto restart
if "!f%errorlevel%!"=="ú" (set f%errorlevel%=%turn%) else (goto draw_screen)
if "%f1%"=="X" if "%f2%"=="X" if "%f3%"=="X" goto win
if "%f4%"=="X" if "%f5%"=="X" if "%f6%"=="X" goto win
if "%f7%"=="X" if "%f8%"=="X" if "%f9%"=="X" goto win
if "%f1%"=="X" if "%f4%"=="X" if "%f7%"=="X" goto win
if "%f2%"=="X" if "%f5%"=="X" if "%f8%"=="X" goto win
if "%f3%"=="X" if "%f6%"=="X" if "%f9%"=="X" goto win
if "%f1%"=="X" if "%f5%"=="X" if "%f9%"=="X" goto win
if "%f3%"=="X" if "%f5%"=="X" if "%f7%"=="X" goto win
if "%f1%"=="O" if "%f2%"=="O" if "%f3%"=="O" goto win
if "%f4%"=="O" if "%f5%"=="O" if "%f6%"=="O" goto win
if "%f7%"=="O" if "%f8%"=="O" if "%f9%"=="O" goto win
if "%f1%"=="O" if "%f4%"=="O" if "%f7%"=="O" goto win
if "%f2%"=="O" if "%f5%"=="O" if "%f8%"=="O" goto win
if "%f3%"=="O" if "%f6%"=="O" if "%f9%"=="O" goto win
if "%f1%"=="O" if "%f5%"=="O" if "%f9%"=="O" goto win
if "%f3%"=="O" if "%f5%"=="O" if "%f7%"=="O" goto win
if %turns%==9 goto draw
goto change_player
:win
if %turn%==X (set /a PP1=%PP1%+1 & set "winner=Winner: Player1")
if %turn%==O (set /a PP2=%PP2%+1 & set "winner=Winner: Player2")
color A0 & goto draw_screen
:draw
set "winner=Winner: Draw" & color E0 & goto draw_screen