@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

@echo off&mode con cols=42 lines=20&color 02setlocal enabledelayedexpansionset code=123456789abcdefset m=1&set v=1title 黑客帝國數(shù)碼雨 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 黑客帝國數(shù)碼雨效果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