我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《紅心辣椒》 › 《大航海時代外掛》 ›
122970
108
發佈主題
返回

[原創] 新版 自動航行腳本

kevin70232 當前離線
UID
1537596
熱心
6 值
嘉獎
0 次
違規
0 次
在線時間
7 小時
經驗
6 點
積分
6
精華
0
最後登錄
2010-12-31
閱讀權限
5
註冊時間
2010-9-2
論壇幣
12 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
11層
kevin70232 2010-9-2 14:03:37
[[email protected]]hip_hop917333117●禁留聯繫資訊●ail]
回覆

使用道具 舉報

周圍損 當前離線
UID
1428694
熱心
12 值
嘉獎
0 次
違規
0 次
在線時間
6 小時
經驗
12 點
積分
12
精華
0
最後登錄
2010-9-4
閱讀權限
10
註冊時間
2010-3-20
論壇幣
24 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
12層
周圍損 2010-9-3 08:55:26
大大發一個腳本郵件給我吧，謝謝啦！  [email protected]
回覆

使用道具 舉報

13層
無效樓層，該帖已經被刪除
qiaodanxxx 當前離線
UID
1522237
熱心
10 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
8 點
積分
38
精華
0
最後登錄
2018-8-7
閱讀權限
20
註冊時間
2010-8-11
論壇幣
11 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
14層
qiaodanxxx 2010-9-3 22:15:30
我也要一個，[email protected]
回覆

使用道具 舉報

fuhaoshih7 當前離線
UID
1530741
熱心
52 值
嘉獎
0 次
違規
0 次
在線時間
21 小時
經驗
52 點
積分
211
精華
0
最後登錄
2011-1-4
閱讀權限
25
註冊時間
2010-8-23
論壇幣
82 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看個人網站 查看詳細資料
Rank: 3
15層
fuhaoshih7 2010-9-3 22:36:55
本帖最後由 fuhaoshih7 於 2010-9-3 22:38 編輯

13# rz12345

此腳本 為個人最得意的作品
比目前的 神聖導航 功能性 還要強 (不過他的程式程度比我還高 不可諱言)

在這邊只公開我腳本原碼

其實主要使用方式 是搭配 我自己寫的 java 程式
在 世界地圖上 點出你要航行的路徑
腳本就按照 你點的路徑 航行到 你要的地點
精準度頗高 可以在 尼羅河中航行

這個腳本 適合給 冒險者使用(單開)
並非一味的 無腦賺錢腳本 (小弟對此無興趣 也別問我要)
回覆

使用道具 舉報

周圍損 當前離線
UID
1428694
熱心
12 值
嘉獎
0 次
違規
0 次
在線時間
6 小時
經驗
12 點
積分
12
精華
0
最後登錄
2010-9-4
閱讀權限
10
註冊時間
2010-3-20
論壇幣
24 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
16層
周圍損 2010-9-4 16:48:03
大大你看到我的信息和郵件了嗎？我的郵箱裏還沒有收到你的郵件呀？謝謝！
回覆

使用道具 舉報

fuhaoshih7 當前離線
UID
1530741
熱心
52 值
嘉獎
0 次
違規
0 次
在線時間
21 小時
經驗
52 點
積分
211
精華
0
最後登錄
2011-1-4
閱讀權限
25
註冊時間
2010-8-23
論壇幣
82 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看個人網站 查看詳細資料
Rank: 3
17層
fuhaoshih7 2010-9-4 21:20:43
17# 周圍損
不好意思 mail 過多 無法辨識
你是那個 mail 請重發 並掛名 THX
回覆

使用道具 舉報

fuhaoshih7 當前離線
UID
1530741
熱心
52 值
嘉獎
0 次
違規
0 次
在線時間
21 小時
經驗
52 點
積分
211
精華
0
最後登錄
2011-1-4
閱讀權限
25
註冊時間
2010-8-23
論壇幣
82 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看個人網站 查看詳細資料
Rank: 3
18層
fuhaoshih7 2010-9-4 21:42:37
本帖最後由 fuhaoshih7 於 2010-9-4 21:45 編輯

關於 有人對此腳本 可否用於 繞港腳本
我將大概的 概念 寫出來 讓想拿此角本來改的 有點蓋念
存技術指導 沒有打算開發 繞港腳本 THX

Re  大大收到了謝謝,想請教您有辦法做出近港航行嗎,用方向鍵好像會每次都轉舵轉出不同的方向,可以的話可以幫做出多佛到倫敦 跟倫敦到多佛的腳本嗎@@ 3q

程式的部分 我大概po給你 你研究一下吧 每個function 前面都有 說明 圖的部分 可以用 自動航行腳本中的圖片

//座標資訊
VBS Dim poi(10)
VBS poi(0)="航0.bmp"
VBS poi(1)="航1.bmp"
VBS poi(2)="航2.bmp"
VBS poi(3)="航3.bmp"
VBS poi(4)="航4.bmp"
VBS poi(5)="航5.bmp"
VBS poi(6)="航6.bmp"
VBS poi(7)="航7.bmp"
VBS poi(8)="航8.bmp"
VBS poi(9)="航9.bmp"
VBS poi(10)="航11.bmp"
//測量顯示數字大小
VBS s_x1=6
VBS s_y1=11

//** 抓取 視窗位置 大小
Sub check_w
    Plugin hwn=Window.GetKeyFocusWnd()
    Plugin winRect=Window.GetClientRect(hwn)
    winPoint = Split(winRect, "|", -1, 1)
    nx = CInt(winPoint(0))-5
    ny = CInt(winPoint(1))-31
    VBS scrW= CInt(winPoint(2))
    VBS scrH= CInt(winPoint(3))
Return

//**使用到的記憶體位址
VBS stateAddr=&H00C04D34
VBS sinxAddr=stateAddr+&H124
VBS cosxAddr=stateAddr+&H12C

//螢幕方向 可視為船隻方向
VBS ang=0
**此function 結果 ang 即為船隻方向
Sub 確認方向
    Plugin n_x = Memory.ReadSingle(hwn, sinxAddr)
    Plugin n_y= Memory.ReadSingle(hwn, cosxAddr)
    n_y=n_y*-1
    PI = 4*Atn(1)
    VBS ang=Atn(abs(n_x/n_y))/pi*180
    If n_x>0 and n_y>0
    ElseIf n_x>0 and n_y<0
        VBS ang=180-ang
    ElseIf n_x<0 and n_y<0
        VBS ang=180+ang
    ElseIf n_x<0 and n_y>0
        VBS ang=360-ang
    ElseIf n_x=0 and n_y>0
        VBS ang=0
    ElseIf n_x=0 and n_y<0
        VBS ang=180
    ElseIf n_x<0 and n_y=0
        VBS ang=270
    ElseIf n_x>0 and n_y=0
        VBS ang=90
    EndIf
    // ang=360-ang
    //   MessageBox ""∠
    VBS check_po2=1
Return


//當前航海座標
VBS po_x=0
VBS po_y=0
**此function po_x po_y 即為測量座標 為前台判斷
Sub 確認座標
    //座標確認的螢幕上位置
    VBS s_x=787-800+scrW+nx
    VBS s_y=358-600+scrH+ny
    VBS po_n=0
    VBS po_z=0
    VBS po_x=0
    VBS po_y=0
    VBS check_po=0
    If chuling=0
        VBSCall FindPic(663-800+scrW+nx,350-600+scrH+ny,680-800+scrW+nx,380-600+scrH+ny,"測量方向.bmp",1,x,y)
        If x>0
            VBS chuling=1
            VBS chuling_s="測量方向.bmp"
        Else
            VBSCall FindPic(663-800+scrW+nx,350-600+scrH+ny,680-800+scrW+nx,380-600+scrH+ny,"測量方向1.bmp",1,x,y)
            If x>0
                VBS chuling=1
                VBS chuling_s="測量方向1.bmp"
            EndIf
        EndIf
    EndIf
    VBSCall FindPic(663-800+scrW+nx,350-600+scrH+ny,680-800+scrW+nx,380-600+scrH+ny,chuling_s,1,x,y)
    If x>0
        For 11
            VBS i=0
            For 11
                VBSCall FindPic(s_x,s_y,s_x+s_x1,s_y+s_y1,poi(i),1,x,y)
                If x>0
                    If i<=9
                        If po_z=0
                            VBS po_y=po_y+i*10^po_n
                        Else
                            VBS po_x=po_x+i*10^po_n
                        EndIf
                        VBS po_n=po_n+1
                        Goto end0
                    Else
                    EndIf
                Else
                    VBS i=i+1
                    If i=10
                        VBS po_z=1
                        VBS po_n=0
                    EndIf
                EndIf
            EndFor
            Rem end0
            VBS s_x=s_x-6
        EndFor
    EndIf
    If po_x1=0 and po_y1=0
        VBS po_x1=po_x
        VBS po_y1=po_y
        VBS check_po=1
    EndIf
    If abs(po_x-po_x1)>16384/2
        If 16384-abs(po_x-po_x1)+abs(po_y-po_y1)<150
            VBS po_x1=po_x
            VBS po_y1=po_y
            VBS check_po=1
        EndIf
    Else
        If abs(po_x-po_x1)+abs(po_y-po_y1)<150
            VBS po_x1=po_x
            VBS po_y1=po_y
            VBS check_po=1
        EndIf
    EndIf
    //寫航點紀錄製剪貼簿
    If write_locate=1 and check_po=1
        Plugin Sys.SetCLB(""&po_x&" "&po_y&" "&n_loc)
    EndIf
Return

** 此function ang_loc 即為下一個目的地方向
sub 目的地方向
    If abs(map_li(n_loc,0)-po_x)>16384/2
        If map_li(n_loc,0)<16384/2
            VBS n_x=map_li(n_loc,0)+16384-po_x
        ElseIf po_x<16384/2
            VBS n_x=map_li(n_loc,0)-po_x-16384
        EndIf
    Else
        VBS n_x=map_li(n_loc,0)-po_x
    EndIf
    VBS n_y=po_y-map_li(n_loc,1)
    VBS ang_loc=int(Atn(abs(n_x/n_y))/pi*180)
    If n_x>0 and n_y>0
    ElseIf n_x>0 and n_y<0
        VBS ang_loc=180-ang_loc
    ElseIf n_x<0 and n_y<0
        VBS ang_loc=180+ang_loc
    ElseIf n_x<0 and n_y>0
        VBS ang_loc=360-ang_loc
    ElseIf n_x=0 and n_y>0
        VBS ang_loc=0
    ElseIf n_x=0 and n_y<0
        VBS ang_loc=180
    ElseIf n_x<0 and n_y=0
        VBS ang_loc=270
    ElseIf n_x>0 and n_y=0
        VBS ang_loc=90
    EndIf
Return

//用 目的地方向 與 目前船向 之角度差 算出 海面上點擊的 點 點擊後 即為轉向 目的地方向
Sub 改變船向
    VBS ang_changed=0
    If auto_travel=1 and  auto_trav=1 and check_po=1 and check_po2=1
        VBS r=150:r2=78:x0=407-400+scrW/2:y0=364-300+scrH/2:x=0:y=0
        VBS ta1=ang_loc-ang
        If abs(ta1)>change_ang
            VBS ang_changed=1
            VBS ta=(ta1)*pi/180
            VBS x=x0+r*sin(ta)+nx
            VBS y=y0-r2*cos(ta)+ny
            Plugin Bkgnd.LeftDoubleClick(hwn,x-5-nx,y-31-ny)
        EndIf
    EndIf
Return
回覆

使用道具 舉報

周圍損 當前離線
UID
1428694
熱心
12 值
嘉獎
0 次
違規
0 次
在線時間
6 小時
經驗
12 點
積分
12
精華
0
最後登錄
2010-9-4
閱讀權限
10
註冊時間
2010-3-20
論壇幣
24 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
19層
周圍損 2010-9-4 23:36:02
我的郵箱是[email protected]  謝謝大大咯！
回覆

使用道具 舉報

fuhaoshih7 當前離線
UID
1530741
熱心
52 值
嘉獎
0 次
違規
0 次
在線時間
21 小時
經驗
52 點
積分
211
精華
0
最後登錄
2011-1-4
閱讀權限
25
註冊時間
2010-8-23
論壇幣
82 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看個人網站 查看詳細資料
Rank: 3
20層
fuhaoshih7 2010-9-5 15:24:19
補一下說明
F1-F8 設為 自訂欄
F9 使用技能欄
F10 使用物品欄

將寄給各位的腳本 全部解壓縮到 script下
將jvm 裝好後
再將 .jar 檔 拉出捷徑到桌面

.jar 檔 是個世界地圖的java 程式
在地圖上點選路徑後 按確定
他會寫出一個 路徑檔 於script 下

給腳本讀取
腳本執行時會利用 剪貼簿的方式 傳送目前座標給
地圖檔
地圖檔 即會在世界地圖上 show 出你的座標

座標是經由 測量來判斷的
如果 快捷鍵 設定ok 並有 測量技能 應該可以順利運行
回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 註冊

12345678910... 11下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2026-10-8 08:34 , Processed in 0.047238 second(s), 16 queries , Memcache On.

版權說明:
　　本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證，協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理，說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等，商標及著作權，均歸各公司及程式原創所有，本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?