中国DOS联盟

特效 转的 很好 玩

可以自己修改
str 可 接着 增加 数目 for /l %%i in (1 1 8) do call :ShowStr "!str%%i!"

那个 8 要 改成 你改后的数目


::code by youxi01@bbs.bathome.cn
::光棍节无聊，没人陪玩......
::动画雏形，待完善....
@echo off
setlocal enabledelayedexpansion
title 放弃...
color 0a
echo.
echo. 一个人的生活...
echo.
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 You"
set "str2=或许是上天的安排，给了我一个转身的机会"
set "str3=而就在那转身的瞬间我爱上了你..."
set "str4=而就在那转身的瞬间你也爱上了我..."
set "str5=也许是上天的注定"
set "str6=也许是痛苦的开始"
set "str7=但爱了你就不后悔..."
set "str8=END...→→→→→→"
for /l %%i in (1 1 8) 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& call :TimeDelay 150
ping 127.255.255.255 -n 1 -w 1000 >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& call :TimeDelay 50
for /l %%i in (1 1 70) do set /p=<nul
)

VERY GOOD