Initial version of space random walk particles + snake game - China DOS Union Forum

-----------------------Spatial Random Walk Particles----------------------------

@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

----------------------Similar to Snake


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

exist comes in and immediately makes such a powerful animation... support!

Even in the cmd window, even making a small special effect, the CPU is at 100%. This is probably the most disappointing thing for experts about cmd; otherwise, more wonderful things would definitely be seen~

The code in the post on the first floor has been updated

This code is really wonderful. The owner should make some text effects to be more eye-catching. The practicality is insufficient~~~

Do you know that I learned batch processing precisely for the sake of special effects?
I learned batch processing entirely because I like the special effects made by seniors and I also hope to have original ones.

Regarding practicality, there are already many practical codes in the forum, and I can't think of any innovative things to come up with, so I chose to develop in the special effects category.

[ Last edited by 523066680 on 2008-10-1 at 08:06 ]

It's quite good from special effects to games, and it has also become practical.

Can't science also turn useless tricks into powerful weapons?

You're so amazing.

Deeply grateful for the support from wxcute!

Floor1　523066680	Posted 2008-09-21 09:06
银牌会员　Posts 1,133　Credits 2,361
-----------------------Spatial Random Walk Particles---------------------------- @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 ----------------------Similar to Snake @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* ]

Floor2　BC	Posted 2008-09-21 09:09
中级用户　Posts 175　Credits 338
exist comes in and immediately makes such a powerful animation... support!

Floor3　ygrzzz	Posted 2008-09-28 22:25
初级用户　Posts 24　Credits 62
Even in the cmd window, even making a small special effect, the CPU is at 100%. This is probably the most disappointing thing for experts about cmd; otherwise, more wonderful things would definitely be seen~

Floor4　523066680	Posted 2008-09-30 09:07
银牌会员　Posts 1,133　Credits 2,361
The code in the post on the first floor has been updated

Floor5　ygrzzz	Posted 2008-10-01 00:27
初级用户　Posts 24　Credits 62
This code is really wonderful. The owner should make some text effects to be more eye-catching. The practicality is insufficient~~~

Floor6　523066680	Posted 2008-10-01 08:05
银牌会员　Posts 1,133　Credits 2,361
Do you know that I learned batch processing precisely for the sake of special effects? I learned batch processing entirely because I like the special effects made by seniors and I also hope to have original ones. Regarding practicality, there are already many practical codes in the forum, and I can't think of any innovative things to come up with, so I chose to develop in the special effects category. [ Last edited by 523066680 on 2008-10-1 at 08:06 ]

Floor7　wxcute	Posted 2008-10-01 16:27
中级用户　Posts 211　Credits 458
It's quite good from special effects to games, and it has also become practical. Can't science also turn useless tricks into powerful weapons? You're so amazing.

Floor8　523066680	Posted 2008-10-12 10:12
银牌会员　Posts 1,133　Credits 2,361
Deeply grateful for the support from wxcute!