[特效代码] 批处理动画频道欢迎你！

@echo off&setlocal enabledelayedexpansion&title 批处理动画频道&color 1f
for /l %%i in (1 1 40) do set Table= !Table!
set "BatTv=!Table!欢迎观看批处理动画频道 "
set MoveTime=0
set Right=0&set Left=1
echo\&echo\&echo\&echo\&echo\
:Move
if "!MoveTime!"=="2" (call :Delay 1000&goto :Enter)
set Right=%Left%&set Left=%Right%
for /l %%i in (1 1 30) do (
set /p=!BatTv!<NUL
 call :Delay 100
for /l %%j in (1 1 100) do set /p=<NUL
 if "!Right!"=="1" (set BatTv=!BatTv:~1,-1! ) else (set BatTv= !BatTv!)
)
set /a MoveTime+=1
goto :Move

:Enter
cls&echo\&echo\&echo\&echo\&echo\&echo 欢迎观看批处理动画频道 
echo\&echo\&echo\
for /l %%i in (1 1 75) do set /p=^|<NUL
for /l %%i in (1 1 75) do set /p=<NUL
for /l %%i in (1 1 75) do (
set /p=^><NUL
 call :Delay 100
)

:Menu
cls&echo\&echo\&echo\&echo 本频道收集了8个批处理动画！欢迎欣赏！
set "List=1.搞笑开机,2.娱乐进度条,3.黑客帝国数码雨,4.超强进度条,5.批处理走字特效,6.光棍节动画,7.四处奔走,8.广告时间"
echo\
for %%i in (%list%) do (
set /p=%%i<NUL&ECHO\
 call :Delay 500
)
echo\
set /p InPut=请输入想看的动画代码:
for %%i in (1,2,3,4,5,6,7,8,9) do (if "%InPut%"=="%%i" set Novaa=1)
if defined Novaa (goto :Choice%InPut%) else (echo 错误的输入！&ping /n 3 127.1>nul&goto :Menu)

:Choice1
cls
set _tmp_F_S=C:\_delay.vbs
set _tmp_F_F=C:\_tmp.tmp
set delay=50
set s1=开机
set s2=快开机
set s3=他开机
set s4=你他妈到底开不开机
set s5=操！！再不开机老子砸了你！！
echo if WScript.Arguments.count = 1 then WScript.Sleep CInt(WScript.Arguments(0)) end if>%_tmp_F_S%
if exist %_tmp_F_F% del %_tmp_F_F%
for /L %%i in (1,1,4) do (call :show %%s%%i%% && call :fail %%s%%i%%)
call :show %s5%
call :suc
if exist %_tmp_F_S% del %_tmp_F_S%
if exist %_tmp_F_F% del %_tmp_F_F%
ping -n 1 127.1>nul
goto :EOF

:show
if "%~1"=="" goto :EOF
set s=%1
set /p ans=%cd%^><NUL
set /A len=0
:comp_len
echo %%s:~%len%,1%% | find "ECHO">nul && goto end_comp
set /A "len+=1"
goto comp_len
:end_comp
set /A "len-=1"
for /L %%i in (0,1,%len%) do (cscript //nologo %_tmp_F_S% %delay% && set /p ans=!s:~%%i,1!<NUL)
cscript //nologo %_tmp_F_S% 500
echo.
echo %cd%^>%1>>%_tmp_F_F%
echo.>>%_tmp_F_F%
goto :EOF

:fail
echo '%1' 不是内部或外部命令，也不是可运行的程序
echo 或批处理文件。
echo.
echo '%1' 不是内部或外部命令，也不是可运行的程序>>%_tmp_F_F%
echo 或批处理文件。>>%_tmp_F_F%
echo.>>%_tmp_F_F%
goto :EOF

:suc
ping -n 1 127.1>nul
set eqq================================================================================
set 

gtr=^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^

>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>^>
echo Loading Windows 2000 ...>>%_tmp_F_F%
echo.>>%_tmp_F_F%
for /L %%i in (0,1,79) do (set /A new=2*%%i && type %_tmp_F_F% && echo !gtr:~0,%%i!!eqq:~%%i,80! && ping -n 1 

127.1>nul && cls)
goto :Menu

:Choice2
cls
:: Code by tao0610 2006-12-5 CMD@XP
:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=25345

set a=▉&set b=69&set c=%% 
set space= 
:start
set a=%a%▉
set/a b-=2
set/a num+=3
if %num%==12 set/a b-=1
call set space=%%space:~0,%b%%%
if %num% gtr 100 set num=溢出&&set c=
echo.
echo.
color fc
echo ┏━━┓我 ●╭○╮ 我┏━━┓
echo ┃天长┃愛 ★ /█∨█\ ★ 想┃永远┃
echo ┃地久┃你 ∏ ∏ 你┃拥有┃
echo ┗━━┛． 我爱你一万年 ┗━━┛
echo 感情进度条......
echo ┏─────────────────────────────────────┓
echo │%a%%space%%num%%c%│
echo ┗─────────────────────────────────────┛
ping/n 2 127.1>nul
if "%num%" neq "溢出" cls&goto start
for /l %%a in (1,1,10) do color cf&ping/n 1 127.1>nul&color fc&ping/n 1 127.1>nul

:Choice3
cls
:: Code by 不得不爱 2006-11-3 CMD@XP
:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418
mode con cols=80
set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^&^^^>^<
set b= 
setlocal enabledelayedexpansion
:a
set /a num=%random%%%92
set 字符=!a:~-%num%,1!
set/a c=%random%%%80
set 空格=!b:~-%c%!
echo %空格%^%字符%
goto a

:Choice4
cls
:: 模拟进度，有剩余时间、已完成进度、进度条的显示
:: code by bg 2006-10-8 CMD@XP
color 1f
title.
mode con lines=10
rem 进度条 ▉▉▉▉▉
set work=0
set n=0
set mo=0
set number=0
rem all是总数
set all=60
set time=%all%
:show111

:check
if %number% GTR %mo% set num=%num%▉&set /a mo=%mo%+1&goto check

:2

cls
echo 进度： %n% / %all% 剩余时间:%time%秒
echo.
echo. 
echo 完成 %work% %%%
echo.
if not "%num%"=="" echo %num%
if not "%num%"=="" echo %num%

if %work%==100 goto end111

ping 127.1 -n 1 >nul
set /a n=%n%+1
set /a time=%all%-%n%
set /a work=(%n%)*100/(%all%)
set /a number=%work%/3
set /a number=%number%+1
goto show111
endlocal

:end111
endlocal
pause>nul
exit

:Choice5
cls
::code by 随风 bbs.bathome.net
for /l %%i in (1 1 40) do set ko= !ko!
set "str=!ko!欢迎光临论坛：bbs.77169.com "
set bt=右&set "bt2=左"&color 1f
echo\&echo\&echo\&echo\&echo\&echo\&echo\
:lis111
set bt=%bt2%&set bt2=%bt%
title bbs.bathome.net -- 字符正在往!bt!移...
for /l %%i in (1 1 30) do (
set /p=!str!<NUL
 for /l %%a in (1 1 100) do ver>nul
for /l %%a in (1 1 200) do set /p=<NUL
 if "!bt!"=="左" (set str=!str:~1,-1! ) else (set str= !str!)
)
goto lis111
goto :Menu

:Choice6
cls
::code by youxi01@bbs.bathome.net
::光棍节无聊，没人陪玩......
::动画雏形，待完善....
for /l %%i in (1 1 70) do set /p=^|<NUL
for /l %%i in (1 1 70) do set /p=<NUL
set "str1=TO XXX:"
set "str2=或许是上天的安排，给了我一个转身的机会"
set "str3=而就在那转身的瞬间我爱上了你..."

for /l %%i in (1 1 3) do call :ShowStr "!str%%i!"

pause>nul

:TimeDelay 次数
for /l %%i in (1 1 %1) do ver>nul
goto :eof

:GetBytes OBJ
set "var=%~1"
set /a bytes=0,strlen=0
for /l %%i in (0 1 200) do (
set "var_=!var:~%%i,1!"
if "!var_!"=="" goto :eof
if !var_! gtr Z (set /a bytes+=2) else set /a bytes+=1
set /a strlen+=1
)
goto :eof

:ShowStr str
set "str=%~1"
call :GetBytes "!str!"
for /l %%i in (0 1 !strlen!) do set /p=!str:~%%i,1!<NUL& 150
ping /n 3 127.1>nul
for /l %%i in (0 1 70) do set /p=<NUL
for /l %%i in (0 1 !strlen!) do (
set test1=!str:~0,-%%i!
set test2=!str:~-%%i!
if !test2! gtr Z (set "test1=!test1!^|^|") else set "test1=!test1!^|"
set /p=!test1!<NUL& :TimeDelay call 50
 for /l %%i in (1 1 70) do set /p=<NUL
)
goto :eof

:Choice7
cls
:: 2007-12-15 code by 随风 @bbs.bathome.net
mode con: cols=61 lines=15&color 1f
title 什么时候是个头啊!
for /l %%l in (1 1 58) do set "ko= !ko!"
:ss11111
set "t="&set "t2= "&set su=0
set hang=30&set lie=13
set "a=*"&set "b=!ko!*"
:lis111111
cls&set /a su+=1
if !su! equ 3 (
for /l %%h in (1 1 13) do echo.
set "a=!ko!*"
set yan=40&set hang=30
) else set yan=100
for /l %%i in (1 1 !hang!) do (
set/p= !a!<NUL
 for /l %%l in (1 1 !yan!) do ver>nul
set/p=!t! <NUL
if !su! equ 3 set a=!a:~2!&for /l %%a in (1 1 60) do set /p=<NUL
)
if !su! geq 3 goto loop1111
set hang=%lie%&set lie=%hang%
set a=!b!&set b=!a!
set t=!t2!&set "t2=!t!"
goto lis111111
:loop1111
for /l %%a in (13 -1 1) do (
cls&for /l %%b in (1 1 %%a) do echo.
echo * 
for /l %%l in (1 1 100) do ver>nul
)
goto ss11111

:Choice8
cls
set b=/-\
set t=
set num=0
:loopnovaanovaa
for /l %%i in (0 1 2) do (
set /p=!b:~%%i,1!novaa<NUL
set /p=%t%<NUL
for /l %%j in (1 1 300) do set /p=<NUL
set /a num+=1
)
if !num! gtr 148 goto :welcome
goto :loopnovaanovaa
:welcome
set str=0123456789abcdef
echo.&echo.&echo.&echo.
set /p= 欢迎进入NOVAA的个人空间(hi.baidu.com/novaa)<NUL
echo.&echo.
for /l %%i in (1 1 75) do set /p=^|<NUL
for /l %%i in (1 1 75) do set /p=<NUL
for /l %%i in (1 1 75) do (set /p=^><NUL
for /l %%i in (1 1 100) do set /p=<NUL
)
:color1111
set /a num=%random%%%10+1
set cl=!str:~%num%,2!
for /l %%i in (1 1 300) do set/p=<NUL
color !cl!
set /a n+=1
if !n! gtr 50 goto :next
goto :color1111
:next
color 02
set strl=NOVAA所获得的荣誉勋章
echo.&echo.
for,/l,%%i,in (0 1 12) do set /p=!strl:~%%i,1!nul
echo.&echo 1.最勤奋的人!
echo.&echo 2.最最帅气的人!
echo.&echo 3.最最最高尚的人!
echo.&echo 4.最最最最谦虚的人!
echo.&echo 5.最最最最最不要脸的人!
set stl1=既然选择了远方,就尽管风雨兼程吧!
echo.&echo.
for,/l,%%i in (0,1 16) do set /p=!stl1:~%%i,1!nul
echo.
echo.
echo 谢谢观赏!
pause>nul

:Delay
for /l %%i in (1 1 %1) do ver>nul
goto :eof
复制代码