[游戏娱乐] 批处理之家论坛网站宣传小动画

@echo off&setlocal enabledelayedexpansion
color 1f&title made by batman 2008-08-02
:begin
echo.&echo.&echo.&echo.
for /f "skip=32 delims=" %%a in (%~fs0) do (
    for %%i in (0 5 10) do if !n! equ %%i set /a a=!random!%%9+1
    set "str=%%a"&set /a n+=1
    for %%m in (6 11) do if !n! equ %%m echo.&echo.
    if !n! lss 11 (
       call :sp "%%a"&echo.
       ) else (
       set "var=!str!"&call :step
       if !n! geq 15 call :lp
    )
)
pause>nul&goto :eof
:lp 
call :sp "no" 80
call :sp "%str%"
set /a m+=1&if !m! lss 5 goto lp
if %n% equ 15 ping /n 2 127.1>nul&echo.&echo.
set "m=-5"&set /a a=%random%%%9+1&goto :eof
:step
set /p b=%var:~,1%<nul&set "var=%var:~1%"
for /l %%i in (1,1,200) do echo>nul
if defined var goto step 
ping /n 2 127.1>nul
call :sp "no" 80&goto :eof
:sp
if %1 neq "no" set /p= <nul>%1&findstr /a:0%a% .* %1*
for /l %%i in (1,1,%2) do set /p= <nul
del /q ●* 精* *-*>nul 2>nul&goto :eof
               ●●●●    ●●●●  ●●●●●
              ●      ● ●      ●     ●
             ●●●●● ●●●●●     ●
            ●      ● ●      ●     ●
           ●●●●● ●      ●     ●
                    ●      ●  ●●●●   ●●●●   ●●●●●
                   ●      ● ●      ● ●  ●   ● ●
                  ●●●●● ●      ● ●  ●   ● ●●●●
                 ●      ● ●      ● ●  ●   ● ●
                ●      ●  ●●●●  ●  ●   ● ●●●●●
                          我们，在Windows窗前
                    为了追逐的梦，叩响CMD深邃的大门
                   多少回挑灯夜战，又多少次彻夜难眠
                 身心虽已疲倦，然心中却有个坚定的信念：
                  精益求精力求完美，不言最好只求更高
         www.bathome.net ----- It's the best professional batwebsite。COPY

@echo off
setlocal enabledelayedexpansion
set fu= ^/ ^\
set "kong=                                                                            "
set "kong2=____________________________________________________________________________"
set /a a=0,b=0,e=2,tiao=0
:a
set /a b+=1,c=30-%b%+%e%
cls
echo,  if_exist 回BatHome的路上…… 
for /l %%a in (1,1,6) do echo,
echo,!kong:~0,%b%!_ @
echo,!kong:~0,%b%! ^/
echo,!kong2:~0,%b%!!fu:~%a%,2!!kong2:~0,%c%!
ping -n>nul
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if %a% leq 2 (set e=2) 
if %a% equ 3 (set e=3) 
if %a% equ 4 (set e=4)
if not %b% equ 30 goto :a else goto :b
set /a b=30,j=0,k=6
:b
if not %j% equ 6 (set /a j+=1,tiao=%j%) else (set /a k-=1,tiao=%k%)
set /a b+=1,up=6-%tiao%
cls
for /l %%a in (1,1,%up%) do echo,
echo,!kong:~0,%b%!  @/
echo,!kong:~0,%b%!^<^/
echo,!kong:~0,%b%!!/^>
for /l %%a in (1,1,%tiao%) do echo,
echo,!kong2:~0,30!
ping -n>nul&ping -n>nul
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if %k%==0 (goto :c1) else (goto :b)
:c1
set /a cc=0,dd=0
set call1=嘿嘿,到家啦！
:c
if not %tiao% equ 10 set /a tiao+=1 
if not %b% equ 60 set /a b+=1
if not "%cc%" == "30" (set /a cc+=1,num=30-%cc%)
if "%cc%"=="30" if not "%dd%"=="30" set /a dd+=1
cls
for /l %%a in (1,1,9) do echo,
echo,!kong2:~0,%num%!
for /l %%a in (1,1,%tiao%) do echo,
if %tiao% equ 10 echo,!kong:~0,%b%!!call1:~0,%dd%!
echo,!kong:~0,%b%!_ @   
echo,!kong:~0,%b%! ^/\  
echo,!kong:~0,%b%!!fu:~%a%,2! 
if %tiao% lss 10 (ping -n>nul&ping -n>nul&ping -n>nul) else (ping -n>nul)
if %a% equ 4 (set /a a=0) else (set /a a+=1)
if "%dd%"=="30" (ping -n 2 127.1>nul &goto :d1) else (goto :c)
:d1
set name= W E L C O M E  B A T H O M E
set /a a=0
cls
color 02
:dd
if %time:~10,1% lss 3 set /a a+=1 
set an=%random%%random%%random%%random%%random%%random%%random%%random%%random%
set an=%an:~0,20%!name:~0,%a%!%an:~20%
if %a% equ 32 set an=                       W E l C O M E  B A T H O M E &color 0a
cls
echo.&echo.&echo.
echo.       ●●●●    ●●●●  ●●●●●
echo.      ●      ● ●      ●     ●
echo.     ●●●●● ●●●●●     ●
echo.    ●      ● ●      ●     ●
echo.   ●●●●● ●      ●     ●
echo.
echo.
echo.            ●      ●  ●●●●   ●●●●   ●●●●●
echo.           ●      ● ●      ● ●  ●   ● ●
echo.          ●●●●● ●      ● ●  ●   ● ●●●●
echo.         ●      ● ●      ● ●  ●   ● ●
echo.        ●      ●  ●●●●  ●  ●   ● ●●●●●
echo.
echo.      %an%
echo.&echo.&echo.
echo. @ 哇 
echo.^<^|\
echo./ \
ping -n>nul
if %a% lss 32 (goto :dd) else (goto :end)
:end
pause>nulCOPY

:sp
if %1 neq "no" set /p= <nul>%1&findstr /a:1%a% .* %1*
for /l %%i in (1,1,%2) do set /p= <nul
del /q %1*>nul 2>nul&goto :eofCOPY

bathome is the best webbbsCOPY