今天小編就爲大家分享一篇關於易語言地下城與勇士輔助順圖類源碼，小編覺得內容挺不錯的，現在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧
DNF輔助順圖類源碼
僅供學習參考，禁止商業用途
.版本 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)
強制至右 ()
.如果真結束
.如果真結束
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接