黑客帝国数字雨
批处理简单实现数字雨效果,代码如下:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
@echo off setlocal ENABLEDELAYEDEXPANSION color 02 for /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-=1 call set x=!down%%j! if !x! LSS 0 ( set /a Arrow%%j=!random!%%6 set /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! |