CMD Tic Tac Toe w/ A.I.

@echo off












    ::Code by SKIPP3R::
    ::DONT MAKE THIS CODE URS!::
    ::(but if u do send me the improvments ;D::
    ::[email protected]::
    ::Have fun::



















cls
title Tic Tac Todesfalle

:1random
set /a gab=%random% %%7
if %gab%==1 goto 1schwarz
if %gab%==2 goto 1gelb
if %gab%==3 goto 1magenta
if %gab%==4 goto 1random
if %gab%==5 goto 1weiss
if %gab%==6 goto 1randon

:1randon
cls
color %kp%3
set /p gaa=Spieler 1 waehlen sie ihre Farbe[rot/blau/zyan/gruen]:
if /i %gaa%==rot goto 1rot
if /i %gaa%==blau goto 1blau
if /i %gaa%==zyan goto 1zyan
if /i %gaa%==gruen goto 1gruen
goto 1randon

:main
color %kp%%ka%
set z1=1
set z2=2
set z3=3
set z4=4
set z5=5
set z6=6
set z7=7
set z8=8
set z9=9
set zreset=reset
set zresetall=resetall
set whois=2
:spieler1

cls
echo.
echo programmiert von : mir!
echo.
echo.
echo spieler 1 setzt 0
echo.
echo.
echo              %z1%__%z2%__%z3%
echo              .......
echo              %z4%__%z5%__%z6%
echo              .......
echo              %z7%__%z8%__%z9%
echo.

set /p zahl=choose a number
if %zahl%==1 goto 1
if %zahl%==2 goto 2
if %zahl%==3 goto 3
if %zahl%==4 goto 4
if %zahl%==5 goto 5
if %zahl%==6 goto 6
if %zahl%==7 goto 7
if %zahl%==8 goto 8
if %zahl%==9 goto 9
if %zahl%==reset goto main
if %zahl%==resetall goto 1random
goto spieler1

:1
if %z1%==x goto Spieler1
if %z1%==0 goto spieler1
set z1=0
set whois=1
goto check


:2
if %z2%==x goto Spieler1
if %z2%==0 goto spieler1
set z2=0
set whois=1
goto check


:3
if %z3%==x goto Spieler1
if %z3%==0 goto spieler1
set z3=0
set whois=1
goto check


:4
if %z4%==x goto Spieler1
if %z4%==0 goto spieler1
set z4=0
set whois=1
goto check


:5
if %z5%==x goto Spieler1
if %z5%==0 goto spieler1
set z5=0
set whois=1
goto check


:6
if %z6%==x goto Spieler1
if %z6%==0 goto spieler1
set whois=1
set z6=0
goto check


:7
if %z7%==x goto Spieler1
if %z7%==0 goto spieler1

set whois=1
set z7=0
goto check


:8
if %z8%==x goto Spieler1
if %z8%==0 goto spieler1
set z8=0
set whois=1
goto check


:9
if %z9%==x goto Spieler1
if %z9%==0 goto spieler1
set z9=0
set whois=1
goto check







::         say hello to BOB!
:spieler2


::         z1 goes invulnerable
if %z2%==0 if %z3%==0 if %z1%==1 (
set z1=x
set whois=0
goto check
)

if %z5%==0 if %z9%==0 if %z1%==1 (
set z1=x
set whois=0
goto check
)

if %z4%==0 if %z7%==0 if %z1%==1 (
set z1=x
set whois=0
goto check
)
::         z2 goes invulnerable
if %z1%==0 if %z3%==0 if %z2%==2 (
set z2=x
set whois=0
goto check
)

if %z5%==0 if %z8%==0 if %z2%==2 (
set z2=x
set whois=0
goto check
)
::         z3 goes invulnerable
if %z6%==0 if %z9%==0 if %z3%==3 (
set z3=x
set whois=0
goto check
)

if %z5%==0 if %z7%==0 if %z3%==3 (
set z3=x
set whois=0
goto check
)

if %z2%==0 if %z1%==0 if %z3%==3 (
set z3=x
set whois=0
goto check
)
::         z4 goes invulnerable
if %z1%==0 if %z7%==0 if %z4%==4 (
set z4=x
set whois=0
goto check
)

if %z5%==0 if %z6%==0 if %z4%==4 (
set z4=x
set whois=0
goto check
)

::     z5 goes invulnerable
if %z2%==0 if %z8%==0 if %z5%==5 (
set z5=x
set whois=0
goto check
)

if %z4%==0 if %z6%==0 if %z5%==5 (
set z5=x
set whois=0
goto check
)

if %z1%==0 if %z9%==0 if %z5%==5 (
set z5=x
set whois=0
goto check
)

if %z3%==0 if %z7%==0 if %z5%==5 (
set z5=x
set whois=0
goto check
)

::         z6 goes invulnerable

if %z3%==0 if %z9%==0 if %z6%==6 (
set z6=x
set whois=0
goto check
)

if %z5%==0 if %z4%==0 if %z6%==6 (
set z6=x
set whois=0
goto check
)

::         z7 goes invulnerable

if %z1%==0 if %z4%==0 if %z7%==7 (
set z7=x
set whois=0
goto check
)

if %z5%==0 if %z3%==0 if %z7%==7 (
set z7=x
set whois=0
goto check
)

if %z8%==0 if %z9%==0 if %z7%==7 (
set z7=x
set whois=0
goto check
)

::         z8 goes invulnerable

if %z2%==0 if %z5%==0 if %z8%==8 (
set z1=x
set whois=0
goto check
)

if %z7%==0 if %z9%==0 if %z8%==8 (
set z8=x
set whois=0
goto check
)

::      z9 goes invulnerable
if %z1%==0 if %z5%==0 if %z9%==9 (
set z9=x
set whois=0
goto check
)

if %z3%==0 if %z6%==0 if %z9%==9 (
set z9=x
set whois=0
goto check
)

if %z7%==0 if %z8%==0 if %z9%==9 (
set z9=x
set whois=0
goto check
)
::         BOB is finished after the next code segment :(
:totalynotrdm
set /a nr=%random% %%10
if %z1% neq 1 if %z2% neq 2 if %z3% neq 3 if %z4% neq 4 if %z5% neq 5 if %z6% neq 6 if %z7% neq 7 if %z8% neq 8 if %z9% neq 9 (
goto gs0
)
if %nr%==1 if %z1%==1 (
set z1=x
set whois=0
goto check
)
if %nr%==2 if %z2%==2 (
set z2=x
set whois=0
goto check
)
if %nr%==3 if %z3%==3 (
set z3=x
set whois=0
goto check
)
if %nr%==4 if %z4%==4 (
set z4=x
set whois=0
goto check
)
if %nr%==5 if %z5%==5 (
set z5=x
set whois=0
goto check
)
if %nr%==6 if %z6%==6 (
set z6=x
set whois=0
goto check
)
if %nr%==7 if %z7%==7 (
set z7=x
set whois=0
goto check
)
if %nr%==8 if %z8%==8 (
set z8=x
set whois=0
goto check
)
if %nr%==9 if %z9%==9 (
set z9=x
set whois=0
goto check
)
goto totalynotrdm

:check

if %z1%==0 if %z2%==0 if %z3%==0 goto gs1
if %z4%==0 if %z5%==0 if %z6%==0 goto gs1
if %z7%==0 if %z8%==0 if %z9%==0 goto gs1
if %z1%==0 if %z4%==0 if %z7%==0 goto gs1
if %z2%==0 if %z5%==0 if %z8%==0 goto gs1
if %z3%==0 if %z6%==0 if %z9%==0 goto gs1
if %z7%==0 if %z5%==0 if %z3%==0 goto gs1
if %z1%==0 if %z5%==0 if %z9%==0 goto gs1

if %z1%==x if %z2%==x if %z3%==x goto gs2
if %z4%==x if %z5%==x if %z6%==x goto gs2
if %z7%==x if %z8%==x if %z9%==x goto gs2
if %z1%==x if %z4%==x if %z7%==x goto gs2
if %z2%==x if %z5%==x if %z8%==x goto gs2
if %z3%==x if %z6%==x if %z9%==x goto gs2
if %z7%==x if %z5%==x if %z3%==x goto gs2
if %z1%==x if %z5%==x if %z9%==x goto gs2


if %whois%==1 goto spieler2
if %whois%==0 goto spieler1







:gs1
echo.
echo spieler 1 hat gewonnen!
echo.
set papapipipopo=0
:gs1.1
set /a papapipipopo=%papapipipopo%+1
if %papapipipopo%==100 goto gs1.2
goto gs1.1
:gs1.2
cls
set /p game=Nochmal? [J/N]:
if /i %game%==J goto main
exit

:gs2
echo.
echo spieler 2 hat gewonnen!
echo.
pause
cls
set /p game=Nochmal? [J/N]:
if /i %game%==J goto main
exit

:gs0
echo .
echo Niemand hat gewonnen :(
echo.
pause
cls
set /p game=Nochmal? [J/N]:
if /i %game%==J goto main
exit

:1schwarz
set kp=0
goto 1randon

:1gelb
set kp=e
goto 1randon


:1magenta
set kp=d
goto 1randon

:1weiss
set kp=f
goto 1randon

:1gruen
set ka=a
goto main
:1zyan
set ka=b
goto main
:1blau
set ka=9
goto main
:1rot
set ka=c
goto main