传奇地图map转换bmp

图图阿

传奇端游MAP的地图文件怎么能提取出来bmp格式的一键转换的 那位大佬分享个

图图阿

已经解决了搞定了怎么删帖

kk4648

怎么解决的

努力的小菜鸟

怎么解决的

图图阿

目前的问题是 论坛下载的源码能读取他的map地图文件   但是我要读取的就不行 会报错,有没有大佬教下

图图阿

.版本 2
.支持库 BmpOperate

.子程序 读地图, 逻辑型, , 读传奇地图
.参数 文件名, 文本型
.参数 地图, 字节集, 参考, 返回图片数据
.参数 X, , 参考, 地图总横坐标数
.参数 Y, , 参考, 地图总纵坐标数
.局部变量 数据, 字节集
.局部变量 位图, 位图
.局部变量 当前X
.局部变量 当前Y

.如果真 (文件是否存在 (文件名))
    数据 ＝ 读入文件 (文件名)
    .如果真 (取字节集中间 (数据, 6, 13) ＝ { 76, 101, 103, 101, 110, 100, 32, 111, 102, 32, 109, 105, 114 } 且 (取字节集长度 (数据) － 52) ％ 12 ＝ 0)  ' 检测是否有传奇地图的标志
        X ＝ 取字节集数据 (取字节集中间 (数据, 1, 2), #整数型, )
        Y ＝ 取字节集数据 (取字节集中间 (数据, 3, 2), #整数型, )
        位图.创建 (X, Y, 1, #黑色)
        数据 ＝ 取字节集右边 (数据, 取字节集长度 (数据) － 53)
        .计次循环首 (X, 当前X)
            .计次循环首 (Y, 当前Y)
                .如果真 (数据 [((当前X － 1) × Y ＋ 当前Y) × 12 － 13] ＜ 128)
                    位图.置某点颜色 (当前X, 当前Y, #白色)
                .如果真结束

            .计次循环尾 ()
        .计次循环尾 ()
        地图 ＝ 位图.取位图数据 ()
        返回 (真)
    .如果真结束

.如果真结束
返回 (假)


补充内容 (2025-3-28 19:15):
读取他自己的Map文件正常 但是我读取的别的传奇端游map文件后缀 报错

图图阿

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
移动	逻辑型

子程序名	返回值类型	公开	备 注
_选择文件按钮_被单击

变量名	类 型	静态	数组	备 注
X
Y
图片	字节集

通用对话框.过滤器 ＝ “*.map|*.map”
如果真 (通用对话框.打开 ())
如果 (读地图 (通用对话框.文件名, 图片, X, Y))
图片框.宽度 ＝ X
图片框.高度 ＝ Y
图片框.图片 ＝ 图片
信息框 (“地图读取失败!”, 64, “提示：”)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

通用对话框.类型 ＝ 1
通用对话框.过滤器 ＝ “*.bmp|*.bmp”
如果真 (通用对话框.打开 ())
写到文件 (通用对话框.文件名, 图片框.图片)

子程序名	返回值类型	公开	备 注
_图片框_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

移动 ＝ 真

子程序名	返回值类型	公开	备 注
_图片框_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

移动 ＝ 假

子程序名	返回值类型	公开	备 注
_图片框_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

图片框.发送信息 (161, 2, 0)

子程序名	返回值类型	公开	备 注
读地图	逻辑型		读传奇地图
参数名	类 型	参考	可空	数组	备 注
文件名	文本型
地图	字节集				返回图片数据
X					地图总横坐标数
Y					地图总纵坐标数

变量名	类 型	静态	数组	备 注
数据	字节集
位图	位图
当前X
当前Y

如果真 (文件是否存在 (文件名))
数据 ＝ 读入文件 (文件名)
如果真 (取字节集中间 (数据, 6, 13) ＝ { 76, 101, 103, 101, 110, 100, 32, 111, 102, 32, 109, 105, 114 } 且 (取字节集长度 (数据) － 52) ％ 12 ＝ 0)  ' 检测是否有传奇地图的标志
X ＝ 取字节集数据 (取字节集中间 (数据, 1, 2), #整数型, )
Y ＝ 取字节集数据 (取字节集中间 (数据, 3, 2), #整数型, )
位图.创建 (X, Y, 1, #黑色 )
数据 ＝ 取字节集右边 (数据, 取字节集长度 (数据) － 53)
计次循环首 (X, 当前X)
计次循环首 (Y, 当前Y)
如果真 (数据 [ ( (当前X － 1) × Y ＋ 当前Y) × 12 － 13] ＜ 128)
位图.置某点颜色 (当前X, 当前Y, #白色 )

计次循环尾 ()
计次循环尾 ()
地图 ＝ 位图.取位图数据 ()
返回 (真)

返回 (假)

i支持库列表	支持库注释
BmpOperate	位图操作支持库

.版本 2<br /> .支持库 BmpOperate<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 移动, 逻辑型<br /> <br /> .子程序 _选择文件按钮_被单击<br /> .局部变量 X<br /> .局部变量 Y<br /> .局部变量 图片, 字节集<br /> <br /> 通用对话框.过滤器 ＝ “*.map|*.map”<br /> .如果真 (通用对话框.打开 ())<br />     .如果 (读地图 (通用对话框.文件名, 图片, X, Y))<br />         图片框.宽度 ＝ X<br />         图片框.高度 ＝ Y<br />         图片框.图片 ＝ 图片<br />     .否则<br />         信息框 (“地图读取失败!”, 64, “提示：”)<br />     .如果结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 通用对话框.类型 ＝ 1<br /> 通用对话框.过滤器 ＝ “*.bmp|*.bmp”<br /> .如果真 (通用对话框.打开 ())<br />     写到文件 (通用对话框.文件名, 图片框.图片)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _图片框_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 移动 ＝ 真<br /> <br /> .子程序 _图片框_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 移动 ＝ 假<br /> <br /> .子程序 _图片框_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 图片框.发送信息 (161, 2, 0)<br /> <br /> <br /> <br /> .子程序 读地图, 逻辑型, , 读传奇地图<br /> .参数 文件名, 文本型<br /> .参数 地图, 字节集, 参考, 返回图片数据<br /> .参数 X, , 参考, 地图总横坐标数<br /> .参数 Y, , 参考, 地图总纵坐标数<br /> .局部变量 数据, 字节集<br /> .局部变量 位图, 位图<br /> .局部变量 当前X<br /> .局部变量 当前Y<br /> <br /> .如果真 (文件是否存在 (文件名))<br />     数据 ＝ 读入文件 (文件名)<br />     .如果真 (取字节集中间 (数据, 6, 13) ＝ { 76, 101, 103, 101, 110, 100, 32, 111, 102, 32, 109, 105, 114 } 且 (取字节集长度 (数据) － 52) ％ 12 ＝ 0)  ' 检测是否有传奇地图的标志<br />         X ＝ 取字节集数据 (取字节集中间 (数据, 1, 2), #整数型, )<br />         Y ＝ 取字节集数据 (取字节集中间 (数据, 3, 2), #整数型, )<br />         位图.创建 (X, Y, 1, #黑色)<br />         数据 ＝ 取字节集右边 (数据, 取字节集长度 (数据) － 53)<br />         .计次循环首 (X, 当前X)<br />             .计次循环首 (Y, 当前Y)<br />                 .如果真 (数据 [((当前X － 1) × Y ＋ 当前Y) × 12 － 13] ＜ 128)<br />                     位图.置某点颜色 (当前X, 当前Y, #白色)<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />         .计次循环尾 ()<br />         地图 ＝ 位图.取位图数据 ()<br />         返回 (真)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (假)

读取别的传奇的就会报错,读取他文件里面可以读取的 就正常

图图阿

.版本 2
.支持库 BmpOperate

.子程序 读地图, 逻辑型, , 读传奇地图
.参数 文件名, 文本型
.参数 地图, 字节集, 参考, 返回图片数据
.参数 X, , 参考, 地图总横坐标数
.参数 Y, , 参考, 地图总纵坐标数
.局部变量 数据, 字节集
.局部变量 位图, 位图
.局部变量 当前X
.局部变量 当前Y

.如果真 (文件是否存在 (文件名))
    数据 ＝ 读入文件 (文件名)
    .如果真 (取字节集中间 (数据, 6, 13) ＝ { 76, 101, 103, 101, 110, 100, 32, 111, 102, 32, 109, 105, 114 } 且 (取字节集长度 (数据) － 52) ％ 14 ＝ 0)  ' 检测是否有传奇地图的标志
        X ＝ 取字节集数据 (取字节集中间 (数据, 1, 2), #整数型, )
        Y ＝ 取字节集数据 (取字节集中间 (数据, 3, 2), #整数型, )
        位图.创建 (X, Y, 1, #黑色)
        数据 ＝ 取字节集右边 (数据, 取字节集长度 (数据) － 53)
        .计次循环首 (X, 当前X)
            .计次循环首 (Y, 当前Y)
                .如果真 (数据 [((当前X － 1) × Y ＋ 当前Y) × 14 － 13] ＜ 128)
                    位图.置某点颜色 (当前X, 当前Y, #白色)
                .如果真结束

            .计次循环尾 ()
        .计次循环尾 ()
        地图 ＝ 位图.取位图数据 ()
        返回 (真)
    .如果真结束

.如果真结束
返回 (假)
我改成这样以后 文件夹里面的map地图文件都能读取到了,但是我要读取的别的传奇还是读取不了 会报错

aipca

地图不同，读的位置或字节集不同，用16进制文本打开地图文件，对比一下这块
取字节集中间 (数据, 6, 13) ＝ { 76, 101, 103, 101, 110, 100, 32, 111, 102, 32, 109, 105, 114 } 且 (取字节集长度 (数据) － 52) ％ 12 ＝ 0
看看它的差异在哪里，并修改成对应正确的。