[游戏娱乐] 批处理彩色蜿蜒曲线

523066680

尽管在没有加色彩之前这个代码受过批评，
觉得还可以，添油加醋，终究还是发上来了。
祝君心情愉快。

@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
复制代码

xxx

顶贴!拿分!走人.

当时我囧了一下,原来exist家是开发廊的啊~

523066680

无语……

PakTC

喜欢小一点的

@echo off
set /p= <nul>#
setlocal enabledelayedexpansion
for /l %%a in (1,1,80) do (set k= !k!)
set /a a=7,b=-6

:a
set /a ee+=1
if %a% gtr -6 (set /a a-=1,x=a*a) else (set /a b+=1,x=72-b*b)
if %b% geq 6 (set /a b=-6,a=6)
set /p a=!k:~0,%x%!<nul
findstr /a:%ee%  "#*"
echo,
ping -n 1 127.1>nul
goto :a
复制代码

zljzsmzzx

有意思。。。学习学习。。