sybn 全彩迷宫 CMD脚本开发中,先发张截图 - 中国DOS联盟论坛

代码已经发布,地址:http://www.cn-dos.net/forum/viewthread.php?tid=49962&fpage=1

当前代码9332B=9.11KB
内含SYBC.com的debug生成代码
内含20*40地图一张
内含地图解压,可以使用预先压缩的地图,压缩后每地图约300B(尺寸20*40)
内含随机地图生成器
内含地图可用性验证,可以验证随机地图的可用性,防止死图
由于服务器挂掉了,暂不包含自动更新,包含增加800B
================================
测试中,当前仍有小BUG没有解决,近期发布

新版截图在2楼!
================================
最近更新的内容:
1.为删除四周大边框做了一定准备,但还没搞定
2.由于技术原因,初步决定放弃大于21*40的地图
3.脱离颜色与验证的关系,将来可以看到色彩更丰富的地图
4.更换了随机地图生成算法,新的随机的图横平竖直了
5.连续降低难度的失败地图自动重制
6.修正了一些BUG

[ Last edited by sl543001 on 2010-1-19 at 23:50 ]

以下是最近修改后的最新版截图:
此游戏脚本近期发布

[ Last edited by sl543001 on 2009-12-17 at 19:04 ]

LZ没贴代码贴这些图片有啥意思呢？

有一些小BUG还没有搞定,有一些功能还没写,而且地图还只有一张!
要代码,咱先发一下地图部分吧,这个是前阵子重点,暂时没啥问题!
地图代码以本论坛推箱子的代码为蓝本,由于地图比推箱子复杂,
另外增加了10重替换,
变量DTM1是替换压缩后的地图,替换后可以减1/3以上的代码
变量DTMY是*10=30字节

:ZRDT
SET TC=ABCDEFGHIJKLMNOPQRSTUVWXYZ
SET DTMY=
SET /A TN=123456789,N=1,M=1,DTMYC=10,WZH=1,WZL=1
SET DTM1=AMHE8AHHMK8O5QEME5ADKOEN2PO2DE6MQON9PN3QN2QEJONHAOEN2O2N3PEJONO7A2PNON2QOEJONHAP2NDE8AEJ3N9PQNKEMOE4DKP3ONHEMOK4NOE5ANQO4EMHE4AN9IO2OEMK4ODE8AIE4AEME3AHAN3QOI6AM3P9IPIE4AEJODKOE3AOIOAOEJOKAQQPP4EJHE6AE5APE6JK6O7PE$ 
SET DTS1=DTBH=7;DTBL=29;DTMY=-AMDANEAOOOPO3QE9HNPIMPJ9AK
SET DTM2=A-A-A-A$
SET DTS2=DTBH=18;DTBL=38;DTMY=-AM
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%
GOTO :EOF

做好了再发帖子上来吧

最初有做这个游戏的念头就是因为看上了tit.com的彩色文字功能,
结果游戏刚开发就发现tit.com存在暗伤,
多次尝试绕过这个BUG,反汇编tit.com至今没有解决,
拖到现在,游戏大体完成了,tit.com的麻烦还在!
=======================================
那位同志能帮忙解决一下,感激不禁...
BUG描述:
在脚本中调用tit.com
如"tit 0808f2sybn"
之后继续使用tit.com在它的上一行输出文字,输出不会成功,
如"tit 0708f2sybn"
最可恶的是,这问题有时还是间歇性!
tit.com代码:

a
dw E8A 80 CD89 C581 81 F980 7F05 BA09 1A4 9B4 21CD 5EEB 82BE E800 65 5AE3
dw 73E8 3C00 7F18 8853 E8C6 57 4CE3 65E8 3C00 7F4F 8845 B0C2 F602 50E2 A0B0
dw E6F6 15F E8C7 3D 32E3 C387 393C 27E 904 FB80 7E39 8003 9C3 F24 E380 C00F
dw 4E0 D808 B850 B800 750 295A 89F5 ACE9 88AA AAD0 F9E2 B0 4CB4 21CD ADBA
dw B401 CD09 EB21 ACF3 203C 475 F9E2 9EB C388 3CAC 7520 E202 C3F9 C387 302C
dw EB80 B430 F60A E4 C3D8 CEB2 FDCA BBB2 BBB9 B824 CAF1 B2BD B6BB 24D4 
u
r cx
b6
n tit.com
w

[ Last edited by sl543001 on 2009-12-21 at 17:44 ]

想把界面做漂亮点，使用了tit。com的代码，结果被tit。com害惨了，讨厌的BUG！
目前为止暂时还没有找到解决办法。。。

tit.com 真的有BUG吗？

是怎么测试的？

联系qq:37659560

不确定tit的BUG在那里,俺反编译了代码,对每一行都进行了查看,就是找不出原因,郁闷死了!
这里使用一个简单的测试代码:

@echo off
CHCP 437 >NUL
GRAFTABL 936 >NUL
for /l %%a in (9,-1,1) do (
tit 1%%a60f%%atit 1%%a60f%%a
tit 1%%a40f%%atit 1%%a40f%%a
tit 1%%a20f%%atit 1%%a20f%%a
tit 1%%a00f%%atit 1%%a00f%%a
echo 按任意键然后观察变化.
pause >nul
)
pause

重复执行数十次后出现5种不同的现实结果:
1.常见不显示任何彩色字体
2.常见丢失了第一个
3.4.5. 偶见不同程度整行丢失

后图是在俺的脚本中BUG的实际表现情况
左为正常,中位五角星丢失,右为乱码

[ Last edited by sl543001 on 2010-1-20 at 00:29 ]

测试了一下，原来是有时间cmd系统问题未能成功将io设备初始化为16位模式，即显缓存为0b800，所以出错。

在
CHCP 437 >NUL
GRAFTABL 936 >NUL
的前面执行一次以下汇编代码，
mov ax,00
int 16
int 20
等待一次按键后，即可%100初始化成功。

netbenton
要用汇编写简单的图形三方工具,应该整?
例如写一个工具sss然后用命令 sss 100 100 200 200 画一个方形?

不行~~4楼是什么代码啊？？

第1楼　sl543001	发表于 2009-12-16 13:53
中级用户　发帖 225　积分 499
[原创][图]sybn 全彩迷宫 CMD脚本开发中,先发张截图代码已经发布,地址:http://www.cn-dos.net/forum/viewthread.php?tid=49962&fpage=1 当前代码9332B=9.11KB 内含SYBC.com的debug生成代码内含2040地图一张内含地图解压,可以使用预先压缩的地图,压缩后每地图约300B(尺寸2040) 内含随机地图生成器内含地图可用性验证,可以验证随机地图的可用性,防止死图由于服务器挂掉了,暂不包含自动更新,包含增加800B ================================ 测试中,当前仍有小BUG没有解决,近期发布新版截图在2楼! ================================ 最近更新的内容: 1.为删除四周大边框做了一定准备,但还没搞定 2.由于技术原因,初步决定放弃大于2140的地图 3.脱离颜色与验证的关系,将来可以看到色彩更丰富的地图 4.更换了随机地图生成算法,新的随机的图横平竖直了 5.连续降低难度的失败地图自动重制 6.修正了一些BUG [ Last edited by sl543001 on 2010-1-19 at 23:50* ]

第2楼　sl543001	发表于 2009-12-17 19:00
中级用户　发帖 225　积分 499
更新最新版的截图以下是最近修改后的最新版截图: 此游戏脚本近期发布 [ Last edited by sl543001 on 2009-12-17 at 19:04 ] 附件 mgsy.GIF (25.02 KiB) mgtm.GIF (23.05 KiB) yzsb.GIF (25.47 KiB)

第3楼　huahua0919	发表于 2009-12-17 19:58
银牌会员　发帖 780　积分 1,608
LZ没贴代码贴这些图片有啥意思呢？

第4楼　sl543001	发表于 2009-12-17 22:47
中级用户　发帖 225　积分 499
- -代码还没完善! 有一些小BUG还没有搞定,有一些功能还没写,而且地图还只有一张! 要代码,咱先发一下地图部分吧,这个是前阵子重点,暂时没啥问题! 地图代码以本论坛推箱子的代码为蓝本,由于地图比推箱子复杂, 另外增加了10重替换, 变量DTM1是替换压缩后的地图,替换后可以减1/3以上的代码变量DTMY是10=30字节 :ZRDT SET TC=ABCDEFGHIJKLMNOPQRSTUVWXYZ SET DTMY= SET /A TN=123456789,N=1,M=1,DTMYC=10,WZH=1,WZL=1 SET DTM1=AMHE8AHHMK8O5QEME5ADKOEN2PO2DE6MQON9PN3QN2QEJONHAOEN2O2N3PEJONO7A2PNON2QOEJONHAP2NDE8AEJ3N9PQNKEMOE4DKP3ONHEMOK4NOE5ANQO4EMHE4AN9IO2OEMK4ODE8AIE4AEME3AHAN3QOI6AM3P9IPIE4AEJODKOE3AOIOAOEJOKAQQPP4EJHE6AE5APE6JK6O7PE$ SET DTS1=DTBH=7;DTBL=29;DTMY=-AMDANEAOOOPO3QE9HNPIMPJ9AK SET DTM2=A-A-A-A$ SET DTS2=DTBH=18;DTBL=38;DTMY=-AM SET A=!DTS%GS%:;=$! SET %A:$=&SET % FOR /L %%A IN (1,1,%DTMYC%) DO SET /A LSBL1=%%A3-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% GOTO :EOF

第5楼　yishanju	发表于 2009-12-18 07:40
银牌会员　发帖 1,357　积分 1,488
做好了再发帖子上来吧

第6楼　sl543001	发表于 2009-12-21 13:17
中级用户　发帖 225　积分 499
悲剧了,遇到困难了! 最初有做这个游戏的念头就是因为看上了tit.com的彩色文字功能, 结果游戏刚开发就发现tit.com存在暗伤, 多次尝试绕过这个BUG,反汇编tit.com至今没有解决, 拖到现在,游戏大体完成了,tit.com的麻烦还在! ======================================= 那位同志能帮忙解决一下,感激不禁... BUG描述: 在脚本中调用tit.com 如"tit 0808f2sybn" 之后继续使用tit.com在它的上一行输出文字,输出不会成功, 如"tit 0708f2sybn" 最可恶的是,这问题有时还是间歇性! tit.com代码: a dw E8A 80 CD89 C581 81 F980 7F05 BA09 1A4 9B4 21CD 5EEB 82BE E800 65 5AE3 dw 73E8 3C00 7F18 8853 E8C6 57 4CE3 65E8 3C00 7F4F 8845 B0C2 F602 50E2 A0B0 dw E6F6 15F E8C7 3D 32E3 C387 393C 27E 904 FB80 7E39 8003 9C3 F24 E380 C00F dw 4E0 D808 B850 B800 750 295A 89F5 ACE9 88AA AAD0 F9E2 B0 4CB4 21CD ADBA dw B401 CD09 EB21 ACF3 203C 475 F9E2 9EB C388 3CAC 7520 E202 C3F9 C387 302C dw EB80 B430 F60A E4 C3D8 CEB2 FDCA BBB2 BBB9 B824 CAF1 B2BD B6BB 24D4 u r cx b6 n tit.com w [ Last edited by sl543001 on 2009-12-21 at 17:44 ]

第7楼　sl543001	发表于 2010-01-08 11:17
中级用户　发帖 225　积分 499
想把界面做漂亮点，使用了tit。com的代码，结果被tit。com害惨了，讨厌的BUG！目前为止暂时还没有找到解决办法。。。

第8楼　netbenton	发表于 2010-01-08 13:16
银牌会员　发帖 752　积分 1,916　来自广西
tit.com 真的有BUG吗？是怎么测试的？联系qq:37659560

第9楼　sl543001	发表于 2010-01-19 23:49
中级用户　发帖 225　积分 499
不确定tit的BUG在那里,俺反编译了代码,对每一行都进行了查看,就是找不出原因,郁闷死了! 这里使用一个简单的测试代码: @echo off CHCP 437 >NUL GRAFTABL 936 >NUL for /l %%a in (9,-1,1) do ( tit 1%%a60f%%atit 1%%a60f%%a tit 1%%a40f%%atit 1%%a40f%%a tit 1%%a20f%%atit 1%%a20f%%a tit 1%%a00f%%atit 1%%a00f%%a echo 按任意键然后观察变化. pause >nul ) pause 重复执行数十次后出现5种不同的现实结果: 1.常见不显示任何彩色字体 2.常见丢失了第一个 3.4.5. 偶见不同程度整行丢失后图是在俺的脚本中BUG的实际表现情况左为正常,中位五角星丢失,右为乱码 [ Last edited by sl543001 on 2010-1-20 at 00:29 ] 附件 err.GIF (45.38 KiB) err2.GIF (4.06 KiB)

第10楼　netbenton	发表于 2010-01-21 21:46
银牌会员　发帖 752　积分 1,916　来自广西
测试了一下，原来是有时间cmd系统问题未能成功将io设备初始化为16位模式，即显缓存为0b800，所以出错。在 CHCP 437 >NUL GRAFTABL 936 >NUL 的前面执行一次以下汇编代码， mov ax,00 int 16 int 20 等待一次按键后，即可%100初始化成功。

第11楼　sl543001	发表于 2010-01-23 18:22
中级用户　发帖 225　积分 499
netbenton 要用汇编写简单的图形三方工具,应该整? 例如写一个工具sss然后用命令 sss 100 100 200 200 画一个方形?

第12楼　ldr2zjj	发表于 2010-01-29 13:00
初级用户　发帖 95　积分 167
不行~~4楼是什么代码啊？？