Board logo

标题: 空间随机游动粒子+贪吃蛇初版 [打印本页]

作者: 523066680     时间: 2008-9-21 09:06    标题: 空间随机游动粒子+贪吃蛇初版

-----------------------空间随机游动粒子----------------------------
@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
    )
    cls
    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
----------------------类似贪食蛇
@echo off
title made by 523066680
setlocal enabledelayedexpansion
mode con cols=61 lines=31
for /l %%a in (1,1,60) do (set space= !space!)
for /l %%a in (1,1,30) do (set L%%a=%space%)
set /a line=15,col=29,i=0
:loop
set /a linenext=%random%%%30+1,colnext=%random%%%60
for %%a in (line col) do (
   if !%%a! lss !%%anext! (set %%aadd=+) else (set %%aadd=-)
)
   :loop-1
       if %i% lss 20 (set /a i+=1) else (set i=1)
       if defined cut%i% (
               !cut%i%:"=!
               set "L%a%=!L%a%:~0,%b%! !L%a%:~%c%!"
       )
    set /a C2=col+1
    set "L%line%=!L%line%:~0,%col%!*!L%line%:~%C2%!"
    set cut%i%="set /a a=%line%,b=%col%,c=%C2%"
    cls
    for /l %%a in (1,1,30) do echo,!L%%a!
    for /l %%a in (1,1,300) do (echo,>nul)
    if %line% neq %linenext% (
        set /a line%lineadd%=1
    ) else (
        set /a col%coladd%=1
    )
   if %col% neq %colnext% (goto :loop-1)
goto :loop
[ Last edited by 523066680 on 2008-10-1 at 08:38 ]
作者: BC     时间: 2008-9-21 09:09
exist一来就搞个那么强大的动画...支持!
作者: ygrzzz     时间: 2008-9-28 22:25
cmd窗口里即使是做一个小的特效,cpu就100%
这恐怕是cmd最让高手失望的地方,不然一定会看到更多精彩的东西~
作者: 523066680     时间: 2008-9-30 09:07
1楼帖子代码已经更新
作者: ygrzzz     时间: 2008-10-1 00:27
这段代码确实精彩,楼主还是做些文字特效出来就更吸引眼球了
实用性欠够啊~~~
作者: 523066680     时间: 2008-10-1 08:05
阁下可知道我学批处理就是冲着特效来的
我学批处理完全是凭着我喜欢前辈们做的特效  自己也希望有原创。


关于实用性,论坛实用性的代码已经好多了,我想不到什么创新的东东
出来 所以 就选择在特效类发展咯

[ Last edited by 523066680 on 2008-10-1 at 08:06 ]
作者: wxcute     时间: 2008-10-1 16:27
从特效发展至游戏可是很不错呢,而且也是变得实用了。

科学不是也能把没用的把戏变成厉害的武器吗?

你太厉害了。
作者: 523066680     时间: 2008-10-12 10:12
严重感谢wxcute的支持!