注册
登录
| 关键词： set random ENABLEDELAYEDEXP rand viewthread Down setlocal 出处 call blank |
::黑客帝国里数码雨@echo %dbg% off:: Code by redtek 2006-11-2 CMD@XP:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418setlocal ENABLEDELAYEDEXPANSIONmode con cols=80 lines=30clsset 退格=set redtek=" "set end=0:startset /a end+=1call :calcset /p=!setspaces! nulset /p=%退格%<NULset /p=%redtek:~1,79%<NUL&ECHO.goto :start:calcif %end%==28 (set /a end=0 & cls & set /a cols=!random:~0,2!echo ... 风力：!cols! ... if !cols! GTR 76 set cols=76if !cols! LSS 2 set cols=2set 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=80color 02for /f %%i in (test.txt) do set str_char=%%iset str_blank= setlocal enabledelayedexpansion:loop:: 取随机位置上的字符set /a num_char=1%random:~-1%%random:~0,1%-100set char=!str_char:~-%num_char%,1!:: 设置随机长度的空格set /a num_blank=1%random:~-1%%random:~0,1%-100set 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=24418mode con cols=80set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^&^^^>^<set b= setlocal enabledelayedexpansion:aset /a num=%random%%%92set 字符=!a:~-%num%,1!set/a c=%random%%%80set 空格=!b:~-%c%!echo %空格%^%字符%goto a@echo off:: Code by yfd11 2006-11-3 CMD@XP:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418mode con cols=80 LINES=30set a=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"'?.,/^&^^^>^<set b= setlocal enabledelayedexpansion:aset /a num=%random%%%92set 字符=!a:~-%num%,1!set/a c=%random%%%80set 空格=!b:~-%c%!::echo. %空格%^%字符%set/a i+=1rem 指针=i 尾指针=jset/a j=i-30set line%i%=%空格%^%字符%FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v!::ping /n 127.1>nulgoto a@echo off:: Code by hxuan999 2006-11-12 CMD@XP:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418::mode con cols=80setlocal ENABLEDELAYEDEXPANSIONcolor 02goto BEGINgoto :eof::function mt_rand "a" "b":mt_rand::(set a=%~1set b=%~2set /a _mt_rand=(!random!%%(%b%-%a%))+%a%exit /b 0::):BEGIN::{--SET iWidth=80SET iDensity=6SET sText="#$&'()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~SET sText=!sText:"=!set /A iText=90-1for /l %%i in (1,1,%iWidth%) do (set aDown%%i=0):loopfor /l %%I in (1,1,%iWidth%) do (set /a aDown%%I-=1if !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::--}:exitexit /b 0@echo off:: Code by hxuan999 2006-11-12 CMD@XP:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418setlocal ENABLEDELAYEDEXPANSIONcolor 02for /l %%i in (1,1,80) do (set Down%%i=0):loopfor /l %%j in (1,1,80) do (set /a Down%%j-=1if !down%%j! LSS 0 (set /a Arrow%%j=!random!%%4set /a Down%%j=!random!%%15+10)if "!Arrow%%j!" == "1" (set /a chr=!random!%%2set /p=!chr!<NUL) else (set /p= <NUL))goto loopgoto :eof@echo off:: Code by newaifi 2006-11-16 CMD@XP:: 出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418setlocal ENABLEDELAYEDEXPANSIONfor /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-=1call set x=!down%%j!if !x! LSS 0 (set /a Arrow%%j=!random!%%6set /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) |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
