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

batman

@echo off&mode con cols=42 lines=20&color 02
set m=1&set v=1
set code==^^^&%%%^:!$#^>^<:=~*()@"'`;\|-_+?,.ghijklmnopqrstuvwxyz0123456789abcdef
setlocal enabledelayedexpansion
:begin
set /a num=%random%%%40+1,num1=num,num=200/num
title 乱雨纷飞，当前雨量：%num1%
:lp
set /a a=%random%%%63,b=%random%%%%num%
set a=!code:~%a%,1!
if %b% equ 0 (set "b=!a!") else (set "b= ")  
set str%m%=!str%m%!!b!
set /a n+=1
if %n% lss 40 goto lp
set /a x+=1,w+=1
if %x% equ 40 call :lop
cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
if %w% equ 100 (set w=0&goto begin) else (set n=0&goto lp)
:lop
set /a a=%random%%%15+1
set a=!code:~-%a%,1!
color 0!a!&set x=0
复制代码

杨风

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

batman

原帖由 杨风 于 2008-6-21 19:41 发表
提个建议：为什么不把它改成下落 101010 的呢？那样的话不是像黑客帝国里的画面了码？？？
呵呵~~~

@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
set code=123456789abcdef
set m=1&set v=1
title 黑客帝国数码雨 by bat-zw19750516
:begin
set /a a=%random%%%2,b=%random%%%3
if %b% neq 0 (set b=%a%) else (set "b= ")  
set str=%str%%b%
set /a n+=1
if %n% lss 40 goto begin
set /a m+=1,x+=1
if %m% geq 20 set /a v+=1 
set str%m%=%str%
cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
if %x% equ 20 call :lp
set str=&set n=0
goto begin
:lp
set /a a=%random%%%15,x=0
set a=!code:~%a%,1!
color 0%a%
复制代码

leoboy123

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

leoboy123

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

yyyxlxq

请问一下全屏窗口的命令是什么？
我想加到这个里面不是更偈黑客里面的么

garyng

还有“当前雨量”～

尘丶

赞，看了你的好多代码，短小而精悍！

winload

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

CrLf

回复 9# winload


    向上容易向下难呀

winload

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

winload

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

teslawq

mark一下