中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 动画模拟数码雨

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『楼主』: 动画模拟数码雨

&&记得上次有个兄弟想要我写个模拟数码雨的动画出来，当时并未十分在意。今天无事突然记起这件事，于是用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%