批处理实现乱雨纷飞（黑客帝国特效）

2020-06-09 14:26:23

字体：大中小

来源：转载

供稿：网友

废话少说，直接先上一个特效代码

@echo off&mode con cols=42 lines=20&color 02set m=1&set v=1set code==^^^&%%%^:!$#^>^<:=~*()@"'`;/|-_+?,.ghijklmnopqrstuvwxyz0123456789abcdefsetlocal enabledelayedexpansion:beginset /a num=%random%%%40+1,num1=num,num=200/numtitle 乱雨纷飞，当前雨量：%num1%:lpset /a a=%random%%%63,b=%random%%%%num%set a=!code:~%a%,1!if %b% equ 0 (set "b=!a!") else (set "b= ") set str%m%=!str%m%!!b!set /a n+=1if %n% lss 40 goto lpset /a x+=1,w+=1if %x% equ 40 call :lopcls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!set /a m+=1if %m% geq 20 set /a v+=1if %w% equ 100 (set w=0&goto begin) else (set n=0&goto lp):lopset /a a=%random%%%15+1set a=!code:~-%a%,1!color 0!a!&set x=0

有小伙伴说了，为什么不把它改成下落 101010 的呢？那样的话不是像黑客帝国里的画面了码？？？

好吧，我们来把他实现

@echo off&mode con cols=42 lines=20&color 02setlocal enabledelayedexpansionset code=123456789abcdefset m=1&set v=1title 黑客帝国数码雨 by bat-zw19750516:beginset /a a=%random%%%2,b=%random%%%3if %b% neq 0 (set b=%a%) else (set "b= ") set str=%str%%b%set /a n+=1if %n% lss 40 goto beginset /a m+=1,x+=1if %m% geq 20 set /a v+=1 set str%m%=%str%cls&for /l %%i in (%m%,-1,%v%) do echo.!str%%i!if %x% equ 20 call :lpset str=&set n=0goto begin:lpset /a a=%random%%%15,x=0set a=!code:~%a%,1!color 0%a%

当然上面的是高手写的，我们来看个新手简单完成的样子

@echo offtitle 黑客帝国数码雨效果color 02setlocal ENABLEDELAYEDEXPANSIONfor /l %%i in (1,1,80) do (set Down%%i=0):heikefor /l %%j in (1,1,80) do (set /a guxing%%j-=1if !guxing%%j! LSS 0 (set /a hanye%%j=!random!%%4set /a guxing%%j=!random!%%15+10)if "!hanye%%j!" == "1" (set /a shu=!random!%%2set /p=!shu!<NUL) else (set /p= <NUL))goto heike

是不是对这种特效有了新的认识了呢，是不是立刻就想精通批处理了呢，努力吧，小伙子们。