[特效代码] [已解决]情人节的批处理

@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,  猪猪 下班回Home的路上…… 
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= 祝 兰 兰 情 人 节 快 乐
set /a a=0
cls
color 0B
:dd
if %time:~2,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=                       祝 兰 兰 情 人 节 快 乐 &color 0E
cls
echo.&echo.&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>nul
@echo off
for /f "usebackq skip=99 delims=" %%a in ("%~dpnx0") do set "var=%%a"&call :as
pause>nul&goto :eof
:as
for /l %%i in (1 1 1000) do echo.>nul
set/p=%var:~0,1%<nul
set "var=%var:~1%
if "%var%"=="" echo.&goto :eof
goto as
老婆
我爱你
下辈子
还取你
取你卡里的钱
复制代码