魔域老端单机版一键买背包物品

1、由于发现一个个买东西手点实在是太累人，宗旨是能自动绝对不手动的原则。

废话不多说直接上代码；

工具，易语言+大漠插件

.版本 2

.子程序 买东西
.局部变量 背包物品种类, 整数型
.局部变量 背包对象, 整数型
.局部变量 背包对象节点, 整数型
.局部变量 a, 整数型
.局部变量 背包几格子有物品, 整数型
.局部变量 背包物品id, 整数型
.局部变量 根节点, 整数型

根节点 ＝ 读整数 (进程句柄, 十六到十 (“8FC440”) ＋ 十六到十 (“1A30”))
背包对象节点 ＝ 读整数 (进程句柄, 根节点 ＋ 十六到十 (“10”))
背包几格子有物品 ＝ 读整数 (进程句柄, 根节点 ＋ 十六到十 (“30”))
_启动窗口.编辑框_显示器.内容 ＝ “背包有” ＋ 到文本 (背包几格子有物品) ＋ “物品”

.计次循环首 (背包几格子有物品, a)
    显示器 (“扫描背包物品”)
    背包对象 ＝ 读整数 (进程句柄, 背包对象节点 ＋ (a － 1) × 4)
    背包物品id ＝ 读整数 (进程句柄, 背包对象 ＋ 十六到十 (“4”))
    背包物品种类 ＝ 读整数 (进程句柄, 背包对象 ＋ 十六到十 (“c”))
    _启动窗口.编辑框_显示器.内容 ＝ “第” ＋ 到文本 (a) ＋ “的物品种类是” ＋ 到文本 (背包物品种类)
    .如果 (背包物品种类 ＝ 到整数 (_启动窗口.物品id.内容))

        显示器 (“开始买东西”)
        dm.AsmClear ()
        dm.AsmAdd (“push ” ＋ 十到十六 (背包物品id))
        dm.AsmAdd (“mov ecx, 8FC440”)
        dm.AsmAdd (“call 006F2B20”)
        dm.AsmCall (窗口句柄, 6)

    .否则

    .如果结束
    dm.delay (500)
    .如果 (到整数 (dm.Ocr (676, 637, 766, 658, “FFFFFF-000000”, 0.9)) ＞ 1000000000)
        显示器 (“金币到达10亿”)
        存金币 ()

    .否则

    .如果结束

.计次循环尾 ()

注：此贴只做技术交流，勿用于非法操作。本代码仅用于学习交流，实际使用需遵守游戏规则。

欢迎老玩家私信交流