Rank: 1

帖子: 52
积分: 85
技术: 5
捐助: 0
注册时间: 2022-12-4

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2023-12-30 15:09 | 只看该作者

[特效代码] 【本人无聊时制作】自制无聊游戏：打地鼠

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

sds

上等兵

Rank: 1

帖子: 52
积分: 85
技术: 5
捐助: 0
注册时间: 2022-12-4

2楼

发表于 2023-12-30 15:11 | 只看该作者

@echo off
title 打地鼠3×3^|Made by 晃就左扔【SDS】1.0
color 1F
set score=0
set line0=┌─┐┌─┐┌─┐
set line4=└─┘└─┘└─┘
mode con:cols=50 lines=20
for %%i in (●10%% ●●20%% ●●●30%% ●●●●40%% ●●●●●50%% ●●●●●●60%% ●●●●●●●70%% ●●●●●●●●80%% ●●●●●●●●●90%% ●●●●●●●●●●OK) do (
cls
echo %%i
timeout /t 1 /nobreak>nul
)

:kcdh
cls
rem 设置地鼠位置
echo Loading......
:xh
set ds=%random%
if %ds% GTR 9 goto xh
if %ds% EQU 0 goto xh
if %ds% == 1 goto ds1
if %ds% == 2 goto ds2
if %ds% == 3 goto ds3
if %ds% == 4 goto ds4
if %ds% == 5 goto ds5
if %ds% == 6 goto ds6
if %ds% == 7 goto ds7
if %ds% == 8 goto ds8
if %ds% == 9 goto ds9

:ds1
set line1=│●││○││○│
set line2=│○││○││○│
set line3=│○││○││○│
goto play

:ds2
set line1=│○││●││○│
set line2=│○││○││○│
set line3=│○││○││○│
goto play

:ds3
set line1=│○││○││●│
set line2=│○││○││○│
set line3=│○││○││○│
goto play

:ds4
set line1=│○││○││○│
set line2=│●││○││○│
set line3=│○││○││○│
goto play

:ds5
set line1=│○││○││○│
set line2=│○││●││○│
set line3=│○││○││○│
goto play

:ds6
set line1=│○││○││○│
set line2=│○││○││●│
set line3=│○││○││○│
goto play

:ds7
set line1=│○││○││○│
set line2=│○││○││○│
set line3=│●││○││○│
goto play

:ds8
set line1=│○││○││○│
set line2=│○││○││○│
set line3=│○││●││○│
goto play

:ds9
set line1=│○││○││○│
set line2=│○││○││○│
set line3=│○││○││●│
goto play

:play
cls
echo 得分：%score%
echo %line0%
echo %line1%
echo %line2%
echo %line3%
echo %line4%
set /p input=请输入地鼠位置（从左到右，从上到下依次为1-9）
if %input% EQU %ds% goto dui
if %input% NEQ %ds% goto cuo

:dui
set /a score=%score%+1
echo 你猜对了！地鼠就在第%ds%格！
echo 2秒后继续。
timeout /t 2 /nobreak>nul
goto kcdh

:cuo
echo 你猜错了！地鼠在第%ds%格！
echo 2秒后继续。
timeout /t 2 /nobreak>nul
goto kcdh
复制代码

2 评分人数

523066680: 有创意，多实践。PB + 6 技术 + 1
HOPE2021: 感谢分享技术 + 1

TOP

sds

上等兵

Rank: 1

帖子: 52
积分: 85
技术: 5
捐助: 0
注册时间: 2022-12-4

3楼

发表于 2023-12-30 15:15 | 只看该作者

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

TOP

sds

上等兵

Rank: 1

帖子: 52
积分: 85
技术: 5
捐助: 0
注册时间: 2022-12-4

4楼

发表于 2023-12-30 15:18 | 只看该作者

如果代码复制后变成了一行，请用下面的链接下载：
pan.baidu.com/s/19BFY9annLHRFnTGjYvBnmQ

TOP

sds

上等兵

Rank: 1

帖子: 52
积分: 85
技术: 5
捐助: 0
注册时间: 2022-12-4

5楼

发表于 2023-12-30 15:50 | 只看该作者

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

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

下面代码

@echo off
title 打地鼠3×3^|Made by 晃就左扔【SDS】1.0
color CF
set score=0
set line0=┌─┐┌─┐┌─┐
set line4=└─┘└─┘└─┘
mode con:cols=50 lines=20

rem 启动界面
echo.
echo.
echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５
echo 　　打　地　鼠　元　旦　版
echo 　　　正在启动中……
echo.
echo ┌───┐
for %%i in (1 1 100) do (
set /p=●<nul
timeout /t 1 /nobreak>nul
)
echo.
echo └───┘
timeout /t 2 /nobreak>nul
:kcdh
cls
rem 设置地鼠位置
echo Loading......
:xh
set ds=%random%
if %ds% GTR 9 goto xh
if %ds% EQU 0 goto xh
if %ds% == 1 goto ds1
if %ds% == 2 goto ds2
if %ds% == 3 goto ds3
if %ds% == 4 goto ds4
if %ds% == 5 goto ds5
if %ds% == 6 goto ds6
if %ds% == 7 goto ds7
if %ds% == 8 goto ds8
if %ds% == 9 goto ds9

:ds1
set line1=│●││○││○│
set line2=│○││○││○│
set line3=│○││○││○│
goto play

:ds2
set line1=│○││●││○│
set line2=│○││○││○│
set line3=│○││○││○│
goto play

:ds3
set line1=│○││○││●│
set line2=│○││○││○│
set line3=│○││○││○│
goto play

:ds4
set line1=│○││○││○│
set line2=│●││○││○│
set line3=│○││○││○│
goto play

:ds5
set line1=│○││○││○│
set line2=│○││●││○│
set line3=│○││○││○│
goto play

:ds6
set line1=│○││○││○│
set line2=│○││○││●│
set line3=│○││○││○│
goto play

:ds7
set line1=│○││○││○│
set line2=│○││○││○│
set line3=│●││○││○│
goto play

:ds8
set line1=│○││○││○│
set line2=│○││○││○│
set line3=│○││●││○│
goto play

:ds9
set line1=│○││○││○│
set line2=│○││○││○│
set line3=│○││○││●│
goto play

:play
cls
echo 得分：%score% 
echo 【0】菜单
echo %line0%
echo %line1%
echo %line2%
echo %line3%
echo %line4%
set /p input=请输入地鼠位置（从左到右，从上到下依次为1-9）
if %input% EQU 0 goto menu
if %input% EQU %ds% goto dui
if %input% NEQ %ds% goto cuo

:menu
cls
echo 操作界面（V1.000000）
echo 【1】存档 【2】读档 【3】退出【4】作弊 【5】返回
set /p input=请输入菜单编号：
if %input% == 1 goto save
if %input% == 2 goto read
if %input% == 3 goto exit
if %input% == 4 goto zb
if %input% == 5 goto play
goto menu
:dui
set /a score=%score%+1
echo 你猜对了！地鼠就在第%ds%格！
echo 2秒后继续。
timeout /t 2 /nobreak>nul
goto kcdh

:cuo
echo 你猜错了！地鼠在第%ds%格！
echo 2秒后继续。
timeout /t 2 /nobreak>nul
goto kcdh

:save
set /p name=请输入存档名：
echo %score% >>%name%.save
echo 存档成功！2秒后返回
timeout /t 2 /nobreak>nul
goto play

:read
set /p name=请输入存档名（不用加后缀名）：
set /p score=<%name%.save
echo 读档成功！2秒后返回
timeout /t 2 /nobreak>nul
goto play

:zb
set /p score=请输入分数：
goto play

:exit
cls
echo.
echo.
echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５
echo 　　打　地　鼠　元　旦　版
echo 　　　正在退出中……
echo.
timeout /t 2 /nobreak>nul
exit
复制代码

网盘链接：https://pan.baidu.com/s/1wSGuZHgkTA3oSvFUYI1QtA?pwd=efbk

1 评分人数

HOPE2021: 感谢分享技术 + 1

TOP

hnfeng

二级士官

Rank: 2

帖子: 144
积分: 167
技术: 1
捐助: 0
注册时间: 2012-4-21

6楼

发表于 2023-12-31 19:09 | 只看该作者

一些字符例如制表符在win10/11里面的显示方式已经不同于以前的系统

TOP

sds

上等兵

Rank: 1

帖子: 52
积分: 85
技术: 5
捐助: 0
注册时间: 2022-12-4

7楼

发表于 2024-1-1 17:18 | 只看该作者

回复 6# hnfeng

有的时间会做一个不用制表符的版本

TOP

sds

上等兵

Rank: 1

帖子: 52
积分: 85
技术: 5
捐助: 0
注册时间: 2022-12-4

8楼

发表于 2024-1-1 17:23 | 只看该作者

回复 6# hnfeng

将所有制表符改为空格，再试试能不能对齐

@echo off
title 打地鼠3×3^|Made by 晃就左扔【SDS】1.0
color CF
set score=0
mode con:cols=50 lines=20

rem 启动界面
echo.
echo.
echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５
echo 　　打　地　鼠　元　旦　版
echo 　　　正在启动中……
echo.
echo ┌───┐
for %%i in (1 1 100) do (
set /p=●<nul
timeout /t 1 /nobreak>nul
)
echo.
echo └───┘
timeout /t 2 /nobreak>nul
:kcdh
cls
rem 设置地鼠位置
echo Loading......
:xh
set ds=%random%
if %ds% GTR 9 goto xh
if %ds% EQU 0 goto xh
if %ds% == 1 goto ds1
if %ds% == 2 goto ds2
if %ds% == 3 goto ds3
if %ds% == 4 goto ds4
if %ds% == 5 goto ds5
if %ds% == 6 goto ds6
if %ds% == 7 goto ds7
if %ds% == 8 goto ds8
if %ds% == 9 goto ds9

:ds1
set line1= ●  ○  ○ 
set line2= ○  ○  ○ 
set line3= ○  ○  ○ 
goto play

:ds2
set line1= ○  ●  ○ 
set line2= ○  ○  ○ 
set line3= ○  ○  ○ 
goto play

:ds3
set line1= ○  ○  ● 
set line2= ○  ○  ○ 
set line3= ○  ○  ○ 
goto play

:ds4
set line1= ○  ○  ○ 
set line2= ●  ○  ○ 
set line3= ○  ○  ○ 
goto play

:ds5
set line1= ○  ○  ○ 
set line2= ○  ●  ○ 
set line3= ○  ○  ○ 
goto play

:ds6
set line1= ○  ○  ○ 
set line2= ○  ○  ● 
set line3= ○  ○  ○ 
goto play

:ds7
set line1= ○  ○  ○ 
set line2= ○  ○  ○ 
set line3= ●  ○  ○ 
goto play

:ds8
set line1= ○  ○  ○ 
set line2= ○  ○  ○ 
set line3= ○  ●  ○ 
goto play

:ds9
set line1= ○  ○  ○ 
set line2= ○  ○  ○ 
set line3= ○  ○  ● 
goto play

:play
cls
echo 得分：%score% 
echo 【0】菜单
echo %line1%
echo %line2%
echo %line3%
set /p input=请输入地鼠位置（从左到右，从上到下依次为1-9）
if %input% EQU 0 goto menu
if %input% EQU %ds% goto dui
if %input% NEQ %ds% goto cuo

:menu
cls
echo 操作界面（V1.000000）
echo 【1】存档 【2】读档 【3】退出【4】作弊 【5】返回
set /p input=请输入菜单编号：
if %input% == 1 goto save
if %input% == 2 goto read
if %input% == 3 goto exit
if %input% == 4 goto zb
if %input% == 5 goto play
goto menu
:dui
set /a score=%score%+1
echo 你猜对了！地鼠就在第%ds%格！
echo 2秒后继续。
timeout /t 2 /nobreak>nul
goto kcdh

:cuo
echo 你猜错了！地鼠在第%ds%格！
echo 2秒后继续。
timeout /t 2 /nobreak>nul
goto kcdh

:save
set /p name=请输入存档名：
echo %score% >>%name%.save
echo 存档成功！2秒后返回
timeout /t 2 /nobreak>nul
goto play

:read
set /p name=请输入存档名（不用加后缀名）：
set /p score=<%name%.save
echo 读档成功！2秒后返回
timeout /t 2 /nobreak>nul
goto play

:zb
set /p score=请输入分数：
goto play

:exit
cls
echo.
echo.
echo      ＨＩＴ　ＴＨＥ　ＭＯＵＳＥ     １．９９５
echo 　　打　地　鼠　元　旦　版
echo 　　　正在退出中……
echo.
timeout /t 2 /nobreak>nul
exit
复制代码

网盘下载：https://pan.baidu.com/s/1Tk8XX0L3OnK61DYijlUPug?pwd=ddsx
如果遇到制表符对不齐问题，请下载这个版本

TOP

hnfeng

二级士官

Rank: 2

帖子: 144
积分: 167
技术: 1
捐助: 0
注册时间: 2012-4-21

9楼

发表于 2024-1-1 20:26 | 只看该作者

回复 hnfeng

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

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

@echo off
ver | find " 10." >nul && (
  echo 当前系统是win10/11
  echo;
  echo ┌ ─ ┬ ─ ┐ 
  echo │ ab│ 12│ 
  echo ├ ─ ┼ ─ ┤ 
  echo │ 中│ 文│ 
  echo └ ─ ┴ ─ ┘ 
  echo;&pause
) || (
  echo 当前系统是较旧系统
  echo;
  echo ┌─┬─┐
  echo │ab│12│
  echo ├─┼─┤
  echo │中│文│
  echo └─┴─┘
  echo;&pause
)
复制代码

TOP

返回列表

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[特效代码] 【本人无聊时制作】自制无聊游戏：打地鼠

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]