CODE: [Copy to clipboard]
:: qzwqzw@cn-dos.net 2008-01-13 22:30
:: Re youxi01@bbs.bathome.cn 光棍节作品
:: youxi之作似乎不止游戏之作
:: 索性游戏以作以与youxi共勉
@echo off
setlocal enabledelayedexpansion
title 不放弃...
color 0d
echo.
echo. To you
echo.
set "str1=或许是上天的安排"
set "str2=给了你一个转身的机会"
set "str3=而就在那转身的瞬间你爱上了她..."
set "str4=而就在那转身的瞬间她也爱上了你..."
set "str5=也许是上天的注定"
set "str6=也许是痛苦的开始"
set "str7=但爱了她就不要后悔..."
set "str8=END not 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
:strlen OBJ
set "var=%~1"
set /a strbytes=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 strbytes+=3) else set /a strbytes+=2
set /a strlen+=1
)
goto :eof
:ShowStr str
set "str=%~1"
call :strlen "%~1"
set /a strbegin=(78-strbytes)/2
set /p= <nul
for /l %%i in (1 1 78) do set /p=-<nul& call :TimeDelay 50
for /l %%i in (1 1 78) do set /p=<nul
for /l %%i in (1 1 %strbegin%) do set /p=-<nul
for /l %%i in (0 1 %strlen%) do set /p= !str:~%%i,1!<nul& call :TimeDelay 500
for /l %%i in (1 1 78) do set /p=<nul
ping 127.255.255.255 -n 1 -w 1000 >nul