批处理之家 » BAT原创&转载 » 批处理乱雨纷飞

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

返回列表发帖

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2008-6-21 15:58 | 只看该作者

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

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

＊＊＊共同提高＊＊＊

Rank: 2

帖子: 11
积分: 199
技术: 0
捐助: 0
注册时间: 2008-6-21

2楼

发表于 2008-6-21 19:41 | 只看该作者

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

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

3楼

发表于 2008-6-21 22:57 | 只看该作者

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

@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
set code=123456789abcdef
set m=1&set v=1
title 黑客帝国数码雨 by bat-zw19750516
:begin
set /a a=%random%%%2,b=%random%%%3
if %b% neq 0 (set b=%a%) else (set "b= ")  
set str=%str%%b%
set /a n+=1
if %n% lss 40 goto begin
set /a m+=1,x+=1
if %m% geq 20 set /a v+=1 
set str%m%=%str%
cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
if %x% equ 20 call :lp
set str=&set n=0
goto begin
:lp
set /a a=%random%%%15,x=0
set a=!code:~%a%,1!
color 0%a%
复制代码

＊＊＊共同提高＊＊＊

Rank: 3 Rank: 3

帖子: 18
积分: 205
技术: 0
捐助: 0
注册时间: 2008-6-15

4楼

发表于 2008-6-22 12:47 | 只看该作者

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

Rank: 3 Rank: 3

帖子: 18
积分: 205
技术: 0
捐助: 0
注册时间: 2008-6-15

5楼

发表于 2008-6-22 13:02 | 只看该作者

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

Rank: 2

帖子: 3
积分: 172
技术: 0
捐助: 0
注册时间: 2008-6-23

6楼

发表于 2008-6-23 16:16 | 只看该作者

全屏代码？？？

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

年青，没有什么不可以！

Rank: 5 Rank: 5

帖子: 566
积分: 707
技术: 12
捐助: 0
注册时间: 2011-6-27

7楼

发表于 2011-9-1 21:14 | 只看该作者

还有“当前雨量”～

http://garyngzhongbo.blogspot.com

Rank: 3 Rank: 3

帖子: 162
积分: 258
技术: 22
捐助: 0
注册时间: 2015-4-3

8楼

发表于 2015-8-15 16:46 | 只看该作者

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

Rank: 2

帖子: 62
积分: 150
技术: 9
捐助: 5
注册时间: 2011-1-5

9楼

发表于 2015-10-7 23:03 | 只看该作者

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

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

10楼

发表于 2015-10-7 23:32 | 只看该作者

回复 9# winload

向上容易向下难呀

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 2

帖子: 62
积分: 150
技术: 9
捐助: 5
注册时间: 2011-1-5

11楼

发表于 2015-10-8 10:34 | 只看该作者

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

Rank: 2

帖子: 62
积分: 150
技术: 9
捐助: 5
注册时间: 2011-1-5

12楼

发表于 2015-10-8 10:47 | 只看该作者

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

Rank: 1

帖子: 9
积分: 23
技术: 1
捐助: 0
注册时间: 2016-5-25

13楼

发表于 2016-5-25 17:36 | 只看该作者

mark一下

Live long and prosper