动画模拟数码雨 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

&&记得上次有个兄弟想要我写个模拟数码雨的动画出来，当时并未十分在意。今天无事突然记起这件事，于是用16进制字符模拟出这个动画效果，写的不好，请各位兄弟见谅了。


@echo off&mode con cols=42 lines=20&color 09
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=123456789abcdef0&set m=1
set t=call,
:begin
set /a a=%random%%%16
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
if %m% lss 10 set n=0&set /a m+=1&goto begin
set n=0&set m=0
:again
set /a n+=1,m+=1
if %n% equ 11 set n=1
if %m% equ 50 set m=0&call :lp
for /l %%i in (1,1,8) do set cal=!cal!%t%
%cal%echo !str%n%!
set cal=&goto again
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%

友情提示：请不要长时间盯着看，容易看花眼的。。。

[ Last edited by zw19750516 on 2008-5-24 at 10:10 PM ]

第1楼　bat-zw	发表于 2008-05-24 22:08
金牌会员　发帖 1,276　积分 3,105
动画模拟数码雨 &&记得上次有个兄弟想要我写个模拟数码雨的动画出来，当时并未十分在意。今天无事突然记起这件事，于是用16进制字符模拟出这个动画效果，写的不好，请各位兄弟见谅了。 @echo off&mode con cols=42 lines=20&color 09 setlocal enabledelayedexpansion title 数码雨-zw19750516 set code=123456789abcdef0&set m=1 set t=call, :begin set /a a=%random%%%16 set a=!code:~%a%,1! set str%m%=!str%m%!%a% set /a n+=1 if %n% lss 40 goto begin if %m% lss 10 set n=0&set /a m+=1&goto begin set n=0&set m=0 :again set /a n+=1,m+=1 if %n% equ 11 set n=1 if %m% equ 50 set m=0&call :lp for /l %%i in (1,1,8) do set cal=!cal!%t% %cal%echo !str%n%! set cal=&goto again :lp set /a a=%random%%%15 set a=!code:~%a%,1! color 0%a% 友情提示：请不要长时间盯着看，容易看花眼的。。。 [ Last edited by zw19750516 on 2008-5-24 at 10:10 PM ]

第2楼　learner0	发表于 2008-05-24 22:12
初级用户　发帖 49　积分 108
lz对批处理真有激情，ding。。。。

第3楼　slore	发表于 2008-05-24 22:49
铂金会员　发帖 2,478　积分 5,212
有点密了……

第4楼　zh159	发表于 2008-05-25 00:11
金牌会员　发帖 1,467　积分 3,687
这不想数码雨，看看这贴： http://www.cn-dos.net/forum/viewthread.php?tid=24418

第5楼　youyun	发表于 2009-06-03 15:46
初级用户　发帖 58　积分 106
不像纯正的数码雨一直不明白数码雨是做什么用的汗