易语言

关注公众号 jb51net

关闭
首页 > 软件编程 > 易语言 > dnf辅助自动刷图类

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

作者:易语言源码教程

今天小编就为大家分享一篇关于易语言地下城与勇士辅助自动刷图类源码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

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)
  拾取遍历 ()
  顺图至右 ()
.如果真结束

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接

您可能感兴趣的文章:
阅读全文