[Batch] Pedra - Papel - Tesoura

[makergame2000]

Este é um jogo de pedra papele tesoura que fiz em Batch por diversão.

As imagens falam por si.

@echo off
::Criado por Bruno Silva
title Pedra - Papel - Tesoura
mode con lines=15 cols=30
:topo
::AI escolhe de 1 a 3
set /a ai=%RANDOM% * 3 / 32768 + 1
cls
echo --Pedra - Papel - Tesoura--
echo Esolhe um:
echo [1] Pedra
echo [2] Papel
echo [3] Tesoura
set /p humano=
if %humano%==1 (
set x=1
goto baixo
)
if %humano%==2 (
set x=2
goto baixo
)
if %humano%==3 (
set x=3
goto baixo
)
goto topo
:baixo
if %x%==1 (
if %ai%==1 (
echo Pedra vs Pedra
echo Empate
pause>nul
goto topo
)
)

if %x%==2 (
if %ai%==2 (
echo Papel vs Papel
echo Empate
pause>nul
goto topo
)
)
if %x%==3 (
if %ai%==3 (
echo Tesoura vs Tesoura
echo Empate
pause>nul
goto topo
)
)
if %x%==1 (
if %ai%==2 (
echo Pedra vs Papel
echo Perdeu
pause>nul
goto topo
)
)
if %x%==1 (
if %ai%==3 (
echo Pedra vs Tesoura
echo Ganhou
pause>nul
goto topo
)
)
if %x%==2 (
if %ai%==1 (
echo Papel vs Pedra
echo Ganhou
pause>nul
goto topo
)
)
if %x%==2 (
if %ai%==3 (
echo Papel vs Tesoura
echo Perdeu
pause>nul
goto topo
)
)
if %x%==3 (
if %ai%==1 (
echo Tesoura vs Pedra
echo Perdeu
pause>nul
goto topo
)
)
if %x%==3 (
if %ai%==2 (
echo Tesoura vs Papel
echo Ganhou!
pause>nul
goto topo
)
)

pause>nul