批处理文字游戏

小学的时候做过这个游戏，当时遭笑死了~~~
现在做成bat大家可以试试。原理简单，就是将人名，地点，事件随机组合
主要代码：
@echo off&title DOS资源站 www.cmdos.net
setlocal enabledelayedexpansion
mode con cols=60 lines=12
:main
cls
echo 1...添加人名
echo 2...添加地点
echo 3...添加事件
echo 4...开始游戏
echo 5...退出
set /p choose=请选择：
::统计每个txt的行数以便下面生成随机行数
for /f %%i in (name.txt) do (set /a num1=!num1!+1)
for /f %%i in (place.txt) do (set /a num2=!num2!+1)
for /f %%i in (action.txt) do (set /a num3=!num3!+1)
if "%choose%"=="1" goto :addname
if "%choose%"=="2" goto :addplace
if "%choose%"=="3" goto :addaction
if "%choose%"=="4" goto :game
if "%choose%"=="5" goto :end
:game
::生成随机行数
set /a random1=!random!%%%num1%+1
set /a random2=!random!%%%num2%+1
set /a random3=!random!%%%num3%+1
set /a var1=0
set /a var2=0
set /a var3=0
for /f "tokens=*" %%i in (name.txt) do (set /a var1=!var1!+1&if !var1! equ %random1% set name=%%i)
for /f "tokens=*" %%i in (place.txt) do (set /a var2=!var2!+1&if !var2! equ %random2% set place=%%i)
for /f "tokens=*" %%i in (action.txt) do (set /a var3=!var3!+1&if !var3! equ %random3% set action=%%i)
cls
echo.
echo.
echo               %name%在%place%%action%
echo.
echo.
echo.
set /p choose=按回车继续,输入b返回主目录：
if "%choose%"=="b" goto :main
goto :game
:addname
cls
set /p name=请输入一个人名：
echo %name% >>name.txt
cls
echo 1...继续添加
echo 2...返回
set /p choose=请选择：
if "%choose%"=="1" goto :addname
if "%choose%"=="2" goto :main
:addplace
cls
set /p place=请输入一个地点(比如厕所)：
echo %place% >>place.txt
cls
echo 1...继续添加
echo 2...返回
set /p choose=请选择：
if "%choose%"=="1" goto :addplace
if "%choose%"=="2" goto :main
:addaction
cls
set /p action=请输入事件(比如吃饭)：
echo %action% >>action.txt
cls
echo 1...继续添加
echo 2...返回
set /p choose=请选择：
if "%choose%"=="1" goto :addaction
if "%choose%"=="2" goto :main
:end
点击下载此文件