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

[游戏娱乐] 批处理随机游动粒子

也在cn-dos发表:http://www.cn-dos.net/forum/viewthread.php?tid=43059&sid=GXasLb
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. mode con cols=60 lines=30
  4. for /l %%a in (1,1,60) do (set space= !space!)
  5. set /a line=14,col=29
  6. :loop
  7. set /a linenext=%random%%%30
  8. set /a colnext=%random%%%60
  9. for %%a in (line col) do (
  10.    if !%%a! lss !%%anext! (set %%aadd=+) else (set %%aadd=-)
  11. )
  12.    :loop-1
  13.     if %line% neq %linenext% (
  14.         set /a line%lineadd%=1
  15.     ) else (
  16.         set /a col%coladd%=1
  17.     )
  18.     cls
  19.     for /l %%a in (1,1,%line%) do echo,
  20.     echo,!space:~0,%col%!*
  21.     for /l %%a in (1,1,200) do (echo,>nul)
  22.    if %col% neq %colnext% (goto :loop-1)
  23. goto :loop
复制代码
2

评分人数

@echo off
    setlocal enabledelayedexpansion
    mode con cols=60 lines=30
    for /l %%a in (1,1,60) do (set space= !space!)
    set /a line=14,col=29
    :loop
     set /a linenext=%random%%%30
     set /a colnext=%random%%%60
     for %%a in (line col) do (
       if !%%a! lss !%%anext! (set %%aadd=+) else (set %%aadd=-)
     )
       :loop-1
        if %line% neq %linenext% (
            set /a line%lineadd%=1
        ) else (
            set /a col%coladd%=1
        )
        for /l %%a in (1,1,%line%) do echo,
        echo,!space:~0,%col%!*
        for /l %%a in (1,1,200) do (echo,>nul)
       if %col% neq %colnext% (goto :loop-1)
    goto :loop

TOP

这个就技术拉……  可能是要先设置好位置
记下坐标   应该可以做到  但是代码应该蛮繁杂的
我不干这个……觉得很复杂

TOP

你能不能让它在窗口中写几个字啊

TOP

贪吃蛇这种想法是从开始就有的,随机游动粒子是制作的一个阶段。
我不想说出来,要是最后没有完成就不好了

TOP

现在头大,代码是看不来的。
不过光看效果是很不错,建议改贪吃蛇。

TOP

不过一楼的思路和代码我都精简过哦 发现没有

TOP

原帖由 523066680 于 2008-9-30 10:01 发表
一个小虫子,制作不成功……会拉稀的虫子@echo off
setlocal enabledelayedexpansion
mode con cols=81 lines=41
for /l %%a in (1,1,60) do (set space= !space!)
for /l %%a in (1,1,30) do (set L%%a=%space% ...

有点粗糙。。。
***共同提高***

TOP

如果是这样的效果呢?
  1.   o
  2. o  o o       o
复制代码

---------------------------------
- - ||| 果然过于抽象。。。小虫子在蠕动的效果~

[ 本帖最后由 pusofalse 于 2008-9-30 10:15 编辑 ]
心绪平和,眼藏静谧。

TOP

一个小虫子
  1. @echo off
  2. title made by 523066680
  3. setlocal enabledelayedexpansion
  4. mode con cols=61 lines=31
  5. for /l %%a in (1,1,60) do (set space= !space!)
  6. for /l %%a in (1,1,30) do (set L%%a=%space%)
  7. set /a line=15,col=29,i=0
  8. :loop
  9. set /a linenext=%random%%%30+1,colnext=%random%%%60
  10. for %%a in (line col) do (
  11.    if !%%a! lss !%%anext! (set %%aadd=+) else (set %%aadd=-)
  12. )
  13.    :loop-1
  14.        if %i% lss 20 (set /a i+=1) else (set i=1)
  15.        if defined cut%i% (
  16.                !cut%i%:"=!
  17.                set "L%a%=!L%a%:~0,%b%! !L%a%:~%c%!"
  18.        )
  19.     set /a C2=col+1
  20.     set "L%line%=!L%line%:~0,%col%!*!L%line%:~%C2%!"
  21.     set cut%i%="set /a a=%line%,b=%col%,c=%C2%"
  22.     cls
  23.     for /l %%a in (1,1,30) do echo,!L%%a!
  24.     for /l %%a in (1,1,300) do (echo,>nul)
  25.     if %line% neq %linenext% (
  26.         set /a line%lineadd%=1
  27.     ) else (
  28.         set /a col%coladd%=1
  29.     )
  30.    if %col% neq %colnext% (goto :loop-1)
  31. goto :loop
复制代码

[ 本帖最后由 523066680 于 2008-10-1 08:22 编辑 ]
3

评分人数

TOP

小子的代码又有了进步,加油。。。
***共同提高***

TOP

回复 3楼 的帖子

临渊羡鱼不如退而结网
多看看教程多写写代码
你很快能超过楼主^_^
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

的确很有趣,不知道什么时候自己也能写这样的批处理?哎!!!!!!!!!!
不管黑猫白猫,会捉老鼠的猫就是好猫!

TOP

又来占个沙发

期待后续哦

TOP

返回列表