[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[游戏娱乐] 批处理跑圈特效

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

评分人数

技术问题请到论坛发帖求助!

回复 15楼 的帖子

要是你真的学会在本版搜索“贪吃蛇”就好了!哈哈哈!
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

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

TOP

哈哈,相当的牛逼啊!!
佩服~~~
1

评分人数

    • yslyxqysl: 一半的复制楼上,是何居心?PB -8

TOP

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

TOP

这个向里面跑的 很烂……
@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

TOP

哈  我们把它改成向里跑的要不要?等下去做做看  汗 好复杂
我自己也做一个 有一些变量为什么这么设也没搞清楚,是慢慢测试的……
嘿嘿  不过我这个 在行间滑动的时候没这么闪烁哦
  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 编辑 ]

TOP

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

TOP

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

TOP

象贪吃蛇

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

TOP

呵呵,真的很好,学习了!

TOP

呵呵,真的很快啊~~~

TOP

支持, 好快啊!

TOP

呵呵~~~
学习了。。。
ㄗs:A good programming is 99% sweat and 1% coffee!--①個亾

============ >   hi.baidu.com/novaa   <============

TOP

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

TOP

返回列表