批处理乱雨纷飞

batman · 发表于 2008-6-21 15:58:06

@echo off&mode con cols=42 lines=20&color 02
set m=1&set v=1
set code==^^^&%%%^:!$#^>^<:=~*()@"'`;\|-_+?,.ghijklmnopqrstuvwxyz0123456789abcdef
setlocal enabledelayedexpansion
:begin
set /a num=%random%%%40+1,num1=num,num=200/num
title 乱雨纷飞，当前雨量：%num1%
:lp
set /a a=%random%%%63,b=%random%%%%num%
set a=!code:~%a%,1!
if %b% equ 0 (set "b=!a!") else (set "b= ")
set str%m%=!str%m%!!b!
set /a n+=1
if %n% lss 40 goto lp
set /a x+=1,w+=1
if %x% equ 40 call :lop
cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
if %w% equ 100 (set w=0&goto begin) else (set n=0&goto lp)
:lop
set /a a=%random%%%15+1
set a=!code:~-%a%,1!
color 0!a!&set x=0

复制代码

杨风 · 发表于 2008-6-21 19:41:32

提个建议：为什么不把它改成下落 101010 的呢？那样的话不是像黑客帝国里的画面了码？？？
呵呵~~~

batman · 发表于 2008-6-21 22:57:59

原帖由杨风于 2008-6-21 19:41 发表
提个建议：为什么不把它改成下落 101010 的呢？那样的话不是像黑客帝国里的画面了码？？？
呵呵~~~

复制代码

leoboy123 · 发表于 2008-6-22 12:47:51

黑客帝国数码雨能不能使他固定1个颜色，。。。例如我想它的颜色代码是
0a
怎么做？

leoboy123 · 发表于 2008-6-22 13:02:04

不用了。。我刚刚知道了- -。

yyyxlxq · 发表于 2008-6-23 16:16:59

请问一下全屏窗口的命令是什么？
我想加到这个里面不是更偈黑客里面的么

garyng · 发表于 2011-9-1 21:14:01

还有“当前雨量”～

尘丶 · 发表于 2015-8-15 16:46:54

赞，看了你的好多代码，短小而精悍！

winload · 发表于 2015-10-7 23:03:55

终于看到一个雨是向地面落的了，之前看的好多雨都是向天上飞的。呵呵

CrLf · 发表于 2015-10-7 23:32:45

回复 9# winload

向上容易向下难呀

winload · 发表于 2015-10-8 10:34:00

先是在转载代码区看到的，怎么又到原创区了？

winload · 发表于 2015-10-8 10:47:39

好吧，我承认是我看错了，之前也是在这里看到的

teslawq · 发表于 2016-5-25 17:36:08

mark一下

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[游戏娱乐] 批处理乱雨纷飞