How to use bat to imitate the Digital Rain in the Matrix
This article is about how to use bat to imitate the digital rain in the Matrix. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.
:: digital rain in the Matrix
@ echo% dbg% off
:: Code by redtek 2006-11-2 CMD@XP
:: source: http://www.cn-dos.net/forum/viewthread.php?tid=24418
Setlocal ENABLEDELAYEDEXPANSION
Mode con cols=80 lines=30
Cls
Set backspace =
Set redtek= ""
Set end=0
: start
Set / an end+=1
Call: calc
Set / paired setting spaces! Nul
Set / packs% backspace% ^
< set b= setlocal enabledelayedexpansion :a set /a num=%random%%%92 set 字符=!a:~-%num%,1! set/a c=%random%%%80 set 空格=!b:~-%c%! ::echo. %空格%^%字符% set/a i+=1 rem 指针=i 尾指针=j set/a j=i-30 set line%i%=%空格%^%字符% FOR /L %%v IN (%i%,-1,%j%) DO echo.!line%%v! ::ping /n 127.1>Nul
Goto a
@ echo off
:: source: http://www.cn-dos.net/forum/viewthread.php?tid=24418
:: mode con cols=80
Setlocal ENABLEDELAYEDEXPANSION
Color 02
Goto BEGIN
Goto: eof
:: function mt_rand "a"b"
: mt_rand
: (
Set aversion% room1
Set breadth% room2
Set / a _ mt_rand= (! percentage%% (% b% muri% a%)) +% a%
Exit / b 0
::)
: BEGIN
: {-
SET iWidth=80
SET iDensity=6
SET sText= "# $&'() * +, -. / 0123456789 Phantom @ ABCDEFGHIJKLMNOPQRSTUVWXYZ [\] ^ _ `abcdefghijklmnopqrstuvwxyz {|} ~
SET sTextFormText: "=!
Set / An iText=90-1
For / l%% I in (1JI% iWidth%) do (
Set aDown%%i=0
)
: loop
For / l%% I in (1JI% iWidth%) do (
Set / an aDown%%I-=1
If! aDown%%I! LSS 0 (
Call: mt_rand "0"% iDensity%" & & set aArrow%% Illustrated.
Call: mt_rand "10"25" & & set aDown%% Illustrated
)
If! aArrow%%I! EQU 1 (
Call: mt_rand "0"% iText%" & & (FOR% M IN ("! _ mt_rand!") DO SET aastatsTextGroupe%% MPhone1!)
Set / paired roomaa!
