求dxf易语言自动拾取源码
如题.版本 2
.子程序 物品入包
.局部变量 人物数据, 整数型
.局部变量 OBJ偏移, 整数型
.局部变量 OBJ地址, 整数型
.局部变量 OBJ数据, 整数型
.局部变量 OBJ类型, 整数型
.局部变量 OBJ坐标X, 整数型
.局部变量 OBJ坐标Y, 整数型
内存优化 (进程ID)
.如果真 (读内存代码 (进程ID, #人物基址) ≤ 0)
返回 ()
.如果真结束
.如果真 (读内存代码 (进程ID, #人物基址 ＋ “+B4”) ＝ 0)
返回 ()
.如果真结束
读写6类.写代码 (进程ID, #入包基址 ＋ “=1300955444”)
人物数据 ＝ 读内存整数型 (进程ID, 十六到十 (#人物基址))
OBJ偏移 ＝ 读内存整数型 (进程ID, 人物数据 ＋ 十六到十 (“B4”))
.变量循环首 (读内存整数型 (进程ID, OBJ偏移 ＋ 十六到十 (“C0”)), 读内存整数型 (进程ID, OBJ偏移 ＋ 十六到十 (“C4”)) － 4, 4, OBJ地址)
OBJ数据 ＝ 读内存整数型 (进程ID, OBJ地址)
OBJ类型 ＝ 读内存整数型 (进程ID, OBJ数据 ＋ 十六到十 (“90”))
.如果真 (OBJ类型 ＝ 289)
OBJ坐标X ＝ 读内存整数型 (进程ID, 人物数据 ＋ 十六到十 (“1AC”))
OBJ坐标Y ＝ 读内存整数型 (进程ID, 人物数据 ＋ 十六到十 (“1B0”))
写内存整数型 (进程ID, 读内存整数型 (进程ID, OBJ数据 ＋ 十六到十 (“A4”)) ＋ 16, OBJ坐标X)
写内存整数型 (进程ID, 读内存整数型 (进程ID, OBJ数据 ＋ 十六到十 (“A4”)) ＋ 20, OBJ坐标Y)
.如果真结束
.变量循环尾 ()
延时 (200)
读写6类.写代码 (进程ID, #入包基址 ＋ “=1301004338”)' 还原
’.常量 入包基址, "“13011A8”"
页:
[1]