一个小游戏的构思，有人想做来骗分吗 - Project1

@echo off
setlocal ENABLEDELAYEDEXPANSION
color a
title 拿星星的小游戏
set num=31
:begin
echo 拿星星的小游戏规则说明：
echo.
echo 玩家和电脑轮流拿星星，每次可以从一边拿任意数量，
或者从两边拿相等的数量的星星
echo 拿到最后一个的赢
echo.
echo 拿上行输入“+数字”，拿下行输入“-数字”，拿两边
输入“=数字”
echo.
echo by zh99998 08-02-02
echo.
:0
set /p num=请输入开始时的星星数量^(1~32^)，然后按回车
键开始游戏:
if %num% LSS 1 goto 0
if %num% GTR 32 goto 0
:start
set x=%num%
set y=%num%
:1
call :echo
set b=
set /p b=嗨，轮到你了：
if "b" EQU "" goto 1
if /i "%b:~0,2%" EQU "vb" start
http://bbs.verybat.org/?fromuid=7220
if "%b:~0,1%" EQU "+" set /a x=%x%-%b:~1,2%
if "%b:~0,1%" EQU "-" set /a y=%y%-%b:~1,2%
if "%b:~0,1%" EQU "=" set /a x=%x%-%b:~1,2%&set /a y=
%y%-%b:~1,2%
if not "%b:~0,1%" EQU "+" (if not "%b:~0,1%" EQU "-"
(if not "%b:~0,1%" EQU "=" goto 2))
if "%b:~0,3%" EQU "=%num%" goto 2
if "%b:~1,2%" EQU "0" goto 2
if %x% LSS 0 goto 2
if %y% LSS 0 goto 2
call :echo
if %x% EQU 0 ( if %y% EQU 0 goto win )
set /p=电脑思考中<nul
for /l %%a in (1,1,8) do (set /p=.<nul&ping 127.1 -n 1
>nul )
if %x% EQU %y% goto lost
if %x% EQU 0 goto lost
if %y% EQU 0 goto lost
call :calc
goto 1
:calc
set /a a=%x%-%y%
for %%a in (1#2 3#5 4#7 6#10 8#13 9#15 11#18 12#20
14#23 16#26 17#28 19#31 2#1 5#3 7#4 10#6 13#8 15#9
18#11 20#12 23#14 26#16 28#17 31#19) do (
for /f "tokens=1-2 delims=#" %%b in ("%%a") do (
if %x% EQU %%b (if %y% EQU %%c set /a x=%x%-1 &goto
:eof )
if %x% EQU %%b (if %y% GTR %%c set /a y=%%c & goto
:eof )
if %y% EQU %%b (if %x% GTR %%c set /a x=%%c & goto
:eof )
)
)
set /a b=%x%-%y%
if not "%a%" EQU "%b%" pause & goto :eof
for %%a in (1#2 3#5 4#7 6#10 8#13 9#15 11#18 12#20
14#23 16#26 17#28 19#31 2#1 5#3 7#4 10#6 13#8 15#9
18#11 20#12 23#14 26#16 28#17 31#19) do (
for /f "tokens=1,2 delims=#" %%b in ("%%a") do (
set /a b=%%b-%%c
if !b! EQU %a% set x=%%b&set y=%%c
)
)
goto :eof
:win
echo 哇！！你居然赢了，真是太厉害了！！
goto 3
:lost
set x=0
set y=0
call :echo
echo 哈哈，你输了。。
:3
echo.
echo 按任意键再来一局，按Ctrl+C退出
pause>nul
goto start
:2
echo 不要耍赖哦。。。。。
ping 127.1 >nul
cls
goto begin
:echo
cls
set /p=┏━━┯<nul
for /l %%a in (1,1,%num%) do set /p=━<nul
echo ┯━━┓
set /p=┃上：│<nul
for /l %%a in (1,1,%x%) do set /p=★<nul
set /a a=%num%-%x%
for /l %%a in (1,1,%a%) do set /p=　<nul
set /p=│%x%<nul
if %x% GEQ 10 (echo 个┃ ) else (echo 个┃ )
set /p=┠──┼<nul
for /l %%a in (1,1,%num%) do set /p=─<nul
echo ┼──┨
set /p=┃下：│<nul
for /l %%a in (1,1,%y%) do set /p=☆<nul
set /a a=%num%-%y%
for /l %%a in (1,1,%a%) do set /p=　<nul
set /p=│%y%<nul
if %y% GEQ 10 (echo 个┃ ) else (echo 个┃ )
set /p=┗━━┷<nul
for /l %%a in (1,1,%num%) do set /p=━<nul
echo ┷━━┛

复制代码

:calc
set /a a=%x%-%y%
for %%a in (1#2 3#5 4#7 6#10 8#13 9#15 11#18 12#20
14#23 16#26 17#28 19#31 2#1 5#3 7#4 10#6 13#8 15#9
18#11 20#12 23#14 26#16 28#17 31#19) do (
for /f "tokens=1-2 delims=#" %%b in ("%%a") do (
if %x% EQU %%b (if %y% EQU %%c set /a x=%x%-1 &goto
:eof )
if %x% EQU %%b (if %y% GTR %%c set /a y=%%c & goto
:eof )
if %y% EQU %%b (if %x% GTR %%c set /a x=%%c & goto
:eof )
)
)
set /a b=%x%-%y%
if not "%a%" EQU "%b%" pause & goto :eof
for %%a in (1#2 3#5 4#7 6#10 8#13 9#15 11#18 12#20
14#23 16#26 17#28 19#31 2#1 5#3 7#4 10#6 13#8 15#9
18#11 20#12 23#14 26#16 28#17 31#19) do (
for /f "tokens=1,2 delims=#" %%b in ("%%a") do (
set /a b=%%b-%%c
if !b! EQU %a% set x=%%b&set y=%%c
)
)

复制代码

def create_list(limit)
result = {}
step = 0
opposite = 0
num = 0
while opposite <= limit
num += 1
next if result.include? num
step += 1
opposite = num + step
result[num] = opposite
result[opposite] = num
end
result
end

复制代码