亲宝软件园·资讯

展开

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

易语言源码教程 人气:0

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

总结

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

加载全部内容

相关教程
猜你喜欢
用户评论