中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 再次挑战数码雨(已更新)

English/Chinese Fix Translation

作者:

标题: 再次挑战数码雨(已更新)

上一主题 | 下一主题

water0
初级用户

积分 33
发帖 29
注册 2009-4-6
状态离线

『第 31 楼』: 使用 LLM 解释/回答一下

学习了!!!!!!!!!!!!!!!!

2009-4-18 05:02

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

dosz
中级用户

一看二跟三动手

积分 396
发帖 188
注册 2005-10-23
来自上海
状态离线

『第 32 楼』: 使用 LLM 解释/回答一下

netbenton_欢迎来到黑客帝国
好玩！
就是文件头不好加注？
:: http://www.cn-dos.net/forum/viewthread.php?tid=40698

*/. . . * .
.\* . * dosz
*/ . ./\~~~~~~~~~~~~'\. ^|◆
\* ,/,..,\,...........,\.◆
^|^| ..▎# ▎田田 ▎ ^| ▎◆
^|^| ^&^&▎ ▎ ▎'^|'▎ o
^|^| ##■■■■■■■■■■〓

2009-4-18 10:43

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

tongtong2009
初级用户

统统一计划

积分 45
发帖 24
注册 2009-3-7
来自中华人民共和国
状态离线

『第 33 楼』: 我倒啊使用 LLM 解释/回答一下

太NB了。真是高手多的跟什么S的

2009-4-18 11:17

查看资料访问主页发短消息网志 OICQ

(29394576)

编辑帖子回复引用回复

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『第 34 楼』: 再增加一些: 测帧，动态标题，滚动中加转动使用 LLM 解释/回答一下

@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 @_@       

::增加的标题效果



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 ]

```batch
@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=Did you see a beautiful woman? If you did, it means you are already in The Matrix..."
set mmz=%time:~6,2%
set "chan=/-\|"
::Preprocessing ends

:::::::::::::::Loop body:::::::::::::::
:loop

::Added title effect
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! frames per second, press any key to exit "
)
title @_@
::Added title effect

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)

::Added middle effect
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!》Welcome to The Matrix《!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!
::Added middle effect

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
::::::::::::::::::::::::::::::::::::

::External control sub - process
:sub
pause>nul
TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul
```

Last edited by netbenton on 2009 - 4 - 19 at 08:54 ]

精简
=> 个人

网志

2009-4-19 03:08

查看资料发送邮件发短消息网志 OICQ

(37659560)

编辑帖子回复引用回复

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『第 35 楼』: 使用 LLM 解释/回答一下

再增加闪烁效果

@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 @_@       

::增加的标题效果



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

Add flashing effect

@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=Did you see a beautiful woman? If you did, it means you are already in The Matrix..."

set mmz=%time:~6,2%

set "chan=/-\|"

::Preprocessing ends





:::::::::::::::Loop body:::::::::::::::

:loop



::Added title effect

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! frames per second, press any key to exit "

)

title @_@       

::Added title effect



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)



::Added middle effect

	if "%chn%"=="3" set/a k=^(k+25^)%%26

	set/a chn=^(chn+1^)%%4

	set "in0=—《!chan:~%chn%,1!》Welcome to The Matrix《!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!

::Added middle effect

cls&color 0a&echo !len:~0,1888!

::If the speed is too fast, add a delay here 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

::::::::::::::::::::::::::::::::::::



::External control sub - process

:sub

pause>nul

TASKKILL /FI "IMAGENAME EQ cmd.exe" /FI "WINDOWTITLE EQ @_@ *">nul

精简
=> 个人

网志

2009-4-19 10:54

查看资料发送邮件发短消息网志 OICQ

(37659560)

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: