标题: 再次挑战数码雨(已更新) [打印本页]
作者: bat-zw 时间: 2008-5-25 02:32 标题: 再次挑战数码雨(已更新)
就是速度慢了点，要睡觉了，先不提速了。
@echo off&mode con cols=42 lines=20&color 0c
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=1 2 3 4 5 6 7 8 9 a b c d e f 0 &set m=1&set v=1
set code1=!code: =!
:begin
set /a a=%random%%%48
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo !str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:lp
set /a a=%random%%%15
set a=!code1:~%a%,1!
color 0%a%&set x=0
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=1 2 3 4 5 6 7 8 9 a b c d e f 0 &set m=1&set v=1
set code1=!code: =!
:begin
set /a a=%random%%%48
set a=!code:~%a%,1!
set str%m%=!str%m%!%a%
set /a n+=1
if %n% lss 40 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo !str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:lp
set /a a=%random%%%15
set a=!code1:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 06:27 PM ]
作者: 26933062 时间: 2008-5-25 02:43
果然有下雨的感觉，加满分！
作者: cad55 时间: 2008-5-25 08:33
为什么"雨"换成中文,下几下,就卡呢
[ Last edited by cad55 on 2008-5-25 at 08:40 AM ]
作者: HAT 时间: 2008-5-25 08:33
能否像黑客帝国里面那样，每一列都是对齐的？
作者: bat-zw 时间: 2008-5-25 08:48
对齐不难，就是对齐后不怎么好看了。。。
作者: 523066680 时间: 2008-5-25 09:21
我 觉得 对齐的话 开头的 字符不变 后面的字符在变 就 会 很像
最主要的是下落的速度 但是越完美就越难
这个数码雨很不错的了
作者: bat-zw 时间: 2008-5-25 09:24 标题: 加入雨量控制：
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=123456789abcdef0&set m=1&set v=1
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "[^0-9]">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%16,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 begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
setlocal enabledelayedexpansion
title 数码雨-zw19750516
set code=123456789abcdef0&set m=1&set v=1
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "[^0-9]">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%16,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 begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
作者: cad55 时间: 2008-5-25 10:27
楼主.
是下雨专家呀........
怎样才能下中文呢...........
作者: bat-zw 时间: 2008-5-25 10:31
中文字符一个占两个空位，注意这点就是的了。
作者: bat-zw 时间: 2008-5-25 11:25 标题: 下咒语：
@echo off&mode con cols=42 lines=20&color 02
setlocal enabledelayedexpansion
title 天下咒语-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1=哞喃呢吮咪嘛啊哄唏怛陀茶吒伽迦揭羯婆跋沙娑鸠度谜讫瞋赭阇唋奢
:set
set num=20
cls&echo 默认回车将设置咒级为20
set /p num=请设置咒级(1-40)：
echo %num%|findstr "[^0-9]">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
title 当前咒级：%num%
set /a num=200/num
color 0c
:begin
set /a a=%random%%%30,b=%random%%%%num%
set a=!code1:~%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 20 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
setlocal enabledelayedexpansion
title 天下咒语-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1=哞喃呢吮咪嘛啊哄唏怛陀茶吒伽迦揭羯婆跋沙娑鸠度谜讫瞋赭阇唋奢
:set
set num=20
cls&echo 默认回车将设置咒级为20
set /p num=请设置咒级(1-40)：
echo %num%|findstr "[^0-9]">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
title 当前咒级：%num%
set /a num=200/num
color 0c
:begin
set /a a=%random%%%30,b=%random%%%%num%
set a=!code1:~%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 20 goto begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 11:31 AM ]
作者: 523066680 时间: 2008-5-25 12:43
兴奋！！！！！这可是我的建议啊！！！！我是功臣！！（吹牛没打草稿）
一时间忘了 --完美 这个单词怎么写 唉~~~
作者: faultcode 时间: 2008-5-25 12:52
LS: Perfect :)
作者: huahua0919 时间: 2008-5-25 12:53
楼主34岁了？？
作者: bat-zw 时间: 2008-5-25 14:07 标题: 再来一个：
@echo off&mode con cols=42 lines=20&color 02
title 乱雨-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1==^^^&%%%^:!$#^>^<:=~*()@"'`;\|abcdefghijklmnopqrstuvwxyz0123456789-_+?,.
setlocal enabledelayedexpansion
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "[^0-9]">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%63,b=%random%%%%num%
set a=!code1:~%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 begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
title 乱雨-zw19750516
set code=123456789abcdef&set m=1&set v=1
set code1==^^^&%%%^:!$#^>^<:=~*()@"'`;\|abcdefghijklmnopqrstuvwxyz0123456789-_+?,.
setlocal enabledelayedexpansion
:set
set num=20
cls&echo 默认回车将设置雨量为20
set /p num=请设置雨量(1-40)：
echo %num%|findstr "[^0-9]">nul&&goto wrong
if %num% lss 1 goto wrong
if %num% gtr 40 goto wrong
set num1=%num%
set /a num=200/num
if %num% equ 5 (
title 当前暴雨，雨量：%num1%
) else (
if %num% leq 10 (
title 当前大雨，雨量：%num1%
) else (
if %num% leq 20 (
title 当前中雨，雨量：%num1%
) else (
if %num% leq 40 (
title 当前小雨，雨量：%num1%
) else (
title 当前微雨，雨量：%num1%
)
)
)
)
color 0c
:begin
set /a a=%random%%%63,b=%random%%%%num%
set a=!code1:~%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 begin
set /a x+=1
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
if %x% equ 20 call :lp
cls
for /l %%i in (%m%,-1,%v%) do echo.!str%%i!
set /a m+=1
if %m% geq 20 set /a v+=1
set n=0&goto begin
:wrong
cls&echo 请正确设置&ping /n 2 127.1>nul&goto set
:lp
set /a a=%random%%%15
set a=!code:~%a%,1!
color 0%a%&set x=0
[ Last edited by zw19750516 on 2008-5-25 at 02:10 PM ]
作者: hansom 时间: 2008-5-25 18:05
好大雨的啊.哈哈
作者: knoppix7 时间: 2008-5-25 21:18
对其用Tab好点
算空格太累..
作者: terse 时间: 2008-5-25 21:57
每行固定输出80字符 就对齐了吧
作者: WANKOILZ 时间: 2008-5-25 23:14
我也来个简单的：
@echo off&color 02
:loop
for /l %%i in (1,1,26) do (
call set/a var=%%random%%%%%%2&call set/p= %%var%%<nul
)
echo.
if %random% lss 1000 echo 数 码 雨
for /l %%i in (1,1,200) do ver>nul
goto loop
[ Last edited by WANKOILZ on 2008-5-27 at 03:35 PM ]:loop
for /l %%i in (1,1,26) do (
call set/a var=%%random%%%%%%2&call set/p= %%var%%<nul
)
echo.
if %random% lss 1000 echo 数 码 雨
for /l %%i in (1,1,200) do ver>nul
goto loop
作者: konkoo 时间: 2008-11-16 06:37
WANKOILZ
高效简洁，棒极了！
作者: weasel 时间: 2008-11-16 16:53
学习中，楼主厉害
作者: nanhezzb 时间: 2009-2-9 10:44
怎么实现向下滚动的呢？
作者: netbenton 时间: 2009-2-9 15:16 标题: 往下掉的（2进制）
@echo off&color 02
set n=1
:loop
set var=
for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%2&call set "var=%%var%% %%r%%")
set "len%n%=%var%"
set/a n=(n-1+24)%%24,m=n
for /l %%b in (1,1,24) do (call :sub)
cls
echo.%var%
for /l %%i in (1,1,300) do ver>nul
goto loop
:sub
set/a m=(m+1)%%24
call set var=%%var%% %%len%m%%%
[ Last edited by netbenton on 2009-2-9 at 18:43 ]
作者: netbenton 时间: 2009-2-9 21:30 标题: 精简一下
部分代码借18楼的办法，改动一下成往下掉的。
真正的“雨”下来咯！^_^
@echo off&color 02
set len= 数 码 雨 来 咯 ！
:loop
set var=
for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%2&call set "var=%%var%% %%r%%")
set len=%var% %len:~0,1838%
cls
echo.%len%
for /l %%i in (1,1,300) do ver>nul
goto loop
作者: netbenton 时间: 2009-2-9 21:38 标题: 下16进制的“雨”
@echo off&color 02
set len= 数 码 雨 来 咯 ！ 16H By Benton
set str=fedcba9876543210
:loop
set var=
for /l %%i in (1,1,26) do (call set/a r=%%random%%%%%%16&call call set "var=%%var%% %%%%str:~%%r%%,1%%%%")
set len=%var% %len:~0,1838%
cls
echo.%len%
for /l %%i in (1,1,300) do ver>nul
goto loop
作者: kennyfan 时间: 2009-2-16 00:25
哈哈,还真挺好玩的呢!
作者: learner0 时间: 2009-2-16 14:32
不错的bat
作者: netbenton 时间: 2009-4-17 02:12
@echo off&color 02
if defined len goto :sub
SETLOCAL ENABLEDELAYEDEXPANSION
set len= 数 码 雨 来 咯 ！ By Benton
start /b %~n0.bat
title 数码雨 By Benton 按任意键退出
set str= 0 1 2 3 4 5 6 7 89ABCDEFG
:loop
set var=
for /l %%i in (1,1,26) do (set/a r=!random!%%32&call set "var=!var! %%str:~!r!,1%%")
set len=!var! !len:~0,1838!
cls
echo !len!
for /l %%i in (1,1,300) do ver>nul
goto loop
:sub
pause>nul
TASKKILL /FI "WINDOWTITLE ne 数码雨 By Benton" >nul
作者: netbenton 时间: 2009-4-17 11:47
::黑客数码雨双向移动，超逼真
::还支持按键退出
@echo off&color 0a
if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
setlocal enabledelayedexpansion
start /b %~n0.bat
title 数码雨 By Benton 按任意键退出
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=0
set m=1
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+22^)%%23,m=^(m+22^)%%23
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
set tem=!n0!
for %%a in (a b) do (
for /l %%i in (22,-1,0) do (
set tem1=!n%%i!
set n%%i=!tem!
set tem=!tem1!))
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1
)
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1838!
for /l %%i in (1,1,1000) do echo.>nul
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "WINDOWTITLE ne 数码雨"
if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22"
setlocal enabledelayedexpansion
start /b %~n0.bat
title 数码雨 By Benton 按任意键退出
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=0
set m=1
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+22^)%%23,m=^(m+22^)%%23
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
set tem=!n0!
for %%a in (a b) do (
for /l %%i in (22,-1,0) do (
set tem1=!n%%i!
set n%%i=!tem!
set tem=!tem1!))
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1
)
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1838!
for /l %%i in (1,1,1000) do echo.>nul
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "WINDOWTITLE ne 数码雨"
作者: netbenton 时间: 2009-4-17 14:17
::双向移动+左右文字滚动
@echo off&color 0a
if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
title 数码雨 By Benton 按任意键退出
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=2
set m=0
set k=0
set "in0=。。。。——《《欢迎来到黑客帝国》》——。。。。。"
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
set tem=!n0!
for %%a in (a b) do (
for /l %%i in (23,-1,0) do (
set tem1=!n%%i!
set n%%i=!tem!
set tem=!tem1!))
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1
)
for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26)
set in=!in0:~%k%!!in0:~0,%k%!
set im=!im0:~-%k%!!im0:~0,-%k%!
set l10=!l10:~0,25!!in:~0,15!!l10:~55!
set l12=!l12:~0,25!!im:~0,15!!l12:~55!
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1888!
for /l %%i in (1,1,200) do echo.>nul
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ 数码雨*">nul
[ Last edited by netbenton on 2009-4-17 at 22:32 ]if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
title 数码雨 By Benton 按任意键退出
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=2
set m=0
set k=0
set "in0=。。。。——《《欢迎来到黑客帝国》》——。。。。。"
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
set tem=!n0!
for %%a in (a b) do (
for /l %%i in (23,-1,0) do (
set tem1=!n%%i!
set n%%i=!tem!
set tem=!tem1!))
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1
)
for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26)
set in=!in0:~%k%!!in0:~0,%k%!
set im=!im0:~-%k%!!im0:~0,-%k%!
set l10=!l10:~0,25!!in:~0,15!!l10:~55!
set l12=!l12:~0,25!!im:~0,15!!l12:~55!
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1888!
for /l %%i in (1,1,200) do echo.>nul
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ 数码雨*">nul
作者: wseemed 时间: 2009-4-18 00:58
新人路过，学习了
作者: water0 时间: 2009-4-18 05:02
学习了!!!!!!!!!!!!!!!!
作者: dosz 时间: 2009-4-18 10:43
netbenton_欢迎来到黑客帝国
好玩！
就是文件头不好加注？
:: http://www.cn-dos.net/forum/viewthread.php?tid=40698
作者: tongtong2009 时间: 2009-4-18 11:17 标题: 我倒啊
太NB了。 真是高手多的跟什么S的
作者: netbenton 时间: 2009-4-19 03:08 标题: 再增加一些: 测帧，动态标题，滚动中加转动
@echo off&color 0a
if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=1
set m=0
set k=0
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
set mmz=%time:~6,2%
set "chan=/-\|"
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
::增加的标题效果
set/a zza+=1
if not "%time:~6,2%"=="%mmz%" (
set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2%
set "tit= Made by Benton !zz!帧/秒，按任意键退出 "
)
title @_@ [ !tit:~-%k%!!tit:~0,-%k%! ]
::增加的标题效果
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!)
set n23=!n-1!
set n22=!n-2!
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1)
::增加的中间效果
for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26)
set/a chn=^(chn+1^)%%4
set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—"
set im=!im0:~-%k%!!im0:~0,-%k%!
set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55!
set l12=!l12:~0,25!!im:~0,15!!l12:~55!
::增加的中间效果
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1888!
for /l %%i in (1,1,150) do cd..>nul
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul
[ Last edited by netbenton on 2009-4-19 at 08:54 ]if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=1
set m=0
set k=0
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
set mmz=%time:~6,2%
set "chan=/-\|"
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
::增加的标题效果
set/a zza+=1
if not "%time:~6,2%"=="%mmz%" (
set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2%
set "tit= Made by Benton !zz!帧/秒，按任意键退出 "
)
title @_@ [ !tit:~-%k%!!tit:~0,-%k%! ]
::增加的标题效果
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!)
set n23=!n-1!
set n22=!n-2!
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1)
::增加的中间效果
for %%i in (0 4 8 12 16 20) do (if %m%==%%i set/a k=^(k+25^)%%26)
set/a chn=^(chn+1^)%%4
set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—"
set im=!im0:~-%k%!!im0:~0,-%k%!
set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55!
set l12=!l12:~0,25!!im:~0,15!!l12:~55!
::增加的中间效果
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
cls
echo !len:~0,1888!
for /l %%i in (1,1,150) do cd..>nul
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul
作者: netbenton 时间: 2009-4-19 10:54
再增加闪烁效果
@echo off&color 0a
if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=1
set m=0
set k=0
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
set mmz=%time:~6,2%
set "chan=/-\|"
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
::增加的标题效果
set/a zza+=1
if not "%time:~6,2%"=="%mmz%" (
set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2%
set "tit= Made by Benton !zz!帧/秒，按任意键退出 "
)
title @_@ [ !tit:~-%k%!!tit:~0,-%k%! ]
::增加的标题效果
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!)
set n23=!n-1!
set n22=!n-2!
cls&color 0f&echo !len:~0,1888!
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1)
::增加的中间效果
if "%chn%"=="3" set/a k=^(k+25^)%%26
set/a chn=^(chn+1^)%%4
set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—"
set im=!im0:~-%k%!!im0:~0,-%k%!
set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55!
set l12=!l12:~0,25!!im:~0,15!!l12:~55!
::增加的中间效果
cls&color 0a&echo !len:~0,1888!
::如果速度过快的话，在这里增加延时for /l %%i in (1,1,150) do cd..>nul
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul
if defined lins goto :sub
set "lins= 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23"
setlocal enabledelayedexpansion
start /b %~n0.bat
set str=fedcbag h i j k l m n o p q r s t u v w x y z9876543210ABCDEFG H I J K L M N O P Q R S T U V W X Y Z
for %%i in (%lins%) do (
for /l %%j in (1,1,8) do (
set "m%%i=!m%%i! "
set "n%%i=!n%%i! "
)
)
set n=1
set m=0
set k=0
set "im0=看到美女了吗？看到了，说明你已是黑客帝国的了。。。"
set mmz=%time:~6,2%
set "chan=/-\|"
::预处理结束
:::::::::::::::循环体:::::::::::::::
:loop
::增加的标题效果
set/a zza+=1
if not "%time:~6,2%"=="%mmz%" (
set/a zzm+=1,zz=zza/zzm&set mmz=%time:~6,2%
set "tit= Made by Benton !zz!帧/秒，按任意键退出 "
)
title @_@ [ !tit:~-%k%!!tit:~0,-%k%! ]
::增加的标题效果
set var= %%str:~!random:~0,2!,1%%
for /l %%i in (1,1,2) do (
call set "var=!var! %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%% %%str:~!random:~0,2!,1%%"
)
set/a n=^(n+23^)%%24,m=^(m+23^)%%24
set m%m%=!var!
set n%n%=!var!
set lins=!lins:~-3!!lins:~0,-3!
for /l %%i in (0,1,23) do (set/a ll=%%i-2&set n!ll!=!n%%i!)
set n23=!n-1!
set n22=!n-2!
cls&color 0f&echo !len:~0,1888!
set ll=0
for %%i in (%lins%) do (
set "l!ll!=!m%%i:~0,3!!n%%i:~0,3!!m%%i:~3,3!!n%%i:~3,3!!m%%i:~6,3!!n%%i:~6,3!!m%%i:~9,3!!n%%i:~9,3!!m%%i:~12,3!!n%%i:~12,3!!m%%i:~15,3!!n%%i:~15,3!!m%%i:~18,3!!n%%i:~18,3!!m%%i:~21,3!!n%%i:~21,3!!m%%i:~24,3!!n%%i:~24,3!!m%%i:~27,3!!n%%i:~27,3!!m%%i:~30,3!!n%%i:~30,3!!m%%i:~33,3!!n%%i:~33,3!!m%%i:~36,3!!n%%i:~36,3! "
set/a ll+=1)
::增加的中间效果
if "%chn%"=="3" set/a k=^(k+25^)%%26
set/a chn=^(chn+1^)%%4
set "in0=—《!chan:~%chn%,1!》欢迎来到黑客帝国《!chan:~-%chn%,1!》—"
set im=!im0:~-%k%!!im0:~0,-%k%!
set l10=!l10:~0,25!!in0:~%k%!!in0:~0,%k%!!l10:~55!
set l12=!l12:~0,25!!im:~0,15!!l12:~55!
::增加的中间效果
cls&color 0a&echo !len:~0,1888!
::如果速度过快的话，在这里增加延时for /l %%i in (1,1,150) do cd..>nul
set len=!l0!!l1!!l2!!l3!!l4!!l5!!l6!!l7!!l8!!l9!!l10!!l11!!l12!!l13!!l14!!l15!!l16!!l17!!l18!!l19!!l20!!l21!!l22!!l23!
goto loop
::::::::::::::::::::::::::::::::::::
::外部控制子过程
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul