Board logo

标题: [游戏娱乐] 批处理乱雨纷飞 [打印本页]

作者: batman    时间: 2008-6-21 15:58     标题: 批处理乱雨纷飞

  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
复制代码

作者: 杨风    时间: 2008-6-21 19:41

提个建议:为什么不把它改成下落 101010 的呢?那样的话不是像黑客帝国里的画面了码???
呵呵~~~
作者: batman    时间: 2008-6-21 22:57

原帖由 杨风 于 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%
复制代码

作者: leoboy123    时间: 2008-6-22 12:47

黑客帝国数码雨能不能使他固定1个颜色,。。。例如我想它的颜色代码是
0a  
怎么做?
作者: leoboy123    时间: 2008-6-22 13:02

不用了。。我刚刚知道了- -。
作者: yyyxlxq    时间: 2008-6-23 16:16     标题: 全屏代码???

请问一下全屏窗口的命令是什么?
我想加到这个里面不是更偈黑客里面的么
作者: garyng    时间: 2011-9-1 21:14

还有“当前雨量”~
作者: 尘丶    时间: 2015-8-15 16:46

赞,看了你的好多代码,短小而精悍!
作者: winload    时间: 2015-10-7 23:03

终于看到一个雨是向地面落的了,之前看的好多雨都是向天上飞的。呵呵
作者: CrLf    时间: 2015-10-7 23:32

回复 9# winload


    向上容易向下难呀
作者: winload    时间: 2015-10-8 10:34

先是在转载代码区看到的,怎么又到原创区了?
作者: winload    时间: 2015-10-8 10:47

好吧,我承认是我看错了,之前也是在这里看到的
作者: teslawq    时间: 2016-5-25 17:36

mark一下




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