Board logo

标题: [特效代码] 【本人无聊时制作】自制无聊游戏：打地鼠 [打印本页]
作者: sds    时间: 2023-12-30 15:09     标题: 【本人无聊时制作】自制无聊游戏：打地鼠

这是本人的第一个成功的游戏，方法是游戏中的三个表格分别对应
┌─┐┌─┐┌─┐
│1││2││3│
│4││5││6│
│7││8││9│
└─┘└─┘└─┘
其中地鼠为实心圆圈，空地是空心圆圈，地鼠位置变量是%ds%（应该能看清东西就能过吧，也没啥用，毕竟是无聊时写出来的）比如%ds%=5时，屏幕显示
┌─┐┌─┐┌─┐
│○││○││○│
│○││●││○│
│○││○││○│
└─┘└─┘└─┘
然后输入数字1-9来打地鼠
如果你像我一样无聊，请复制粘贴下面的代码，开始游戏吧
作者: sds    时间: 2023-12-30 15:11

  1. @echo off

  2. title 打地鼠3×3^|Made by 晃就左扔【SDS】1.0

  3. color 1F

  4. set score=0

  5. set line0=┌─┐┌─┐┌─┐

  6. set line4=└─┘└─┘└─┘

  7. mode con:cols=50 lines=20

  8. for %%i in (●10%% ●●20%% ●●●30%% ●●●●40%% ●●●●●50%% ●●●●●●60%% ●●●●●●●70%% ●●●●●●●●80%% ●●●●●●●●●90%% ●●●●●●●●●●OK) do (

  9. cls

  10. echo %%i

  11. timeout /t 1 /nobreak>nul

  12. )

  13. 

  14. :kcdh

  15. cls

  16. rem 设置地鼠位置

  17. echo Loading......

  18. :xh

  19. set ds=%random%

  20. if %ds% GTR 9 goto xh

  21. if %ds% EQU 0 goto xh

  22. if %ds% == 1 goto ds1

  23. if %ds% == 2 goto ds2

  24. if %ds% == 3 goto ds3

  25. if %ds% == 4 goto ds4

  26. if %ds% == 5 goto ds5

  27. if %ds% == 6 goto ds6

  28. if %ds% == 7 goto ds7

  29. if %ds% == 8 goto ds8

  30. if %ds% == 9 goto ds9

  31. 

  32. :ds1

  33. set line1=│●││○││○│

  34. set line2=│○││○││○│

  35. set line3=│○││○││○│

  36. goto play

  37. 

  38. :ds2

  39. set line1=│○││●││○│

  40. set line2=│○││○││○│

  41. set line3=│○││○││○│

  42. goto play

  43. 

  44. :ds3

  45. set line1=│○││○││●│

  46. set line2=│○││○││○│

  47. set line3=│○││○││○│

  48. goto play

  49. 

  50. :ds4

  51. set line1=│○││○││○│

  52. set line2=│●││○││○│

  53. set line3=│○││○││○│

  54. goto play

  55. 

  56. :ds5

  57. set line1=│○││○││○│

  58. set line2=│○││●││○│

  59. set line3=│○││○││○│

  60. goto play

  61. 

  62. :ds6

  63. set line1=│○││○││○│

  64. set line2=│○││○││●│

  65. set line3=│○││○││○│

  66. goto play

  67. 

  68. :ds7

  69. set line1=│○││○││○│

  70. set line2=│○││○││○│

  71. set line3=│●││○││○│

  72. goto play

  73. 

  74. :ds8

  75. set line1=│○││○││○│

  76. set line2=│○││○││○│

  77. set line3=│○││●││○│

  78. goto play

  79. 

  80. :ds9

  81. set line1=│○││○││○│

  82. set line2=│○││○││○│

  83. set line3=│○││○││●│

  84. goto play

  85. 

  86. :play

  87. cls

  88. echo 得分：%score%

  89. echo %line0%

  90. echo %line1%

  91. echo %line2%

  92. echo %line3%

  93. echo %line4%

  94. set /p input=请输入地鼠位置（从左到右，从上到下依次为1-9）

  95. if %input% EQU %ds% goto dui

  96. if %input% NEQ %ds% goto cuo

  97. 

  98. :dui

  99. set /a score=%score%+1

  100. echo 你猜对了！地鼠就在第%ds%格！

  101. echo 2秒后继续。

  102. timeout /t 2 /nobreak>nul

  103. goto kcdh

  104. 

  105. :cuo

  106. echo 你猜错了！地鼠在第%ds%格！

  107. echo 2秒后继续。

  108. timeout /t 2 /nobreak>nul

  109. goto kcdh
复制代码
作者: sds    时间: 2023-12-30 15:15

这个程序还有许多需要修补的地方，比如生成随机数好像可以用%random%%%什么什么的方法（具体的忘了，这个bug会导致Loading时间延长）
作者: sds    时间: 2023-12-30 15:18

如果代码复制后变成了一行，请用下面的链接下载：
pan.baidu.com/s/19BFY9annLHRFnTGjYvBnmQ
作者: sds    时间: 2023-12-30 15:50

此为更新楼：
游戏版本号：1.995
设置菜单版本号：1.000000

改动内容：
1：为了迎接元旦，颜色更改为背景浅红，字体白色
2：增加设置菜单
3：增加作弊（别轻易用）
4：增加启动和退出界面
5：增加存档读档

下面代码
  1. @echo off

  2. title 打地鼠3×3^|Made by 晃就左扔【SDS】1.0

  3. color CF

  4. set score=0

  5. set line0=┌─┐┌─┐┌─┐

  6. set line4=└─┘└─┘└─┘

  7. mode con:cols=50 lines=20

  8. 

  9. rem 启动界面

  10. echo.

  11. echo.

  12. echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５

  13. echo 　　打　地　鼠　元　旦　版

  14. echo 　　　正在启动中……

  15. echo.

  16. echo ┌───┐

  17. for %%i in (1 1 100) do (

  18. set /p=●<nul

  19. timeout /t 1 /nobreak>nul

  20. )

  21. echo.

  22. echo └───┘

  23. timeout /t 2 /nobreak>nul

  24. :kcdh

  25. cls

  26. rem 设置地鼠位置

  27. echo Loading......

  28. :xh

  29. set ds=%random%

  30. if %ds% GTR 9 goto xh

  31. if %ds% EQU 0 goto xh

  32. if %ds% == 1 goto ds1

  33. if %ds% == 2 goto ds2

  34. if %ds% == 3 goto ds3

  35. if %ds% == 4 goto ds4

  36. if %ds% == 5 goto ds5

  37. if %ds% == 6 goto ds6

  38. if %ds% == 7 goto ds7

  39. if %ds% == 8 goto ds8

  40. if %ds% == 9 goto ds9

  41. 

  42. :ds1

  43. set line1=│●││○││○│

  44. set line2=│○││○││○│

  45. set line3=│○││○││○│

  46. goto play

  47. 

  48. :ds2

  49. set line1=│○││●││○│

  50. set line2=│○││○││○│

  51. set line3=│○││○││○│

  52. goto play

  53. 

  54. :ds3

  55. set line1=│○││○││●│

  56. set line2=│○││○││○│

  57. set line3=│○││○││○│

  58. goto play

  59. 

  60. :ds4

  61. set line1=│○││○││○│

  62. set line2=│●││○││○│

  63. set line3=│○││○││○│

  64. goto play

  65. 

  66. :ds5

  67. set line1=│○││○││○│

  68. set line2=│○││●││○│

  69. set line3=│○││○││○│

  70. goto play

  71. 

  72. :ds6

  73. set line1=│○││○││○│

  74. set line2=│○││○││●│

  75. set line3=│○││○││○│

  76. goto play

  77. 

  78. :ds7

  79. set line1=│○││○││○│

  80. set line2=│○││○││○│

  81. set line3=│●││○││○│

  82. goto play

  83. 

  84. :ds8

  85. set line1=│○││○││○│

  86. set line2=│○││○││○│

  87. set line3=│○││●││○│

  88. goto play

  89. 

  90. :ds9

  91. set line1=│○││○││○│

  92. set line2=│○││○││○│

  93. set line3=│○││○││●│

  94. goto play

  95. 

  96. :play

  97. cls

  98. echo 得分：%score% 

  99. echo 【0】菜单

  100. echo %line0%

  101. echo %line1%

  102. echo %line2%

  103. echo %line3%

  104. echo %line4%

  105. set /p input=请输入地鼠位置（从左到右，从上到下依次为1-9）

  106. if %input% EQU 0 goto menu

  107. if %input% EQU %ds% goto dui

  108. if %input% NEQ %ds% goto cuo

  109. 

  110. :menu

  111. cls

  112. echo 操作界面（V1.000000）

  113. echo 【1】存档 【2】读档 【3】退出【4】作弊 【5】返回

  114. set /p input=请输入菜单编号：

  115. if %input% == 1 goto save

  116. if %input% == 2 goto read

  117. if %input% == 3 goto exit

  118. if %input% == 4 goto zb

  119. if %input% == 5 goto play

  120. goto menu

  121. :dui

  122. set /a score=%score%+1

  123. echo 你猜对了！地鼠就在第%ds%格！

  124. echo 2秒后继续。

  125. timeout /t 2 /nobreak>nul

  126. goto kcdh

  127. 

  128. :cuo

  129. echo 你猜错了！地鼠在第%ds%格！

  130. echo 2秒后继续。

  131. timeout /t 2 /nobreak>nul

  132. goto kcdh

  133. 

  134. :save

  135. set /p name=请输入存档名：

  136. echo %score% >>%name%.save

  137. echo 存档成功！2秒后返回

  138. timeout /t 2 /nobreak>nul

  139. goto play

  140. 

  141. :read

  142. set /p name=请输入存档名（不用加后缀名）：

  143. set /p score=<%name%.save

  144. echo 读档成功！2秒后返回

  145. timeout /t 2 /nobreak>nul

  146. goto play

  147. 

  148. :zb

  149. set /p score=请输入分数：

  150. goto play

  151. 

  152. :exit

  153. cls

  154. echo.

  155. echo.

  156. echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５

  157. echo 　　打　地　鼠　元　旦　版

  158. echo 　　　正在退出中……

  159. echo.

  160. timeout /t 2 /nobreak>nul

  161. exit
复制代码
网盘链接：https://pan.baidu.com/s/1wSGuZHgkTA3oSvFUYI1QtA?pwd=efbk
作者: hnfeng    时间: 2023-12-31 19:09

一些字符例如制表符 在win10/11里面的显示方式已经不同于以前的系统
作者: sds    时间: 2024-1-1 17:18

回复 6# hnfeng


    有的时间会做一个不用制表符的版本
作者: sds    时间: 2024-1-1 17:23

回复 6# hnfeng


    将所有制表符改为空格，再试试能不能对齐
  1. @echo off

  2. title 打地鼠3×3^|Made by 晃就左扔【SDS】1.0

  3. color CF

  4. set score=0

  5. mode con:cols=50 lines=20

  6. 

  7. rem 启动界面

  8. echo.

  9. echo.

  10. echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５

  11. echo 　　打　地　鼠　元　旦　版

  12. echo 　　　正在启动中……

  13. echo.

  14. echo ┌───┐

  15. for %%i in (1 1 100) do (

  16. set /p=●<nul

  17. timeout /t 1 /nobreak>nul

  18. )

  19. echo.

  20. echo └───┘

  21. timeout /t 2 /nobreak>nul

  22. :kcdh

  23. cls

  24. rem 设置地鼠位置

  25. echo Loading......

  26. :xh

  27. set ds=%random%

  28. if %ds% GTR 9 goto xh

  29. if %ds% EQU 0 goto xh

  30. if %ds% == 1 goto ds1

  31. if %ds% == 2 goto ds2

  32. if %ds% == 3 goto ds3

  33. if %ds% == 4 goto ds4

  34. if %ds% == 5 goto ds5

  35. if %ds% == 6 goto ds6

  36. if %ds% == 7 goto ds7

  37. if %ds% == 8 goto ds8

  38. if %ds% == 9 goto ds9

  39. 

  40. :ds1

  41. set line1= ●  ○  ○ 

  42. set line2= ○  ○  ○ 

  43. set line3= ○  ○  ○ 

  44. goto play

  45. 

  46. :ds2

  47. set line1= ○  ●  ○ 

  48. set line2= ○  ○  ○ 

  49. set line3= ○  ○  ○ 

  50. goto play

  51. 

  52. :ds3

  53. set line1= ○  ○  ● 

  54. set line2= ○  ○  ○ 

  55. set line3= ○  ○  ○ 

  56. goto play

  57. 

  58. :ds4

  59. set line1= ○  ○  ○ 

  60. set line2= ●  ○  ○ 

  61. set line3= ○  ○  ○ 

  62. goto play

  63. 

  64. :ds5

  65. set line1= ○  ○  ○ 

  66. set line2= ○  ●  ○ 

  67. set line3= ○  ○  ○ 

  68. goto play

  69. 

  70. :ds6

  71. set line1= ○  ○  ○ 

  72. set line2= ○  ○  ● 

  73. set line3= ○  ○  ○ 

  74. goto play

  75. 

  76. :ds7

  77. set line1= ○  ○  ○ 

  78. set line2= ○  ○  ○ 

  79. set line3= ●  ○  ○ 

  80. goto play

  81. 

  82. :ds8

  83. set line1= ○  ○  ○ 

  84. set line2= ○  ○  ○ 

  85. set line3= ○  ●  ○ 

  86. goto play

  87. 

  88. :ds9

  89. set line1= ○  ○  ○ 

  90. set line2= ○  ○  ○ 

  91. set line3= ○  ○  ● 

  92. goto play

  93. 

  94. :play

  95. cls

  96. echo 得分：%score% 

  97. echo 【0】菜单

  98. echo %line1%

  99. echo %line2%

  100. echo %line3%

  101. set /p input=请输入地鼠位置（从左到右，从上到下依次为1-9）

  102. if %input% EQU 0 goto menu

  103. if %input% EQU %ds% goto dui

  104. if %input% NEQ %ds% goto cuo

  105. 

  106. :menu

  107. cls

  108. echo 操作界面（V1.000000）

  109. echo 【1】存档 【2】读档 【3】退出【4】作弊 【5】返回

  110. set /p input=请输入菜单编号：

  111. if %input% == 1 goto save

  112. if %input% == 2 goto read

  113. if %input% == 3 goto exit

  114. if %input% == 4 goto zb

  115. if %input% == 5 goto play

  116. goto menu

  117. :dui

  118. set /a score=%score%+1

  119. echo 你猜对了！地鼠就在第%ds%格！

  120. echo 2秒后继续。

  121. timeout /t 2 /nobreak>nul

  122. goto kcdh

  123. 

  124. :cuo

  125. echo 你猜错了！地鼠在第%ds%格！

  126. echo 2秒后继续。

  127. timeout /t 2 /nobreak>nul

  128. goto kcdh

  129. 

  130. :save

  131. set /p name=请输入存档名：

  132. echo %score% >>%name%.save

  133. echo 存档成功！2秒后返回

  134. timeout /t 2 /nobreak>nul

  135. goto play

  136. 

  137. :read

  138. set /p name=请输入存档名（不用加后缀名）：

  139. set /p score=<%name%.save

  140. echo 读档成功！2秒后返回

  141. timeout /t 2 /nobreak>nul

  142. goto play

  143. 

  144. :zb

  145. set /p score=请输入分数：

  146. goto play

  147. 

  148. :exit

  149. cls

  150. echo.

  151. echo.

  152. echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５

  153. echo 　　打　地　鼠　元　旦　版

  154. echo 　　　正在退出中……

  155. echo.

  156. timeout /t 2 /nobreak>nul

  157. exit
复制代码
网盘下载：https://pan.baidu.com/s/1Tk8XX0L3OnK61DYijlUPug?pwd=ddsx
如果遇到制表符对不齐问题，请下载这个版本
作者: hnfeng    时间: 2024-1-1 20:26

回复  hnfeng


    将所有制表符改为空格，再试试能不能对齐网盘下载：
如果遇到制表符对不齐问题，请 ...
sds 发表于 2024-1-1 17:23



    嗯……我之前研究过，其实只需要在这些特殊字符后面添加一个半角空格就可以正常显示了。为了能新（win10/11） 旧（之前的）系统都能正常显示，就需要分开处理
  1. @echo off

  2. ver | find " 10." >nul && (

  3.   echo 当前系统是win10/11

  4.   echo;

  5.   echo ┌ ─ ┬ ─ ┐ 

  6.   echo │ ab│ 12│ 

  7.   echo ├ ─ ┼ ─ ┤ 

  8.   echo │ 中│ 文│ 

  9.   echo └ ─ ┴ ─ ┘ 

  10.   echo;&pause

  11. ) || (

  12.   echo 当前系统是较旧系统

  13.   echo;

  14.   echo ┌─┬─┐

  15.   echo │ab│12│

  16.   echo ├─┼─┤

  17.   echo │中│文│

  18.   echo └─┴─┘

  19.   echo;&pause

  20. )
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2