yhc120483536 发表于 2016-8-18 17:00:04

易语言A8偏移的正确使用方法！吸怪 吸物 移动建筑！

本帖最后由 yhc120483536 于 2016-8-18 17:01 编辑

.版本 2


.子程序 建筑消失
.局部变量 人物, 整数型
.局部变量 数量, 整数型
.局部变量 基址, 整数型
.局部变量 类型, 整数型
.局部变量 地图, 整数型
.局部变量 计次, 整数型
.局部变量 X轴, 整数型
.局部变量 Y轴, 整数型
.局部变量 Z轴, 整数型
.局部变量 次数, 整数型


人物 ＝ 读内存整数型 (进程ID, 十六到十 (#人物基址))
地图 ＝ 读内存整数型 (进程ID, 人物 ＋ 十六到十 (“B8”))
数量 ＝ (读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C4”)) － 读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C0”))) ÷ 4
.计次循环首 (数量, 计次)
基址 ＝ 读内存整数型 (进程ID, 读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C0”)) ＋ 4 × 计次)
类型 ＝ 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“94”))
.如果 (类型 ＝ 33)
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 16, 500)
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 20, 500)
.否则
.如果真 (类型 ＝ 1057)
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 16, 500)
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 20, 500)


.如果真结束




.如果结束


处理事件 () ' 让代码先运行完再运行下次这样可以避免调用两次造成卡程序就是按两次吸物
.计次循环尾 ()


.子程序 全屏吸物
.局部变量 人物, 整数型
.局部变量 数量, 整数型
.局部变量 基址, 整数型
.局部变量 类型, 整数型
.局部变量 地图, 整数型
.局部变量 计次, 整数型
.局部变量 X轴, 整数型
.局部变量 Y轴, 整数型
.局部变量 Z轴, 整数型
.局部变量 次数, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型


人物 ＝ 读内存整数型 (进程ID, 十六到十 (#人物基址))
地图 ＝ 读内存整数型 (进程ID, 人物 ＋ 十六到十 (“B8”))
数量 ＝ (读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C4”)) － 读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C0”))) ÷ 4
.计次循环首 (数量, 计次)
基址 ＝ 读内存整数型 (进程ID, 读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C0”)) ＋ 4 × 计次)
类型 ＝ 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“94”))
.如果 (类型 ＝ 289)
X ＝ 读内存整数型 (进程ID, 人物 ＋ 十六到十 (“1B0”))
Y ＝ 读内存整数型 (进程ID, 人物 ＋ 十六到十 (“1B4”))
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 16, X)
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 20, Y)
.否则




.如果结束


处理事件 () ' 让代码先运行完再运行下次这样可以避免调用两次造成卡程序就是按两次吸物
.计次循环尾 ()


.子程序 全屏吸怪
.局部变量 人物, 整数型
.局部变量 数量, 整数型
.局部变量 基址, 整数型
.局部变量 类型, 整数型
.局部变量 地图, 整数型
.局部变量 计次, 整数型
.局部变量 X轴, 整数型
.局部变量 Y轴, 整数型
.局部变量 Z轴, 整数型
.局部变量 次数, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型


人物 ＝ 读内存整数型 (进程ID, 十六到十 (#人物基址))
地图 ＝ 读内存整数型 (进程ID, 人物 ＋ 十六到十 (“B8”))
数量 ＝ (读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C4”)) － 读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C0”))) ÷ 4
.计次循环首 (数量, 计次)
基址 ＝ 读内存整数型 (进程ID, 读内存整数型 (进程ID, 地图 ＋ 十六到十 (“C0”)) ＋ 4 × 计次)
类型 ＝ 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“94”))
.如果 (类型 ＝ 529)
X ＝ 读内存整数型 (进程ID, 人物 ＋ 十六到十 (“1B0”))
Y ＝ 读内存整数型 (进程ID, 人物 ＋ 十六到十 (“1B4”))
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 16, X)
写内存整数型 (进程ID, 读内存整数型 (进程ID, 基址 ＋ 十六到十 (“A8”)) ＋ 20, Y)
.否则.如果结束


处理事件 () ' 让代码先运行完再运行下次这样可以避免调用两次造成卡程序就是按两次吸物
.计次循环尾 ()


1437709426 发表于 2016-8-18 17:59:24

好东西，这个要用上了！

2947579999 发表于 2016-8-18 18:18:46

虽然用不到 但是也要支持
页: [1]
查看完整版本: 易语言A8偏移的正确使用方法！吸怪 吸物 移动建筑！