中国DOS联盟

::":bk"用于画出彩色的的矩形或直线,以及通过自定义样式画出一些有意思的形状
::画一条竖线 起始位置10008[第0行第8列] 25行 1列 颜色f1[白底蓝字] 样式2[粗体边框]
call :bk 10008 25 1 f1 2
::画一条横线 起始位置12000[第20行第0列] 1行 40列 颜色f1[白底蓝字] 样式2[粗体边框]
call :bk 12000 1 40 f1 2
::在两条线的交点,画出图形
sybc 11908f1╬
sybc 12006f1╬╬╬
sybc 12108f1╬
sybc 12108f1╬
::在屏幕上显示选关信息
sybc 10322f1%JBM% {20100115A 测试版}
sybc 10622f2按上键 $f0上 一 关 $f8[当前版本只有一关]
sybc 10722f2按下键 $f0下 一 关 $f8[第二关为空白关卡]
sybc 10822f2按左键 $f0同步地图 $f8[地图开发协助]
sybc 10922f2按右键 $f0修改验证 $f8[验证的图是否可用]
sybc 11022f2按回车 $f0打开回显 $f8[调试BUG时使用]
sybc 11222f2空格键 $f0随机地图游戏
sybc 11322f2字母键 $f0自带地图游戏

set a=A100;E8A 80 CD89 C581 81 F980 7F06 CD09 8016 1F9 687F 64EB 83BE E800 65 5AE3 73E8;3C00 7F18 8853 E8C6 57 4CE3 65E8 3C00 7F4F 8845 B0C2 F602 50E2 A0B0 E6F6 15F;E8C7 3D 32E3 C387 393C 27E 904 FB80 7E39 8003 9C3 F24 E380 C00F 4E0 D808;B850 B800 750 295A 89F5 EBE9 AC46 ACAC ACAC F7E2 4CB4 21CD FAEB E088 4CB4;21CD ACAC 203C 475 F9E2 9EB C388 3CAC 7520 E202 C3F9 C387 302C EB80 B430;F60A E4 C3D8 5953 4E42 DED0 C4B8 3032 3930 3231 3631 AC24 243C A74 88AA AAD0;F5E2 B4EB B2EB E349 49AF ACE3 B6E8 E3FF 87A7 3CC3 7E39 402 8009 39FB 37E;C380 2409 800F FE3 10B2 E2F6 D800 C288 C7E2 86EB
set b=;RCX;F0;N SYBC.COM;W;Q;
(ECHO.%a:;=&ECHO.DW %&ECHO.%b:;=&ECHO.%)|DEBUG

SET DTM1=AMHE8AHHMK8O5QEME5ADKOEN2PO2DE6MQON9PN3QN2QEJONHAOEN2O2N3PEJONO7A2PNON2QOEJONHAP2NDE8AEJ3N9PQNKEMOE4DKP3ONHEMOK4NOE5ANQO4EMHE4AN9IO2OEMK4ODE8AIE4AEME3AHAN3QOI6AM3P9IPIE4AEJODKOE3AOIOAOEJOKAQQPP4EJHE6AE5APE6JK6O7PE$
SET DTS1=DTBH=7;DTBL=29;DTMY=-AMDANEAOOOPO3QE9HNPIMPJ9AK

SET TC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
SET DTMY=
SET /A TN=123456789,N=1,M=1,DTMYC=10,WZH=1,WZL=1
::::::::::::::::::::::::::::::::::::::::::::
::再此加入或读取地图信息存储到相应的变量中,例如把上面的代码插入到这里
::::::::::::::::::::::::::::::::::::::::::::
SET A=!DTS%GS%:;=$!
SET %A:$=&SET %
FOR /L %%A IN (1,1,%DTMYC%) DO SET /A LSBL1=%%A*3-3 &&SET /A LSBL2=%%A*3-1 &&(FOR /F "TOKENS=1,2" %%B IN ("!LSBL1! !LSBL2!") DO IF NOT "%%C" == "" SET dtJ%%A=!DTMY:~%%B,2! && SET DTY%%A=!DTMY:~%%C,1!)
for /l %%A in (%DTMYC%,-1,1) do for /f "tokens=1,2" %%B in ("!DTY%%A! !DTJ%%A!") DO SET DTM%GS%=!DTM%GS%:%%B=%%C!
ECHO %DTM1% >DTM1.TXT
FOR /L %%A IN (0,1,999) DO (SET /A T=%%A+1
FOR %%B IN (!T!) DO (FOR /F "TOKENS=1-3 DELIMS=/" %%1 IN ("!DTM%GS%:~%%A,1!/!DTM%GS%:~%%B,1!/!N!") DO (
IF "!TC:%%1=!" NEQ "!TC!" (IF "!TN:%%2=!" NEQ "!TN!" (SET K=%%2) ELSE (SET K=1)
FOR /L %%K IN (1,1,!K!) DO SET DT!N!.!M!=!DK%%1!&&SET /A M+=1
) ELSE (IF "%%1" EQU "-" SET /A N+=1,M=1)&&IF "!TN:%%2=!" == "$" GOTO ZRDTW)))
: ZRDTW
SET DT%DTBH%.%DTBL%=%DKX%

call :BK 10824 15 4 81 3
SYBC 10926CF×$85  验证失败！$87[难度:%NANDU%]
SYBC 1102680地图不可用，正在重制地图！

: YZDT
IF %YZMS% == %YzM2% GOTO OK
IF %YZMS% == %YzM1% IF %SJDT% == 0 GOTO OK
TITLE %JBM% 验证地图[%LSBLL%.%LSBLM%]
IF "%LSBLL%" == "180" GOTO NN
SET YZTG=NO
SET A=DT1.1=%DKB%;LSBLN=%LSBLM%;YZA5=^^^!YZA4^^^!;YZA4=^^^!YZA3^^^!;YZA3=^^^!YZA2^^^!;YZA2=^^^!YZA1^^^!;YZA1=^^^!YZA5^^^!;YZB5=^^^!YZB4^^^!;YZB4=^^^!YZB3^^^!;YZB3=^^^!YZB2^^^!;YZB2=^^^!YZB1^^^!;YZB1=^^^!YZB5^^^!
SET %A:;=&SET %
FOR /L %%A IN (%YZA2%) DO FOR /L %%B IN (%YZB2%) DO IF !DT%%A.%%B! == %DKB% (
SET /A YZH=%%A-1,YZL=%%B
FOR /F %%C IN ("^!DT!YZH!.!YZL!^!") DO SET B=%%C
IF !B! == %DKA% SET DT!YZH!.!YZL!=%DKB%&SET /A LSBLM+=1
IF !B! == %DKX% GOTO OK
SET /A YZH=%%A,YZL=%%B-1
FOR /F %%C IN ("^!DT!YZH!.!YZL!^!") DO SET B=%%C
IF !B! == %DKA% SET DT!YZH!.!YZL!=%DKB%&SET /A LSBLM+=1
IF !B! == %DKX% GOTO OK
SET /A YZL=%%B+1
FOR /F %%C IN ("^!DT!YZH!.!YZL!^!") DO SET B=%%C
IF !B! == %DKA% SET DT!YZH!.!YZL!=%DKB%&SET /A LSBLM+=1
IF !B! == %DKX% GOTO OK
SET /A YZH=%%A+1,YZL=%%B
FOR /F %%C IN ("^!DT!YZH!.!YZL!^!") DO SET B=%%C
IF !B! == %DKA% SET DT!YZH!.!YZL!=%DKB%&SET /A LSBLM+=1
IF !B! == %DKX% GOTO OK
)
SET /A LSBLL=LSBLL+1
IF "%LSBLM%" == "%LSBLN%" GOTO NN
GOTO YZDT
: OK
TITLE %JBM% 迷宫探秘
SET /A WZH=1,WZL=1,YZTG=0
FOR /L %%A IN (1,1,20) DO FOR /L %%B IN (1,1,39) DO IF !DT%%A.%%B! == %DKB% SET DT%%A.%%B=%DKA%
goto :eof
: NN
CALL :XS
call :BK 10824 15 4 81 3
SYBC 10926CF×$85  验证失败！$87[难度:%NANDU%]
SYBC 1102680地图不可用，正在重制地图！
SET /A NANDU-=10,YZTG=1
IF %NANDU% LSS 10 SET NANDU=20
goto :eof

:SJ
SET /A SJDT=1,LSBL=1
FOR /L %%A IN (2,2,19) DO FOR /L %%B IN (2,2,38) DO SET DT%%A.%%B=%DKE%
: SJ1
SET /A LSBL+=1,sjh=%random%%%19+1,sjl=%random%%%19*2+2,sjhj=sjh/2,sjho=(sjh+1)/2        
if %sjhj% == %sjho% set /a sjl-=1
SET DT%SJH%.%SJL%=%DKE%
IF %LSBL% LSS %NANDU% GOTO SJ1
: SJ2
SET /A sjh=%random%%%19+1,sjl=%random%%%19*2+2,A=(SJL+4)*(SJH+4)
IF %A% LSS 100 GOTO SJ2
SET A=DT1.2=%DKA%;DT2.1=%DKA%;DT2.3=%DKA%;DT3.2=%DKA%;DT4.3=%DKA%;DT3.4=%DKA%;DT%SJH%.%SJL%=%DKX%
SET %A:;=&SET %
GOTO :EOF