纯粹娱乐 没办法 这几天真的无聊到不行 qq丢了 好友都不见了,没人鸟我
,无奈之下体力活照样干。- @echo off &setlocal enabledelayedexpansion
- title CodeBy523066680
- for /l %%x in (5,-1,1) do (
- for /f "delims== tokens=1" %%a in ('set') do (set %%a=)
- set "k= "
- for /l %%a in (1,1,15) do (set l%%a=!k!)
- for /f "delims=x" %%a in (%~snx0) do (
- if "%%a"==":%%xend" (set "yes=")
- if defined yes (set /a "n+=1" &set S!n!=%%a)
- if "%%a"==":%%x" (set /a yes=1,n=0)
- )
- for /l %%a in (1,1,12) do (
- for /l %%b in (0,1,15) do (
- if "!S%%a:~%%b,1!"=="*" (set x_!random!_%%a_%%b_x=x)
- )
- )
- for /f "delims=_ tokens=3,4" %%a in ('set x_') do (
- set /a x=%%b+1
- call set l%%a=!l%%a:~0,%%b!*%%l%%a:~!x!%%
- call :a 50
- cls
- for /l %%a in (1,1,15) do (echo,!l%%a!)
- )
- call :a 800
- )
- pause
- exit
- :a
- for /l %%a in (1,1,%1) do (echo,>nul)
- goto :eof
- :5
- ***************
- ***************
- ***
- ***
- ***
- ***************
- ***************
- ***
- ***
- ***
- ***************
- ***************
- :5end
- :4
- *** ***
- *** ***
- *** ***
- *** ***
- *** ***
- ***************
- ***************
- ***
- ***
- ***
- ***
- ***
- :4end
- :3
- ***************
- ***************
- ***
- ***
- ***
- ***************
- ***************
- ***
- ***
- ***
- ***************
- ***************
- :3end
- :2
- ***************
- ***************
- ***
- ***
- ***
- ***************
- ***************
- ***
- ***
- ***
- ***************
- ***************
- :2end
- :1
- ***
- ***
- ***
- ***
- ***
- ***
- ***
- ***
- ***
- ***
- ***
- ***
- :1end
复制代码