Board logo

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

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

尽管在没有加色彩之前这个代码受过批评,
觉得还可以,添油加醋,终究还是发上来了。
祝君心情愉快。
  1. @echo off
  2. ::code by 523066680 / if_exist
  3. setlocal enabledelayedexpansion
  4. for /l %%a in (1,1,80) do (set k= !k!)
  5. set /a a=7,b=-6,color=0
  6. set /p= <nul>OO
  7. :a
  8.   set /a color+=1
  9.   if %a% gtr -6 (set /a a-=1,x=a*a) else (set /a b+=1,x=72-b*b)
  10.   if %b% equ 6 (set /a a=6,b=-6)
  11.   for %%a in (a b) do (
  12.      set /p a=!k:~0,%x%!<nul
  13.      findstr /a:%color%  "OO*"
  14.      echo,
  15.   )
  16.   ping -n 1 127.1>nul
  17. if %color% leq 200 goto :a
  18. 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

喜欢小一点的
  1. @echo off
  2. set /p= <nul>#
  3. setlocal enabledelayedexpansion
  4. for /l %%a in (1,1,80) do (set k= !k!)
  5. set /a a=7,b=-6
  6. :a
  7. set /a ee+=1
  8. if %a% gtr -6 (set /a a-=1,x=a*a) else (set /a b+=1,x=72-b*b)
  9. if %b% geq 6 (set /a b=-6,a=6)
  10. set /p a=!k:~0,%x%!<nul
  11. findstr /a:%ee%  "#*"
  12. echo,
  13. ping -n 1 127.1>nul
  14. goto :a
复制代码

作者: zljzsmzzx    时间: 2009-6-12 16:45

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




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2