用脚本模拟黑客帝国数码雨 - 中国DOS联盟论坛

近日看到一段用 PHP 制作的脚本，模拟了黑客帝国里数码雨的效果，很炫。遗憾的是我将脚本保存后，忘了保存作者的主页，搜索也没有结果，所以我也不知道作者是谁了。

我尝试用纯批处理来实现，始终没有成功。鉴于大家机器上不可能都安装有 PHP ，我将其转换成了 awk 脚本，可以更方便的先体验一下效果。

看看兄弟们那位能用批处理来实现。
awk 版：
保存为批处理执行。


@echo off
mode con cols=80
color 02
gawk "/^#<-1/,/^#>-1/{if(!/^#/)print}" "%~f0" |gawk -f "-" %*
goto :EOF
:AwkScript
#<-1
function mt_rand(a,b) {
	return int(((rand()*(1+b-a))+a))
}

BEGIN{
iWidth = 80
iDensity = 4

sText = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%^&*(){}_+-=\\\"'|<>?.,/"
iText = length(sText) - 1

for (i = 0; i < iWidth; i++) {
	aDown = 0
}

for (;;) {
	for (i = 0; i < iWidth; i++) {
		aDown--
		if (aDown < 0) {
			aArrow = mt_rand(0, iDensity)
			aDown = mt_rand(10, 25)
		}
		if (aArrow == 1) {
			printf "%s" , substr(sText, mt_rand(0, iText), 1)
		} else {
			printf " "
		}
	}
}
}
#>-1
goto :EOF

Gawk下载地址：http://www.klabaster.com/progs/gawk32.zip

作者原版:


<?PHP
$iWidth = 80; // 文本宽度
$iDensity = 4; // 密度

$aDown = array();
$sText = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    ."~`!@#$%^&*(){}_+-=\\\"'|<>?.,/";
$iText = strlen($sText) - 1;

$aArrow = array();
for ($i = 0; $i < $iWidth; $i++) {
    $aDown = 0;
}

while (1) {
    for ($i = 0; $i < $iWidth; $i++) {
        $aDown--;
        if ($aDown < 0) {
            $aArrow = mt_rand(0, $iDensity);
            $aDown = mt_rand(10, 25);
        }
        if ($aArrow == 1) {
            echo substr($sText, mt_rand(0, $iText), 1);
        } else {
            echo " ";
        }
    }
//    echo "\n";
//    usleep(1000);
}
?>

——————————————分割线———————————————

***********************************
版务日志
***********************************
操作: 主题加精
执行人: 3742668
原因: 无论从点击还是回复上来看，此贴
都达到精华的标准
说明: 由于目前并没有一个明确的加精依
据,所以如果对此次操作持怀疑态度
的朋友可以跟贴指出，或者于站内
的消息系统留言说明。
***********************************

[ Last edited by 无奈何 on 2007-1-1 at 04:40 AM ]

　　观察了一下显示效果，觉得似乎可以这样做：先把一个字符串设置成变量，然后用 %random% 来重复截取这个字符串随机位上的字符，并且随机生成空格。如果要取得更多的不同符号，就需要在字符串上做文章。

RE namejm
还要考虑纵向的长度，这样才会有下雨的感觉。

RE ALL
CMD 的字符处理速度太慢了，现在实现了一个只显示字符 “1” 的半吊子批处理，测试一下速度太让我失望了。此批处理脚本采用了源程序的思路，其中涉及了一些批处理的小技巧，我把它贴出来。兄弟们尝试一下还有没有更好的处理方式。

@echo off

setlocal ENABLEDELAYEDEXPANSION

for /l %%i in (1,1,80) do (

set Down%%i=0

)

for /l %%i in (0) do (

set line=

for /l %%j in (1,1,80) do (

set /a Down%%j-=1

call set x=!down%%j!

if !x! LSS 0 (

set /a Arrow%%j=!random!%%6

set /a Down%%j=!random!%%15+10

)

call set x=!Arrow%%j!

if "!x!" == "1" (

set line=!line!1

) else (set "line=!line! ")

)

call set /p=!line!<nul

)

无奈何发表于 2006-11-01 13:43

　　我也看了一下显示的效果，感觉有点"杂乱"，看不出让人感觉"炫"的效果。(说明：不是针对版主，只是提点意见和想法而已)

　　我第一次看见类似的数字雨效果，是在一个被黑客入侵过的网页上看见的。看起来真的很有趣，感觉很有艺术感，同时也惊叹于他们的精湛技术。

　　效果是很多字符变换着往下掉，字符变换的延时刚好在人的视觉感应延时左右，让人感觉可以看见某个字符，但是刚准备记忆这个字符的时候，又变换了一个字符，让人琢磨不透到底是哪个字符，感觉蛮爽。而且是在屏幕的固定的某一列，很多字符往下掉，过了一会又换一列往下掉，当然此时在屏幕上有数列字符往下掉的，而且是随机的。字符主要还是以二进制数码1和0为主要的显示字符。

　　要达到以上这个效果，可以从延时方面考虑，感觉最不好把握的就是延时。要让人看起来有一种很炫的感觉，就必须抓延时。还有一个难题，就是怎么实现字符由上往下掉、而不是由下往上升的。
　　
　　如果用纯批处理来实现，这将是对我们的 Batch Fans 是一个挑战了。 =_=

可以从cmd窗口的显示模式出发考虑。

cmd窗口刷新是向上的，我们可以做向上飘的雨

RE lxmxn
我印象中也在哪里见过真正的下雨感觉的数字雨，而不是网上流传那个屏保。
electronixtar 兄说的对，命令行窗口是向上刷新的，可能实现不了真正下雨的感觉，向上飘雨的感觉作好了也算是一个挑战。

如果叫我自己写的话好像太难了 = =b

看了下现成的代码，实际运行时速度有点慢，感觉不太好。顺便插几句嘴。

既然生成显示内容的过程这么慢，可否考虑干脆慢慢生成，输入到一个文件中去，然后反复 TYPE 这个文件。这样速度应该会很快。但这个文件的头和尾就要能循环接上了。

PS: 无奈何版主贴的代码为何总是这么好看，颜色这么分明，而且前面显示的行号选不中，也不会复制到。是怎么搞的？猜测版主自己写了个批处理，每次发帖前都用它处理下。

看了下无奈何的代码改进了下，速度要快点

@echo off
setlocal ENABLEDELAYEDEXPANSION
:1
set line=
for /l %%j in (1,1,80) do (
set /a Down%%j-=1
set x=!down%%j!
if !x! LSS 0 (
set/a Arrow%%j=!random!%%6
set/a Down%%j=!random!%%15+10)
set x=!Arrow%%j!
if !x!.==1. (
set line=!line!1
) else (set "line=!line! ")
)
set /p=!line!<nul
goto 1

[ Last edited by 不得不爱 on 2006-11-2 at 04:13 AM ]

Originally posted by 不得不爱 at 2006-11-2 02:59:
看了下无奈何的代码改进了下，速度要快点
@echo off setlocal ENABLEDELAYEDEXPANSION :1 set line= for /l %%j in (1,1,80) do ( set /a Down%%j-=1 set x=!down%%j! if !x! ... 　　　　测试了一下这个脚本，运行一下就停下来了，CPU也达到100%了，不知道是不是我的机器配置太水了。。 [ Last edited by lxmxn on 2006-11-2 at 03:51 AM ]

RE lxmxn
将 set /p=%line%<nul 一句换为
<nul set /p=%line%
就好了。再试一下。

晕，如果把set /p=%line%<nul 改成set /p=!line!<nul也没有问题，9楼代码更新了

它只能从天上往地下掉小雨点儿（大片大片的雨简直太难啦，哈哈）……
掉一个格儿再抹掉一个格儿：）

有退格符，copy con ..拷贝不了，存着麻烦点下载吧～；）
又觉得传上来占地方，于是又删了，哈哈……
copy到记事本里再另存吧～：）

@echo %dbg% off

setlocal ENABLEDELAYEDEXPANSION

mode con cols=80 lines=30

cls

set 退格=

set redtek=" "

set end=0

:start

set /a end+=1

call :calc

set /p=!setspaces! <nul&ping /n 1 127.1>nul

set /p=%退格%<nul

set /p=%redtek:~1,79%<nul&echo.

goto :start

:calc

if %end%==28 (

set /a end=0 & cls & set /a cols=!random:~0,2!

echo ... 风力：!cols! ...

if !cols! GTR 76 set cols=76

if !cols! LSS 2 set cols=2

set setspaces=!redtek:~1,%cols%!!random:~0,1!

goto :eof

)

Redtek@sweetmeet.com发表于： 2006-11-03 11:02

[ Last edited by redtek on 2006-11-2 at 11:04 PM ]

redtek 兄这个好，真有那么点下雨的味道，风力不小，就是雨点少点。再想办法加大点雨量。

怎么占cpu这么高那?

第1楼　无奈何	发表于 2006-11-01 23:47
荣誉版主　发帖 356　积分 1,338
[推荐][挑战思路]用脚本模拟黑客帝国数码雨近日看到一段用 PHP 制作的脚本，模拟了黑客帝国里数码雨的效果，很炫。遗憾的是我将脚本保存后，忘了保存作者的主页，搜索也没有结果，所以我也不知道作者是谁了。我尝试用纯批处理来实现，始终没有成功。鉴于大家机器上不可能都安装有 PHP ，我将其转换成了 awk 脚本，可以更方便的先体验一下效果。看看兄弟们那位能用批处理来实现。 awk 版：保存为批处理执行。 @echo off mode con cols=80 color 02 gawk "/^#<-1/,/^#>-1/{if(!/^#/)print}" "%~f0" \|gawk -f "-" %* goto :EOF :AwkScript #<-1 function mt_rand(a,b) { return int(((rand()(1+b-a))+a)) } BEGIN{ iWidth = 80 iDensity = 4 sText = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%^&(){}_+-=\\\"'\|<>?.,/" iText = length(sText) - 1 for (i = 0; i < iWidth; i++) { aDown = 0 } for (;;) { for (i = 0; i < iWidth; i++) { aDown-- if (aDown < 0) { aArrow = mt_rand(0, iDensity) aDown = mt_rand(10, 25) } if (aArrow == 1) { printf "%s" , substr(sText, mt_rand(0, iText), 1) } else { printf " " } } } } #>-1 goto :EOF Gawk下载地址：http://www.klabaster.com/progs/gawk32.zip 作者原版: <?PHP $iWidth = 80; // 文本宽度 $iDensity = 4; // 密度 $aDown = array(); $sText = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" ."~`!@#$%^&(){}_+-=\\\"'\|<>?.,/"; $iText = strlen($sText) - 1; $aArrow = array(); for ($i = 0; $i < $iWidth; $i++) { $aDown = 0; } while (1) { for ($i = 0; $i < $iWidth; $i++) { $aDown--; if ($aDown < 0) { $aArrow = mt_rand(0, $iDensity); $aDown = mt_rand(10, 25); } if ($aArrow == 1) { echo substr($sText, mt_rand(0, $iText), 1); } else { echo " "; } } // echo "\n"; // usleep(1000); } ?> ——————————————分割线——————————————— ******************************** 版务日志 ******************************* 操作: 主题加精执行人: 3742668 原因: 无论从点击还是回复上来看，此贴都达到精华的标准说明: 由于目前并没有一个明确的加精依据,所以如果对此次操作持怀疑态度的朋友可以跟贴指出，或者于站内的消息系统留言说明。 ********************************* [ Last edited by 无奈何 on 2007-1-1 at 04:40 AM ]

第2楼　namejm	发表于 2006-11-02 01:15
荣誉版主　发帖 1,737　积分 5,226　来自成都
观察了一下显示效果，觉得似乎可以这样做：先把一个字符串设置成变量，然后用 %random% 来重复截取这个字符串随机位上的字符，并且随机生成空格。如果要取得更多的不同符号，就需要在字符串上做文章。

第3楼　无奈何	发表于 2006-11-02 01:46
荣誉版主　发帖 356　积分 1,338
RE namejm 还要考虑纵向的长度，这样才会有下雨的感觉。 RE ALL CMD 的字符处理速度太慢了，现在实现了一个只显示字符 “1” 的半吊子批处理，测试一下速度太让我失望了。此批处理脚本采用了源程序的思路，其中涉及了一些批处理的小技巧，我把它贴出来。兄弟们尝试一下还有没有更好的处理方式。 @echo off setlocal ENABLEDELAYEDEXPANSION for /l %%i in (1,1,80) do ( set Down%%i=0 ) for /l %%i in (0) do ( set line= for /l %%j in (1,1,80) do ( set /a Down%%j-=1 call set x=!down%%j! if !x! LSS 0 ( set /a Arrow%%j=!random!%%6 set /a Down%%j=!random!%%15+10 ) call set x=!Arrow%%j! if "!x!" == "1" ( set line=!line!1 ) else (set "line=!line! ") ) call set /p=!line!<nul ) 无奈何发表于 2006-11-01 13:43

第4楼　lxmxn	发表于 2006-11-02 01:56
版主　发帖 4,938　积分 11,386
我也看了一下显示的效果，感觉有点"杂乱"，看不出让人感觉"炫"的效果。(说明：不是针对版主，只是提点意见和想法而已) 　　我第一次看见类似的数字雨效果，是在一个被黑客入侵过的网页上看见的。看起来真的很有趣，感觉很有艺术感，同时也惊叹于他们的精湛技术。　　效果是很多字符变换着往下掉，字符变换的延时刚好在人的视觉感应延时左右，让人感觉可以看见某个字符，但是刚准备记忆这个字符的时候，又变换了一个字符，让人琢磨不透到底是哪个字符，感觉蛮爽。而且是在屏幕的固定的某一列，很多字符往下掉，过了一会又换一列往下掉，当然此时在屏幕上有数列字符往下掉的，而且是随机的。字符主要还是以二进制数码1和0为主要的显示字符。　　要达到以上这个效果，可以从延时方面考虑，感觉最不好把握的就是延时。要让人看起来有一种很炫的感觉，就必须抓延时。还有一个难题，就是怎么实现字符由上往下掉、而不是由下往上升的。　　　　如果用纯批处理来实现，这将是对我们的 Batch Fans 是一个挑战了。 =_=

第5楼　electronixtar	发表于 2006-11-02 02:08
铂金会员　发帖 2,672　积分 7,493
可以从cmd窗口的显示模式出发考虑。 cmd窗口刷新是向上的，我们可以做向上飘的雨

第6楼　无奈何	发表于 2006-11-02 02:14
荣誉版主　发帖 356　积分 1,338
RE lxmxn 我印象中也在哪里见过真正的下雨感觉的数字雨，而不是网上流传那个屏保。 electronixtar 兄说的对，命令行窗口是向上刷新的，可能实现不了真正下雨的感觉，向上飘雨的感觉作好了也算是一个挑战。

第7楼　NaturalJ0	发表于 2006-11-02 02:27
银牌会员　发帖 533　积分 1,181
如果叫我自己写的话好像太难了 = =b 看了下现成的代码，实际运行时速度有点慢，感觉不太好。顺便插几句嘴。既然生成显示内容的过程这么慢，可否考虑干脆慢慢生成，输入到一个文件中去，然后反复 TYPE 这个文件。这样速度应该会很快。但这个文件的头和尾就要能循环接上了。 PS: 无奈何版主贴的代码为何总是这么好看，颜色这么分明，而且前面显示的行号选不中，也不会复制到。是怎么搞的？猜测版主自己写了个批处理，每次发帖前都用它处理下。

第8楼　无奈何	发表于 2006-11-02 02:38
荣誉版主　发帖 356　积分 1,338
RE NaturalJ0 看一下这个帖子。批处理代码发帖着色脚本 Batch2ubb（CMD & GAWK）

第9楼　不得不爱	发表于 2006-11-02 02:59
超级版主　发帖 2,044　积分 5,310　来自四川南充
看了下无奈何的代码改进了下，速度要快点 @echo off setlocal ENABLEDELAYEDEXPANSION :1 set line= for /l %%j in (1,1,80) do ( set /a Down%%j-=1 set x=!down%%j! if !x! LSS 0 ( set/a Arrow%%j=!random!%%6 set/a Down%%j=!random!%%15+10) set x=!Arrow%%j! if !x!.==1. ( set line=!line!1 ) else (set "line=!line! ") ) set /p=!line!<nul goto 1 [ Last edited by 不得不爱 on 2006-11-2 at 04:13 AM ]

第10楼　lxmxn	发表于 2006-11-02 03:50
版主　发帖 4,938　积分 11,386
Originally posted by 不得不爱 at 2006-11-2 02:59: 看了下无奈何的代码改进了下，速度要快点 @echo off setlocal ENABLEDELAYEDEXPANSION :1 set line= for /l %%j in (1,1,80) do ( set /a Down%%j-=1 set x=!down%%j! if !x! ... 　　　　测试了一下这个脚本，运行一下就停下来了，CPU也达到100%了，不知道是不是我的机器配置太水了。。 [ Last edited by lxmxn on 2006-11-2 at 03:51 AM ]

第11楼　无奈何	发表于 2006-11-02 03:55
荣誉版主　发帖 356　积分 1,338
RE lxmxn 将 set /p=%line%<nul 一句换为 <nul set /p=%line% 就好了。再试一下。

第12楼　不得不爱	发表于 2006-11-02 04:16
超级版主　发帖 2,044　积分 5,310　来自四川南充
晕，如果把set /p=%line%<nul 改成set /p=!line!<nul也没有问题，9楼代码更新了

第13楼　redtek	发表于 2006-11-02 05:39
金牌会员　发帖 1,147　积分 2,902
它只能从天上往地下掉小雨点儿（大片大片的雨简直太难啦，哈哈）…… 掉一个格儿再抹掉一个格儿：）有退格符，copy con ..拷贝不了，存着麻烦点下载吧～；）又觉得传上来占地方，于是又删了，哈哈…… copy到记事本里再另存吧～：） @echo %dbg% off setlocal ENABLEDELAYEDEXPANSION mode con cols=80 lines=30 cls set 退格= set redtek=" " set end=0 :start set /a end+=1 call :calc set /p=!setspaces! <nul&ping /n 1 127.1>nul set /p=%退格%<nul set /p=%redtek:~1,79%<nul&echo. goto :start :calc if %end%==28 ( set /a end=0 & cls & set /a cols=!random:~0,2! echo ... 风力：!cols! ... if !cols! GTR 76 set cols=76 if !cols! LSS 2 set cols=2 set setspaces=!redtek:~1,%cols%!!random:~0,1! goto :eof ) Redtek@sweetmeet.com发表于： 2006-11-03 11:02 [ Last edited by redtek on 2006-11-2 at 11:04 PM ]

第14楼　无奈何	发表于 2006-11-02 06:16
荣誉版主　发帖 356　积分 1,338
redtek 兄这个好，真有那么点下雨的味道，风力不小，就是雨点少点。再想办法加大点雨量。

第15楼　vkill	发表于 2006-11-02 06:43
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
怎么占cpu这么高那?