Board logo

标题: [游戏娱乐] 2008奥运倒计时批处理版 [打印本页]

作者: 523066680    时间: 2009-1-30 19:49     标题: 2008奥运倒计时批处理版

            纯粹娱乐 没办法  这几天真的无聊到不行 qq丢了 好友都不见了,没人鸟我
,无奈之下体力活照样干。
  1. @echo off &setlocal enabledelayedexpansion
  2. title CodeBy523066680
  3. for /l %%x in (5,-1,1) do (
  4. for /f "delims== tokens=1" %%a in ('set') do (set %%a=)
  5. set "k=                    "
  6. for /l %%a in (1,1,15) do (set l%%a=!k!)
  7. for /f "delims=x" %%a in (%~snx0) do (
  8.   if "%%a"==":%%xend" (set "yes=")
  9.   if defined yes (set /a "n+=1" &set S!n!=%%a)
  10.   if "%%a"==":%%x" (set /a yes=1,n=0)
  11. )
  12. for /l %%a in (1,1,12) do (
  13.    for /l %%b in (0,1,15) do (
  14.    if "!S%%a:~%%b,1!"=="*" (set x_!random!_%%a_%%b_x=x)
  15.    )
  16. )
  17. for /f "delims=_ tokens=3,4" %%a in ('set x_') do (
  18.    set /a x=%%b+1
  19.    call set l%%a=!l%%a:~0,%%b!*%%l%%a:~!x!%%
  20.    call :a 50
  21.    cls
  22.    for /l %%a in (1,1,15) do (echo,!l%%a!)
  23. )
  24. call :a 800
  25. )
  26. pause
  27. exit
  28. :a
  29. for /l %%a in (1,1,%1) do (echo,>nul)
  30. goto :eof
  31. :5
  32. ***************
  33. ***************
  34. ***
  35. ***
  36. ***
  37. ***************
  38. ***************
  39.             ***
  40.             ***
  41.             ***
  42. ***************
  43. ***************
  44. :5end
  45. :4
  46. ***         ***
  47. ***         ***
  48. ***         ***
  49. ***         ***
  50. ***         ***
  51. ***************
  52. ***************
  53.             ***
  54.             ***
  55.             ***
  56.             ***
  57.             ***
  58. :4end
  59. :3
  60. ***************
  61. ***************
  62.             ***
  63.             ***
  64.             ***
  65. ***************
  66. ***************
  67.             ***
  68.             ***
  69.             ***
  70. ***************
  71. ***************
  72. :3end
  73. :2
  74. ***************
  75. ***************
  76.             ***
  77.             ***
  78.             ***
  79. ***************
  80. ***************
  81. ***
  82. ***
  83. ***
  84. ***************
  85. ***************
  86. :2end
  87. :1
  88.       ***
  89.       ***
  90.       ***
  91.       ***
  92.       ***
  93.       ***
  94.       ***
  95.       ***
  96.       ***
  97.       ***
  98.       ***
  99.       ***
  100. :1end
复制代码

作者: defanive    时间: 2009-1-30 21:08

都是力气活。。。
兄真得无聊成这样?
帮忙去写写我的那些库文件嘛。。。
作者: 523066680    时间: 2009-1-30 21:23

我去发了些连接。
作者: defanive    时间: 2009-1-30 21:55

LS,链接已阅,但是还有问题。。。
作者: Peking007    时间: 2009-2-27 17:15

不错,初次来~
作者: tslnyys    时间: 2009-6-3 13:55

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2