批处理跑圈特效

随风

:

1. @echo off&setlocal enabledelayedexpansion
   
2. :: 2007-12-15  code by  随风   @bbs.bathome.net
   
3. mode con: cols=61 lines=15&color 1f
   
4. title 什么时候是个头啊!
   
5. for /l %%l in (1 1 58) do set "ko= !ko!"
   
6. :ss
   
7. set "t="&set "t2= "&set su=0
   
8. set hang=30&set lie=13
   
9. set "a=*"&set "b=!ko!*"
   
10. :lis
    
11. cls&set /a su+=1
    
12. if !su! equ 3 (
    
13.   for /l %%h in (1 1 13) do echo.
    
14.   set "a=!ko!*"
    
15.   set yan=40&set hang=30
    
16. ) else set yan=100
    
17. for /l %%i in (1 1 !hang!) do (
    
18.   set/p= !a!<nul
    
19.   for /l %%l in (1 1 !yan!) do ver>nul
    
20.   set/p=!t! <nul
    
21.   if !su! equ 3 set a=!a:~2!&for /l %%a in (1 1 60) do set /p=<nul
    
22. )
    
23. if !su! geq 3 goto loop
    
24. set hang=%lie%&set lie=%hang%
    
25. set a=!b!&set b=!a!
    
26. set t=!t2!&set "t2=!t!"
    
27. goto lis
    
28. :loop
    
29. for /l %%a in (13 -1 1) do (
    
30.   cls&for /l %%b in (1 1 %%a) do echo.
    
31.   echo  *
    
32.   for /l %%l in (1 1 100) do ver>nul
    
33. )
    
34. goto ss

复制代码

foxJL

呵呵..好玩.建议改成随机的跑圈效果更好..

youxi01

各种类型的动画效果都出来了///

novaa

呵呵~~~
学习了。。。

追月

支持, 好快啊!

xbox360

呵呵,真的很快啊~~~

fengshun

呵呵，真的很好，学习了！

zxm.gongqing

顶，象贪吃蛇，很好，很好。

骚鸡

非常不错~！就是我还看不明白

tjtchly

为什么转成EXE后无法看到效果，在任务管理器中确在运行。

523066680

哈  我们把它改成向里跑的要不要？等下去做做看  汗 好复杂
我自己也做一个 有一些变量为什么这么设也没搞清楚，是慢慢测试的……
嘿嘿  不过我这个 在行间滑动的时候没这么闪烁哦

1. @echo off&color 1f
   
2. setlocal enabledelayedexpansion
   
3. for /l %%a in (1,1,80) do set kong= !kong!
   
4. set /a a=0,b=0
   
5. call :a hehe
   
6. :a
   
7. if "%1"=="hehe" (for /l %%a in (1,1,50) do echo,>nul
   
8. set /p=  *<nul
   
9. if %a% equ 77 (call :b xixi)
   
10. set /a a+=1
    
11. ) else (for /l %%a in (1,1,50) do echo,>nul
    
12. set /p=  *<nul
    
13. if %a% equ 0 (call :b kaka)
    
14. set /a a-=1)
    
15. goto :a
    
16. :b
    
17. if "%1"=="xixi" (for /l %%a in (1,1,100) do echo,>nul
    
18. cls
    
19. for /l %%a in (1,1,%b%) do echo,
    
20. set /p=%kong:~2%*<nul
    
21. if !b! equ 20 (call :a haha)
    
22. set /a b+=1) else (
    
23. for /l %%a in (1,1,100) do echo,>nul
    
24. cls
    
25. for /l %%a in (1,1,%b%) do echo,
    
26. set /p=*<nul
    
27. if !b! equ 0 (call :a hehe)
    
28. set /a b-=1)
    
29. goto :b

复制代码

[ 本帖最后由 523066680 于 2008-8-10 18:22 编辑 ]

523066680

这个向里面跑的 很烂……
@echo off
setlocal enabledelayedexpansion
set h1=a1a2a3a4a5a6a7a8a9
set h2=d5d6d7d8d9e1e2e3b1
set h3=d4g2g3g4g5g6g7e4b2
set h4=d3g1h9i1i2i3g8e5b3
set h5=d2f9h8i8i9i4g9e6b4
set h6=d1f8h7i7i6i5h1e7b5
set h7=c9f7h6h5h4h3h2e8b6
set h8=c8f6f5f4f3f2f1e9b7
set h9=c7c6c5c4c3c2c1b9b8
for %%a in (a b c d e f g h i) do (
for /l %%b in (1,1,9) do (
  for /l %%c in (1,1,9) do (
  set h%%c=!h%%c:%%a%%b= *!
  )
  ping -n>nul
  cls
  for /l %%c in (1,1,9) do echo,!h%%c!
  
)
)
pause

cbw1982

哈哈，相当的牛逼啊，喜欢死了

Peking007

哈哈，相当的牛逼啊！！
佩服～～～

BAT1

原帖由 zxm.gongqing 于 2008-3-8 17:35 发表
顶，象贪吃蛇，很好，很好。

要是楼主真的做出贪吃蛇就好了！哈哈哈！