::黑客帝國里數碼雨 @echo %dbg% off :: Code by redtek 2006-11-2 CMD@XP :: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=24418 setlocal ENABLEDELAYEDEXPANSION mode con cols=80 lines=30 cls
set 退格= set redtek=" "
set end=0
:start
set /a end+=1
call :calc
set /p=!setspaces! nul
set /p=%退格%NUL
set /p=%redtek:~1,79%NULECHO.
goto :start
:calc
if %end%==28 (
set /a end=0 cls set /a cols=!random:~0,2!
echo ... 風力：!cols! ...
if !cols! GTR 76 set cols=76
if !cols! LSS 2 set cols=2
set setspaces=!redtek:~1,%cols%!!random:~0,1!
goto :eof
)
@echo off :: Code by JM 2006-11-3 CMD@XP :: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=24418 :: test.txt內容為：1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%*(){}[]_+-=\"'?.,/ :: 暫時不能處理 |>^ mode con cols=80 color 02 for /f %%i in (test.txt) do set str_char=%%i set str_blank= setlocal enabledelayedexpansion
:loop :: 取隨機位置上的字符 set /a num_char=1%random:~-1%%random:~0,1%-100 set char=!str_char:~-%num_char%,1!
:: 設置隨機長度的空格 set /a num_blank=1%random:~-1%%random:~0,1%-100 set blank=!str_blank:~0,%num_blank%! echo.%blank%%char% goto loop
@echo off :: Code by 不得不愛 2006-11-3 CMD@XP :: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=24418 mode con cols=80 set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^>^ set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! echo %空格%^%字符% goto a
@echo off :: Code by yfd11 2006-11-3 CMD@XP :: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=24418 mode con cols=80 LINES=30 set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^^^^>^ set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! ::echo. %空格%^%字符%
set/a i+=1 rem 指針=i 尾指針=j set/a j=i-30 set line%i%=%空格%^%字符% FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v! ::ping /n 127.1>nul goto a
@echo off :: Code by hxuan999 2006-11-12 CMD@XP :: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=24418 ::mode con cols=80 setlocal ENABLEDELAYEDEXPANSION color 02
goto BEGIN goto :eof
::function mt_rand "a" "b" :mt_rand ::( set a=%~1 set b=%~2 set /a _mt_rand=(!random!%%(%b%-%a%))+%a% exit /b 0 ::)
:BEGIN ::{-- SET iWidth=80 SET iDensity=6 SET sText="#$'()*+,-./0123456789:;>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ SET sText=!sText:"=! set /A iText=90-1
for /l %%i in (1,1,%iWidth%) do ( set aDown%%i=0 )
:loop for /l %%I in (1,1,%iWidth%) do ( set /a aDown%%I-=1 if !aDown%%I! LSS 0 ( call :mt_rand "0" "%iDensity%"set aArrow%%I=!_mt_rand! call :mt_rand "10" "25"set aDown%%I=!_mt_rand! ) if !aArrow%%I! EQU 1 ( call :mt_rand "0" "%iText%"(FOR %%M IN ("!_mt_rand!") DO SET aa=!sText:~%%~M,1!) set /p=!aa!NUL ) else ( set /p= NUL ) ) goto loop ::--}
:exit exit /b 0
@echo off :: Code by hxuan999 2006-11-12 CMD@XP :: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=24418 setlocal ENABLEDELAYEDEXPANSION color 02
for /l %%i in (1,1,80) do ( set Down%%i=0 )
:loop for /l %%j in (1,1,80) do ( set /a Down%%j-=1 if !down%%j! LSS 0 ( set /a Arrow%%j=!random!%%4 set /a Down%%j=!random!%%15+10 ) if "!Arrow%%j!" == "1" ( set /a chr=!random!%%2 set /p=!chr!NUL ) else ( set /p= NUL ) ) goto loop goto :eof
@echo off :: Code by newaifi 2006-11-16 CMD@XP :: 出處：http://www.cn-dos.net/forum/viewthread.php?tid=24418 setlocal ENABLEDELAYEDEXPANSION for /l %%i in (1,1,80) do ( set Down%%i=0 )
for /l %%i in (0) do ( set line= for /l %%j in (1,1,80) do ( set /a Down%%j-=1 call set x=!down%%j! if !x! LSS 0 ( set /a Arrow%%j=!random!%%6 set /a Down%%j=!random!%%15+10 ) call set x=!Arrow%%j! if "!x!" == "1" ( set line=!line!1 ) else (set "line=!line! ") ) call set /p=!line!NUL )
