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

随风

:

@echo off&setlocal enabledelayedexpansion
:: 2007-12-15  code by  随风   @bbs.bathome.net
mode con: cols=61 lines=15&color 1f
title 什么时候是个头啊!
for /l %%l in (1 1 58) do set "ko= !ko!"
:ss
set "t="&set "t2= "&set su=0
set hang=30&set lie=13
set "a=*"&set "b=!ko!*"
:lis
cls&set /a su+=1
if !su! equ 3 (
  for /l %%h in (1 1 13) do echo.
  set "a=!ko!*"
  set yan=40&set hang=30
) else set yan=100
for /l %%i in (1 1 !hang!) do (
  set/p= !a!<nul
  for /l %%l in (1 1 !yan!) do ver>nul
  set/p=!t! <nul
  if !su! equ 3 set a=!a:~2!&for /l %%a in (1 1 60) do set /p=<nul
)
if !su! geq 3 goto loop
set hang=%lie%&set lie=%hang%
set a=!b!&set b=!a!
set t=!t2!&set "t2=!t!"
goto lis
:loop
for /l %%a in (13 -1 1) do (
  cls&for /l %%b in (1 1 %%a) do echo.
  echo  * 
  for /l %%l in (1 1 100) do ver>nul
)
goto ss
复制代码

Batcher

要是你真的学会在本版搜索“贪吃蛇”就好了！哈哈哈！

BAT1

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

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

Peking007

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

cbw1982

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

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

523066680

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

@echo off&color 1f
setlocal enabledelayedexpansion
for /l %%a in (1,1,80) do set kong= !kong!
set /a a=0,b=0
call :a hehe
:a
if "%1"=="hehe" (for /l %%a in (1,1,50) do echo,>nul
set /p=  *<nul
if %a% equ 77 (call :b xixi)
set /a a+=1
) else (for /l %%a in (1,1,50) do echo,>nul
set /p=  *<nul
if %a% equ 0 (call :b kaka)
set /a a-=1)
goto :a
:b
if "%1"=="xixi" (for /l %%a in (1,1,100) do echo,>nul
cls
for /l %%a in (1,1,%b%) do echo,
set /p=%kong:~2%*<nul
if !b! equ 20 (call :a haha)
set /a b+=1) else (
for /l %%a in (1,1,100) do echo,>nul
cls
for /l %%a in (1,1,%b%) do echo,
set /p=*<nul
if !b! equ 0 (call :a hehe)
set /a b-=1)
goto :b
复制代码

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

tjtchly

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

骚鸡

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

zxm.gongqing

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

fengshun

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

xbox360

呵呵,真的很快啊~~~

追月

支持, 好快啊!

novaa

呵呵~~~
学习了。。。

youxi01

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