易语言地下城与勇士辅助顺图类源码

.版本 2
.程序集 顺图
.子程序 顺图结构
.参数 方向ID, 整数型
.局部变量 一级偏移, 整数型
.局部变量 二级偏移, 整数型
.局部变量 临时数据, 整数型
.局部变量 坐标结构, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 xF, 整数型
.局部变量 yF, 整数型
.局部变量 cx, 整数型
.局部变量 cy, 整数型
一级偏移 ＝ 汇编_读整数型 (#人物基址)
二级偏移 ＝ 汇编_读整数型 (一级偏移 ＋ #地图偏移)
.如果真 (二级偏移 ＝ 0)
  返回 ()
.如果真结束
临时数据 ＝ 汇编_读整数型 (#商店基址 － 8)
临时数据 ＝ 汇编_读整数型 (临时数据 ＋ #时间基址)
临时数据 ＝ 汇编_读整数型 (临时数据 ＋ #坐标结构偏移01)
坐标结构 ＝ 临时数据 ＋ (方向ID ＋ 方向ID × 4) × 8 ＋ #坐标结构偏移02
x ＝ 汇编_读整数型 (坐标结构 ＋ 0)
y ＝ 汇编_读整数型 (坐标结构 ＋ 4)
xF ＝ 汇编_读整数型 (坐标结构 ＋ 8)
yF ＝ 汇编_读整数型 (坐标结构 ＋ 12)
.如果真 (方向ID ＝ 0)
  cx ＝ x ＋ xF ＋ 20
  cy ＝ y ＋ yF ÷ 2
.如果真结束
.如果真 (方向ID ＝ 1)
  cx ＝ x － 20
  cy ＝ y ＋ yF ÷ 2
.如果真结束
.如果真 (方向ID ＝ 2)
  cx ＝ x ＋ xF ÷ 2
  cy ＝ y ＋ yF ＋ 20
.如果真结束
.如果真 (方向ID ＝ 3)
  cx ＝ x ＋ xF ÷ 2
  cy ＝ y － 20
.如果真结束
坐标CALL (一级偏移, cx, cy, 0)
延时 (200)
坐标CALL (一级偏移, x ＋ xF ÷ 2, y, 0)
.子程序 组包过图
.参数 X索引, 整数型
.参数 Y索引, 整数型
缓冲Call (45)
加密Call (X索引, 1)
加密Call (Y索引, 1)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 1)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 4)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 2)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 4)
加密Call (0, 2)
加密Call (0, 1)
发包Call ()
.子程序 组包至上
.局部变量 房间X, 整数型
.局部变量 房间Y, 整数型
.如果真 (取是否开门 () ＝ 真)
  房间X ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_3, 0 })
  房间Y ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_4, 0 })
  组包过图 (房间X, 汇编_减 (房间Y, 1))
.如果真结束
.子程序 组包至下
.局部变量 房间X, 整数型
.局部变量 房间Y, 整数型
.如果真 (取是否开门 () ＝ 真)
  房间X ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_3, 0 })
  房间Y ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_4, 0 })
  组包过图 (房间X, 汇编_加 (房间Y, 1))
.如果真结束
.子程序 组包至左
.局部变量 房间X, 整数型
.局部变量 房间Y, 整数型
.如果真 (取是否开门 () ＝ 真)
  房间X ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_3, 0 })
  房间Y ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_4, 0 })
  组包过图 (汇编_减 (房间X, 1), 房间Y)
.如果真结束
.子程序 组包至右
.局部变量 房间X, 整数型
.局部变量 房间Y, 整数型
.如果真 (取是否开门 () ＝ 真)
  房间X ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_3, 0 })
  房间Y ＝ 汇编_取偏移地址 (汇编_减 (#商店基址, 8), { #时间基址, #A星偏移_4, 0 })
  组包过图 (汇编_加 (房间X, 1), 房间Y)
.如果真结束
.子程序 强制至上
.如果真 (取是否开门 () ＝ 真)
  强顺Call (2)
.如果真结束
.子程序 强制至下
.如果真 (取是否开门 () ＝ 真)
  强顺Call (3)
.如果真结束
.子程序 强制至左
.如果真 (取是否开门 () ＝ 真)
  强顺Call (0)
.如果真结束
.子程序 强制至右
.如果真 (取是否开门 () ＝ 真)
  强顺Call (1)
.如果真结束
.子程序 顺图至上
.如果真 (取是否开门 () ＝ 真)
  .判断开始 (剧情任务ID ＝ 26 或 剧情任务ID ＝ 15 或 剧情任务ID ＝ 3191 或 全局_剧情ID ＝ 15 或 全局_剧情ID ＝ 88 或 全局_剧情ID ＝ 190 或 全局_剧情ID ＝ 35 或 全局_剧情ID ＝ 3191 或 全局_剧情ID ＝ 26) ' 剧情任务ID=15是天空之城
    强制至上 ()
  .默认
    顺图结构 (2)
  .判断结束
.如果真结束
.子程序 顺图至下
.如果真 (取是否开门 () ＝ 真)
  .判断开始 (剧情任务ID ＝ 26 或 剧情任务ID ＝ 15 或 剧情任务ID ＝ 3191 或 全局_剧情ID ＝ 15 或 全局_剧情ID ＝ 88 或 全局_剧情ID ＝ 190 或 全局_剧情ID ＝ 35 或 全局_剧情ID ＝ 3191 或 全局_剧情ID ＝ 26)
    强制至下 ()
  .默认
    顺图结构 (3)
  .判断结束
.如果真结束
.子程序 顺图至左
.如果真 (取是否开门 () ＝ 真)
  .判断开始 (剧情任务ID ＝ 26 或 剧情任务ID ＝ 15 或 剧情任务ID ＝ 3191 或 全局_剧情ID ＝ 15 或 全局_剧情ID ＝ 88 或 全局_剧情ID ＝ 190 或 全局_剧情ID ＝ 35 或 全局_剧情ID ＝ 3191 或 全局_剧情ID ＝ 26)
    强制至左 ()
  .默认
    顺图结构 (0)
  .判断结束
.如果真结束
.子程序 顺图至右
.如果真 (取是否开门 () ＝ 真)
  .判断开始 (剧情任务ID ＝ 26 或 剧情任务ID ＝ 15 或 剧情任务ID ＝ 3191 或 全局_剧情ID ＝ 15 或 全局_剧情ID ＝ 88 或 全局_剧情ID ＝ 190 或 全局_剧情ID ＝ 35 或 全局_剧情ID ＝ 3191 或 全局_剧情ID ＝ 26) ' 剧情任务ID=3191是天帷巨兽
    强制至右 ()
  .默认
    顺图结构 (1)
  .判断结束
.如果真结束
.子程序 顺图调用
.局部变量 过图方式, 整数型
.局部变量 局_地图数据, 地图数据
过图方式 ＝ 文件读配置 (“过图方式”)
局_地图数据 ＝ 地图数据 ()
顺图方向 ＝ 顺图方向 (局_地图数据.地图走法 [1], 局_地图数据.地图走法 [2])
.如果真 (过图方式 ＝ 1)
  .如果真 (顺图方向 ＝ 2)
    顺图至上 ()
  .如果真结束
  .如果真 (顺图方向 ＝ 3)
    顺图至下 ()
  .如果真结束
  .如果真 (顺图方向 ＝ 0)
    顺图至左 ()
  .如果真结束
  .如果真 (顺图方向 ＝ 1)
    顺图至右 ()
  .如果真结束
.如果真结束
.如果真 (过图方式 ＝ 2)
  .如果真 (顺图方向 ＝ 2)
    强制至上 ()
  .如果真结束
  .如果真 (顺图方向 ＝ 3)
    强制至下 ()
  .如果真结束
  .如果真 (顺图方向 ＝ 0)
    强制至左 ()
  .如果真结束
  .如果真 (顺图方向 ＝ 1)
    强制至右 ()
  .如果真结束
.如果真结束