[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[游戏娱乐] 批处理乱雨纷飞

  1. @echo off&mode con cols=42 lines=20&color 02
  2. set m=1&set v=1
  3. set code==^^^&%%%^:!$#^>^<:=~*()@"'`;\|-_+?,.ghijklmnopqrstuvwxyz0123456789abcdef
  4. setlocal enabledelayedexpansion
  5. :begin
  6. set /a num=%random%%%40+1,num1=num,num=200/num
  7. title 乱雨纷飞,当前雨量:%num1%
  8. :lp
  9. set /a a=%random%%%63,b=%random%%%%num%
  10. set a=!code:~%a%,1!
  11. if %b% equ 0 (set "b=!a!") else (set "b= ")  
  12. set str%m%=!str%m%!!b!
  13. set /a n+=1
  14. if %n% lss 40 goto lp
  15. set /a x+=1,w+=1
  16. if %x% equ 40 call :lop
  17. cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
  18. set /a m+=1
  19. if %m% geq 20 set /a v+=1
  20. if %w% equ 100 (set w=0&goto begin) else (set n=0&goto lp)
  21. :lop
  22. set /a a=%random%%%15+1
  23. set a=!code:~-%a%,1!
  24. color 0!a!&set x=0
复制代码
***共同提高***

mark一下
Live long and prosper

TOP

好吧,我承认是我看错了,之前也是在这里看到的

TOP

先是在转载代码区看到的,怎么又到原创区了?

TOP

回复 9# winload


    向上容易向下难呀

TOP

终于看到一个雨是向地面落的了,之前看的好多雨都是向天上飞的。呵呵

TOP

赞,看了你的好多代码,短小而精悍!

TOP

还有“当前雨量”~

TOP

全屏代码???

请问一下全屏窗口的命令是什么?
我想加到这个里面不是更偈黑客里面的么
年青,没有什么不可以!

TOP

不用了。。我刚刚知道了- -。

TOP

黑客帝国数码雨能不能使他固定1个颜色,。。。例如我想它的颜色代码是
0a  
怎么做?

TOP

原帖由 杨风 于 2008-6-21 19:41 发表
提个建议:为什么不把它改成下落 101010 的呢?那样的话不是像黑客帝国里的画面了码???
呵呵~~~
  1. @echo off&mode con cols=42 lines=20&color 02
  2. setlocal enabledelayedexpansion
  3. set code=123456789abcdef
  4. set m=1&set v=1
  5. title 黑客帝国数码雨 by bat-zw19750516
  6. :begin
  7. set /a a=%random%%%2,b=%random%%%3
  8. if %b% neq 0 (set b=%a%) else (set "b= ")  
  9. set str=%str%%b%
  10. set /a n+=1
  11. if %n% lss 40 goto begin
  12. set /a m+=1,x+=1
  13. if %m% geq 20 set /a v+=1
  14. set str%m%=%str%
  15. cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
  16. if %x% equ 20 call :lp
  17. set str=&set n=0
  18. goto begin
  19. :lp
  20. set /a a=%random%%%15,x=0
  21. set a=!code:~%a%,1!
  22. color 0%a%
复制代码
***共同提高***

TOP

提个建议:为什么不把它改成下落 101010 的呢?那样的话不是像黑客帝国里的画面了码???
呵呵~~~

TOP

返回列表