(困难总是有地~娱乐总是要地)大家都玩过跳舞机游戏的吧~
难一下你:
要求:随机出现上下左右的箭头,累积计分 过关加速,格式不限
材料:↓↑←→↖ ↗ ↙ ↘▲▼◤ ◢ ◣◥ (建议从简)
希望多款式思路 类比出新:各就位~~预备~------跳!
难一下你:
要求:随机出现上下左右的箭头,累积计分 过关加速,格式不限
材料:↓↑←→↖ ↗ ↙ ↘▲▼◤ ◢ ◣◥ (建议从简)
希望多款式思路 类比出新:各就位~~预备~------跳!
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off
mode con cols=40 lines=20
set str=↓↑←→↖↗↙↘▲▼◤◢◣◥
:begin
for /l %%i in (1,1,9) do set n%%i=
set /a num=%random%%%14
call set char=%%str:~%num%,1%%
set /a num=%random%%%9+1
set n%num%=%char%
call :result
goto begin
:result
cls
echo.
echo.
echo.
echo.
echo.
echo ┌──┬──┬──┐
echo │ %n1% │ %n2% │ %n3% │
echo ├──┼──┼──┤
echo │ %n4% │ %n5% │ %n6% │
echo ├──┼──┼──┤
echo │ %n7% │ %n8% │ %n9% │
echo └──┴──┴──┘
ping -n 2 127.1>nul
goto :eof
┌──┬──┬──┐
│ │ │ │
├──┼──┼──┤
│ │ │ ↖ │
├──┼──┼──┤
│ │ │ │
└──┴──┴──┘

@echo off 2>nul 3>nul&mode con cols=40 lines=20&set/atitle=%random%
:top
set str= ↙↓↘← →↖↑↗
for /l %%i in (1,1,9) do set "n%%i= %%i "&&call :pri
ping 127.1 -n 2 >nul
for /l %%i in (1,1,9) do (
call set "n%%i=%%str:~%%i,1%% "
call :pri
ping 127.1 -n 1 >nul
)
for /l %%i in (1,1,9) do set "n%%i= "&set n5=End&set ax=0
echo CreateObject("WScript.Shell").AppActivate "test">%temp%\%title%.vbs
echo Wscript.Sleep"800">>%temp%\%title%.vbs
echo CreateObject("WScript.Shell").SendKeys "{enter}">>%temp%\%title%.vbs
echo start...&pause>nul
:st
set /a cc+=1,dd=cc%%10,num=%random%%%9+1,1/(num-5)||set /a num+=%random%%%3+1
call set "n%num%=%%str:~%num%,1%% "&&color %dd%7
:pri
cls&title=%title%&echo.&echo\&echo/
echo ┌──┬──┬──┐
echo │ %n7%│ %n8%│ %n9%│
echo ├──┼──┼──┤
echo │ %n4%│ %n5%│ %n6%│
echo ├──┼──┼──┤
echo │ %n1%│ %n2%│ %n3%│
echo └──┴──┴──┘
echo end:5 rest:0
set/a in=10,%num%||goto :eof
cscript //logo //b %temp%\%title%.vbs
set/p in=
set/a 1/(5-in)||goto end
set/a 1/(num-in)&&set/aax-=1||set/aax+=1
set/a 1/(1*in)||set num=&&goto top
set "n%num%= "
goto st
:end
echo %ax%&del /f /q %temp%\%title%.vbs
pause