很久没有发帖了 找个机会发一帖：彩色蜿蜒曲线
就试发一次，看有没有人看………
[ Last edited by 523066680 on 2009-8-14 at 10:21 ]
@echo off
::code by 523066680 / if_exist
setlocal enabledelayedexpansion
for /l %%a in (1,1,80) do (set k= !k!)
set /a a=7,b=-6,color=0
set /p= <nul>OO
:a
set /a color+=1
if %a% gtr -6 (set /a a-=1,x=a*a) else (set /a b+=1,x=72-b*b)
if %b% equ 6 (set /a a=6,b=-6)
for %%a in (a b) do (
set /p a=!k:~0,%x%!<nul
findstr /a:%color% "OO*"
echo,
)
ping -n 1 127.1>nul
if %color% leq 200 goto :a
pause
就试发一次，看有没有人看………
[ Last edited by 523066680 on 2009-8-14 at 10:21 ]
本帖最近评分记录
（共 3 条）
点击查看详情
