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

beck1321

@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
老婆
我爱你
下辈子
还取你
取你卡里的钱
复制代码

[ 本帖最后由 beck1321 于 2008-8-8 12:06 编辑 ]

huangqiaoshuai

嘿嘿，很有意思

beck1321

原帖由 ieutk 于 2008-8-7 16:35 发表
把代码中的skip=9  改成　skip=99

哈哈 谢谢啦

无法表达  您有什么学习批处理的书 或者 教程吗？

ieutk

把代码中的skip=9  改成　skip=99

beck1321

原帖由 ieutk 于 2008-8-7 15:49 发表
@echo off
for /f "usebackq skip=9 delims=" %%a in ("%~dpnx0") do set "var=%%a"&call :as
pause&goto :eof
:as
for /l %%i in (1 1 4000) do echo.>nul
set/p=%var:~0,1%

版主 谢谢你！！！！
万分感谢
！！！！！！！！！！！！！！
我这就去研究研究代码  学习学习

ieutk

谢谢你  版主 呵呵  
我忘了说了  像打字机一样的显示出来怎么办呢

@echo off
for /f "usebackq skip=9 delims=" %%a in ("%~dpnx0") do set "var=%%a"&call :as
pause&goto :eof
:as
for /l %%i in (1 1 4000) do echo.>nul
set/p=%var:~0,1%<nul
set "var=%var:~1%
if "%var%"=="" echo.&goto :eof
goto as
老婆
我爱你
下辈子
还取你
取你卡里的钱
复制代码

这样吗？

beck1321

@echo off 
setlocal EnableDelayedExpansion 
set s=这里是要说的话
for /L %%i in (0,1,10000) do @(if !s:~%%i!.==. set /A length=%%i-1 && goto out) 
:out 
for /l %%i in (0,1,%length%) do @(set/p=!s:~%%i,1!<nul & ping /n 1 baidu.com>nul) 

pause
复制代码

这样子有打字机的效果了

但是不能转行 郁闷

[ 本帖最后由 beck1321 于 2008-8-7 15:48 编辑 ]

beck1321

原帖由 huahua0919 于 2008-8-7 15:33 发表
你想要一样的效果还不容易啊@echo off
for /f "usebackq skip=2 delims=" %%i in ("%~dpnx0") do set/p a=%%inul
   老婆
   我爱你
   下辈子
   还取你
   取你卡里的钱

可是你这个没有打字机的效果啊 呵呵

我刚喜欢上批处理的

huahua0919

你想要一样的效果还不容易啊

@echo off
for /f "usebackq skip=2 delims=" %%i in ("%~dpnx0") do set/p a=%%i<nul&echo.&ping -n 2 localhost >nul
   老婆
   我爱你
   下辈子
   还取你
   取你卡里的钱
复制代码

beck1321

原帖由 huahua0919 于 2008-8-7 15:20 发表
@echo off
for /f "delims=" %%i in (0.txt) do set/p a=%%inul

0.txt 啊  呵呵 这样不好，谢谢你

beck1321

原帖由 ieutk 于 2008-8-7 15:20 发表
@echo off
for /f "usebackq skip=6 delims=" %%a in ("%~dpnx0") do (
        echo.%%a
        for /l %%i in (1 1 2000) do echo.>nul
    )
pause>nul&exit
老婆
我爱你
下辈子
还取你
取你卡里的钱

谢谢你  版主 呵呵  
我忘了说了  像打字机一样的显示出来怎么办呢

恩 有时要靠自己

版主你真好

huahua0919

@echo off
for /f "delims=" %%i in (0.txt) do set/p a=%%i<nul&echo.&ping -n 2 localhost >nul
复制代码

ieutk

@echo off
for /f "usebackq skip=6 delims=" %%a in ("%~dpnx0") do (
	echo.%%a
	for /l %%i in (1 1 2000) do echo.>nul
    )
pause>nul&exit
老婆
我爱你
下辈子
还取你
取你卡里的钱
复制代码

beck1321

大虾们 救救我救救我