中国DOS联盟

This version's editing---if exist Q523066680

@echo off&mode con cols=60 lines=30 &color 0a
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set n=4

:a
set /a n+=4
set /a upkh=15-%n%/4,kleft=30-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
for /l %%a in (1,1,2) do ping -n>nul
cls
if %n%==40 set /a n=4
goto a

Last edited by 523066680 on 2008-7-8 at 10:01 PM ]

@echo off&mode con cols=64 lines=32 &color 0a
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set /a a=0,b=64

:a
if %a% leq 56 (set /a a+=4,n=%a%) else (set /a b-=4,n=%b%)
if %b% equ 0 (set /a a=4,b=60)
set /a upkh=16-%n%/4,kleft=32-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
ping -n>nul
cls
goto a

Last edited by 523066680 on 2008-6-3 at 05:08 PM ]

Not bad, give an extra point to encourage ~~

Please provide the full context or more relevant information so that I can accurately translate and handle this content. Currently, the given content is incomplete for a comprehensive translation and analysis.

Nice to see, good effect, especially the second floor.

Why can't I see the effect :(

Originally posted by radem at 2008-5-28 11:03 PM:
Why can't I see the effect :(

What is your system version?
What is the name of the batch file you saved?
Is there any error message?

Last edited by HAT on 2008-5-29 at 12:39 PM ]

Originally posted by HAT at 2008-5-28 11:15 PM:

What is your system version?
What is the name of the batch file you saved?
Is there any error message?

Last edited by HAT on 2008-5-29 at 12:39 PM ]

1.WIN XPSP2
2.t.bat
3.no!

YYYYY???

The key part of the code on my 2nd floor is in the red part. I want the box to enlarge and then shrink, and I don't want to add too much to the code. Those two ifs are the results of my long thinking!

Personally, if I want to make a circular enlargement, I should first try to make a batch script that displays a quadratic function graph. I will work hard, but I'll only have internet access after the summer vacation. Everyone can also try more! The key points of the above batch script are --- determine the center coordinates (horizontal 32, vertical 16), calculate the number of empty lines above, calculate the number of left spaces, 00 the number of middle spaces 00 and the number of such lines.

::This version of the edit---if exist Q523066680
@echo off&mode con cols=68 lines=34
setlocal enabledelayedexpansion
set omax=oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
set kmax=%omax:o= %
set /a a=0,b=60
set /a num1=0,num=0
for %%C in (1 2 3 4 5 6) do (
set /a num1+=1
set color!num1!=%%C
)

:a
if %num% leq 5 (set /a num+=1) else set num=0
color !color%num%!
if %a% leq 56 (set /a a+=4,n=%a%) else (set /a b-=4,n=%b%)
if %b% equ 0 (set /a a=4,b=60)
set /a upkh=17-%n%/4,kleft=32-%n%/2,zk=%n%-4,zkh=%n%/2-2
set leftk=!kmax:~0,%kleft%!
set zk=oo!kmax:~0,%zk%!oo
set hang=!omax:~0,%n%!
for /l %%a in (1,1,%upkh%) do echo.
echo.%leftk%%hang%
for /l %%a in (1,1,%zkh%) do echo.%leftk%%zk%
echo.%leftk%%hang%
echo.%n%
for /l %%g in (1,1,8000) do rem
cls
goto a

Last edited by 523066680 on 2008-7-14 at 07:45 AM ]

Doing these things with P causes extremely high CPU usage. The one upstairs, once started, the CPU usage reaches 60%!