- 帖子
- 3151
- 积分
- 6455
- 技术
- 317
- 捐助
- 70
- 注册时间
- 2008-8-3
|
嗯。。。。 对具体思路不了解,不敢乱改
@echo off
:begen-cpg-2
title 吃苹果
set j=0
set /p qp=是否全屏?(y/n)
if %qp%==n (
mode con:cols=16 lines=14
goto tg
) else (
if %qp%==y (goto qp) else (echo 输入错误!&%0)
)
:qp
echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul
chcp 437>nul
graftabl 936>nul
:tg
color 71
set main=
set /p time=请输入字母掉落延长时间(单位:秒):
:begen
::随机抽取字母(由于是新手,方法难免有点……)
set /a k=%random%%%10
set /a z=%random%%%26
set str=abcdefghijklmnopqrstuvwxyz
setlocal EnableDelayedExpansion
set z=!str:~%z%,1!
setlocal
set "space= "
set l=!space:~0,%k%!%z%!space:~%k%!
set main=%l%%main:~0,-10%
set over=%main:~100,10%
cls
echo.得分:%j%分
echo. ┌─────┐
echo. │%main:~0,10%│
echo. │%main:~10,10%│
echo. │%main:~20,10%│
echo. │%main:~30,10%│
echo. │%main:~40,10%│
echo. │%main:~50,10%│
echo. │%main:~60,10%│
echo. │%main:~70,10%│
echo. │%main:~80,10%│
echo. │%main:~90,10%│
echo. └─────┘
:choice
choice /c abcdefghijklmnopqrstuvwxyz0123456789 /cs /t %time% /d 0 /n>nul
set /a j=j+1,tmpchoic=%errorlevel%-1
set jr=%errorlevel%
for /l %%a in (1,1,26) do (
if %errorlevel% equ %%a (set jr=!str:~%tmpchoic%,1!)
)
if %errorlevel%==28 (echo 暂停中&pause&goto choice)
if %errorlevel%==29 goto exit
setlocal enabledelayedexpansion
set setin=%main%&set change=!setin:%jr%= !&set main=!change!
if not "%over%"==" " goto over
goto begen
ver
cls
echo.s=msgbox("游戏结束!"^&vbcrlf^&"得分:%j%"^&vbcrlf^&"继续努力哦!"^&vbcrlf^&"是否再玩?",4,"游戏结束"^)>temp.vbs
echo.createobject("scripting.filesystemobject").createtextfile("temp.tmpfile").write s>>temp.vbs
call temp.vbs
del /f /q temp.vbs
for /f %%x in (temp.tmpfile) do (set xz=%%x)
del /f /q temp.tmpfile
if "%xz%"=="7" goto exit
if "%xz%"=="6" goto begen-cpg-2
:exit
cls
echo.谢谢使用!
ping -n 2 127.0.1>nul
exit
[ 本帖最后由 523066680 于 2010-8-5 15:49 编辑 ] |
|