[游戏娱乐] 批处理数字雨

CrLf

以前写的，清理文件的时候翻到，稍微改了下发上来，呃，好吧挺老套的
cls 刷屏会闪，删掉它也可以正常运行，只是显示时好像也会偶尔抖一抖
常数 K 的值和出现新数字串的频率成正比：

@echo off&setlocal enabledelayedexpansion&color a
set K=80
for /l %%b in (1 3 77) do set "last=!last!   "
set "space=                    "
 
for /l %%a in (0 1 22) do set "screen=!last!  !screen!"
set screen=!screen:~2!
 
for /l %%a in () do (
   for /l %%b in (1 3 77) do (
      if "!last:~%%b,1!"==" " (
         set /a "$=(!random!%%(K+2))-K"
      ) else (
         set /a "$=(!random!/2000+8)/9-1"
      )
      if !$! lss 0 (set "str=!str!   ") else set "str=!str! !$! "
   )
   set "screen=!str!  !screen!"
   set last=!str!&set "str="
   cls
   echo;!screen:~,590!!space!!screen:~610,60!    !time!     !screen:~690,60!!space!!screen:~770!
   for /l %%a in (1 1 2) do ping /n 1 127.1 >nul
   set "screen=!screen:~,-80!"
)COPY