俄罗斯方块实在改不下去了哈,还是先小小的体验一下mach功能先
回忆起一个游戏模式了,一个小人停在一个板上,然后画面不断
地向上,小人必须在不掉如深渊的情况下跳到下一个板块上,
有些板块是带刺的不能跳。
o(∩_∩)o不做,很花时间的
小小体验,把输入信息字符化~- @echo off
- if "%~1" equ "net" goto :prar1
- start "key" "%~f0" net
- set 0=00
- title BatHome
- rem 测试得知,title应该在赋值0=00后执行
- ::-action-配置一下先
- setlocal enabledelayedexpansion
- set "space="
- for /l %%a in (1,1,79) do (set space=!space! )
- set dotspace=40
- set /a do61=-1,do64=1
- ::下面是显示的循环了
- :lp
- echo,!space:~0,%dotspace%!*
- for /l %%a in (1,1,3) do (ping 1 127.1>nul)
- if "!0!" equ "03" (taskkill /fi "WINDOWTITLE eq key*" /im cmd.EXE &exit)
- set /a dotspace+=do!0!
- set 0=00
- goto :lp
-
- ::输入框,读取键值并把值赋予环境变量0
- :prar1
- mode con: cols=20 lines=2
- echo;请把我置顶
- mach
复制代码
|