全角字符地图编辑器（批处理） - 中国DOS联盟论坛

纯cmd批处理制作
用来绘制全角文本图形

在绘制过程中：
按F1取得帮助
可以随时存盘，顺序地读取关级文件
可以随时添加画笔，选择画笔
可以上下左右翻页
可以选择连续画或者画点的状态
用数字直接修改步进单位，即方向键可以实现一次跳转N行或N列
可以方便地设置用在游戏中的机关数据，并为数据选择坐标提供了方便操作
可以使用填充功能，把当前连续的字符填充为画笔中的字符
可以使用字符转换功能，把与当前字符相同的点全部替换为画笔中的字符
可以使用多次恢复操作

@goto :begin
e 100 cd 16 86 c4 b4 02 cd 10 b4 4C CD 21
g
:begin
@echo off
set a=str=　■∷▓☆★大⊙♀△▲;bj=1;file=hdt;等=call :tczh^
;m=1;n=1;fn=0;b2=1;b3=2;b4=3;b5=4;b6=5;b7=6;b8=7;b9=8^
;Esc=exit/b;Ins=goto :m_ins;del=goto :m_del;paup=goto :m_paup;pado=goto :m_pado^
;f10=call :m_save;back=goto :m_back;home=goto :m_home;End=goto m_end^
;r23=字符表:空!str:~,10!  状态:!zt!  画笔:!zf!!ddb!  当前:!bac!!ddq!  步进:!bj!  帮助键F1 ^
;r24= 按 键:ＸＡＳＤＦＧＨＪＫＬ；坐标:当前!n!.!m! 左上!n0!.!m0! 右下!n9!,!m9!   ^
;r25=最大边界:!nz!.!mz!  机关：!$jg!             ^
;r改写=移动;r移动=改写;zf=■^
;zt=移动;改写=!zf!;移动=!bac!^
;help=!cr!!cr!  F1本帮助   F4上一文件   F6下一文件   F10保存   Esc退出  回车刷屏!cr!!cr!  方向移动绘图坐标   空格转换状态^
  Up/Down/Home/End上/下/左/右 翻页!cr!!cr!  Ins加入一个绘图字符,直接回车则把当前字符作为画笔  !cr!^
  Del把当前绘图字符提出放到字符表最后（字符表移位）!cr!!cr!^
  Tab键为当前点加入机关设置项，以#号开头，保存在图形数据的后面!cr!!cr!^
  按=号进入填充/转换，当前字符==》画笔字符!cr!!cr!^
  Backspace恢复操作，  数字键选择步进单位!cr!!cr!   用对应的按键选择画笔，!cr!^
  并且在改写状态移动坐标自动绘图，在移动状态则按一个键画一个点!cr!
set %a:;=&set %

set "空格=set zt=^^!r!zt!^^!
set cr=^

&set bac=　
set/a n0=0,n9=21,m0=-1
set "Ent=set cls=cls^&if .!zt! equ .设置 goto :eof
set "f6=endlocal^&set /a fn+=1^&goto :restart
set "f4=endlocal^&set /a fn-=1^&goto :restart
set "f1=cls^^^&echo !help!^^^&pause
set "Tab=goto :m_Tab

::各字符分别存为变量

pushd "%~dp0"
chcp 437 >nul
graftabl 936 >nul

::c72=上;c80=下;c75=左;c77=右;
set @@=i15=Tab;i28=Ent;i14=back;i59=f1;i62=f4;i68=f10;i64=f6;i82=ins;i83=Del;i1=Esc^
;i13=等;i73=Paup;i81=Pado;i57=空格;i71=Home;i79=End;c72=n-;c75=m-;c80=n+;c77=m+
set %@@:;=&set %
set $a=　&set $d=空

set /p file=输入文件名前缀：
for %%a in ("%file%") do set file=%%~na
set k45=!!
set cls=cls
:restart
setlocal enabledelayedexpansion
for /l %%a in (0,1,9) do (set kh=!kh!       )
if exist !file!!fn!.txt goto :m_open
:d_loop
if !mz! lss 38 set mz=38
for /l %%a in (0,1,9) do (set k3%%a=!str:~%%a,1!)
set zf=!str:~,1!
title 批处理版画图    文件：!file!!fn!.txt
:loop

(set bac=!m%n%.%m%!&set m!n!.!m!=⊕
if !n! geq !n9! set /a n0=n-21,n9=n
if !n0! lss 0 set /a n0=0,n9=21
if !n! lss !n0! set /a n0=n,n9=n+21

if !m! geq !m9! set /a m0=m-38,m9=m
if !m0! lss 0 set /a m0=0,m9=38
if !m! lss !m0! set /a m0=m,m9=m+38

if "!m0!!m9!" neq "%m0%%m9%" (
  set ebs=
  for /l %%b in (!m0!,1,!m9!) do (
     set "ebs=!ebs!^!@%%b^!^^^!$a^!@%%b^!^^^!
  )
)

set ebuf=
for /l %%a in (!n0!,1,!n9!) do (
    for %%c in ("!ebs:@=m%%a.!") do (
        for %%d in ("%%~c") do (set ebuf=!ebuf!%%~d:!cr!)
    )
)
set m!n!.!m!=!bac!&set ddq=!$d%bac%!&set ddb=!$d%zf%!
set $jg=!#%n%.%m%!
%cls%
set /p=!ebuf!%r23%!cr!%r24%!cr!%r25%<nul
set cls=
>nul debug <%~nx0
)
set err=%errorlevel%
set in=!i%err%! !err!
if defined c%err% goto :lrpd 上下左右
if defined k%err% goto :keyc 选择写入
if defined i%err% goto :cont 功能键
if defined b%err% set bj=!b%err%!
goto :loop

:keyc 画笔选择处理
set var=!k%err%!
set zf=%var%
if "!zt!" equ "移动" (set cone=!var!)
goto :loop

:cont 功能键处理
set comm=!i%err%!
set comm=!%comm%!
set comm=%comm%
%comm%
goto :loop

:lrpd 方向键处理过程
set var=!c%err%:~,1!
for /l %%a in (1,1,!bj!) do (call :lrpd_sub)
goto :loop

:lrpd_sub 方向子过程
(
if "!zt!" equ "改写" (set m!n!.!m!=%zf%) else (if defined cone set m!n!.!m!=%cone%)
set cone=
if !m%n%.%m%! neq !bac! set c_z=!n!.!m!=!bac!@!c_z:~,4096!
set /a !c%err%!=1
if !%var%! lss 0 set !var!=0
if !%var%! gtr !%var%z! set !var!z=!%var%!
)
set bac=!m%n%.%m%!&goto :eof

:m_back 恢复
if defined c_z (
set var=%c_z:@=&rem %
if !var! equ !c_z! set c_z=&goto :loop
set c_z=!c_z:*@=!
if "!var:~,2!" equ "zh" (set bac=!var:~2,1!&set zf=!var:~3,1!&call :unzh) else (
  if "!var:~,2!" equ "tc" (
    for /f "tokens=2-5 delims=." %%a in ("!var!") do set/a n=%%a,m=%%b&set bac=%%c&set zf=%%d
    call :fill
  )else (set m!var!)
)
)
goto :loop

:m_del
if "%zf%" neq "" (
  set str=!str:%zf%=!%zf%
  set zf=!str:~,1!
  goto :d_loop
)
goto :loop

:m_ins
set var=
set /p var=输入一个全角字符：
if not defined var set var=!bac!
set str=!var:~,1!!str:%var%=!
goto :d_loop

:m_paup
set/a n-=20,n0-=20,n9-=20
if !n! leq 0 set /a n=0
goto :m_pas

:m_pado
set/a n+=20,n0+=20,n9+=20
if !n9! gtr !nz! set /a n=nz,n9=nz

:m_pas
set zt=移动
set cls=cls
goto :loop

:m_Home
set/a m-=28,m0-=28,m9-=28
if !m! lss 0 set /a m=0
goto :m_pas

:m_End
set/a m+=28,m0+=28,m9+=28
if !m9! gtr !mz! set /a m=mz,m9=mz
goto :m_pas

:m_save  保存文件
setlocal enabledelayedexpansion
set ebs=
for /l %%b in (0,1,!mz!) do (
   set "ebs=!ebs!^!@%%b^!^^^!$a^!@%%b^!^^^!
)

(for /l %%a in (0,1,!nz!) do (
    for %%c in ("!ebs:@=m%%a.!") do for %%d in ("%%~c") do (set ebuf=%%~d)
    set ebuf=!ebuf:　= !
    for %%c in ("1!ebuf!") do set ebuf=%%~nxc
    set ebuf=!ebuf: =　!
    echo;!ebuf:~1!
)
set # 2>nul
)> !file!!fn!.txt

endlocal&goto :eof

:m_open 打开文件
set n=0
for /f "tokens=1* delims=:" %%j in ('findstr /n .* !file!!fn!.txt') do (
  set _str=%%k
  if defined _str (if "!_str:~,1!" equ "#" (set !_str!) else (
  set /a z=8180,x=0
  for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x"
    for %%b in (!y!) do if "!_str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)
  )
  if !m! lss !y! set m=!y!
  for /l %%l in (0,1,!y!) do (
    for %%m in ("!_str:~%%l,1!") do (
      if "!str:%%~m=!" equ "!str!" set str=%%~m!str!
      set m!n!.%%l=%%~m
    )
   ))
  set/a n+=1
  )
)
set /a "mz=m,nz=n,n%%=14+4,m%%=22+6"
goto :d_loop

:m_Tab 设置机关功能

::set #n.m=#k@ #t@(内容) 
set var=
echo !cr!!cr!方法：@代表将要输入坐标，输入空格后回车清除机关，直接回车不改变
set/p var=原机关：!#%n%.%m%!!cr!设置为： 
if defined var if "!var!" equ " " (set #!n!.!m!=) else (set vara=&goto :aadr)
goto :loop

:aadr 为设置的机关描述添加坐标
set vara=!vara!%var:@=&rem %
set var=%var:*@=%&if "%var%" equ "!var!" (set #!n!.!m!=!vara!&goto :loop)
setlocal enabledelayedexpansion
set zt=设置
set r设置=设置
set r25=正在设置: @!var!
call :loop
endlocal&set vara=!vara!%n%.%m%
goto :aadr


:tczh 填充/转换
if "!bac!" equ "!zf!" goto :eof
set /p in=:
if "!in!" equ "1" set m!n!.!m!=!zf!&set c_z=tc.!n!.!m!.!zf!.!bac!@!c_z:~,4096!&goto :fill
if "!in!" equ "2" (
set c_z=zh!zf!!bac!@!c_z:~,4096!
:unzh
for /l %%a in (0,1,!nz!) do for /l %%b in (0,1,!mz!) do (if "!m%%a.%%b!" equ "!bac!" set m%%a.%%b=!zf!)
)
goto :eof

:fill
if !caen! gtr 300 set cbuf=!n!.!m! !cbuf!&goto :eof
set /a vn=n-1,vm=m-1,xn=n+1,xm=m+1,caen+=1
for %%a in (!vn!.!m! !n!.!vm! !n!.!xm! !xn!.!m!) do (
    if "!m%%a!" equ "!bac!" (
        set m%%a=!zf!
        for /f "tokens=1,2 delims=." %%b in ("%%a") do (
            if %%b geq 0 if %%b leq !nz! if %%c geq 0 if %%c leq !mz! set/a n=%%b,m=%%c&call :fill
        )
    )
)
set/a caen-=1

if !caen! leq 1 if defined cbuf (
    set cbuf=
    for %%a in (%cbuf%) do (for /f "tokens=1,2 delims=." %%b in ("%%a") do (
            if %%b geq 0 if %%b leq !nz! if %%c geq 0 if %%c leq !mz! set/a n=%%b,m=%%c&call :fill
    )    )
)

goto :eof

[ Last edited by netbenton on 2009-9-13 at 11:45 ]

第1楼　netbenton	发表于 2009-09-10 12:42
银牌会员　发帖 752　积分 1,916　来自广西
[原创]全角字符地图编辑器（批处理）纯cmd批处理制作用来绘制全角文本图形在绘制过程中：按F1取得帮助可以随时存盘，顺序地读取关级文件可以随时添加画笔，选择画笔可以上下左右翻页可以选择连续画或者画点的状态用数字直接修改步进单位，即方向键可以实现一次跳转N行或N列可以方便地设置用在游戏中的机关数据，并为数据选择坐标提供了方便操作可以使用填充功能，把当前连续的字符填充为画笔中的字符可以使用字符转换功能，把与当前字符相同的点全部替换为画笔中的字符可以使用多次恢复操作 @goto :begin e 100 cd 16 86 c4 b4 02 cd 10 b4 4C CD 21 g :begin @echo off set a=str=　■∷▓☆★大⊙♀△▲;bj=1;file=hdt;等=call :tczh^ ;m=1;n=1;fn=0;b2=1;b3=2;b4=3;b5=4;b6=5;b7=6;b8=7;b9=8^ ;Esc=exit/b;Ins=goto :m_ins;del=goto :m_del;paup=goto :m_paup;pado=goto :m_pado^ ;f10=call :m_save;back=goto :m_back;home=goto :m_home;End=goto m_end^ ;r23=字符表:空!str:~,10! 状态:!zt! 画笔:!zf!!ddb! 当前:!bac!!ddq! 步进:!bj! 帮助键F1 ^ ;r24= 按键:ＸＡＳＤＦＧＨＪＫＬ；坐标:当前!n!.!m! 左上!n0!.!m0! 右下!n9!,!m9! ^ ;r25=最大边界:!nz!.!mz! 机关：!$jg! ^ ;r改写=移动;r移动=改写;zf=■^ ;zt=移动;改写=!zf!;移动=!bac!^ ;help=!cr!!cr! F1本帮助 F4上一文件 F6下一文件 F10保存 Esc退出回车刷屏!cr!!cr! 方向移动绘图坐标空格转换状态^ Up/Down/Home/End上/下/左/右翻页!cr!!cr! Ins加入一个绘图字符,直接回车则把当前字符作为画笔 !cr!^ Del把当前绘图字符提出放到字符表最后（字符表移位）!cr!!cr!^ Tab键为当前点加入机关设置项，以#号开头，保存在图形数据的后面!cr!!cr!^ 按=号进入填充/转换，当前字符==》画笔字符!cr!!cr!^ Backspace恢复操作，数字键选择步进单位!cr!!cr! 用对应的按键选择画笔，!cr!^ 并且在改写状态移动坐标自动绘图，在移动状态则按一个键画一个点!cr! set %a:;=&set % set "空格=set zt=^^!r!zt!^^! set cr=^ &set bac=　 set/a n0=0,n9=21,m0=-1 set "Ent=set cls=cls^&if .!zt! equ .设置 goto :eof set "f6=endlocal^&set /a fn+=1^&goto :restart set "f4=endlocal^&set /a fn-=1^&goto :restart set "f1=cls^^^&echo !help!^^^&pause set "Tab=goto :m_Tab ::各字符分别存为变量 pushd "%~dp0" chcp 437 >nul graftabl 936 >nul ::c72=上;c80=下;c75=左;c77=右; set @@=i15=Tab;i28=Ent;i14=back;i59=f1;i62=f4;i68=f10;i64=f6;i82=ins;i83=Del;i1=Esc^ ;i13=等;i73=Paup;i81=Pado;i57=空格;i71=Home;i79=End;c72=n-;c75=m-;c80=n+;c77=m+ set %@@:;=&set % set $a=　&set $d=空 set /p file=输入文件名前缀： for %%a in ("%file%") do set file=%%~na set k45=!! set cls=cls :restart setlocal enabledelayedexpansion for /l %%a in (0,1,9) do (set kh=!kh! ) if exist !file!!fn!.txt goto :m_open :d_loop if !mz! lss 38 set mz=38 for /l %%a in (0,1,9) do (set k3%%a=!str:~%%a,1!) set zf=!str:~,1! title 批处理版画图文件：!file!!fn!.txt :loop (set bac=!m%n%.%m%!&set m!n!.!m!=⊕ if !n! geq !n9! set /a n0=n-21,n9=n if !n0! lss 0 set /a n0=0,n9=21 if !n! lss !n0! set /a n0=n,n9=n+21 if !m! geq !m9! set /a m0=m-38,m9=m if !m0! lss 0 set /a m0=0,m9=38 if !m! lss !m0! set /a m0=m,m9=m+38 if "!m0!!m9!" neq "%m0%%m9%" ( set ebs= for /l %%b in (!m0!,1,!m9!) do ( set "ebs=!ebs!^!@%%b^!^^^!$a^!@%%b^!^^^! ) ) set ebuf= for /l %%a in (!n0!,1,!n9!) do ( for %%c in ("!ebs:@=m%%a.!") do ( for %%d in ("%%~c") do (set ebuf=!ebuf!%%~d:!cr!) ) ) set m!n!.!m!=!bac!&set ddq=!$d%bac%!&set ddb=!$d%zf%! set $jg=!#%n%.%m%! %cls% set /p=!ebuf!%r23%!cr!%r24%!cr!%r25%<nul set cls= >nul debug <%~nx0 ) set err=%errorlevel% set in=!i%err%! !err! if defined c%err% goto :lrpd 上下左右 if defined k%err% goto :keyc 选择写入 if defined i%err% goto :cont 功能键 if defined b%err% set bj=!b%err%! goto :loop :keyc 画笔选择处理 set var=!k%err%! set zf=%var% if "!zt!" equ "移动" (set cone=!var!) goto :loop :cont 功能键处理 set comm=!i%err%! set comm=!%comm%! set comm=%comm% %comm% goto :loop :lrpd 方向键处理过程 set var=!c%err%:~,1! for /l %%a in (1,1,!bj!) do (call :lrpd_sub) goto :loop :lrpd_sub 方向子过程 ( if "!zt!" equ "改写" (set m!n!.!m!=%zf%) else (if defined cone set m!n!.!m!=%cone%) set cone= if !m%n%.%m%! neq !bac! set c_z=!n!.!m!=!bac!@!c_z:~,4096! set /a !c%err%!=1 if !%var%! lss 0 set !var!=0 if !%var%! gtr !%var%z! set !var!z=!%var%! ) set bac=!m%n%.%m%!&goto :eof :m_back 恢复 if defined c_z ( set var=%c_z:@=&rem % if !var! equ !c_z! set c_z=&goto :loop set c_z=!c_z:@=! if "!var:~,2!" equ "zh" (set bac=!var:~2,1!&set zf=!var:~3,1!&call :unzh) else ( if "!var:~,2!" equ "tc" ( for /f "tokens=2-5 delims=." %%a in ("!var!") do set/a n=%%a,m=%%b&set bac=%%c&set zf=%%d call :fill )else (set m!var!) ) ) goto :loop :m_del if "%zf%" neq "" ( set str=!str:%zf%=!%zf% set zf=!str:~,1! goto :d_loop ) goto :loop :m_ins set var= set /p var=输入一个全角字符： if not defined var set var=!bac! set str=!var:~,1!!str:%var%=! goto :d_loop :m_paup set/a n-=20,n0-=20,n9-=20 if !n! leq 0 set /a n=0 goto :m_pas :m_pado set/a n+=20,n0+=20,n9+=20 if !n9! gtr !nz! set /a n=nz,n9=nz :m_pas set zt=移动 set cls=cls goto :loop :m_Home set/a m-=28,m0-=28,m9-=28 if !m! lss 0 set /a m=0 goto :m_pas :m_End set/a m+=28,m0+=28,m9+=28 if !m9! gtr !mz! set /a m=mz,m9=mz goto :m_pas :m_save 保存文件 setlocal enabledelayedexpansion set ebs= for /l %%b in (0,1,!mz!) do ( set "ebs=!ebs!^!@%%b^!^^^!$a^!@%%b^!^^^! ) (for /l %%a in (0,1,!nz!) do ( for %%c in ("!ebs:@=m%%a.!") do for %%d in ("%%~c") do (set ebuf=%%~d) set ebuf=!ebuf:　= ! for %%c in ("1!ebuf!") do set ebuf=%%~nxc set ebuf=!ebuf: =　! echo;!ebuf:~1! ) set # 2>nul )> !file!!fn!.txt endlocal&goto :eof :m_open 打开文件 set n=0 for /f "tokens=1 delims=:" %%j in ('findstr /n .* !file!!fn!.txt') do ( set _str=%%k if defined _str (if "!_str:~,1!" equ "#" (set !_str!) else ( set /a z=8180,x=0 for /l %%a in (1,1,14) do (set/a "y=(z-x)/2+x" for %%b in (!y!) do if "!_str:~%%b,1!" equ "" (set/a z=y) else (set/a x=y) ) if !m! lss !y! set m=!y! for /l %%l in (0,1,!y!) do ( for %%m in ("!_str:~%%l,1!") do ( if "!str:%%~m=!" equ "!str!" set str=%%~m!str! set m!n!.%%l=%%~m ) )) set/a n+=1 ) ) set /a "mz=m,nz=n,n%%=14+4,m%%=22+6" goto :d_loop :m_Tab 设置机关功能 ::set #n.m=#k@ #t@(内容) set var= echo !cr!!cr!方法：@代表将要输入坐标，输入空格后回车清除机关，直接回车不改变 set/p var=原机关：!#%n%.%m%!!cr!设置为： if defined var if "!var!" equ " " (set #!n!.!m!=) else (set vara=&goto :aadr) goto :loop :aadr 为设置的机关描述添加坐标 set vara=!vara!%var:@=&rem % set var=%var:@=%&if "%var%" equ "!var!" (set #!n!.!m!=!vara!&goto :loop) setlocal enabledelayedexpansion set zt=设置 set r设置=设置 set r25=正在设置: @!var! call :loop endlocal&set vara=!vara!%n%.%m% goto :aadr :tczh 填充/转换 if "!bac!" equ "!zf!" goto :eof set /p in=: if "!in!" equ "1" set m!n!.!m!=!zf!&set c_z=tc.!n!.!m!.!zf!.!bac!@!c_z:~,4096!&goto :fill if "!in!" equ "2" ( set c_z=zh!zf!!bac!@!c_z:~,4096! :unzh for /l %%a in (0,1,!nz!) do for /l %%b in (0,1,!mz!) do (if "!m%%a.%%b!" equ "!bac!" set m%%a.%%b=!zf!) ) goto :eof :fill if !caen! gtr 300 set cbuf=!n!.!m! !cbuf!&goto :eof set /a vn=n-1,vm=m-1,xn=n+1,xm=m+1,caen+=1 for %%a in (!vn!.!m! !n!.!vm! !n!.!xm! !xn!.!m!) do ( if "!m%%a!" equ "!bac!" ( set m%%a=!zf! for /f "tokens=1,2 delims=." %%b in ("%%a") do ( if %%b geq 0 if %%b leq !nz! if %%c geq 0 if %%c leq !mz! set/a n=%%b,m=%%c&call :fill ) ) ) set/a caen-=1 if !caen! leq 1 if defined cbuf ( set cbuf= for %%a in (%cbuf%) do (for /f "tokens=1,2 delims=." %%b in ("%%a") do ( if %%b geq 0 if %%b leq !nz! if %%c geq 0 if %%c leq !mz! set/a n=%%b,m=%%c&call :fill ) ) ) goto :eof [ Last edited by netbenton on 2009-9-13 at 11:45* ]

第2楼　matlan	发表于 2009-09-12 13:29
初级用户　发帖 63　积分 87
真强悍！

第3楼　netbenton	发表于 2009-09-13 13:47
银牌会员　发帖 752　积分 1,916　来自广西
更新增加了字符转换功能增加了填充功能增加了游戏机关设置功能已经在一楼更新

第4楼　antony521	发表于 2010-04-05 11:55
新手上路　发帖 14　积分 14
晕头转向

第5楼　zaixinxiangnian	发表于 2010-04-05 12:33
初级用户　发帖 106　积分 151　来自河南省
netbenton是对BAT有一定成就的了，但我对于初学BAT的看不懂，如果加个注释就好了

第6楼　ZJHJ	发表于 2010-04-05 13:27
高级用户　发帖 374　积分 609
怎么一闪而过呢？

第7楼　Hanyeguxing	发表于 2010-04-05 13:49
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
Originally posted by ZJHJ at 2010-4-5 13:27: 怎么一闪而过呢？你那算不错的了，我运行后正常，按F1切到帮助，也不知道乱按哪几个键了，结果程序没反应了。结束了cmd进程，窗口依然在，转进程直接转到csrss进程上了。csrss进程的cpu使用率一路狂涨。。。。按关机没有任何反应，只能强行关了重新启动机器了。。。。 [ Last edited by Hanyeguxing on 2010-4-5 at 13:50 ]

第8楼　chardos	发表于 2010-04-05 16:36
初级用户　发帖 16　积分 31
......

第9楼　sl543001	发表于 2010-04-05 20:37
中级用户　发帖 225　积分 499
好东西正需要...要不一起合作搞个彩色版的?