raymai97

回复 2# 523066680


    加料了~ 呵呵~

@echo off
setlocal enabledelayedexpansion
title  幽灵:我在批处理之家待很久了，你没发现吗？
rem Author: if_exist / 523066680
for /l %%a in (1,1,79) do (set spc= !spc!)
for /l %%a in (1,1,21) do (set line%%a=%spc%)
set /a x=1,tmpy=-10,xb=x+1,a=1
set /a xadd=1,yadd=1,xaddadd=1
set /a num=0

:a
if defined do[%a%] (!do[%a%]!)
if defined do[%a%] (
    set line%cuty%=!line%cuty%:~0,%cutx%! !line%cuty%:~%cutxb%!
)
set line%y%=!line%y%:~0,%x%!*!line%y%:~%xb%!
cls
for /l %%a in (1,1,21) do (echo,!line%%a!)
set /a i=0,x+=xadd,tmpy+=yadd,y=tmpy+10,xadd+=xaddadd,xb=x+1
set "do[%a%]=set /a cutx=%x%,cuty=%y%,cutxb=%xb%"
if %a% leq 9 (set /a a+=1) else (set /a a=1)
if %xadd:-=% gtr 7 (set /a xaddadd=-xaddadd)
if %tmpy:-=% gtr 10 (set /a yadd=-yadd)
sleep 50
set /a num+=1
if "%num%"=="1" color 07
if "%num%"=="2" color 09
if "%num%"=="3" color 0a
if "%num%"=="4" color 0b
if "%num%"=="5" color 0c
if "%num%"=="6" color 0d
if "%num%"=="7" color 0e
if "%num%"=="8" color 0f&set num=0
goto a
复制代码