|
|
- ::code by youxi01@bbs.bathome.net
- ::光棍节无聊，没人陪玩......
- ::动画雏形，待完善....
- @echo off
- setlocal enabledelayedexpansion
- 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 XXX:"
- set "str2=或许是上天的安排，给了我一个转身的机会"
- set "str3=而就在那转身的瞬间我爱上了你..."
- for /l %%i in (1 1 3) 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 /n 3 127.1>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
- )
|
|
发表于 2007-11-10 20:06:22
这算原创不~