1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| @echo off&setlocal enabledelayedexpansion&color 02&mode con lines=30&title 黑客帝国数码雨 setlocal&set flag=0 :loop if %flag% lss 30 (set/a flag+=1) else (call :chang) for /l %%i in (1,1,26) do ( if defined a%%i (set/a a%%i=!random!%%2&set tmp=!a%%i! ) else (if !random! lss 1000 (set/a a%%i=!random!%%2&set tmp=!a%%i! ) else (set tmp= )) call set line%flag%=%%line!flag!%% !tmp! ) cls&for /l %%i in (%flag%,-1,1) do echo.!line%%i! for /l %%i in (1,1,100) do ver>nul ::ping /n 1 127.1>nul if !random! lss 500 (endlocal&setlocal&set flag=0) goto :loop
:chang for /l %%i in (1,1,29) do ( set /a tmp=%%i+1 call set line%%i=%%line!tmp!%% ) set line%flag%=
|