类_A星寻路 简化急速 纯api源码

斗战胜猴

类_A星寻路 简化急速 纯api源码 修了一下BUG 比如map地图创建和速度，map地图转bmp位图，通用型 坐标传递 改POINT ，不然容易崩

smile6

感谢分享，

斗战胜猴

zkqixi 发表于 2025-7-28 16:08
大佬更新下 bmp转map 和map转bmp呗

  

子程序名	返回值类型	公开	备 注
创建地图数据	字节集		map
参数名	类 型	参考	可空	数组	备 注
参_位图数据	字节集

变量名	类 型	静态	数组	备 注
局_位图数据	字节集
局_地图宽度	整数型
局_地图高度	整数型
局_地图深度	整数型
保存用字节集	字节集			' 用于存放要保存的地图数据
宽度数据字节集	字节集
高度数据字节集	字节集
X	整数型
Y	整数型
总字节集	字节集
扫描行	整数型
坐标数据偏移	整数型
i	整数型
索引	整数型
偏移尾	整数型
深度差	整数型

局_位图数据 ＝ 图片到位图 (参_位图数据)
局_地图宽度 ＝ 取字节集数据 (局_位图数据, #整数型, 19)
局_地图高度 ＝ 取字节集数据 (局_位图数据, #整数型, 23)
局_地图深度 ＝ 取字节集数据 (局_位图数据, #短整数型, 29)
宽度数据字节集 ＝ 到字节集 (局_地图宽度)
高度数据字节集 ＝ 到字节集 (局_地图高度)
扫描行 ＝ 左移 (右移 (局_地图宽度 × 局_地图深度 ＋ 31, 5), 2)
保存用字节集 ＝ 取空白字节集 (局_地图宽度 × 局_地图高度)
. ' 如果 (局_地图深度 ≥ 24)
. ' 计次循环首 (局_地图高度, Y)
. ' 计次循环首 (局_地图宽度, X)
' 坐标数据偏移 ＝ (局_地图高度 － Y) × 扫描行 ＋ (X － 1) × 局_地图深度 ÷ 8 ＋ 55
. ' 如果 (局_位图数据 [坐标数据偏移] ≠ 0 或 局_位图数据 [坐标数据偏移 ＋ 1] ≠ 0 或 局_位图数据 [坐标数据偏移 ＋ 2] ≠ 0)
' 索引 ＝ (X － 1) × 局_地图高度 ＋ Y
' 保存用字节集 [索引] ＝ 255

. ' 计次循环尾 ()
. ' 计次循环尾 ()
' 返回 ({  })
深度差 ＝ 局_地图深度 ÷ 8
如果 (局_地图深度 ≥ 24)
变量循环首 (0, 局_地图宽度 － 1, 1, X)
偏移尾 ＝ X × 深度差 ＋ 55
计次循环首 (局_地图高度, Y)
坐标数据偏移 ＝ (局_地图高度 － Y) × 扫描行 ＋ 偏移尾
如果真 (局_位图数据 [坐标数据偏移] ＝ 0)
索引 ＝ X × 局_地图高度 ＋ Y
保存用字节集 [索引] ＝ 255

计次循环尾 ()
变量循环尾 ()

返回 ({  })
总字节集 ＝ 宽度数据字节集 ＋ 高度数据字节集 ＋ 保存用字节集
返回 (总字节集)

子程序名	返回值类型	公开	备 注
图片到位图	字节集		把非24位非32位BMP、JPG、GIF的图片转化为24或32位图 对象的形式 文件头不标准
参数名	类 型	参考	可空	数组	备 注
参_原图片	字节集
参_执行结果	逻辑型				可以被省略，提供参数数据时只能提供变量。如果提供本参数，其中将被写入本命令的执行结果——执行成功时为真，执行失败时为假。

变量名	类 型	静态	数组	备 注
局_图片对象	对象
局_图片	字节集

CoInitialize (0)
如果真 (取字节集左边 (参_原图片, 2) ≠ { 66, 77 } 或 取字节集数据 (参_原图片, #短整数型, 29) ≠ 24 且 取字节集数据 (参_原图片, #短整数型, 29) ≠ 32)
如果真 (局_图片对象.创建图片对象 (参_原图片))
局_图片 ＝ 局_图片对象.取回图片 ()
局_图片对象.清除 ()
参_执行结果 ＝ 真
CoUninitialize ()
返回 (局_图片)

参_执行结果 ＝ 假
CoUninitialize ()
返回 (参_原图片)

DLL命令名	返回值类型	公开	备 注
CoInitialize	整数型		加载COM
DLL库文件名:
ole32.dll
在DLL库中对应命令名:
CoInitialize
参数名	类 型	传址	数组	备 注
pvReserved	整数型			值为0

DLL命令名	返回值类型	公开	备 注
CoUninitialize	整数型
DLL库文件名:
ole32.dll
在DLL库中对应命令名:
CoUninitialize
参数名	类 型	传址	数组	备 注

.版本 2<br /> <br /> .子程序 创建地图数据, 字节集, 公开, map<br /> .参数 参_位图数据, 字节集<br /> .局部变量 局_位图数据, 字节集<br /> .局部变量 局_地图宽度, 整数型<br /> .局部变量 局_地图高度, 整数型<br /> .局部变量 局_地图深度, 整数型<br /> .局部变量 保存用字节集, 字节集, , , ' 用于存放要保存的地图数据<br /> .局部变量 宽度数据字节集, 字节集<br /> .局部变量 高度数据字节集, 字节集<br /> .局部变量 X, 整数型<br /> .局部变量 Y, 整数型<br /> .局部变量 总字节集, 字节集<br /> .局部变量 扫描行, 整数型<br /> .局部变量 坐标数据偏移, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 偏移尾, 整数型<br /> .局部变量 深度差, 整数型<br /> <br /> 局_位图数据 ＝ 图片到位图 (参_位图数据)<br /> 局_地图宽度 ＝ 取字节集数据 (局_位图数据, #整数型, 19)<br /> 局_地图高度 ＝ 取字节集数据 (局_位图数据, #整数型, 23)<br /> 局_地图深度 ＝ 取字节集数据 (局_位图数据, #短整数型, 29)<br /> 宽度数据字节集 ＝ 到字节集 (局_地图宽度)<br /> 高度数据字节集 ＝ 到字节集 (局_地图高度)<br /> 扫描行 ＝ 左移 (右移 (局_地图宽度 × 局_地图深度 ＋ 31, 5), 2)<br /> 保存用字节集 ＝ 取空白字节集 (局_地图宽度 × 局_地图高度)<br /> .' 如果 (局_地图深度 ≥ 24)<br />     .' 计次循环首 (局_地图高度, Y)<br />         .' 计次循环首 (局_地图宽度, X)<br />             ' 坐标数据偏移 ＝ (局_地图高度 － Y) × 扫描行 ＋ (X － 1) × 局_地图深度 ÷ 8 ＋ 55<br />             .' 如果 (局_位图数据 [坐标数据偏移] ≠ 0 或 局_位图数据 [坐标数据偏移 ＋ 1] ≠ 0 或 局_位图数据 [坐标数据偏移 ＋ 2] ≠ 0)<br /> <br />             .否则<br />                 ' 索引 ＝ (X － 1) × 局_地图高度 ＋ Y<br />                 ' 保存用字节集 [索引] ＝ 255<br />             .如果结束<br /> <br />         .' 计次循环尾 ()<br />     .' 计次循环尾 ()<br /> .否则<br />     ' 返回 ({  })<br /> .如果结束<br /> 深度差 ＝ 局_地图深度 ÷ 8<br /> .如果 (局_地图深度 ≥ 24)<br />     .变量循环首 (0, 局_地图宽度 － 1, 1, X)<br />         偏移尾 ＝ X × 深度差 ＋ 55<br />         .计次循环首 (局_地图高度, Y)<br />             坐标数据偏移 ＝ (局_地图高度 － Y) × 扫描行 ＋ 偏移尾<br />             .如果真 (局_位图数据 [坐标数据偏移] ＝ 0)<br />                 索引 ＝ X × 局_地图高度 ＋ Y<br />                 保存用字节集 [索引] ＝ 255<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .变量循环尾 ()<br /> <br /> .否则<br />     返回 ({  })<br /> .如果结束<br /> 总字节集 ＝ 宽度数据字节集 ＋ 高度数据字节集 ＋ 保存用字节集<br /> 返回 (总字节集)<br /> .版本 2<br /> <br /> .子程序 图片到位图, 字节集, , 把非24位非32位BMP、JPG、GIF的图片转化为24或32位图 对象的形式 文件头不标准<br /> .参数 参_原图片, 字节集<br /> .参数 参_执行结果, 逻辑型, 参考 可空, 可以被省略，提供参数数据时只能提供变量。如果提供本参数，其中将被写入本命令的执行结果——执行成功时为真，执行失败时为假。<br /> .局部变量 局_图片对象, 对象<br /> .局部变量 局_图片, 字节集<br /> <br /> CoInitialize (0)<br /> .如果真 (取字节集左边 (参_原图片, 2) ≠ { 66, 77 } 或 取字节集数据 (参_原图片, #短整数型, 29) ≠ 24 且 取字节集数据 (参_原图片, #短整数型, 29) ≠ 32)<br />     .如果真 (局_图片对象.创建图片对象 (参_原图片))<br />         局_图片 ＝ 局_图片对象.取回图片 ()<br />         局_图片对象.清除 ()<br />         参_执行结果 ＝ 真<br />         CoUninitialize ()<br />         返回 (局_图片)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 参_执行结果 ＝ 假<br /> CoUninitialize ()<br /> 返回 (参_原图片)<br /> .版本 2<br /> <br /> .DLL命令 CoInitialize, 整数型, "ole32.dll", "CoInitialize", 公开, 加载COM<br />     .参数 pvReserved, 整数型, , 值为0<br /> .版本 2<br /> <br /> .DLL命令 CoUninitialize, 整数型, "ole32.dll", "CoUninitialize", 公开

yangxuan87

66666666666666666

shoe8

感谢分享

斗战胜猴

zkqixi 发表于 2025-7-28 16:08
大佬更新下 bmp转map 和map转bmp呗

格式锁死了，想用api的不对。哪哪都不对

zkqixi

大佬更新下 bmp转map 和map转bmp呗

xiecy

感谢分享，很给力！~

835677762

感谢分享

按键大师

对应 游戏点击 是不是 就在循环里        鼠标  点击 路径数组[i].x  路径数组 [i].y