变色文字＋飞入特效
@echo off&setlocal enabledelayedexpansion&cls&color 0f&title Welcome to CN-DOS!
mode con: cols=30 lines=3
set "a= CN-DOS"
set "b="
set "c=12345689abcde"
echo\
:c
for /l %%a in (6,1,28) do (
set /a d=%random%%%13+1
call :pp %%a
)
goto c
:pp
set/p=!a:~-%1!<nul
set/p=!b:~0,%1!<nul
color 0!c:~%d%,1!
goto :eof
/ - \ | 进度特效
@echo off&setlocal enabledelayedexpansion&cls&title *-提示信息-*&color 0f
mode con: cols=40 lines=6
for /l %%a in (1,1,120) do (
if %%a leq 56 set/p=*<nul
if %%a equ 57 set/p=友<nul&ping -n 1 127.1>nul
if %%a equ 59 set/p=情<nul&ping -n 1 127.1>nul
if %%a equ 61 set/p=提<nul&ping -n 1 127.1>nul
if %%a equ 63 set/p=示<nul&ping -n 1 127.1>nul
if %%a geq 65 set/p=*<nul
)
set "c=12345689abcde"
echo/
set b=/-\
set 退格=
:b
for /l %%i in (0,1,3) do (
call :a %%i
set /a d=%random%%%13+1
)
goto :b
:a
set/a a=%1%%4
if %a% EQU 3 (set/p= ^| Welcome to CN-DOS<nul) else set/p= !b:~%a%,1! Welcome to CN-DOS<nul
ping/n 1 127.1>nul
color 0!c:~%d%,1!
set/p=%退格%<nul
goto :eof
星星版提示
@echo off&setlocal enabledelayedexpansion&title *一个眺望摩天轮的人*
mode con cols=30 lines=7
set a=☆☆☆☆☆☆☆☆☆☆
set b=★
set c=
set d=
set e=123456789abcde
echo/
echo **********(D--O--S)***********
echo *Welcome to China Dos Union*
echo\
:b
for /l %%a in (0,1,9) do (
set /a f=%random%%%14+1
set/p=!a:~%%a,1!<nul&set/p=%b%<nul
ping -n 1 127.1>nul
color 0!e:~%f%,1!
set/p=%c%<nul
if %%a equ 9 (set/p=%d%<nul&for /l %%a in (9,-1,1) do (set/p=!a:~-%%a!!<nul&set/p=%b%<nul&ping -n 1 127.1>nul&set/p=%d%<nul))
)
goto b
星星之火，可以燎原，不要让DOS在沉默下去了.............
Last edited by bagpipe on 2006-11-23 at 01:26 AM ]
