【批处理】关灯益智游戏

Tao0Lu

批处理关灯益智游戏重制版

1. @echo off
   
2. title 关灯
   
3. setlocal enabledelayedexpansion
   
4. set x=5
   
5. set y=4
   
6. set c1=█
   
7. set c2=□
   
8. set c3=□
   
9. set c4=□
   
10. set n=0
    
11. :main
    
12. set "v0=          "
    
13. for /l %%k in (1,1,%x%) do (
    
14. set v0=!v0!  %%k)
    
15. 
    
16. for /l %%i in (1,1,%y%) do (
    
17. for /l %%o in (1,1,%x%) do (
    
18. set a%%o%%i=□))
    
19. 
    
20. set /a j=x*y
    
21. set /a n1=%random% %% %j%
    
22. set /a num=%n1%+2
    
23. :rd
    
24. if %n%==%num% (
    
25. set /a n=0
    
26. goto ec
    
27. ) else (
    
28. set /a n+=1
    
29. set /a rx=!random! %% !x!
    
30. set /a ry=!random! %% !y!
    
31. set /a rx=!rx!+1
    
32. set /a ry=!ry!+1
    
33. call set a%rx%%ry%=█
    
34. goto rd)
    
35. 
    
36. :ec
    
37. cls
    
38. for /l %%t in (1,1,%y%) do (
    
39. for /l %%e in (1,1,%x%) do (
    
40. if not !a%%e%%t!==□ (goto nx)))
    
41. goto win
    
42. :nx
    
43. echo 关灯游戏规则:将所有█变成□
    
44. for /l %%p in (1,1,%y%) do (
    
45. set v%%p=     %%p       
    
46. for /l %%u in (1,1,%x%) do (
    
47. set "v%%p=!v%%p! !a%%u%%p!
    
48. ))
    
49. for /l %%r in (0,1,%y%) do (
    
50. echo !v%%r!)
    
51. echo 请输入坐标(都为0进入设置)
    
52. set /p gx=列数:
    
53. set /p gy=行数:
    
54. if %gx%==0 if %gy%==0 (goto st)
    
55. set /a gxc=gx+0
    
56. set /a gyc=gy+0
    
57. if %gx% lss 1 (goto error)
    
58. if %gx% gtr %x% (goto error)
    
59. if %gy% lss 1 (goto error)
    
60. if %gy% gtr %y% (goto error)
    
61. if %gx% neq %gxc% (goto error)
    
62. if %gy% neq %gyc% (
    
63. :error
    
64. echo 错误:输入数字错误
    
65. pause
    
66. cls
    
67. goto nx
    
68. )
    
69. cls
    
70. goto cl
    
71. 
    
72. :cl
    
73. if !a%gx%%gy%!==□ (call set a%gx%%gy%=█) else (call set a%gx%%gy%=□)
    
74. set /a cx1=gx+1,cx0=gx-1,cy1=gy+1,cy0=gy-1
    
75. if %gx%==1 (
    
76. if !a%cx1%%gy%!==□ (call set a%cx1%%gy%=█) else (call set a%cx1%%gy%=□)
    
77. )
    
78. if %gx%==%x% (
    
79. if !a%cx0%%gy%!==□ (call set a%cx0%%gy%=█) else (call set a%cx0%%gy%=□)
    
80. )
    
81. if %gy%==1 (
    
82. if !a%gx%%cy1%!==□ (call set a%gx%%cy1%=█) else (call set a%gx%%cy1%=□)
    
83. )
    
84. if %gy%==%y% (
    
85. if !a%gx%%cy0%!==□ (call set a%gx%%cy0%=█) else (call set a%gx%%cy0%=□)
    
86. )
    
87. 
    
88. if not %gx%==1 if not %gx%==%x% (
    
89. if !a%cx1%%gy%!==□ (call set a%cx1%%gy%=█) else (call set a%cx1%%gy%=□)
    
90. if !a%cx0%%gy%!==□ (call set a%cx0%%gy%=█) else (call set a%cx0%%gy%=□)
    
91. )
    
92. if not %gy%==1 if not %gy%==%y% (
    
93. if !a%gx%%cy1%!==□ (call set a%gx%%cy1%=█) else (call set a%gx%%cy1%=□)
    
94. if !a%gx%%cy0%!==□ (call set a%gx%%cy0%=█) else (call set a%gx%%cy0%=□)
    
95. )
    
96. goto ec
    
97. 
    
98. :st
    
99. cls
    
100. echo.
     
101. echo.                   游戏难度:
     
102. echo.                %c1%.普通[1]
     
103. echo.                %c2%.中等[2]
     
104. echo.                %c3%.困难[3]
     
105. echo.                %c4%.自定义[4]
     
106. echo.                ...返回[5]
     
107. echo.
     
108. set /p gs=请输入数字:
     
109. set /a gsc=gs+0
     
110. if %gs% lss 1 (goto error2)
     
111. if %gs% gtr 5 (goto error2)
     
112. if %gs% neq %gsc% (
     
113. :error2
     
114. echo 错误:输入数字错误
     
115. pause
     
116. goto st
     
117. )
     
118. if %gs%==5 (
     
119. goto main
     
120. )
     
121. if %gs%==1 if %c1%==□ (
     
122. set c1=█
     
123. set c2=□
     
124. set c3=□
     
125. set c4=□
     
126. set x=5
     
127. set y=4
     
128. goto st
     
129. )
     
130. if %gs%==2 if %c2%==□ (
     
131. set c2=█
     
132. set c1=□
     
133. set c3=□
     
134. set c4=□
     
135. set x=7
     
136. set y=6
     
137. goto st
     
138. )
     
139. if %gs%==3 if %c3%==□ (
     
140. set c3=█
     
141. set c1=□
     
142. set c2=□
     
143. set c4=□
     
144. set x=10
     
145. set y=10
     
146. goto st
     
147. )
     
148. if %gs%==4 (
     
149. set c4=█
     
150. set c1=□
     
151. set c2=□
     
152. set c3=□
     
153. echo 请输入自定义行列数
     
154. set /p x=列数:
     
155. set /p y=行数:
     
156. set /a xc=!x!+0
     
157. set /a yc=!y!+0
     
158. if !x! lss 3 (goto error3)
     
159. if !y! lss 3 (goto error3)
     
160. if !x! neq !xc! (goto error3)
     
161. if !y! neq !yc! (
     
162. :error3
     
163. echo 错误:输入数字错误[注:最小不能小于3]
     
164. pause
     
165. set x=5
     
166. set y=4
     
167. cls
     
168. goto st
     
169. )
     
170. goto st
     
171. )
     
172. goto st
     
173. 
     
174. :win
     
175. echo.
     
176. echo.
     
177. echo.
     
178. echo                 你赢了
     
179. pause
     
180. goto main

复制代码

...自定义列数大于10坐标数就对不准...不过也不会也没有人设置怎么高折磨自己吧。
游戏规则:点击一个方块，自身和附近方块会变成另一种颜色，当所有方块都为□时游戏胜利。
例如点击下方中间方块，如图变化。
□ □ □        □ █ □
□ █ □  --→  █ □ █
□ □ □        □ █ □
可惜bat没有自定义GUI，不然可以实现点击方块更加还原了(其实时懒得换一个语言)
游戏搬运于mc服务器hypixel的某个角落: