标题: 特效五角星变色、循环变动，请求优化！ [打印本页]

---

作者: minmin888     时间: 2007-5-4 10:45    标题: 特效五角星变色、循环变动，请求优化！

以下是根据cn-dos前辈们的源码，进行了一些更改，请各位大虾优化!
@echo off
setlocal enabledelayedexpansion

mode con cols=60 lines=14
set a=☆☆☆☆☆☆☆☆☆☆
set b=★★★★★★★★★★
set 退格=
set co=123456789abcde

:ab
for /l %%i in (0,1,9) do call :go %%i
for /l %%i in (10,-1,1) do call :go %%i
goto :ab

:go
set /a x=%1
set /a y=%1-10
set /a z=(%y%*2+1)%%2*%y%

ping -n 1 127.1>nul
set/p=!a:~0,%x%!<nul

ping -n 1 127.1>nul
set/p=!b:~%y%,%z%!<nul

ping -n 1 127.1>nul
set/p=%退格%<nul

set /a c=%random%%%14+1<nul
color 0!co:~%c%,1!

---

作者: ldr2zjj     时间: 2007-5-6 15:34
效果不错~~~

---

作者: heixing     时间: 2009-12-30 23:35
我喜欢这个！收藏了 谢谢楼主，空了学习下代码

---

作者: ccyyxxx     时间: 2009-12-30 23:42
收藏了

---

作者: BowAngel     时间: 2010-1-12 01:02
挺好看的

---

作者: blueicexp     时间: 2010-1-17 00:26
感谢分享