批处理游戏：飞机躲避墙壁

zcydez · 发表于 2011-1-25 16:30:27

今天闲着无聊，编了一个小游戏，请大家看看；玩法：打开后移动鼠标使飞机躲避墙壁（飞机始终在最后一排，只可以左右移动）别让飞机撞到墙壁，看你能坚持多久。
各位行行好，回复回复，别让帖子沉下去。
要和Cmos.exe在一起才能玩！（在附件里）

@echo off
title 游戏
mode con:cols=22 lines=12
color f0
setlocal EnableDelayedExpansion
set js=0
set fen=0
:a
set /a js=%js%+1
set dwall=********** **********
set /a sjs=%random%%%7+2
for %%b in (%sjs%) do (set wall=%wall%!dwall:~%%b,20!)
if not %js%==10 goto a
:b
cls
for /l %%f in (0 20 180) do (echo. !wall:~%%f,20!)
set /a x2=%x%-1
if not %x2% leq 1 (for /l %%g in (1 1 %x2%) do (set /p= <nul))
echo
echo %fen%分
cmos 0 1 0 0 10
set /a fen=%fen%+1
set /a P=%errorlevel%
if "%p:~0,1%"=="-" set p=%p:~1,10%
set /a X=%P:~0,-3%
set /a Y=%P%-1000*%X%
set /a hg=%x%-2+180
for %%a in (%hg%) do (
if %x%==1 goto zb
if %x%==22 goto zb
if "!wall:~%%a,1!"=="*" goto death)
cls
set /a sjs=%random%%%6
for %%c in (%sjs%) do (set xwall=!dwall:~%%c,20!)
for /l %%d in (0 1 19) do (set w%%d=!xwall:~%%d,1!)
set /a sjs=%random%%%16+3
set /a sjs2=%sjs%+1
for /l %%e in (%sjs% 1 %sjs2%) do (set w%%e=*)
set xwall=%w0%%w1%%w2%%w3%%w4%%w5%%w6%%w7%%w8%%w9%%w10%%w11%%w12%%w13%%w14%%w15%%w16%%w17%%w18%%w19%
set wall=%xwall%%wall:~0,180%
goto b
:death
cls
color fc
echo 你撞墙了。
echo 得了%fen%分。
pause>nul
exit
:zb
clscolor fc
echo 作弊可恶！
pause>nul

复制代码

HLS · 发表于 2011-2-16 10:56:36

发现如果按住鼠标会使游戏变得极有难度...

a19715 · 发表于 2011-2-16 11:48:50

呵呵喜欢游戏

ssdai123 · 发表于 2013-3-9 14:12:12

一打开，窗口一闪就挂了

tlf1994 · 发表于 2013-12-24 21:58:22

真的好难！

我来了 · 发表于 2013-12-25 08:59:32

速度太快，只得了四分。。。
窗口太小，看的眼痛。。

下一版本，改进下就更完美了。

shenyu · 发表于 2018-10-6 19:11:54

c:\windows\system32\cmd.exe

battih0211 · 发表于 2020-11-14 13:44:28

[img][/img]为啥？？？

battih0211 · 发表于 2020-11-14 13:46:14

直接乱码
？

		自动登录	找回密码
密码			注册

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

[游戏娱乐] 批处理游戏：飞机躲避墙壁