DOS实现数字雨。将代码输入txt文本,保存。然后修改后缀为.bat。双击运行即可

阅读次数:6 次  |  发布时间:2020-08-01T23:06:53Z 

@echo off
title digitalrain
color 0b
setlocal ENABLEDELAYEDEXPANSION
for /l %%i in (0) do (
set "line="
for /l %%j in (1,1,80) do (
set /a Down%%j-=2
set "x=!Down%%j!"
if !x! LSS 0 (
set /a Arrow%%j=!random!%%3
set /a Down%%j=!random!%%15+10
)
set "x=!Arrow%%j!"
if "!x!" == "2" (
set "line=!line!!random:~-1! "
) else (set "line=!line! ")
)
set /p=!line!<nul
)

最近发布的代码:

DOS实现数字雨。将代码输入txt文本,保存。然后修改后缀为.bat。双击运行即可 PowerShell 程序  |  6次阅读  | 发布于:2020-08-01T23:06:53Z