黑客帝国数码雨 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

前几天zw兄开发了不少数码雨，我也来个模拟黑客帝国的数码雨：

::code by WANKOILZ 2008/5/28
@echo off&setlocal enabledelayedexpansion&color 02&mode con lines=30&title 黑客帝国数码雨
setlocal&set flag=0
:loop
if %flag% lss 30 (set/a flag+=1) else (call :chang)
for /l %%i in (1,1,26) do (
  if defined a%%i (set/a a%%i=!random!%%2&set tmp=!a%%i!
  ) else (if !random! lss 1000 (set/a a%%i=!random!%%2&set tmp=!a%%i!
         ) else (set tmp= ))
call set line%flag%=%%line!flag!%%  !tmp!
)
cls&for /l %%i in (%flag%,-1,1) do echo.!line%%i!
for /l %%i in (1,1,100) do ver>nul
::ping /n 1 127.1>nul
if !random! lss 500 (endlocal&setlocal&set flag=0)
goto :loop

:chang
for /l %%i in (1,1,29) do (
set/a tmp=%%i+1
call set line%%i=%%line!tmp!%%
)
set line%flag%=

这个可以显示部分字符：

::code by WANKOILZ 2008/5/28
@echo off&setlocal enabledelayedexpansion&color 02&mode con lines=30&title 黑客帝国数码雨
setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#*$~\/:
:loop
if %flag% lss 30 (set/a flag+=1) else (call :chang)
for /l %%i in (1,1,26) do (
  if defined a%%i (call :set %%i&set tmp=!a%%i!
  ) else (if !random! lss 1000 (call :set %%i&set tmp=!a%%i!
         ) else (set tmp= ))
call set line%flag%=%%line!flag!%%  !tmp!
)
cls&for /l %%i in (%flag%,-1,1) do echo.!line%%i!
ping /n 1 127.1>nul
if !random! lss 500 (endlocal&setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#*$~\/:)
goto :loop

:chang
for /l %%i in (1,1,29) do (
set/a tmp=%%i+1
call set line%%i=%%line!tmp!%%
)
set line%flag%=
goto :eof
 
:set
set/a rnd=%random%%%43
set a%1=!code:~%rnd%,1!

5.30日改进，可以显示所有字符，因为用了太多的call导致速度有所降低：
：

::code by WANKOILZ 2008/5/28
@echo off&setlocal enabledelayedexpansion&color 02&mode con lines=30&title 黑客帝国数码雨
setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#*$~\/:^&%%^^^<^>+=
:loop
if %flag% lss 30 (set/a flag+=1) else (call :chang)
for /l %%i in (1,1,26) do (
  if defined a%%i (call :set1 %%i&set tmp=!a%%i!
  ) else (if !random! lss 1000 (call :set1 %%i&set tmp=!a%%i!
         ) else (set tmp= ))
call :set2
)
cls&for /l %%i in (%flag%,-1,1) do echo.!line%%i!
for /l %%i in (1,1,100) do ver>nul
::ping /n 1 127.1>nul
if !random! lss 500 (endlocal&setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#*$~\/:^&%%^^^<^>+=)
goto :loop

:chang
for /l %%i in (1,1,29) do (
  set/a tmp=%%i+1
  call :set3 %%i
)
set line%flag%=
goto :eof

:set1
set/a rnd=%random%%%50
set a%1=!code:~%rnd%,1!
goto :eof

:set2
set line%flag%=!line%flag%!  !tmp!
goto :eof

:set3
set line%1=!line%tmp%!

[ Last edited by WANKOILZ on 2008-6-3 at 02:10 PM ]

第1楼　WANKOILZ	发表于 2008-05-28 14:07
初级用户　发帖 89　积分 198　来自重庆
黑客帝国数码雨前几天zw兄开发了不少数码雨，我也来个模拟黑客帝国的数码雨：::code by WANKOILZ 2008/5/28 @echo off&setlocal enabledelayedexpansion&color 02&mode con lines=30&title 黑客帝国数码雨 setlocal&set flag=0 :loop if %flag% lss 30 (set/a flag+=1) else (call :chang) for /l %%i in (1,1,26) do ( if defined a%%i (set/a a%%i=!random!%%2&set tmp=!a%%i! ) else (if !random! lss 1000 (set/a a%%i=!random!%%2&set tmp=!a%%i! ) else (set tmp= )) call set line%flag%=%%line!flag!%% !tmp! ) cls&for /l %%i in (%flag%,-1,1) do echo.!line%%i! for /l %%i in (1,1,100) do ver>nul ::ping /n 1 127.1>nul if !random! lss 500 (endlocal&setlocal&set flag=0) goto :loop :chang for /l %%i in (1,1,29) do ( set/a tmp=%%i+1 call set line%%i=%%line!tmp!%% ) set line%flag%= 这个可以显示部分字符：::code by WANKOILZ 2008/5/28 @echo off&setlocal enabledelayedexpansion&color 02&mode con lines=30&title 黑客帝国数码雨 setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#$~\/: :loop if %flag% lss 30 (set/a flag+=1) else (call :chang) for /l %%i in (1,1,26) do ( if defined a%%i (call :set %%i&set tmp=!a%%i! ) else (if !random! lss 1000 (call :set %%i&set tmp=!a%%i! ) else (set tmp= )) call set line%flag%=%%line!flag!%% !tmp! ) cls&for /l %%i in (%flag%,-1,1) do echo.!line%%i! ping /n 1 127.1>nul if !random! lss 500 (endlocal&setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#$~\/:) goto :loop :chang for /l %%i in (1,1,29) do ( set/a tmp=%%i+1 call set line%%i=%%line!tmp!%% ) set line%flag%= goto :eof :set set/a rnd=%random%%%43 set a%1=!code:~%rnd%,1! 5.30日改进，可以显示所有字符，因为用了太多的call导致速度有所降低：：::code by WANKOILZ 2008/5/28 @echo off&setlocal enabledelayedexpansion&color 02&mode con lines=30&title 黑客帝国数码雨 setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#$~\/:^&%%^^^<^>+= :loop if %flag% lss 30 (set/a flag+=1) else (call :chang) for /l %%i in (1,1,26) do ( if defined a%%i (call :set1 %%i&set tmp=!a%%i! ) else (if !random! lss 1000 (call :set1 %%i&set tmp=!a%%i! ) else (set tmp= )) call :set2 ) cls&for /l %%i in (%flag%,-1,1) do echo.!line%%i! for /l %%i in (1,1,100) do ver>nul ::ping /n 1 127.1>nul if !random! lss 500 (endlocal&setlocal&set flag=0&set code=1234567890abcdefghijklmnopqrstuvwxyz#$~\/:^&%%^^^<^>+=) goto :loop :chang for /l %%i in (1,1,29) do ( set/a tmp=%%i+1 call :set3 %%i ) set line%flag%= goto :eof :set1 set/a rnd=%random%%%50 set a%1=!code:~%rnd%,1! goto :eof :set2 set line%flag%=!line%flag%! !tmp! goto :eof :set3 set line%1=!line%tmp%! [ Last edited by WANKOILZ on 2008-6-3 at 02:10 PM ]

第2楼　slore	发表于 2008-05-28 14:08
铂金会员　发帖 2,478　积分 5,212
有那个感觉……

第3楼　pusofalse	发表于 2008-05-28 15:43
银牌会员　发帖 646　积分 1,604
感觉不用CMD的多进程很难实现真正意义上的数码雨~

第4楼　HAT	发表于 2008-05-28 15:58
版主　发帖 5,017　积分 9,023
It's cool!

第5楼　hansom	发表于 2008-05-28 17:43
初级用户　发帖 87　积分 161
占个位子.

第6楼　terrytong	发表于 2008-05-28 19:01
中级用户　发帖 115　积分 240
如果有字母就好了。

第7楼　WANKOILZ	发表于 2008-05-30 11:32
初级用户　发帖 89　积分 198　来自重庆
改进后已经能够显示所有字符！

第8楼　cad55	发表于 2008-05-30 11:42
高级用户　发帖 329　积分 620
本论坛上有比它更好的雨........

第9楼　radem	发表于 2008-05-30 11:47
高级用户　发帖 383　积分 691
不是很流畅但已经很不错了

第10楼　jfsy	发表于 2008-05-30 20:07
初级用户　发帖 14　积分 26
不太懂，收下学习学习

第11楼　laver8030	发表于 2009-07-28 02:40
新手上路　发帖 5　积分 5
速度快了点而且没黑客中那种晶莹剔透的感觉

第12楼　523066680	发表于 2009-07-28 11:04
银牌会员　发帖 1,133　积分 2,362
bathome也讨论了 netbeton那个我很喜欢 http://bbs.bathome.cn/viewthread.php?tid=1393