[特效代码] 写了一段批处理数码雨

cobat

学习批处理20天

:0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ`~!@#$%^&*()-=\[];',./_+|{}"<>?          
@echo off
set/p str=<"%~f0"
setlocal enabledelayedexpansion
mode con lines=30&color 0A
set/a j=200,i=j-28
for /l %%a in (1,1,%i%) do (
    for /l %%b in (1,1,39) do (
        set/a mod=!random!%%104
        for %%c in (!mod!) do set "[%%a]=![%%a]! !str:~%%c,1!"
    )
)
for /l %%a in (%i%,1,%j%) do set "[%%a]= "
for /l %%a in (78,-2,2) do (
    set/a ln=i-!random!%%28
    for /l %%b in (!ln!,1,!i!) do set "[%%b]=![%%b]:~,%%a! ![%%b]:~%%a!"
)
set "[10]=![10]:~,23! <Matrix Digital Rain by cobat> ![10]:~-23!"
for /l %%a in (%i%,-1,2) do (
    cls&set/a i-=1,j-=1
    for /l %%b in (!i!,1,!j!) do echo,![%%b]!
    for /l %%c in (1,1,800) do cd>nul
)
pause>nul
复制代码