批处理之家 » BAT原创&转载 » 批处理游戏：飞机躲避墙壁

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

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

今天闲着无聊，编了一个小游戏，请大家看看；玩法：打开后移动鼠标使飞机躲避墙壁（飞机始终在最后一排，只可以左右移动）别让飞机撞到墙壁，看你能坚持多久。
各位行行好，回复回复，别让帖子沉下去。
[color=#FF0000][b]要和Cmos.exe在一起才能玩！（在附件里）[/b][/color][code]@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[/code][color=#FF0000][url=http://down.qiannao.com/space/file/SKirov/share/2011/1/25/-6e38-620f.rar/.page]点击下载[/url][/color]

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

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

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

回复 1楼 的帖子

呵呵     喜欢游戏

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

一打开，窗口一闪就挂了

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

真的好难！

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

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

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

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

[table=98%,black]
[tr=blue][td][b][color=white]c:\windows\system32\cmd.exe[/color][/b][/td][/tr]
[tr][td]
[color=Silver][b]Microsoft Windows [版本 6.1.7601]
版权所有 (c) 2009 Microsoft Corporation。保留所有权利。

C:\Users\admin>厉害[/b][/color]
[font=Impact][size=2][color=#c0c0c0][b]'厉害'    不是内部或外部命令，也不是可运行程序
或批处理文件[/b][/color][/size][/font]

[b][font=Verdana][size=2][color=#c0c0c0]C:\Users\admin>[/color][/size][/font][/b]

[/td][/tr]
[/table]

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

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

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

直接乱码
？

查看完整版本: 批处理游戏：飞机躲避墙壁