[游戏娱乐] 潜水数天完成了自己满意的批处理数码雨

523066680

该批处理同时在cn-dos发布。http://www.cn-dos.net/forum/forumdisplay.php?fid=23&page=1
留意该批处理的第二行特效。

@echo off
title made by 523066680 2008-08-08
::这一版本由www.cn-dos.net & www.bathome.net 成员523066680编辑
mode con cols=85 lines=21
color 0a
setlocal enabledelayedexpansion
set a=0
for %%m in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
if !a! leq 9 (set n0!a!=%%m) else (set n!b!=%%m)
set /a a+=1
set /a b=!a!-10
)
for %%M in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
set n!b!=%%M
set /a b+=1
)
for /l %%a in (1,1,20) do (
set h%%a=
for /l %%b in (1,1,20) do (
call,set code=%%n!random:~1,2!%%
if not defined code (set "code= ")
set h%%a=!code!   !h%%a!
)
)
set num=0
:a
set /a num+=1
if %num% equ 260 set num=0
ping -n>nul
cls
echo,   %h1%
echo,   %hn%
for /l %%a in (3,1,20) do echo,   !h%%a!
for /l %%a in (19,-1,1) do (
set /a n=1+%%a
set h!n!=!h%%a!
)
set hn=%h2%
set h1=
for /l %%b in (1,1,20) do (
call,set code=%%n!random:~1,2!%%
if not defined code (set "code= ")
set h1=!code!   !h1!
)

if %num% gtr 80 (if %num% lss 100 set hn=                      %h19:   = %)
if %num% gtr 140 (if %num% lss 160 set hn=                      %h19:   = %)
if %num% gtr 200 (if %num% lss 220 set hn=                      %h19:   = %)
if %num% gtr 100 (if %num% leq 130 (
set hn=%hn:~0,20%    B a t H o m e    I f _ E x i s t    %hn:~-20%
))
if %num% gtr 160 (if %num% leq 190 (
set hn=%hn:~0,19%      C n - D o s     I f _ E x i s t     %hn:~-19%
))
if %num% gtr 220 (if %num% leq 240 (
set hn=%hn:~0,19%          W W W . 3 X 4 Y . C O M        %hn:~0,19%
))
for %%a in (100 160 220) do (
if %num% equ %%a (set hn=                     =====================+================== ))
goto :a
pause
pause
复制代码

523066680

@echo off
title made by 523066680 2008-08-08
::这一版本由www.cn-dos.net & www.bathome.net 成员523066680编辑
mode con cols=110 lines=21
color 0a
setlocal enabledelayedexpansion
set a=0
for %%m in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
if !a! leq 9 (set n0!a!=%%m) else (set n!b!=%%m)
set /a a+=1
set /a b=!a!-10
)
for %%M in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
set n!b!=%%M
set /a b+=1
)
for /l %%a in (1,1,20) do (
set h%%a=
for /l %%b in (1,1,20) do (
call,set code=%%n!random:~3,2!%%
if not defined code (set "code= ")
set h%%a=!code!   !h%%a!
) 
)
set num=0
:a
set /a num+=1
if %num% equ 260 set num=0
del xXx
ECHO,      %h1%>>XXX
ECHO,      %hn%>>XXX
for /l %%a in (3,1,20) do echo,      !h%%a!>>xXx
for /l %%a in (1,1,100) do echo,>nul
cls
type xXx
for /l %%a in (19,-1,1) do (
set /a n=1+%%a
set h!n!=!h%%a!
)
set hn=%h2%
set h1=
for /l %%b in (1,1,20) do (
call,set code=%%n!random:~3,2!%%
if not defined code (set "code= ")
set h1=!code!    !h1!
)

if %num% gtr 80 (if %num% lss 100 set hn=                         %h19:   = %)
if %num% gtr 140 (if %num% lss 160 set hn=                          %h19:   = %)
if %num% gtr 200 (if %num% lss 220 set hn=                          %h19:   = %)
if %num% gtr 100 (if %num% leq 130 (
set hn=%hn:~0,30%    B a t H o m e    I f _ E x i s t    %hn:~-30%
))
if %num% gtr 160 (if %num% leq 190 (
set hn=%hn:~0,29%      C n - D o s     I f _ E x i s t     %hn:~-29%
))
if %num% gtr 220 (if %num% leq 240 (
set hn=%hn:~0,29%          W W W . 3 X 4 Y . C O M        %hn:~0,29%
))
for %%a in (100 160 220) do (
if %num% equ %%a (set hn=                           =====================+================== ))
goto :a
复制代码

523066680

话说我的贴子怎么就少人回帖啊

523066680

真不容易呢 呵呵 写累了，大家如果有看 就看一楼的吧

523066680

netbenton 一路领先，来到了这里。
我支持你，本来只是看看贴的，看到你写的这么好，特地登录加分！

for /l %%i in (1,1,200) do echo.>nul

由于身处网吧  无时间详细窥探思路
不过我找找茬

认为 上面一句 for + echo的延迟 可以改成 ping -n 1 127.1>nul

[ 本帖最后由 523066680 于 2009-4-18 16:23 编辑 ]

523066680

netbenton的效果更有特色  上下交互穿梭
中间还有字幕

(除非他改了原来的版本，当时我看的时候是这样的效果)

我认同这样的效果，他是在能模仿了以后再增加自己的创意的。

523066680

Re:  netbenton  


效果很好，可惜，我的帖子下似乎有“风水”问题，基本上在这里发表作品很快就沉下去了。


当然还有一个原因是，本来是高亮的 现在取消后反成灰色，颜色比普通帖子要低沉
所以看到都像是禁忌帖~



他们不顶  我顶  我还是if_exist！   以后别处见了。


---------------------------------------------------------------------

我在这里回复batcher哈 ，原来是这样，谢谢说明。

[ 本帖最后由 523066680 于 2009-8-19 22:35 编辑 ]

523066680

1楼是历史事件。还是后来者居上，各位继续。

523066680

经过后来netbenton升级，这个帖子有访量上万的可能……

523066680

虽然很可能很漂亮，不过不敢开……

523066680

That sounds good!

523066680

有颜色后可以做出绿色深浅不同的数码往下落的更有层次感的雨。
过渡到某种方式，所以很少用批处理做了。