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

11層

kevin70232 2010-9-2 14:03:37

[[email protected]]hip_hop917333117●禁留聯繫資訊●ail]

回覆

使用道具舉報

12層

周圍損 2010-9-3 08:55:26

大大發一個腳本郵件給我吧，謝謝啦！ [email protected]

回覆

使用道具舉報

13層

qiaodanxxx 2010-9-3 22:15:30

我也要一個，[email protected]

回覆

使用道具舉報

14層

fuhaoshih7 2010-9-3 22:36:55

本帖最後由 fuhaoshih7 於 2010-9-3 22:38 編輯

13# rz12345

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

在這邊只公開我腳本原碼

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

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

回覆

使用道具舉報

15層

周圍損 2010-9-4 16:48:03

大大你看到我的信息和郵件了嗎？我的郵箱裏還沒有收到你的郵件呀？謝謝！

回覆

使用道具舉報

16層

fuhaoshih7 2010-9-4 21:20:43

17# 周圍損
不好意思 mail 過多無法辨識
你是那個 mail 請重發並掛名 THX

回覆

使用道具舉報

17層

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

回覆

使用道具舉報

18層

周圍損 2010-9-4 23:36:02

我的郵箱是[email protected] 謝謝大大咯！

回覆

使用道具舉報

19層

fuhaoshih7 2010-9-5 15:24:19

補一下說明
F1-F8 設為自訂欄
F9 使用技能欄
F10 使用物品欄

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

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

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

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

回覆

使用道具舉報

20層

wvom 2010-9-6 08:47:55

本帖最後由 wvom 於 2010-9-6 08:52 編輯

大大!!我也要^^"感恩
huangyashin
@
hotmail.com
感謝!!大大分享!!

回覆

使用道具舉報

123 4 5 6 7 8 9 10 ... 11 / 11 頁下一頁

外掛聯合國

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

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