CODE: [Copy to clipboard]
@echo off&setLocal enabLedeLayedexpansion
::made by 523066680 2008-12-25
title made by 523066680@cn-dos.net
mode con coLs=45 Lines=22
set num=0123456789abcdefghi
set L0=0 1 2 3 4 5 6 7 8 9 a b c d e f g h
for /l %%a in (1,1,18) do (set L=□!L!)
for /l %%a in (1,1,18) do (set L%%a=%L%)
for /l %%a in (0,1,18) do (set n!num:~%%a,1!=%%a)
for /l %%a in (0,1,18) do (echo, !L%%a! !num:~%%a,1!)
:a
set /p n="(yx): "
if "%n%"=="quit" (exit)
if "%n%"=="exit" (echo,@set evern=%evern%>x.x &exit)
set evern=%evern% %n%
if "%n:~-1%"=="#" (set "str=□") else (set "str=■")
if "%n:~3%"=="" (set "do=::") else (set "do=")
set /a ya=n%n:~0,1%,xa=n%n:~1,1%,xa2=xa+1
%do% set /a yb=n%n:~2,1%,xb=n%n:~3,1%,xb2=xb+1
%do% set "YorX=%n:~4,1%" &set "add=%n:~5,1%"
:a-1
set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
%do% set /a %YorX%a%add%=1,xa2=xa+1
%do% if not !%YorX%a! equ !%YorX%b! (goto :a-1)
%do% set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
:echo
ping -n 1 127.1>nul
cLs
for /l %%a in (0,1,18) do (echo, !L%%a! !num:~%%a,1!)
goto :a
0 1 2 3 4 5 6 7 8 9 a b c d e f g h 0CODE: [Copy to clipboard]
@set evern= 1151y+ 1316x+ 1636y+ 3633x- 3353y+ 5356x+ 181bx+ 1b1cx+ 1b1cx+# 1b 1b5by+ 383ax+ 585ax+
@echo off&setLocal enabLedeLayedexpansion
mode con coLs=40 Lines=22
color 40
set "L0=" &set "num=0123456789abcdefghi"
for /l %%a in (1,1,18) do (set L=□!L!)
for /l %%a in (1,1,18) do (set L%%a=%L%)
for /l %%a in (0,1,18) do (set n!num:~%%a,1!=%%a)
for %%a in (%evern%) do (call :a %%a)
pause
exit
:a
set n=%~1
if "%n:~-1%"=="#" (set "str=□") else (set "str=■")
if "%n:~3%"=="" (set "do=::") else (set "do=")
set /a ya=n%n:~0,1%,xa=n%n:~1,1%,xa2=xa+1
%do% set /a yb=n%n:~2,1%,xb=n%n:~3,1%,xb2=xb+1
%do% set "YorX=%n:~4,1%" &set "add=%n:~5,1%"
:a-1
set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
call :echo
%do% set /a %YorX%a%add%=1,xa2=xa+1
%do% if not !%YorX%a! equ !%YorX%b! (goto :a-1)
%do% set L%ya%=!L%ya%:~0,%xa%!%str%!L%ya%:~%xa2%!
%do% for /l %%a in (1,1,3) do (ping -n 1 127.1>nul)
:echo
for /l %%a in (1,1,3) do (ping -n 1 127.1>nul)
cLs
for /l %%a in (0,1,18) do (echo, !L%%a!)
goto :eof
其实修改后也可以用来编辑和获得字符组成的图案,下面是自己编辑的字符进行组合(编的不太好唷...):