联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
:: 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