批处理之家 - Powered by Discuz! Board

标题: [游戏娱乐] 批处理彩色蜿蜒曲线 [打印本页]

作者: 523066680 时间: 2009-5-15 17:05 标题: 批处理彩色蜿蜒曲线

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

@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 时间: 2009-5-15 19:25

顶贴!拿分!走人.

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

作者: 523066680 时间: 2009-5-16 16:09

本帖最后由 523066680 于 2014-7-29 18:00 编辑

无语……

作者: PakTC 时间: 2009-6-4 12:53

喜欢小一点的

@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 时间: 2009-6-12 16:45

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

欢迎光临批处理之家 (http://bbs.bathome.net/)