Tic Tac Toe - Batch Game

(ide dari Doni Syahputera)
Game Batch command prompt Tic Tac Toe sederhana.

@echo off
setlocal enabledelayedexpansion

set a,a=-
set a,b=-
set a,c=-
set b,a=-
set b,b=-
set b,c=-
set c,a=-
set c,b=-
set c,c=-

set turn=player1
:display
cls
echo   x:   a     b     c
echo.y
echo.^|
echo a      %a,a%  ^|  %b,a%  ^|  %c,a%
echo      __________________
echo b      %a,b%  ^|  %b,b%  ^|  %c,b%
echo      __________________
echo c      %a,c%  ^|  %b,c%  ^|  %c,c%
echo.
goto %turn%

:player1
set sel=X
echo Giliran P1 (%sel%)
set /p coord=Pilih (x,y): 
if "!%coord%!"=="-" (
set %coord%=%sel%
set turn=player2
goto checkwin
goto display
) else if "%coord%"=="" (
echo Harus diisi...
pause
goto %turn%
) else (
echo Kotak sudah dipilih...
pause
goto %turn%
)



:player2
set sel=O
echo Giliran P2 (%sel%)
set /p coord=Pilih (x,y): 
if "!%coord%!"=="-" (
set %coord%=%sel%
set turn=player1
goto checkwin
goto display
) else if "%coord%"=="" (
echo Harus diisi...
pause
goto %turn%
) else (
echo Kotak sudah dipilih...
pause
goto %turn%
)



:checkwin
if "%a,a%%a,b%%a,c%"=="XXX" (
set win=p1
)
if "%b,a%%b,b%%b,c%"=="XXX" (
set win=p1
)
if "%c,a%%c,b%%c,c%"=="XXX" (
set win=p1
)

if "%a,a%%b,a%%c,a%"=="XXX" (
set win=p1
)
if "%a,b%%b,b%%c,b%"=="XXX" (
set win=p1
)
if "%a,c%%b,c%%c,c%"=="XXX" (
set win=p1
)

if "%a,a%%b,b%%c,c%"=="XXX" (
set win=p1
)
if "%a,c%%b,b%%c,a%"=="XXX" (
set win=p1
)



if "%a,a%%a,b%%a,c%"=="OOO" (
set win=P2
)
if "%b,a%%b,b%%b,c%"=="OOO" (
set win=P2
)
if "%c,a%%c,b%%c,c%"=="OOO" (
set win=P2
)

if "%a,a%%b,a%%c,a%"=="OOO" (
set win=P2
)
if "%a,b%%b,b%%c,b%"=="OOO" (
set win=P2
)
if "%a,c%%b,c%%c,c%"=="OOO" (
set win=P2
)

if "%a,a%%b,b%%c,c%"=="OOO" (
set win=P2
)
if "%a,c%%b,b%%c,a%"=="OOO" (
set win=P2
)
if defined win goto fin
goto display

:fin
echo Selamat!!!
echo Pemenang: %win%
pause
exit