易語言地下城與勇士輔助順圖類源碼

.版本 2
.程序集 順圖
.子程序 順圖結(jié)構(gòu)
.參數(shù) 方向ID, 整數(shù)型
.局部變量 一級(jí)偏移, 整數(shù)型
.局部變量 二級(jí)偏移, 整數(shù)型
.局部變量 臨時(shí)數(shù)據(jù), 整數(shù)型
.局部變量 坐標(biāo)結(jié)構(gòu), 整數(shù)型
.局部變量 x, 整數(shù)型
.局部變量 y, 整數(shù)型
.局部變量 xF, 整數(shù)型
.局部變量 yF, 整數(shù)型
.局部變量 cx, 整數(shù)型
.局部變量 cy, 整數(shù)型
一級(jí)偏移 ＝ 匯編_讀整數(shù)型 (#人物基址)
二級(jí)偏移 ＝ 匯編_讀整數(shù)型 (一級(jí)偏移 ＋ #地圖偏移)
.如果真 (二級(jí)偏移 ＝ 0)
  返回 ()
.如果真結(jié)束
臨時(shí)數(shù)據(jù) ＝ 匯編_讀整數(shù)型 (#商店基址 － 8)
臨時(shí)數(shù)據(jù) ＝ 匯編_讀整數(shù)型 (臨時(shí)數(shù)據(jù) ＋ #時(shí)間基址)
臨時(shí)數(shù)據(jù) ＝ 匯編_讀整數(shù)型 (臨時(shí)數(shù)據(jù) ＋ #坐標(biāo)結(jié)構(gòu)偏移01)
坐標(biāo)結(jié)構(gòu) ＝ 臨時(shí)數(shù)據(jù) ＋ (方向ID ＋ 方向ID × 4) × 8 ＋ #坐標(biāo)結(jié)構(gòu)偏移02
x ＝ 匯編_讀整數(shù)型 (坐標(biāo)結(jié)構(gòu) ＋ 0)
y ＝ 匯編_讀整數(shù)型 (坐標(biāo)結(jié)構(gòu) ＋ 4)
xF ＝ 匯編_讀整數(shù)型 (坐標(biāo)結(jié)構(gòu) ＋ 8)
yF ＝ 匯編_讀整數(shù)型 (坐標(biāo)結(jié)構(gòu) ＋ 12)
.如果真 (方向ID ＝ 0)
  cx ＝ x ＋ xF ＋ 20
  cy ＝ y ＋ yF ÷ 2
.如果真結(jié)束
.如果真 (方向ID ＝ 1)
  cx ＝ x － 20
  cy ＝ y ＋ yF ÷ 2
.如果真結(jié)束
.如果真 (方向ID ＝ 2)
  cx ＝ x ＋ xF ÷ 2
  cy ＝ y ＋ yF ＋ 20
.如果真結(jié)束
.如果真 (方向ID ＝ 3)
  cx ＝ x ＋ xF ÷ 2
  cy ＝ y － 20
.如果真結(jié)束
坐標(biāo)CALL (一級(jí)偏移, cx, cy, 0)
延時(shí) (200)
坐標(biāo)CALL (一級(jí)偏移, x ＋ xF ÷ 2, y, 0)
.子程序 組包過圖
.參數(shù) X索引, 整數(shù)型
.參數(shù) Y索引, 整數(shù)型
緩沖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)
發(fā)包Call ()
.子程序 組包至上
.局部變量 房間X, 整數(shù)型
.局部變量 房間Y, 整數(shù)型
.如果真 (取是否開門 () ＝ 真)
  房間X ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_3, 0 })
  房間Y ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_4, 0 })
  組包過圖 (房間X, 匯編_減 (房間Y, 1))
.如果真結(jié)束
.子程序 組包至下
.局部變量 房間X, 整數(shù)型
.局部變量 房間Y, 整數(shù)型
.如果真 (取是否開門 () ＝ 真)
  房間X ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_3, 0 })
  房間Y ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_4, 0 })
  組包過圖 (房間X, 匯編_加 (房間Y, 1))
.如果真結(jié)束
.子程序 組包至左
.局部變量 房間X, 整數(shù)型
.局部變量 房間Y, 整數(shù)型
.如果真 (取是否開門 () ＝ 真)
  房間X ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_3, 0 })
  房間Y ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_4, 0 })
  組包過圖 (匯編_減 (房間X, 1), 房間Y)
.如果真結(jié)束
.子程序 組包至右
.局部變量 房間X, 整數(shù)型
.局部變量 房間Y, 整數(shù)型
.如果真 (取是否開門 () ＝ 真)
  房間X ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_3, 0 })
  房間Y ＝ 匯編_取偏移地址 (匯編_減 (#商店基址, 8), { #時(shí)間基址, #A星偏移_4, 0 })
  組包過圖 (匯編_加 (房間X, 1), 房間Y)
.如果真結(jié)束
.子程序 強(qiáng)制至上
.如果真 (取是否開門 () ＝ 真)
  強(qiáng)順Call (2)
.如果真結(jié)束
.子程序 強(qiáng)制至下
.如果真 (取是否開門 () ＝ 真)
  強(qiáng)順Call (3)
.如果真結(jié)束
.子程序 強(qiáng)制至左
.如果真 (取是否開門 () ＝ 真)
  強(qiáng)順Call (0)
.如果真結(jié)束
.子程序 強(qiáng)制至右
.如果真 (取是否開門 () ＝ 真)
  強(qiáng)順Call (1)
.如果真結(jié)束
.子程序 順圖至上
.如果真 (取是否開門 () ＝ 真)
  .判斷開始 (劇情任務(wù)ID ＝ 26 或 劇情任務(wù)ID ＝ 15 或 劇情任務(wù)ID ＝ 3191 或 全局_劇情ID ＝ 15 或 全局_劇情ID ＝ 88 或 全局_劇情ID ＝ 190 或 全局_劇情ID ＝ 35 或 全局_劇情ID ＝ 3191 或 全局_劇情ID ＝ 26) ' 劇情任務(wù)ID=15是天空之城
    強(qiáng)制至上 ()
  .默認(rèn)
    順圖結(jié)構(gòu) (2)
  .判斷結(jié)束
.如果真結(jié)束
.子程序 順圖至下
.如果真 (取是否開門 () ＝ 真)
  .判斷開始 (劇情任務(wù)ID ＝ 26 或 劇情任務(wù)ID ＝ 15 或 劇情任務(wù)ID ＝ 3191 或 全局_劇情ID ＝ 15 或 全局_劇情ID ＝ 88 或 全局_劇情ID ＝ 190 或 全局_劇情ID ＝ 35 或 全局_劇情ID ＝ 3191 或 全局_劇情ID ＝ 26)
    強(qiáng)制至下 ()
  .默認(rèn)
    順圖結(jié)構(gòu) (3)
  .判斷結(jié)束
.如果真結(jié)束
.子程序 順圖至左
.如果真 (取是否開門 () ＝ 真)
  .判斷開始 (劇情任務(wù)ID ＝ 26 或 劇情任務(wù)ID ＝ 15 或 劇情任務(wù)ID ＝ 3191 或 全局_劇情ID ＝ 15 或 全局_劇情ID ＝ 88 或 全局_劇情ID ＝ 190 或 全局_劇情ID ＝ 35 或 全局_劇情ID ＝ 3191 或 全局_劇情ID ＝ 26)
    強(qiáng)制至左 ()
  .默認(rèn)
    順圖結(jié)構(gòu) (0)
  .判斷結(jié)束
.如果真結(jié)束
.子程序 順圖至右
.如果真 (取是否開門 () ＝ 真)
  .判斷開始 (劇情任務(wù)ID ＝ 26 或 劇情任務(wù)ID ＝ 15 或 劇情任務(wù)ID ＝ 3191 或 全局_劇情ID ＝ 15 或 全局_劇情ID ＝ 88 或 全局_劇情ID ＝ 190 或 全局_劇情ID ＝ 35 或 全局_劇情ID ＝ 3191 或 全局_劇情ID ＝ 26) ' 劇情任務(wù)ID=3191是天帷巨獸
    強(qiáng)制至右 ()
  .默認(rèn)
    順圖結(jié)構(gòu) (1)
  .判斷結(jié)束
.如果真結(jié)束
.子程序 順圖調(diào)用
.局部變量 過圖方式, 整數(shù)型
.局部變量 局_地圖數(shù)據(jù), 地圖數(shù)據(jù)
過圖方式 ＝ 文件讀配置 (“過圖方式”)
局_地圖數(shù)據(jù) ＝ 地圖數(shù)據(jù) ()
順圖方向 ＝ 順圖方向 (局_地圖數(shù)據(jù).地圖走法 [1], 局_地圖數(shù)據(jù).地圖走法 [2])
.如果真 (過圖方式 ＝ 1)
  .如果真 (順圖方向 ＝ 2)
    順圖至上 ()
  .如果真結(jié)束
  .如果真 (順圖方向 ＝ 3)
    順圖至下 ()
  .如果真結(jié)束
  .如果真 (順圖方向 ＝ 0)
    順圖至左 ()
  .如果真結(jié)束
  .如果真 (順圖方向 ＝ 1)
    順圖至右 ()
  .如果真結(jié)束
.如果真結(jié)束
.如果真 (過圖方式 ＝ 2)
  .如果真 (順圖方向 ＝ 2)
    強(qiáng)制至上 ()
  .如果真結(jié)束
  .如果真 (順圖方向 ＝ 3)
    強(qiáng)制至下 ()
  .如果真結(jié)束
  .如果真 (順圖方向 ＝ 0)
    強(qiáng)制至左 ()
  .如果真結(jié)束
  .如果真 (順圖方向 ＝ 1)
    強(qiáng)制至右 ()
  .如果真結(jié)束
.如果真結(jié)束