[bat][ネタ]バッチファイルでハイアンドロー作ってみた

セーブデータも作ってみた
暗号化などはしていない。

rand.batのソースはこちら

batch - 【バッチ】乱数を取得する【備忘録】 - Qiita

@echo off
setlocal

if exist savedata_%USERNAME%.bat (call savedata_%USERNAME%.bat) else set COIN=20

if %COIN% LEQ 0 set COIN=20

:ENTRY

echo =============================================
echo YOUR COIN %COIN%
echo =============================================
set /p BET="Choose your bet "
set /a BET="%BET%"

if %BET% LSS 0 goto LAST
if "%BET%" EQU "" goto NOBET
if %BET% EQU 0 goto NOBET
if %BET% LEQ %COIN% goto ROLL

echo ERROR
echo %BET% ^> %COIN%

goto ENTRY

:NOBET

echo BET please. Game end is Less than 0

goto ENTRY


:ROLL

call rand.bat 1 13

set /a SHOW=%ROLL%

call rand.bat 1 13

set /a TGT=%ROLL%

echo =============================================
echo YOUR COIN %COIN%   BET %BET%
echo =============================================
echo high and low
echo %SHOW% ? B
echo high 1 low 0

set /p RET="HI AND LOW ? "

if %SHOW%   ==  %TGT%   goto EQ
if %SHOW%   LSS %TGT%   goto HIGHERTGT
if %SHOW%   GTR %TGT%   goto HIGHERSHOW

:HIGHERTGT
echo HIGHERTGT
echo %SHOW% ^< %TGT%

if "%RET%" == "1" (goto WIN) else goto LOSE

goto ERROR

:HIGHERSHOW
echo HIGHERSHOW
echo %SHOW% ^< %TGT%

if "%RET%" == "0" (goto WIN) else goto LOSE

goto ERROR

:WIN
echo you win

set /a COIN="%COIN%+%BET%"

goto LAST

:LOSE
echo you lose
set /a COIN="%COIN%-%BET%"
goto LAST

:EQ
echo %SHOW% : %TGT%
echo you win
set /a COIN="%COIN%+%BET%"
goto LAST

:ERROR
echo ERROR

:LAST
set /a BET=0

if %COIN% LEQ 0 goto GAMEOVER
echo ENDGAME?
echo yes == 1
set /p ISEND="END GAME ? > "

if "%ISEND%" EQU "" goto ENTRY
if %ISEND% EQU 1 goto GAMEOVER

goto ENTRY

:GAMEOVER

echo GAMEOVER

echo GAME SAVED

echo set COIN=%COIN% >> savedata_%USERNAME%.cmd

endlocal