.版本 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)
    強制至右 ()
  .如果真結束
.如果真結束