标题: [游戏娱乐] 批处理星罗满布 [打印本页]
作者: batman 时间: 2008-7-17 18:03 标题: 批处理星罗满布
- @echo off&color 1f&setlocal enabledelayedexpansion
- title 星罗满布 by zw19750516
- set "code= abcdefghij "&set "s=┃"
- set "codes=☆⊙★◎◇◆□■△▲"
- :begin
- echo.>temp.txt
- set /a a=%random%%%10+1,b=%random%%%10+1,c=%random%%%10
- set "b=!code:~%b%,1!"&set "tu=!codes:~%c%,1!"
- if not defined _%a%%b% (set "_%a%%b%=%tu%") else (goto begin)
- echo ┏━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┳━━┓>>temp.txt
- for /l %%a in (1,1,10) do (
- for /l %%i in (1,1,10) do (
- set "str=!code:~%%i,1!"
- if defined _%%a!str! (call :lp %%a) else (set /p=%s% <nul>>temp.txt)
- )
- set /p=%s% %%a<nul>>temp.txt&echo.>>temp.txt
- if %%a neq 10 (
- echo ┣━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━╋━━┫>>temp.txt
- ) else (
- echo ┗━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┻━━┛>>temp.txt
- ))
- for /l %%i in (1,1,10) do set /p= !code:~%%i,1! <nul>>temp.txt
- echo %a%%b%>>temp.txt&set /a n+=1
- cls&type temp.txt
- if %n% lss 100 (for /l %%i in (1,1,1000) do echo>nul&goto begin) else (del /q temp.txt&pause>nul&goto :eof)
- :lp
- set "var=!_%1%str%!"
- set /p=%s% %var% <nul>>temp.txt
复制代码
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |