[游戏娱乐] 2008奥运倒计时批处理版

523066680

            纯粹娱乐 没办法  这几天真的无聊到不行 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
复制代码

defanive

都是力气活。。。
兄真得无聊成这样？
帮忙去写写我的那些库文件嘛。。。

523066680

我去发了些连接。

defanive

LS，链接已阅，但是还有问题。。。

Peking007

不错，初次来～

tslnyys

为什么一运行批处理，CPU就100%呢。