空间随机游动粒子+贪吃蛇初版 - 中国DOS联盟论坛

-----------------------空间随机游动粒子----------------------------

@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 ]

第1楼　523066680	发表于 2008-09-21 09:06
银牌会员　发帖 1,133　积分 2,361
空间随机游动粒子+贪吃蛇初版 -----------------------空间随机游动粒子---------------------------- @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* ]

第2楼　BC	发表于 2008-09-21 09:09
中级用户　发帖 175　积分 338
exist一来就搞个那么强大的动画...支持!

第3楼　ygrzzz	发表于 2008-09-28 22:25
初级用户　发帖 24　积分 62
cmd窗口里即使是做一个小的特效，cpu就100% 这恐怕是cmd最让高手失望的地方，不然一定会看到更多精彩的东西~

第4楼　523066680	发表于 2008-09-30 09:07
银牌会员　发帖 1,133　积分 2,361
1楼帖子代码已经更新

第5楼　ygrzzz	发表于 2008-10-01 00:27
初级用户　发帖 24　积分 62
这段代码确实精彩，楼主还是做些文字特效出来就更吸引眼球了实用性欠够啊~~~

第6楼　523066680	发表于 2008-10-01 08:05
银牌会员　发帖 1,133　积分 2,361
阁下可知道我学批处理就是冲着特效来的我学批处理完全是凭着我喜欢前辈们做的特效自己也希望有原创。关于实用性，论坛实用性的代码已经好多了，我想不到什么创新的东东出来所以就选择在特效类发展咯 [ Last edited by 523066680 on 2008-10-1 at 08:06 ]

第7楼　wxcute	发表于 2008-10-01 16:27
中级用户　发帖 211　积分 458
从特效发展至游戏可是很不错呢，而且也是变得实用了。科学不是也能把没用的把戏变成厉害的武器吗？你太厉害了。

第8楼　523066680	发表于 2008-10-12 10:12
银牌会员　发帖 1,133　积分 2,361
严重感谢wxcute的支持！