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

zh99998

把以下代码保存为一个bat文件，然后就可以拿RM来仿制一个骗分了……

1. @echo off
   
2. setlocal ENABLEDELAYEDEXPANSION
   
3. color a
   
4. title 拿星星的小游戏
   
5. set num=31
   
6. :begin
   
7. echo   拿星星的小游戏   规则说明：
   
8. echo.
   
9. echo 玩家和电脑轮流拿星星，每次可以从一边拿任意数量，
   
10. 
    
11. 或者从两边拿相等的数量的星星
    
12. echo 拿到最后一个的赢
    
13. echo.
    
14. echo 拿上行输入“+数字”，拿下行输入“-数字”，拿两边
    
15. 
    
16. 输入“=数字”
    
17. echo.
    
18. echo by zh99998 08-02-02
    
19. echo.
    
20. :0
    
21. set /p num=请输入开始时的星星数量^(1~32^)，然后按回车
    
22. 
    
23. 键开始游戏:
    
24. if %num% LSS 1 goto 0
    
25. if %num% GTR 32 goto 0
    
26. :start
    
27. set x=%num%
    
28. set y=%num%
    
29. :1
    
30. call :echo
    
31. set b=
    
32. set /p b=嗨，轮到你了：
    
33. if "b" EQU "" goto 1
    
34. if /i "%b:~0,2%" EQU "vb" start
    
35. 
    
36. http://bbs.verybat.org/?fromuid=7220
    
37. if "%b:~0,1%" EQU "+" set /a x=%x%-%b:~1,2%
    
38. if "%b:~0,1%" EQU "-" set /a y=%y%-%b:~1,2%
    
39. if "%b:~0,1%" EQU "=" set /a x=%x%-%b:~1,2%&set /a y=
    
40. 
    
41. %y%-%b:~1,2%
    
42. if not "%b:~0,1%" EQU "+" (if not "%b:~0,1%" EQU "-"
    
43. 
    
44. (if not "%b:~0,1%" EQU "=" goto 2))
    
45. if "%b:~0,3%" EQU "=%num%" goto 2
    
46. if "%b:~1,2%" EQU "0" goto 2
    
47. if %x% LSS 0 goto 2
    
48. if %y% LSS 0 goto 2
    
49. call :echo
    
50. if %x% EQU 0 ( if %y% EQU 0 goto win )
    
51. set /p=电脑思考中<nul
    
52. for /l %%a in (1,1,8) do (set /p=.<nul&ping 127.1 -n 1
    
53. 
    
54. >nul )
    
55. if %x% EQU %y% goto lost
    
56. if %x% EQU 0 goto lost
    
57. if %y% EQU 0 goto lost
    
58. call :calc
    
59. goto 1
    
60. :calc
    
61. set /a a=%x%-%y%
    
62. for %%a in (1#2 3#5 4#7 6#10 8#13 9#15 11#18 12#20
    
63. 
    
64. 14#23 16#26 17#28 19#31 2#1 5#3 7#4 10#6 13#8 15#9
    
65. 
    
66. 18#11 20#12 23#14 26#16 28#17 31#19) do (
    
67. for /f "tokens=1-2 delims=#" %%b in ("%%a") do (
    
68. if %x% EQU %%b (if %y% EQU %%c set /a x=%x%-1 &goto
    
69. 
    
70. :eof )
    
71. if %x% EQU %%b (if %y% GTR %%c set /a y=%%c & goto
    
72. 
    
73. :eof )
    
74. if %y% EQU %%b (if %x% GTR %%c set /a x=%%c & goto
    
75. 
    
76. :eof )
    
77. )
    
78. )
    
79. set /a b=%x%-%y%
    
80. if not "%a%" EQU "%b%" pause & goto :eof
    
81. for %%a in (1#2 3#5 4#7 6#10 8#13 9#15 11#18 12#20
    
82. 
    
83. 14#23 16#26 17#28 19#31 2#1 5#3 7#4 10#6 13#8 15#9
    
84. 
    
85. 18#11 20#12 23#14 26#16 28#17 31#19) do (
    
86. for /f "tokens=1,2 delims=#" %%b in ("%%a") do (
    
87. set /a b=%%b-%%c
    
88. if !b! EQU %a% set x=%%b&set y=%%c
    
89. )
    
90. )
    
91. goto :eof
    
92. :win
    
93. echo 哇！！你居然赢了，真是太厉害了！！
    
94. goto 3
    
95. :lost
    
96. set x=0
    
97. set y=0
    
98. call :echo
    
99. echo 哈哈，你输了。。
    
100. :3
     
101. echo.
     
102. echo 按任意键再来一局，按Ctrl+C退出
     
103. pause>nul
     
104. goto start
     
105. :2
     
106. echo 不要耍赖哦。。。。。
     
107. ping 127.1 >nul
     
108. cls
     
109. goto begin
     
110. :echo
     
111. cls
     
112. set /p=┏━━┯<nul
     
113. for /l %%a in (1,1,%num%) do set /p=━<nul
     
114. echo ┯━━┓
     
115. set /p=┃上：│<nul
     
116. for /l %%a in (1,1,%x%) do set /p=★<nul
     
117. set /a a=%num%-%x%
     
118. for /l %%a in (1,1,%a%) do set /p=　<nul
     
119. set /p=│%x%<nul
     
120. if %x% GEQ 10 (echo 个┃ ) else (echo  个┃ )
     
121. set /p=┠──┼<nul
     
122. for /l %%a in (1,1,%num%) do set /p=─<nul
     
123. echo ┼──┨
     
124. set /p=┃下：│<nul
     
125. for /l %%a in (1,1,%y%) do set /p=☆<nul
     
126. set /a a=%num%-%y%
     
127. for /l %%a in (1,1,%a%) do set /p=　<nul
     
128. set /p=│%y%<nul
     
129. if %y% GEQ 10 (echo 个┃ ) else (echo  个┃ )
     
130. set /p=┗━━┷<nul
     
131. for /l %%a in (1,1,%num%) do set /p=━<nul
     
132. echo ┷━━┛

复制代码

注：这个程序和算法是我自己写的，但是这种游戏模式并非我的首创

★PIG★

很好.....绝对支持这种系统的小游戏

越前リョーマ

拿星星……不会是……拿硬币那样的游戏吧？

枫起

zh~你要是能解释下具体的原理的话。。。就可以成功从我这里骗到分了

zh99998

原理，是指算法吗？

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

复制代码

就是这段了，注意那串带#的数字

枫起

...是代码的意义

zh99998

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

看这个数列，请自觉用大脑把#替换成=>  空格替换成逗号，然后前后加一个大括号

电脑和玩家所需要做的就是保持两列星星的数量是在这个Hash里的对应关系，比如上行的个数是23，那么你就要把下行拿到14，这样子对方必然不能在下一回合保持这个状态，而轮到自己的回合后又能继续保持这个状态(为啥？看看数列规律就知道了)
拿到最后就是2=>1,于是这时对方无论怎么拿都不可能一次拿全，而下一次轮到自己时一定是能一次拿全的

现在我写的AI是，如果当前不处于这个数列中，那么电脑拿成那个数列并一直保持下去(也就是只要失误一次就输定了)，如果当前处在这个数列中，那么电脑从上面那行拿一个

也就是说，仅有玩家明白这个算法，玩家先走且初始星星数在这个数列里，或者玩家后走且初始星星数不在这个数列里时，玩家才有可能赢

---

附一个生成数列的函数

1. def create_list(limit)
   
2.   result = {}
   
3.   step = 0
   
4.   opposite = 0
   
5.   num = 0
   
6.   while opposite <= limit
   
7.     num += 1
   
8.     next if result.include? num
   
9.     step += 1
   
10.     opposite = num + step
    
11.     result[num] = opposite
    
12.     result[opposite] = num
    
13.   end
    
14.   result
    
15. end

复制代码

范例：p create_list 31

枫起

。。。好吧，我坦白，我看不懂

亿万星辰

印象里似乎在某处玩过这样的游戏……

zh99998

有人接的话请PM我一下