dnf辅助自动刷图类 易语言地下城与勇士辅助自动刷图类源码

.版本 2
.支持库 EThread
.支持库 spec
.程序集 自动
.子程序 自动刷图
.判断开始 (全局_总开关.自动刷图开关 ＝ 假)
  全局_总开关.自动刷图开关 ＝ 真
  .判断开始 (文件读配置 (“刷图模式”) ＝ 1)
    系统公告 (“自动刷图 - 开启”)
  .判断 (文件读配置 (“刷图模式”) ＝ 2)
    系统公告 (“自动剧情 - 开启”)
  .判断 (文件读配置 (“刷图模式”) ＝ 3)
    系统公告 (“自动深渊 - 开启”)
  .默认
  .判断结束
  启动线程 (&自动主线程, , 全局_总开关.自动刷图句柄)
.默认
  全局_总开关.自动刷图开关 ＝ 假
  .判断开始 (文件读配置 (“刷图模式”) ＝ 1)
    系统公告 (“自动刷图 - 关闭”)
  .判断 (文件读配置 (“刷图模式”) ＝ 2)
    系统公告 (“自动剧情 - 关闭”)
  .判断 (文件读配置 (“刷图模式”) ＝ 3)
    系统公告 (“自动深渊 - 关闭”)
  .默认
  .判断结束
  强制结束线程 (全局_总开关.自动刷图句柄)
.判断结束
.子程序 自动主线程
.局部变量 死循环, 整数型
.局部变量 返回值, 整数型
.判断循环首 (死循环 ＝ 0)
  .如果真 (汇编_读整数型 (#对话基址) ＝ 1)
    延迟 (200)
    内存按键 (#空格键)
  .如果真结束
  .如果真 (文件读配置 (“刷图模式”) ≠ 3)
    超级延时 (200)
    返回值 ＝ 刷图返回值 ()
  .如果真结束
  .如果真 (文件读配置 (“刷图模式”) ＝ 3)
    超级延时 (200)
    返回值 ＝ 深渊返回值 ()
  .如果真结束
  .如果真 (返回值 ＝ 1004)
    超级延时 (200)
    自动角色 ()
    到循环尾 ()
  .如果真结束
  .如果真 (返回值 ＝ 1005)
    超级延时 (200)
    自动模式 ()
    到循环尾 ()
  .如果真结束
  .如果真 (返回值 ＝ 1001)
    超级延时 (200)
    .如果真 (进图判断 ＝ 假)
      进图判断 ＝ 真
      超级延时 (1200)
      全局_消息反馈 ＝ 19
      启动线程 (&全屏开关, , )
    .如果真结束
    延迟 (200)
    全局_消息反馈 ＝ 7
    到循环尾 ()
  .如果真结束
  .如果真 (返回值 ＝ 1002)
    全局_消息反馈 ＝ 7
    超级延时 (200)
    自动顺图 ()
    延迟 (600)
    到循环尾 ()
  .如果真结束
  .如果真 (返回值 ＝ 1003)
    超级延时 (200)
    .如果真 (文件读配置 (“刷图模式”) ≠ 3)
      自动出图 ()
    .如果真结束
    .如果真 (文件读配置 (“刷图模式”) ＝ 3)
      深渊出图 ()
    .如果真结束
    到循环尾 ()
  .如果真结束
.判断循环尾 ()
.子程序 刷图返回值, 整数型
全局_总开关.疲劳值 ＝ 疲劳 ()
.判断开始 (取是否城镇 () ＝ 假)
  .判断开始 (取是否开门 () ＝ 假)
    返回 (1001)
  .默认
    .判断开始 (是否在BOSS房 () ＝ 假)
      返回 (1002)
    .默认
      返回 (1003)
    .判断结束
  .判断结束
.判断 (全局_总开关.疲劳值 ＜ 1 或 全局_总开关.自动刷图开关 ＝ 真 且 判断远古地图 () ＝ 真 且 全局_总开关.疲劳值 ＜ 6)
  返回 (1004)
.判断 (全局_总开关.疲劳值 ≥ 1)
  返回 (1005)
.默认
  返回 (0)
.判断结束
.子程序 深渊返回值, 整数型
全局_总开关.疲劳值 ＝ 疲劳 ()
.判断开始 (取是否城镇 () ＝ 假)
  .判断开始 (取是否开门 () ＝ 假)
    返回 (1001)
  .默认
    .判断开始 (取深渊柱子存在 () ＝ 假)
      返回 (1002)
    .默认
      返回 (1003)
    .判断结束
  .判断结束
.判断 (全局_总开关.疲劳值 ＜ 1)
  返回 (1004)
.判断 (全局_总开关.疲劳值 ≥ 1)
  返回 (1005)
.默认
  返回 (0)
.判断结束
.子程序 自动模式
.判断开始 (文件读配置 (“刷图模式”) ＝ 1)
  自动智能 (1)
.判断 (文件读配置 (“刷图模式”) ＝ 2)
  自动智能 (2)
.判断 (文件读配置 (“刷图模式”) ＝ 3)
  自动智能 (3)
.默认
.判断结束
.子程序 自动智能
.参数 类型, 整数型
.局部变量 主线类型, 整数型
.局部变量 局任务, 整数型
.如果真 (类型 ＝ 1) ' 自动刷图
  全局_刷图.地图编号 ＝ 文件读配置 (“副本编号”)
  全局_刷图.地图等级 ＝ 文件读配置 (“副本难度”)
  全局_消息反馈 ＝ 1 ' 到副本门口
  超级延时 (500)
  全局_消息反馈 ＝ 2 ' 选图
  超级延时 (500)
  .判断开始 (文件读配置 (“副本难度”) ＜ 5)
    全局_消息反馈 ＝ 3 ' 进图
  .默认
    全局_消息反馈 ＝ 4 ' 进图
  .判断结束
  超级延时 (3000)
  全局_消息反馈 ＝ 19 ' 透明评分
.如果真结束
.如果真 (类型 ＝ 2) ' 自动剧情
  超级延时 (500)
  智能计算任务 ()
  超级延时 (500)
.如果真结束
.如果真 (类型 ＝ 3) ' 自动深渊
  全局_刷图.地图编号 ＝ 文件读配置 (“副本编号”)
  全局_刷图.地图等级 ＝ 文件读配置 (“副本难度”)
  全局_消息反馈 ＝ 1
  超级延时 (500)
  全局_消息反馈 ＝ 2
  超级延时 (500)
  全局_消息反馈 ＝ 27
  超级延时 (3000)
  全局_消息反馈 ＝ 19 ' 透明评分
.如果真结束
.子程序 自动顺图
.局部变量 当前房间, 坐标型
当前房间 ＝ 当前房间 ()
.如果真 (全局_刷图.地图编号 ＝ 104 或 全局_刷图.地图编号 ＝ 192)
  .如果真 (文件读配置 (“是否全图”) ＝ 1)
    格蓝迪自动全图 ()
  .如果真结束
  .如果真 (文件读配置 (“是否全图”) ＝ 2)
    钢铁自动全图 ()
  .如果真结束
.如果真结束
.如果真 (文件读配置 (“刷图模式”) ＝ 3)
  时间广场深渊 ()
.如果真结束
.如果真 (文件读配置 (“刷图模式”) ≠ 3)
  延时 (100)
  顺图调用 ()
.如果真结束
.子程序 自动出图
超级延时 (1000)
.如果真 (取怪物是否死亡 () ＝ 真 且 取是否开门 () ＝ 真)
  .判断循环首 (汇编_读整数型 (#对话基址) ≠ 0)
    内存按键 (#空格键)
  .判断循环尾 ()
  超级延时 (100)
  全局_消息反馈 ＝ 25 ' 通关确认
  全局_消息反馈 ＝ 8 ' 翻牌
  超级延时 (200)
  启动线程 (&全屏开关, , )
  .如果真 (文件读配置 (“刷图模式”) ＝ 1)
    出图公告 (1)
  .如果真结束
  .如果真 (文件读配置 (“刷图模式”) ＝ 2)
    出图公告 (2)
  .如果真结束
  .如果真 (文件读配置 (“刷图模式”) ＝ 3)
    出图公告 (3)
  .如果真结束
  进图判断 ＝ 假
  超级延时 (1000)
  .如果真 (局_任务ID ≠ 0)
    提交Call (局_任务ID)
    局_任务ID ＝ 0
  .如果真结束
  .如果真 (局_任务ID ＝ 0)
    提交Call (剧情任务ID)
  .如果真结束
  超级延时 (100)
  .如果真 (取是否制裁 () ＝ 假)
    全局_消息反馈 ＝ 7 ' 捡物
  .如果真结束
  超级延时 (4500)
  全局_消息反馈 ＝ 11 ' 出图
  .判断循环首 (取是否城镇 () ＝ 假)
    超级延时 (300)
  .判断循环尾 ()
  超级延时 (500)
  全局_消息反馈 ＝ 10 ' 卖物
  超级延时 (500)
.如果真结束
.子程序 深渊出图
超级延时 (500)
.如果真 (取怪物是否死亡 () ＝ 真 且 取是否开门 () ＝ 真)
  出图公告 (3)
  超级延时 (100)
  .如果真 (取是否制裁 () ＝ 假)
    全局_消息反馈 ＝ 7 ' 捡物
  .如果真结束
  超级延时 (100)
  全局_消息反馈 ＝ 11 ' 出图
  .判断循环首 (取是否城镇 () ＝ 假)
    超级延时 (10)
  .判断循环尾 ()
  超级延时 (500)
  全局_消息反馈 ＝ 10 ' 卖物
  超级延时 (500)
.如果真结束
.子程序 自动角色
全局_刷图.自动角色 ＝ 汇编_加 (全局_刷图.自动角色, 1)
.如果真 (全局_刷图.自动角色 ≥ 文件读配置 (“角色数量”))
  公告 (“已刷完配置指定[ ” ＋ 到文本 (全局_刷图.自动角色) ＋ “ ]个角色 - 停止挂机”)
  公告 (“当前北京时间：” ＋ 到文本 (取现行时间 ()))
  全局_总开关.自动刷图开关 ＝ 假
  强制结束线程 (全局_总开关.自动刷图句柄)
  返回 ()
.如果真结束
超级延时 (300)
公告 (“自动完成” ＋ 到文本 (全局_刷图.自动角色) ＋ “个角色 自动换角色”)
角色位置 ＝ 汇编_加 (汇编_取偏移地址 (#角色基址, { 200, 200, 0 }), 1)
超级延时 (1000)
组包_选择界面 ()
超级延时 (1000)
组包_选择角色 (角色位置)
超级延时 (2000)
.计次循环首 (999, )
  .如果真 (取游戏状态 () ＝ 1)
    跳出循环 ()
  .如果真结束
  超级延时 (1000)
.计次循环尾 ()
超级延时 (4000)
全局_刷图.翻拍次数 ＝ 0
.子程序 格蓝迪自动全图
.局部变量 当前, 坐标型
当前 ＝ 当前房间 ()
.如果真 (当前.x ＝ 0 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 1 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 2 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至下 ()
.如果真结束
.如果真 (当前.x ＝ 2 且 当前.y ＝ 1)
  拾取遍历 ()
  顺图至左 ()
.如果真结束
.如果真 (当前.x ＝ 1 且 当前.y ＝ 1)
  拾取遍历 ()
  顺图至下 ()
.如果真结束
.如果真 (当前.x ＝ 1 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 2 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 3 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至上 ()
.如果真结束
.子程序 钢铁自动全图
.局部变量 当前, 坐标型
当前 ＝ 当前房间 ()
.判断开始 (当前.x ＝ 0 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至右 ()
.判断 (当前.x ＝ 1 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至右 ()
.判断 (当前.x ＝ 2 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至下 ()
.判断 (当前.x ＝ 2 且 当前.y ＝ 1)
  拾取遍历 ()
  顺图至左 ()
.判断 (当前.x ＝ 1 且 当前.y ＝ 1)
  拾取遍历 ()
  顺图至左 ()
.判断 (当前.x ＝ 0 且 当前.y ＝ 1)
  拾取遍历 ()
  顺图至下 ()
.判断 (当前.x ＝ 0 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至下 ()
.判断 (当前.x ＝ 0 且 当前.y ＝ 3)
  拾取遍历 ()
  顺图至右 ()
.判断 (当前.x ＝ 1 且 当前.y ＝ 3)
  拾取遍历 ()
  顺图至上 ()
.判断 (当前.x ＝ 1 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至右 ()
.判断 (当前.x ＝ 2 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至右 ()
.默认
.判断结束
.子程序 时间广场深渊
.局部变量 当前, 坐标型
当前 ＝ 当前房间 ()
.如果真 (当前.x ＝ 0 且 当前.y ＝ 0)
  全局_总开关.重置 ＝ 1
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 1 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 2 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 3 且 当前.y ＝ 0)
  拾取遍历 ()
  顺图至下 ()
.如果真结束
.如果真 (当前.x ＝ 3 且 当前.y ＝ 1)
  .如果 (全局_总开关.重置 ＝ 1)
    拾取遍历 ()
    顺图至右 ()
  .否则
    拾取遍历 ()
    顺图至左 ()
  .如果结束
.如果真结束
.如果真 (当前.x ＝ 4 且 当前.y ＝ 1)
  全局_总开关.重置 ＝ 0
  拾取遍历 ()
  顺图至左 ()
.如果真结束
.如果真 (当前.x ＝ 2 且 当前.y ＝ 1)
  拾取遍历 ()
  顺图至左 ()
.如果真结束
.如果真 (当前.x ＝ 1 且 当前.y ＝ 1)
  拾取遍历 ()
  顺图至下 ()
.如果真结束
.如果真 (当前.x ＝ 1 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至下 ()
.如果真结束
.如果真 (当前.x ＝ 1 且 当前.y ＝ 3)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 2 且 当前.y ＝ 3)
  拾取遍历 ()
  顺图至上 ()
.如果真结束
.如果真 (当前.x ＝ 2 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 3 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至右 ()
.如果真结束
.如果真 (当前.x ＝ 4 且 当前.y ＝ 2)
  拾取遍历 ()
  顺图至右 ()
.如果真结束