bat实现的模仿黑客帝国里面的数码雨
作者 佚名
来源 批处理
浏览
发布时间 2013-07-09
| ::黑客帝国里数码雨 @echo%dbg%off ::Codebyredtek2006-11-2CMD@XP ::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418 setlocalENABLEDELAYEDEXPANSION modeconcols=80lines=30 cls set退格= setredtek="" setend=0 :start set/aend+=1 call:calc set/p=!setspaces!nul set/p=%退格%<NUL set/p=%redtek:~1,79%<NUL&ECHO. goto:start :calc if%end%==28( set/aend=0&cls&set/acols=!random:~0,2! echo...风力：!cols!... if!cols!GTR76setcols=76 if!cols!LSS2setcols=2 setsetspaces=!redtek:~1,%cols%!!random:~0,1! goto:eof ) @echooff ::CodebyJM2006-11-3CMD@XP ::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418 ::test.txt内容为：1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%&*(){}[]_+-=\"''?.,/ ::暂时不能处理|<>^ modeconcols=80 color02 for/f%%iin(test.txt)dosetstr_char=%%i setstr_blank= setlocalenabledelayedexpansion :loop ::取随机位置上的字符 set/anum_char=1%random:~-1%%random:~0,1%-100 setchar=!str_char:~-%num_char%,1! ::设置随机长度的空格 set/anum_blank=1%random:~-1%%random:~0,1%-100 setblank=!str_blank:~0,%num_blank%! echo.%blank%%char% gotoloop @echooff ::Codeby不得不爱2006-11-3CMD@XP ::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418 modeconcols=80 seta=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"''?.,/^&^^^>^< setb= setlocalenabledelayedexpansion :a set/anum=%random%%%92 set字符=!a:~-%num%,1! set/ac=%random%%%80 set空格=!b:~-%c%! echo%空格%^%字符% gotoa @echooff ::Codebyyfd112006-11-3CMD@XP ::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418 modeconcols=80LINES=30 seta=1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ~`!@#%.*(){}[]_+-=\"''?.,/^&^^^>^< setb= setlocalenabledelayedexpansion :a set/anum=%random%%%92 set字符=!a:~-%num%,1! set/ac=%random%%%80 set空格=!b:~-%c%! ::echo.%空格%^%字符% set/ai+=1 rem指针=i尾指针=j set/aj=i-30 setline%i%=%空格%^%字符% FOR/L%%vIN(%i%,-1,%j%)DOecho.!line%%v! ::ping/n127.1>nul gotoa @echooff ::Codebyhxuan9992006-11-12CMD@XP ::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418 ::modeconcols=80 setlocalENABLEDELAYEDEXPANSION color02 gotoBEGIN goto:eof ::functionmt_rand"a""b" :mt_rand ::( seta=%~1 setb=%~2 set/a_mt_rand=(!random!%%(%b%-%a%))+%a% exit/b0 ::) :BEGIN ::{-- SETiWidth=80 SETiDensity=6 SETsText="#content''()*+,-./0123456789:;<>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ SETsText=!sText:"=! set/AiText=90-1 for/l%%iin(1,1,%iWidth%)do( setaDown%%i=0 ) :loop for/l%%Iin(1,1,%iWidth%)do( set/aaDown%%I-=1 if!aDown%%I!LSS0( call:mt_rand"0""%iDensity%"&&setaArrow%%I=!_mt_rand! call:mt_rand"10""25"&&setaDown%%I=!_mt_rand! ) if!aArrow%%I!EQU1( call:mt_rand"0""%iText%"&&(FOR%%MIN("!_mt_rand!")DOSETaa=!sText:~%%~M,1!) set/p=!aa!<NUL )else( set/p=<NUL ) ) gotoloop ::--} :exit exit/b0 @echooff ::Codebyhxuan9992006-11-12CMD@XP ::出处：http://www.cn-dos.net/forum/viewthread.php?tid=24418 setloc |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 谈谈xcopy中的排除copy下一篇: 批处理FINDSTR正则表达式用法实例分析
关于bat实现的模仿黑客帝国里面的数码雨的所有评论
