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

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

Tamce

太牛了！！简直不敢相信！

fish509008

真牛！。。。。

laolong

哇喔，强啊  
支持一下

再世情緣

收藏！！有时间了好好研究！！！

COPYFREE

漂亮，效果真棒

cjw00529017

真长见识了 我必须膜拜一下 太牛了

yunbaomong

回复 29# netbenton


    反应一个问题，算不算鸡蛋里挑骨头，嘿嘿。。netbenton大神的在WIN7系统里如果以管理员身份运行，会无法按任意键关闭。netbenton大神有没有时间修复下哦，太高深了，我实在是看不懂。

0123456789

全屏了能当屏保，不错。

baihaijiao101

回复 1# 523066680


    如果大牛有时间的话，可否附上一些原理性的解释，很想学习学习，但是有看不太懂……

netbenton

回复 79# wosliming


《!chan:~%chn%,1!》这里实现取变量中的一个字符，只要改变 %chn%的值，即可: set /a "chn= (chn + 1) %% 4"

wosliming

回复 29# netbenton


   

代码很强大，我注意到你用 set "chan=/-\|"  来实现一个米字 的旋转，

想问下，这个怎么独立出来，想放到别的bat里面，感觉很炫…………

求教…………

garyng

哇～
好漂亮哦～

raymai97

这也太强了吧？ 只不过1L已经很好了，为何还在4L写呢？还有临时文件呢~

chenqldiy

不错，好玩哈哈