黃易群俠傳M脫機外掛應用程式黃易神行
137879
156

[原創] 搶救光榮產品_所有技能按精腳本大公開

gg2255 發表於 2009-7-21 18:53:37 | 顯示全部樓層 |
本帖最後由 gg2255 於 2010-1-1 00:56 編輯

特別聲明一下_好像還有很多人看不懂怎麼使用_有些.BMP檔是要在按精抓點抓色那邊使用抓圖片檔_要把它抓下來然後將抓下來的bmp檔放在按精目錄裡面的子目錄裡面


掛划船



[General]
Description=
BeginHotkey=49
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=49
StopHotkeyMod=1
RunOnce=0
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
Gosub 調整窗口
VBS Dim xx=0
Rem t
For 12
KeyDown 37 1
Delay 1400
KeyUp 37 1
Delay 500
KeyPress 27 1
Rem 4
KeyPress 27 1
KeyPress 112 1
IfColor 695 250 ffffff 0
Delay 200
KeyPress 115 1
Delay 200
Else
IfColor 695 250 909090 0
KeyPress 119 1
EndIf
Delay 100
Goto 4
EndIf
IfColor 78 146 343434 0
KeyPress 112 1
Delay 600
KeyPress 119 1
Delay 500
KeyPress 27 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 694 142 ffffff 0
KeyPress 113 1
Delay 500
KeyPress 27 1
Else
MoveTo 670 110
Delay 200
LeftClick 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 694 88 ffffff 0
KeyPress 112 1
Delay 500
Else
MoveTo 670 110
Delay 200
LeftClick 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 694 196 ffffff 0
KeyPress 114 1
Delay 500
KeyPress 27 1
Else
MoveTo 670 110
Delay 500
LeftClick 1
EndIf
KeyPress 112 1
Delay 1000
IfColor 752 196 ffffff 0
KeyPress 118 1
Delay 500
KeyPress 27 1
Else
MoveTo 670 110
Delay 500
LeftClick 1
EndIf
Delay 1000
EndFor
KeyPress 27 1
Delay 200
Gosub hfg
Delay 200
Goto t
Sub hfg
KeyPress 117 1
Delay 2000
If xx<5
KeyPress 40 1
Delay 100
MoveTo 352 130
LeftClick 1
Delay 1000
KeyPress 38 1
Delay 100
KeyPress 13 1
Else
KeyPress 38 1
Delay 100
MoveTo 352 130
LeftClick 1
Delay 1000
KeyPress 40 1
Delay 100
KeyPress 13 1
EndIf
VBS xx=(xx+1)
If xx=10
VBS xx=0
EndIf
Return hfy
Sub 調整窗口
Rem cb11
VBSCall Call FindPic(0,0,1023,767,"gq.bmp",0.9,intX,intY)
If Not(intx=4 and inty=4)
MoveTo intx+100 inty-1
LeftDown 1
Delay 2500
MoveTo 104 4
Delay 1000
LeftUp 1
Delay 500
LeftClick 1
Delay 500
EndIf
MoveTo 161 483
If intX=-1 and intY=-1
MoveTo 20 20
LeftDown 1
Delay 3500
MoveTo 304 304
Delay 1000
LeftUp 1
Delay 500
LeftClick 1
Goto 調整窗口
EndIf
Return 調整窗口
回覆

使用道具 舉報


loselover 當前離線
UID
108727
熱心
365 值
嘉獎
0 次
違規
0 次
在線時間
114 小時
經驗
181 點
積分
1795
精華
0
最後登錄
2017-3-31
閱讀權限
40
註冊時間
2006-12-6
論壇幣
1099 幣
聯合幣
21 枚
幸運鑽
2 顆
招待卷
0 點
查看詳細資料
Rank: 5Rank: 5Rank: 5
loselover 2009-8-23 09:41:01
好的東西一定要支持的 真是謝謝大大的用心囉  看起來好像不錯~~非常感謝大大的分享~~感恩喔
回覆

使用道具 舉報

a0697 當前離線
UID
119536
熱心
16 值
嘉獎
0 次
違規
0 次
在線時間
2 小時
經驗
16 點
積分
16
精華
0
最後登錄
2009-9-14
閱讀權限
10
註冊時間
2006-12-18
論壇幣
17 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
a0697 2009-8-26 23:32:59
看起來好像不錯
好的東西一定要支持的
非常感謝大大的分享
回覆

使用道具 舉報

died1 該用戶已被刪除
died1 2009-9-3 05:39:37
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

m4a1g663 該用戶已被刪除
m4a1g663 2009-9-12 21:36:40
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

gg2255 當前離線
UID
1085659
熱心
4 值
嘉獎
0 次
違規
0 次
在線時間
144 小時
經驗
1 點
積分
263
精華
0
最後登錄
2015-1-1
閱讀權限
25
註冊時間
2014-10-31
論壇幣
19 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
gg2255 2009-10-2 15:26:02
卡卡造船

直接在下面的所有文字複製貼到按鍵精靈



[Script]
-------腳本開始--------
//以下為定義變數
//以UserVar開始的是自定義變數根據自己需要修改帳號和密碼一定要帶引號""
//不啟用斷線重連的話不用設置帳號密碼
//視窗大小預設為800*600
//F1自定義欄, F1採集或搜索, F2料理, F3~F8災難處理, F11使用技能(用於糾錯)
UserVar MM="你的密碼" 密碼
UserVar HH="你的帳號" 帳號
UserVar ScrW=800 視窗寬度,須大於等於800
UserVar ScrlH=600 視窗高度,須大於等於600
UserVar liaoli=50 料理恢復度
UserVar Cl=400 料理存量
UserVar Exps=57 造一艘船的經驗值
UserVar Expn=0 造船目前等級經驗值
UserVar Expt=19600 該等級總共需多少經驗值昇等
//每五分鐘能採集40次看船艙和採集等級定
UserVar Jtime=5 丟貨間隔時間單位(分鐘)
//數字"1"為啟用"0"為不啟用
//啟用自動切換視窗為先決條件,啟用斷線重連的話要設置帳號密碼
UserVar Pd0=0 是否啟用自動切換視窗
UserVar Pd1=1 是否啟用檢測斷線並重連
UserVar Pd2=1 是否啟用丟棄貨物
UserVar Pd3=1 是否啟用售交易所學徒貨物
UserVar Pd4=1 是否啟用重複上次喊話
//自定義檔 F1~F8
UserVar Ft1=1 是否啟用F1 釣魚 or 採集
UserVar Ft2=1 是否啟用F2 料理
UserVar Ft3=1 是否啟用F3 消災技能
UserVar Ft4=1 是否啟用F4 消災技能
UserVar Ft5=1 是否啟用F5 消災技能
UserVar Ft6=1 是否啟用F6 消災技能
UserVar Ft7=1 是否啟用F7 消災技能
UserVar Ft8=1 是否啟用F8 消災技能
VBS set TiShiObj = createobject("WScript.Shell")
Plugin hwn=Window.GetKeyFocusWnd()
//設置結束
//以下為主程式
Delay 500
Gosub 掛造船
Rem 結束
EndScript
Sub 掛造船
lun=((Expt-Expn)\Exps)+1
For lun
Gosub 補給出港
Gosub 重複上一次喊話
If Pd0=1
Gosub 返回窗口
EndIf
Gosub 海上技能使用
If Pd0=1
Gosub 啟動窗口
EndIf
Gosub 轉向找城
Gosub 碼頭進城
Gosub 重複上一次喊話
Gosub 找老板
Gosub 賣第3船
Gosub 造船
If Pd3=1
Gosub 交易所學徒
Else
Gosub 直接找官員
EndIf
EndFor
Rem 結束
Return 掛造船
//以下為副程式
Sub 補給出港
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
//2按鈕-補給鍵
MoveTo 692 391
Delay 1500
LeftClick 1
Delay 2000
//補充到設定數量
MoveTo 189 381
Delay 1500
LeftClick 1
Delay 500
//確定補充
MoveTo 606 423
Delay 1500
LeftClick 1
Delay 1000
//預防無需補充
Plugin Window.SendKeyPress(hwn,27)
Delay 500
//出港鍵
MoveTo 652 385
Delay 1500
LeftClick 1
Delay 1500
//確定出港
MoveTo 645 417
Delay 1000
LeftClick 1
Delay 8000
Return 補給出港
//F1自定義欄, F1採集或搜索, F2料理, F3~F8災難處理, F11使用技能(用於糾錯)
Sub 海上技能使用
Rem 技能漂流開始
//判斷天數是否為 "20”
VBSCall FindPic(18,44,41,65,"20days.bmp",0.7,x,y)
If x>=0 and y>=0
Goto 海上技能使用結束
Else
Rem 使用技能
If Ft1=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 技能1
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,112)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
If Ft3=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 技能3
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,114)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
If Ft4=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 技能4
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,115)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
If Ft5=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 技能5
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,116)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
If Ft6=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 技能6
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,117)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
If Ft7=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 技能7
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,118)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
If Ft8=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 技能8
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,119)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
If Ft2=1
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
// 料理 F2
//判斷是否需要補充體力
IfColor 133 146 f77cf7 0
Goto 技能漂流開始
Else
Plugin Window.SendKeyPress(hwn,112)
Delay 1500
Plugin Window.SendKeyPress(hwn,113)
Delay 500
//除錯用,關閉自定義欄
Plugin Window.SendKeyPress(hwn,122)
Delay 1500
Plugin Window.SendKeyPress(hwn,122)
Delay 500
EndIf
EndIf
Goto 技能漂流開始
EndIf
Rem 海上技能使用結束
Return 海上技能使用
Sub 轉向找城
Rem 開始查找
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
//轉向城市
KeyDown 17 1
Delay 1000
KeyDown 39 1
Delay 3000
KeyUp 39 1
Delay 141
KeyUp 17 1
Delay 1000
//判斷、進入城市
For 200
//tab查找城
KeyPress 9 1
//從角色視窗判斷選中目標是否為城市“卡利卡特”
VBSCall FindPic(630,355,790,375,"kakacity.bmp",0.9,x,y)
If x>=0 and y>=0
//找到, 進入城市
KeyPress 13 1
Delay 500
KeyPress 13 1
Delay 8000
EndIf
EndIf
EndFor
//判斷是否進到碼頭
IfColor 100 46 ffffff 0
IfColor 74 49 ffffff 0
IfColor 58 48 ffffff 0
IfColor 43 45 ffffff 0
IfColor 32 52 ffffff 0
IfColor 19 51 ffffff 0
Goto 結束找城
EndIf
EndIf
EndIf
EndIf
EndIf
//沒找到
Goto 開始查找
EndIf
//沒找到
Goto 開始查找
Rem 結束找城
Return 轉向找城
Sub 碼頭進城
MoveTo 651 412
Delay 1500
LeftClick 1
Delay 8000
Return 碼頭進城
Sub 找老板
//角度歸零
KeyDown 17 1
Delay 500
KeyDown 40 1
Delay 3000
KeyUp 40 1
Delay 500
KeyUp 17 1
Delay 500
//定位
KeyPress 38 20
//轉向
KeyDown 17 1
Delay 500
KeyPress 39 28
Delay 500
KeyUp 17 1
Delay 500
//走位至船廠
KeyDown 38 1
Delay 500
KeyPress 16 1
KeyPress 16 1
Delay 12000
KeyDown 37 1
Delay 500
KeyUp 37 1
Delay 250
KeyUp 38 1
Delay 250
//查找船廠老板
For 100
//tab查找
KeyPress 9 1
//判斷選中目標是否為造船廠老板
VBSCall FindPic(630,355,790,375,"shipboss.bmp",0.9,x,y)
If x>=0 and y>=0
//選中老板拿船, 避免位置過遠, 接近或取船
KeyPress 13 1
Delay 1500
//除錯用取船
KeyPress 13 1
Delay 3000
Goto 找老板結束
EndIf
EndFor
Rem 找老板結束
Return 找老板
Sub 賣第3船
//和老板交談
MoveTo 652 385
Delay 1500
LeftClick 1
Delay 1500
//選擇出售船只
MoveTo 731 391
Delay 1000
LeftClick 1
Delay 3000
//選擇第3艘船出售
MoveTo 149 271
Delay 1500
LeftDoubleClick 1
Delay 1000
//確定出售
MoveTo 374 283
Delay 1000
LeftClick 1
Delay 2500
Return 賣第3船
Sub 造船
//1按鈕-選擇新建船只
MoveTo 652 385
Delay 1000
LeftClick 1
Delay 2500
//下拉可造船只列表
MoveTo 349 389
Delay 1500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
LeftClick 1
Delay 500
//選擇倒數第3艘可造船(冒大飛)
MoveTo 116 264
Delay 1000
LeftDoubleClick 1
Delay 500
//船隻無法操作時確定鈕
MoveTo 375 269
Delay 1000
LeftClick 1
Delay 1500
// 選擇材料 下一步
MoveTo 616 437
Delay 1000
LeftClick 1
Delay 1500
// 變更船艙容量 下一步
MoveTo 616 437
Delay 1000
LeftClick 1
Delay 1500
//輸入新建船只名稱“Z”
KeyPress 90 1
Delay 1000
//確定建造
MoveTo 616 437
Delay 1000
LeftClick 1
Delay 3000
Return 造船
Sub 交易所學徒
//移動至交易所學徒
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
KeyDown 40 1
Delay 1600
KeyDown 39 1
Delay 600
KeyUp 39 1
Delay 250
KeyPress 16 1
KeyPress 16 1
Delay 13000
KeyUp 40 1
Delay 1000
For 100
//tab查找
KeyPress 9 1
//判斷選中目標是否為交易所學徒
VBSCall FindPic(630,355,790,375,"trades.bmp",0.9,x,y)
If x>=0 and y>=0
KeyPress 13 1
Delay 1500
KeyPress 13 1
Delay 1500
// 2按鈕賣出鍵
MoveTo 692 391
Delay 500
LeftClick 1
Delay 1700
//全賣
MoveTo 328 102
Delay 1000
LeftClick 1
Delay 500
//確認
MoveTo 633 443
Delay 700
LeftClick 1
Delay 500
Gosub 間接找官員
Goto 跳出找交易所學徒
EndIf
EndFor
Rem 跳出找交易所學徒
Return 交易所學徒
Sub 間接找官員
Rem 開始找官員
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
//轉向
KeyDown 17 1
Delay 500
KeyPress 39 20
Delay 1000
KeyUp 17 1
Delay 1000
走位
KeyDown 38 1
Delay 1500
KeyUp 38 1
Delay 1000
For 100
KeyPress 9 1
IfColor 689 371 ffffff 2
IfColor 671 371 ffffff 2
IfColor 650 363 ffffff 2
IfColor 640 362 ffffff 2
IfColor 690 371 ffffff 1
IfColor 673 370 ffffff 1
KeyPress 13 1
Delay 1500
KeyPress 13 1
Delay 1500
Goto 跳出找官員
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFor
Rem 跳出找官員
MoveTo 652 385
Delay 1500
LeftClick 1
Delay 8000
//判斷是否進到碼頭
IfColor 100 46 ffffff 0
IfColor 74 49 ffffff 0
IfColor 58 48 ffffff 0
IfColor 43 45 ffffff 0
IfColor 32 52 ffffff 0
IfColor 19 51 ffffff 0
Goto 結束找官員
EndIf
EndIf
EndIf
EndIf
EndIf
//沒找到
Goto 開始找官員
EndIf
//沒找到
Goto 開始找官員
Rem 結束找官員
Return 間接找官員
Sub 直接找官員
//移動至碼頭
//清除異常窗口
Plugin Window.SendKeyPress(hwn,27)
Delay 50
KeyDown 40 1
Delay 1500
KeyDown 39 1
Delay 600
KeyUp 39 1
Delay 250
KeyPress 16 1
KeyPress 16 1
Delay 13500
KeyUp 40 1
Delay 1000
For 100
//tab查找
KeyPress 9 1
//判斷選中目標是否為碼頭官員
VBSCall FindPic(0,0,800,600,"dockoffical.bmp",0.9,x,y)
If x>=0 and y>=0
KeyPress 13 1
Delay 1500
KeyPress 13 1
Delay 1500
Goto 跳出找官員2
EndIf
EndFor
Rem 跳出找官員2
MoveTo 652 385
Delay 1500
LeftClick 1
Delay 8000
Return 直接找官員
Sub 重複上一次喊話
If Pd4=1
KeyPress 32 1
KeyPress 38 1
KeyPress 13 1
Return 自動切換視窗與喊話
//啟動視窗和返回視窗是對應應用的
Sub 啟動窗口
Plugin yuan=Window.Foreground()
Tishi="請稍等一會,不要動滑鼠鍵盤"
Gosub 提示Tishi
Plugin Window.Active(hwn)
Delay 700
Plugin Window.Restore(hwn)
Delay 700
Return 啟動窗口
Sub 返回窗口
Tishi="可以繼續了"
Gosub 提示Tishi
Plugin Window.Min(hwn)
Delay 700
Plugin Window.Active(yuan)
Delay 700
Plugin Window.Restore(yuan)
Delay 700
Return 返回窗口
//提示窗口參數 Tishi
Sub 提示Tishi
VBSCall TiShiObj.Popup(Tishi,3,"3秒後視窗自動關閉",0)
Return 提示Tshi
-------腳本結束-------
回覆

使用道具 舉報

gg2255 當前離線
UID
1085659
熱心
4 值
嘉獎
0 次
違規
0 次
在線時間
144 小時
經驗
1 點
積分
263
精華
0
最後登錄
2015-1-1
閱讀權限
25
註冊時間
2014-10-31
論壇幣
19 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
gg2255 2009-10-2 15:27:18
自動航行



[General]
Description=自動航行
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=大航海時代Online
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
// ============================================
//是否自動航行
VBS auto_travel=1
//目前位置顯示
VBS write_locate=1
//操帆 訓練開關 自動下錨
VBS auto_close_f=0
//吃料理的最低百分比
VBS eat_pe=50
//疲勞吃料理的最低百分比
VBS weak_pe=80
//自動統帥
VBS auto_kill=1
//吃料理1的技能格位置
VBS eat_1=2
//吃料理2的技能格位置
VBS eat_2=3
//吃料理3的技能格位置
VBS eat_3=4
//自動施放技能個數
VBS auto_n=13
VBS Dim auto_sk(12)
VBS Dim ax(12)
VBS Dim ay(12)
VBS auto_sk(0)="調度.bmp"
VBS auto_sk(1)="操帆.bmp"
VBS auto_sk(2)="測量.bmp"
VBS auto_sk(3)="警戒.bmp"
VBS auto_sk(4)="運用.bmp"
VBS auto_sk(5)="划船.bmp"
VBS auto_sk(6)="釣魚.bmp"
VBS auto_sk(7)="望風.bmp"
VBS auto_sk(8)="採集.bmp"
VBS auto_sk(9)="生存.bmp"
VBS auto_sk(10)="救助.bmp"
VBS auto_sk(11)="統帥.bmp"
VBS auto_sk(12)="急加速.bmp"
//技能是否使用
VBS Dim auto_b(12)
VBS auto_b(0)=0
VBS auto_b(1)=1
VBS auto_b(2)=1
VBS auto_b(3)=1
VBS auto_b(4)=1
VBS auto_b(5)=0
VBS auto_b(6)=0
VBS auto_b(7)=0
VBS auto_b(8)=0
VBS auto_b(9)=0
VBS auto_b(10)=0
VBS auto_b(11)=0
VBS auto_b(12)=0
VBS scrW=800
VBS scrH=600
//----------------------------------以下請勿修改----------------------------------------------
//自動航行判斷的等待時間差
VBS check_time=1000
//是否自動開帆
VBS auto_op=1
//判斷是否暴風
VBS auto_trav=1
//航行方向向前
VBS right_click=1
//當前選擇的自動航行腳本
VBS map_name="當前路徑"
//技能只使用一次
VBS Dim auto_b1(12)
VBS auto_b1(0)=0
VBS auto_b1(1)=0
VBS auto_b1(2)=0
VBS auto_b1(3)=0
VBS auto_b1(4)=0
VBS auto_b1(5)=0
VBS auto_b1(6)=0
VBS auto_b1(7)=0
VBS auto_b1(8)=0
VBS auto_b1(9)=0
VBS auto_b1(10)=1
VBS auto_b1(11)=1
VBS auto_b1(12)=0
//螢幕位置偏差值
VBS nx=0
VBS ny=0
//當前行動力
VBS pow_now=0
//當前疲勞度
VBS weak_now=0
//座標資訊
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
//是否抓到 當前螢幕方向
VBS check_po2=1
//是否抓到當前航海座標
VBS check_po=0
//到達航海目標點 偏差值 小於偏差值表示到達
VBS chang_dis=5
//轉向時容許轉向角度偏差
VBS change_ang=2
//螢幕方向
VBS ang=0
//目標點方向
VBS ang_loc=0
//指南針描點
VBS Dim d_x(279)
VBS Dim d_y(279)
VBS Dim d_x1(15)
VBS Dim d_y1(15)
VBS pi=3.141592653589793
//讀取的航行腳本儲存位置
VBS dim map_li(50,1)
//航行腳本的路徑數量
VBS map_li_n=0
//當前航行腳本所在位置
VBS n_loc=0
//第一次執行判斷所在腳本位置
VBS check_loc=0
Gosub 讀取路徑
Gosub check_w
Gosub set_data
//解除異常
VBS dim si_cu(20,2)
VBS si_cu_n=6
VBS si_cu(0,0)="甲板髒了.bmp"
VBS si_cu(1,0)="強襲.bmp"
VBS si_cu(2,0)="發生火災.bmp"
VBS si_cu(3,0)="老鼠.bmp"
VBS si_cu(4,0)="拒絕停戰.bmp"
VBS si_cu(5,0)="壞血病.bmp"
VBS si_cu(6,0)="發生叛亂.bmp"
VBS si_cu(7,0)="發生叛亂2.bmp"
VBS si_cu(0,1)="甲板刷.bmp"
VBS si_cu(1,1)="停戰協議書.bmp"
VBS si_cu(2,1)="滅火沙.bmp"
VBS si_cu(3,1)="滅鼠藥.bmp"
VBS si_cu(4,1)="停戰協議書.bmp"
VBS si_cu(5,1)="萊姆果汁.bmp"
VBS si_cu(0,2)=94
VBS si_cu(1,2)=300
VBS si_cu(2,2)=63
VBS si_cu(3,2)=300
VBS si_cu(4,2)=300
VBS si_cu(5,2)=78
VBS si_cu(6,2)=144
VBS si_cu(7,2)=144
//技能格區域初始值
VBS skill_po_x=0
//航行小螢幕中心點位置
VBS Center_x=713-800+scrW+nx
VBS Center_y=561-600+scrH+ny
//當前航海座標
VBS po_x=0
VBS po_y=0
//航海點紀錄
VBS po_x1=0
VBS po_y1=0
//技能格資訊
VBS skill_x=689-800+scrW+nx
VBS skill_y=79+ny
VBS skill_x1=58
VBS skill_y1=54
//行動力 確認
VBS pow_x=50+nx
VBS pow_y=146+ny
VBS pow_x1=149+nx
VBS pow_xc=pow_x1-pow_x
VBS weak_x=50+nx
VBS weak_y=132+ny
VBS weak_x1=149+nx
VBS weak_xc=weak_x1-weak_x
//確認方向方式
VBS check_dirt=1
//超過距離後以座標確認方向
VBS check_dir_d=35
//座標確認方向點紀錄
VBS pox=-1
VBS poy=-1
//方向列表數
VBS ang_n=20
//方向表
VBS dim ang_list(20)
//現有方向個數
VBS ang_now=0
VBS time_st=now
//航行時匯報資料
VBS say_speed=0
//紀錄航點座標
VBS po_x2=0
VBS po_y2=0
VBS time_s=now
//-----------------------------------------------------------------------------------
Gosub 初始技能格位置
Rem 開始
Gosub 自動下錨
Gosub 揚帆暴風確認
IfColor 788-800+scrW+nx 104+ny ffffff 1
    Gosub ctrlQ
    Delay 10
Else
    Gosub 船員數確認
    Gosub 解除異常
    Gosub 行動力確認
    Gosub 自動施放技能
    If check_loc=1
        Gosub 確認下目標距離
    EndIf
    Gosub 調整船向
    Gosub 確認座標
    If check_po=1
        If check_dirt=1
            Gosub 確認方向
        Else
            Gosub 座標確認方向
        EndIf
    EndIf
    If check_po=1 and check_po2=1
        If check_loc=0
            Gosub 確認現在位置
            VBS check_loc=1
        EndIf
        VBS pox=po_x
        VBS poy=po_y
        VBS ang_now=0
        Gosub 確認目的方向
        Gosub 改變船向
        Delay check_time/2
    EndIf
EndIf
Delay 100
Goto 開始
//---------------------------------function------------------------------------------
Sub 調整船向
    //確認航行方向
    If auto_travel>0 and right_click>0
        LockMouse
        KeyPress 27 1
        Delay 100
        RightClick 1
        Delay 1000
        MoveTo 600-800+scrW+nx 300+ny
        UnlockMouse
    EndIf
Return
Sub 座標確認方向
    Gosub 計算方向
    VBS ang_list(ang_now)=angl
    VBS ang_now=ang_now+1
    If ang_now>3
        VBS a1=abs(ang_list(ang_now-1)-ang_list(ang_now-2))
        VBS a2=abs(ang_list(ang_now-1)-ang_list(ang_now-3))
        VBS a3=abs(ang_list(ang_now-1)-ang_list(ang_now-4))
        If a1<=1 and a2<=1 and a3<=1
            VBS pox=po_x
            VBS poy=po_y
            VBS check_po2=1
            VBS ang=ang_list(ang_now-1)
            VBS ang_now=0
        Else
            VBS check_po2=0
        EndIf
    Else
        VBS check_po2=0
    EndIf
    If a1>60
        Gosub 確認方向
    Else
        Delay check_time
    EndIf
Return
Sub 計算方向
    If abs(po_x-pox)>16384/2
        If po_x<16384/2
            VBS n_x=po_x+16384-pox
        ElseIf pox<16384/2
            VBS n_x=po_x-pox-16384
        EndIf
    Else
        VBS n_x=po_x-pox
    EndIf
    VBS n_y=poy-po_y
    VBS angl=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 angl=180-angl
    ElseIf n_x<0 and n_y<0
        VBS angl=180+angl
    ElseIf n_x<0 and n_y>0
        VBS angl=360-angl
    ElseIf n_x=0 and n_y>0
        VBS angl=0
    ElseIf n_x=0 and n_y<0
        VBS angl=180
    ElseIf n_x<0 and n_y=0
        VBS angl=270
    ElseIf n_x>0 and n_y=0
        VBS angl=90
    EndIf
    VBS angl=360-angl
Return
Sub 確認下目標距離
    If map_li(n_loc,0)>0 and map_li(n_loc,1)>0
        //與下個目的點距離
        VBS checklm=Abs(po_x-map_li(n_loc,0))
        If checklm>8192
            checklm=Abs(16384-checklm)
        EndIf
        VBS lm=sqr(checklm^2+(po_y-map_li(n_loc,1))^2)
        //與上個目的點距離
        VBS lm2=-1
        If n_loc-1 >=0
            VBS checklm=Abs(po_x-map_li(n_loc-1,0))
            If checklm>8192
                checklm=Abs(16384-checklm)
            EndIf
            VBS lm2=sqr(checklm^2+(po_y-map_li(n_loc-1,1))^2)
        EndIf
        //如與上下目標點距離過遠 以不同方式判斷方向
        If lm<check_dir_d or lm2<check_dir_d
            VBS check_dirt=1
        Else
            VBS check_dirt=2
        EndIf
        VBS tii=DateDiff("s",time_st,now)
        If tii<10
            VBS check_dirt=1
        EndIf
    EndIf
Return
Sub 初始技能格位置
    Rem s1
    IfColor 788-800+scrW+nx 104+ny ffffff 0
        Gosub ctrlQ
    EndIf
    VBS b=0
    Rem dd1
    VBS i=0
    For 6
        IfColor 680-800+scrW-(i*32)+nx 136+ny ffffff 0
            VBS skill_po_x=680-800+scrW-(i*32)+nx
        EndIf
        VBS i=i+1
    EndFor
    If skill_po_x>0
        Gosub ctrlQ
    Else
        If b>=10
            Goto s1
        EndIf
        Delay 200
        VBS b=b+1
        Goto dd1
    EndIf
Return
Sub 自動下錨
    If auto_close_f>=1
        VBSCall FindPic(776-800+scrW+nx,602-600+scrH+ny,796-800+scrW+nx,623-600+scrH+ny,"下錨.bmp",0.9,x,y)
        If x>0
            LockMouse
            SaveMousePos
            MoveTo x y
            Delay 50
            LeftClick 1
            RestoreMousePos
            UnlockMouse
            Delay 1500
        EndIf
    EndIf
Return
Sub 揚帆暴風確認
    If auto_op>=1
        //判斷暴風自動下錨
        VBSCall FindPic(757-800+scrW+nx,606-600+scrH+ny,773-800+scrW+nx,623-600+scrH+ny,"暴風.bmp",0.9,x,y)
        If x>0
            //自動航行暫時取消
            VBS auto_trav=0
            VBSCall FindPic(776-800+scrW+nx,602-600+scrH+ny,796-800+scrW+nx,623-600+scrH+ny,"下錨.bmp",0.9,x,y)
            If x>0
                LockMouse
                SaveMousePos
                MoveTo x y
                Delay 50
                LeftClick 1
                RestoreMousePos
                UnlockMouse
                Delay 500
            EndIf
        Else
            VBS auto_trav=1
            Gosub check_black
            VBSCall FindPic(775-800+scrW+nx,527-600+scrH+ny,798-800+scrW+nx,540-600+scrH+ny,"已揚帆.bmp",0.9,x,y)
            If x<0
                LockMouse
                SaveMousePos
                MoveTo 785-800+scrW+nx 553-600+scrH+ny
                Delay 50
                LeftClick 1
                RestoreMousePos
                UnlockMouse
                Delay 500
            EndIf
        EndIf
    EndIf
Return
Sub check_black
    //背景顏色不為黑色(換海域)
    Rem black1
    IfColor 768-800+scrW+nx 44+ny 0 0
        Delay 100
        Goto black1
    EndIf
Return
Sub 船員數確認
    IfColor 50+nx 127+ny 554c4a 0
        VBS auto_b(10)=1
    EndIf
    If auto_kill>0
        VBS i=6
        For 2
            VBSCall FindPic(16+nx,579-600+scrH+ny,18+si_cu(i,2)+nx,594-600+scrH+ny,si_cu(i,0),0.6,x,y)
            VBSCall FindPic(16+nx,559-600+scrH+ny,18+si_cu(i,2)+nx,574-600+scrH+ny,si_cu(i,0),0.6,x1,y)
            VBSCall FindPic(16+nx,539-600+scrH+ny,18+si_cu(i,2)+nx,554-600+scrH+ny,si_cu(i,0),0.6,x2,y)
            If x>0 or x1>0 or x2>0
                VBS auto_b(11)=1
            EndIf
            VBS i=i+1
        EndFor
    EndIf
Return
Sub 改變船向
    If auto_travel=1 and  auto_trav=1 and check_po=1 and check_po2=1
        VBS r=150:r2=67:x0=405-400+scrW/2:y0=343-300+scrH/2:x=0:y=0
        VBS ta1=ang_loc-360+ang
        If abs(ta1)>change_ang
            VBS ta=(ta1)*pi/180
            VBS x=x0+r*sin(ta)+nx
            VBS y=y0-r2*cos(ta)+ny
            LockMouse
            SaveMousePos
            MoveTo x y
            Delay 50
            LeftClick 2
            UnlockMouse
        EndIf
    EndIf
Return
Sub 確認目的方向
    //與下個目的點距離
    VBS checklm=Abs(po_x-map_li(n_loc,0))
    If checklm>8192
        checklm=Abs(16384-checklm)
    EndIf
    VBS lm=sqr(checklm^2+(po_y-map_li(n_loc,1))^2)
    If lm<=chang_dis
        //還未到目的地 換下一目標點
        If n_loc<map_li_n-1
            VBS n_loc=n_loc+1
        Else
            //到達目的地 準備下錨進港
            VBS auto_trav=0
            VBSCall FindPic(776-800+scrW+nx,602-600+scrH+ny,796-800+scrW+nx,623-600+scrH+ny,"下錨.bmp",0.9,x,y)
            If x>0
                Rem auto_in1
                LockMouse
                SaveMousePos
                MoveTo x y
                Delay 50
                LeftClick 1
                Delay 3000
                MoveTo 405-800+scrW+nx 188+ny
                Delay 50
                LeftClick 2
                VBS b=0
                Rem auto_in
                IfColor 649-800+scrW+nx,414-600+scrH+ny,d1b6b3,0
                    MoveTo 649-800+scrW+nx 414-600+scrH+ny
                    Delay 50
                    LeftClick 1
                    Goto end100
                Else
                    VBS b=b+1
                    If b>200
                        Goto auto_in1
                    EndIf
                    Delay 10
                    Goto auto_in
                EndIf
                RestoreMousePos
                UnlockMouse
            EndIf
            VBS auto_op=0
        EndIf
    EndIf
    //如果航行點為 -1 -1則回圈執行航行點
    If map_li(n_loc,0)=-1 and map_li(n_loc,1)=-1
        VBS n_loc=0
    EndIf
    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 i=0
    For si_cu_n
        VBSCall FindPic(16+nx,579-600+scrH+ny,18+si_cu(i,2)+nx,594-600+scrH+ny,si_cu(i,0),0.6,x,y)
        VBSCall FindPic(16+nx,559-600+scrH+ny,18+si_cu(i,2)+nx,574-600+scrH+ny,si_cu(i,0),0.6,x1,y)
        VBSCall FindPic(16+nx,539-600+scrH+ny,18+si_cu(i,2)+nx,554-600+scrH+ny,si_cu(i,0),0.6,x2,y)
        If x>0 or x1>0 or x2>0
            IfColor 792-800+scrW+nx,173+ny,8ab5ba,0
                Gosub ctrlW
                VBS b=0
                Rem su1
                IfColor 315-400+scrW/2+nx,131-300+scrH/2+ny,b3b3b3,0
                    VBSCall FindPic(255-400+scrW/2+nx,126-300+scrH/2+ny,533-400+scrW/2+nx,405-300+scrH/2+ny,si_cu(i,1),0.9,x,y)
                    LockMouse
                    SaveMousePos
                    If x>0
                        MoveTo x y
                        Delay 100
                        LeftDoubleClick 1
                        Delay 1000
                    Else
                        MoveTo 547-400+scrW/2+nx 390-300+scrH/2+ny
                        Delay 100
                        LeftClick 1
                        Delay 100
                        VBSCall FindPic(255-400+scrW/2+nx,126-300+scrH/2+ny,533-400+scrW/2+nx,405-300+scrH/2+ny,si_cu(i,1),0.9,x,y)
                        If x>0
                            MoveTo x y
                            Delay 100
                            LeftDoubleClick 1
                            Delay 1000
                        Else
                            RightClick 1
                        EndIf
                    EndIf
                    RestoreMousePos
                    UnlockMouse
                Else
                    VBS b=b+1
                    If b>300
                        Goto su2
                    EndIf
                    Delay 10
                    Goto su1
                EndIf
                Rem su2
            EndIf
        EndIf
        VBS i=i+1
    EndFor
Return
Sub 確認現在位置
    VBS le=-1
    VBS i=0
    //找尋與現在座標最近路徑點
    For map_li_n
        VBS checklm=Abs(po_x-map_li(i,0))
        If checklm>16384/2
            checklm=Abs(16384-checklm)
        EndIf
        VBS lm=checklm+Abs(po_y-map_li(i,1))
        If le>lm or le=-1
            VBS le=lm
            VBS n_loc=i
        EndIf
        VBS i=i+1
    EndFor
    //判斷是否再下一個路徑點的路徑上 為真 則變換目標路徑點
    If n_loc<map_li_n-1 and map_li(n_loc,0)>0 and map_li(n_loc+1,0)>0
        VBS checklm=Abs(po_x-map_li(n_loc,0))
        If checklm>8192
            checklm=Abs(16384-checklm)
        EndIf
        VBS lm=checklm+Abs(po_y-map_li(n_loc,1))
        VBS checklm=Abs(po_x-map_li(n_loc+1,0))
        If checklm>8192
            checklm=Abs(16384-checklm)
        EndIf
        VBS lm2=checklm+Abs(po_y-map_li(n_loc+1,1))
        VBS checklm=Abs(map_li(n_loc,0)-map_li(n_loc+1,0))
        If checklm>8192
            checklm=Abs(16384-checklm)
        EndIf
        VBS lm3=checklm+Abs(map_li(n_loc,1)-map_li(n_loc+1,1))
        If lm+lm2<lm3*1.1
            VBS n_loc=n_loc+1
        EndIf
    EndIf
Return
Sub 自動施放技能
    VBS b=0
    VBS tt=0
    Rem d2
    IfColor 788-800+scrW+nx 104+ny ffffff 0
        Gosub ctrlQ
        VBS b=0
        Rem d1
        IfColor skill_po_x 140+ny b4b4b4 0
            VBS i=0
            For auto_n
                If auto_b(i)>=1
                    VBSCall FindPic(skill_po_x+21,78+ny,800-800+scrW+nx,229+ny,auto_sk(i),0.9,ax(i),ay(i))
                Else
                    VBS ax(i)=-1
                    VBS ay(i)=-1
                EndIf
                VBS i=i+1
            EndFor
            VBS i=0
            For auto_n
                If ax(i)>0
                    VBS tt=tt+1
                    LockMouse
                    SaveMousePos
                    MoveTo ax(i) ay(i)
                    Delay 50
                    LeftClick 1
                    RestoreMousePos
                    UnlockMouse
                    If auto_b1(i)>=1
                        VBS auto_b(i)=0
                    EndIf
                    Goto d2
                EndIf
                VBS i=i+1
            EndFor
            Gosub ctrlQ
        Else
            If b>=200
                Goto 開始
            EndIf
            Delay 10
            VBS b=b+1
            Goto d1
        EndIf
    Else
        If b>=200
            Goto 開始
        EndIf
        Delay 10
        VBS b=b+1
        Goto d2
    EndIf
Return
Sub 讀取路徑
    VBS dim fso,file,filename,text
    VBS filename=map_name
    VBS Const ForReading=1
    VBS Set fso=CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(filename)=-1
        VBS Set file=fso.OpenTextFile(filename,ForReading)
        VBS i=0
        While file.AtEndOfLine<>-1
            VBS text=file.ReadLine
            VBS s=InStr(text," ")
            VBS map_li(i,0)=Int(Left(text,s-1))
            VBS map_li(i,1)=Int(Right(text,len(text)-s))
            VBS i=i+1
        EndWhile
        VBS file.Close
        VBS map_li_n=i
    EndIf
Return
Sub 行動力確認
    VBSCall FindColorEx(pow_x,pow_y,pow_x1,pow_y,"353535",0,0.9,x,y)
    If x>0
        VBS pow_now=int((x-pow_x)*100/pow_xc)
    Else
        VBSCall FindColorEx(pow_x,pow_y,pow_x1,pow_y,"f77cf7",0,0.9,x,y)
        If x>0
            VBS pow_now=100
        EndIf
    EndIf
    VBSCall FindColorEx(weak_x,weak_y,weak_x1,weak_y,"474747",0,0.9,x,y)
    If x>0
        VBS weak_now=int((x-weak_x)*100/weak_xc)
    Else
        VBSCall FindColorEx(weak_x,weak_y,weak_x1,weak_y,"0068cf",0,0.9,x,y)
        If x>0
            VBS weak_now=100
        EndIf
    EndIf
    If pow_now<eat_pe or weak_now>=weak_pe
        KeyPress 112 1
        Rem d6
        IfColor 662-800+scrW+nx 136+ny ffffff 0
            VBS x=int((eat_1-1)/4)*skill_x1+skill_x
            VBS y=((eat_1-1) mod 4)*skill_y1+skill_y
            IfColor x y b3b3b3 0
                KeyPress (eat_1+111) 1
            Else
                VBS x=int((eat_2-1)/4)*skill_x1+skill_x
                VBS y=((eat_2-1) mod 4)*skill_y1+skill_y
                IfColor x y b3b3b3 0
                    KeyPress (eat_2+111) 1
                Else
                    VBS x=int((eat_3-1)/4)*skill_x1+skill_x
                    VBS y=((eat_3-1) mod 4)*skill_y1+skill_y
                    IfColor x y b3b3b3 0
                        KeyPress (eat_3+111) 1
                    EndIf
                EndIf
            EndIf
        Else
            Delay 10
            Goto d6
        EndIf
    EndIf
Return
Sub 確認方向
    Rem recheck_po2
    //總點數
    VBS cir_point=280
    If check_po2=0
        //單次確認比例 1/1
        VBS cir_plus=1
    Else
        VBS cir_plus=3
    EndIf
    VBS cir_p=int(cir_point/cir_plus)
    VBS i=0
    VBS c_i=0
    For cir_p
        V●禁私人部落格●etPixelColor(d_x(i)+nx,d_y(i)+ny)
        VBS r=Cint("&H" & Right(color,2))
        VBS g=Cint("&H" & Mid(color,3,2))
        VBS b=Cint("&H" & Left(color,2))
        //If StrComp(Right(color,2),Mid(color,3,2))=0 and StrComp(Mid(color,3,2),Left(color,2))>0
        If r=g and g<>b
            VBS d_x1(c_i)=d_x(i)+nx
            VBS d_y1(c_i)=d_y(i)+ny
            VBS c_i=c_i+1
        EndIf
        VBS i=i+cir_plus
    EndFor
    VBS check_po2=0
    If c_i>=1
        VBS check_po2=1
        VBS n_x=d_x1(int(c_i/2))-Center_x
        VBS n_y=Center_y-d_y1(int(c_i/2))
        VBS ang=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=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
    EndIf
    If check_po2=0
        Goto recheck_po2
    EndIf
Return
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
    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
        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
    Gosub say_speed_bak
    If write_locate=1 and check_po=1
        VBS Dim filehandle
        Plugin filehandle=File.OpenFile("c:\GVO_Locate.txt")
        Plugin File.WriteLine(filehandle,po_x)
        Plugin File.WriteLine(filehandle,po_y)
        Plugin File.WriteLine(filehandle,n_loc)
        Plugin File.CloseFile(filehandle)
    EndIf
Return
Sub ctrlQ
    Gosub check_black
    Delay 10
    KeyDown 17 1
    KeyDown 81 1
    Delay 10
    KeyUp 81 1
    KeyUp 17 1
    Delay 10
Return
Sub ctrlW
    Gosub check_black
    Delay 10
    KeyDown 17 1
    KeyDown 87 1
    Delay 10
    KeyUp 87 1
    KeyUp 17 1
    Delay 10
Return
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
Return
Sub say_speed_bak
    If say_speed=1
        VBS ti=DateDiff("s",time_s,now)
        If ti>=30
            VBS time_s=now
            VBS speed=Sqr((po_x-po_x2)^2+(po_y-po_y2)^2)
            If n_loc<=map_li_n-1
                VBS sum=Sqr((po_x-map_li(n_loc,0))^2+(po_y-map_li(n_loc,1))^2)
            Else
                VBS sum=0
            EndIf
            VBS i=0
            While 1
                If n_loc+i<=map_li_n-2
                    VBS a1=map_li(n_loc+i,0)-map_li(n_loc+i+1,0)
                    VBS a2=map_li(n_loc+i,1)-map_li(n_loc+i+1,1)
                    VBS sum=sum+Sqr(a1^2+a2^2)
                    VBS i=i+1
                Else
                    Goto d7
                EndIf
            EndWhile
            Rem d7
            VBS da=sum/speed*ti/60
            VBSCall SayString(" /tell | "&Int(da)&"/"&Int(speed*60/ti)&"/"&Int(sum))
            KeyPress 13 1
            VBS po_x2=po_x
            VBS po_y2=po_y
        EndIf
    EndIf
Return
Sub set_data
    VBS d_x(0)=665-800+scrW
    VBS d_y(0)=553-600+scrH
    VBS d_x(1)=666-800+scrW
    VBS d_y(1)=552-600+scrH
    VBS d_x(2)=666-800+scrW
    VBS d_y(2)=551-600+scrH
    VBS d_x(3)=667-800+scrW
    VBS d_y(3)=550-600+scrH
    VBS d_x(4)=668-800+scrW
    VBS d_y(4)=549-600+scrH
    VBS d_x(5)=668-800+scrW
    VBS d_y(5)=548-600+scrH
    VBS d_x(6)=669-800+scrW
    VBS d_y(6)=547-600+scrH
    VBS d_x(7)=670-800+scrW
    VBS d_y(7)=546-600+scrH
    VBS d_x(8)=671-800+scrW
    VBS d_y(8)=545-600+scrH
    VBS d_x(9)=672-800+scrW
    VBS d_y(9)=544-600+scrH
    VBS d_x(10)=673-800+scrW
    VBS d_y(10)=543-600+scrH
    VBS d_x(11)=674-800+scrW
    VBS d_y(11)=542-600+scrH
    VBS d_x(12)=675-800+scrW
    VBS d_y(12)=541-600+scrH
    VBS d_x(13)=676-800+scrW
    VBS d_y(13)=540-600+scrH
    VBS d_x(14)=677-800+scrW
    VBS d_y(14)=539-600+scrH
    VBS d_x(15)=678-800+scrW
    VBS d_y(15)=539-600+scrH
    VBS d_x(16)=679-800+scrW
    VBS d_y(16)=538-600+scrH
    VBS d_x(17)=680-800+scrW
    VBS d_y(17)=537-600+scrH
    VBS d_x(18)=681-800+scrW
    VBS d_y(18)=536-600+scrH
    VBS d_x(19)=682-800+scrW
    VBS d_y(19)=536-600+scrH
    VBS d_x(20)=683-800+scrW
    VBS d_y(20)=535-600+scrH
    VBS d_x(21)=684-800+scrW
    VBS d_y(21)=535-600+scrH
    VBS d_x(22)=685-800+scrW
    VBS d_y(22)=534-600+scrH
    VBS d_x(23)=686-800+scrW
    VBS d_y(23)=534-600+scrH
    VBS d_x(24)=687-800+scrW
    VBS d_y(24)=533-600+scrH
    VBS d_x(25)=688-800+scrW
    VBS d_y(25)=533-600+scrH
    VBS d_x(26)=689-800+scrW
    VBS d_y(26)=532-600+scrH
    VBS d_x(27)=690-800+scrW
    VBS d_y(27)=532-600+scrH
    VBS d_x(28)=691-800+scrW
    VBS d_y(28)=531-600+scrH
    VBS d_x(29)=692-800+scrW
    VBS d_y(29)=531-600+scrH
    VBS d_x(30)=693-800+scrW
    VBS d_y(30)=530-600+scrH
    VBS d_x(31)=694-800+scrW
    VBS d_y(31)=530-600+scrH
    VBS d_x(32)=695-800+scrW
    VBS d_y(32)=530-600+scrH
    VBS d_x(33)=696-800+scrW
    VBS d_y(33)=529-600+scrH
    VBS d_x(34)=697-800+scrW
    VBS d_y(34)=529-600+scrH
    VBS d_x(35)=698-800+scrW
    VBS d_y(35)=529-600+scrH
    VBS d_x(36)=699-800+scrW
    VBS d_y(36)=528-600+scrH
    VBS d_x(37)=700-800+scrW
    VBS d_y(37)=528-600+scrH
    VBS d_x(38)=701-800+scrW
    VBS d_y(38)=528-600+scrH
    VBS d_x(39)=702-800+scrW
    VBS d_y(39)=528-600+scrH
    VBS d_x(40)=703-800+scrW
    VBS d_y(40)=527-600+scrH
    VBS d_x(41)=704-800+scrW
    VBS d_y(41)=527-600+scrH
    VBS d_x(42)=705-800+scrW
    VBS d_y(42)=527-600+scrH
    VBS d_x(43)=706-800+scrW
    VBS d_y(43)=527-600+scrH
    VBS d_x(44)=707-800+scrW
    VBS d_y(44)=527-600+scrH
    VBS d_x(45)=708-800+scrW
    VBS d_y(45)=527-600+scrH
    VBS d_x(46)=709-800+scrW
    VBS d_y(46)=527-600+scrH
    VBS d_x(47)=710-800+scrW
    VBS d_y(47)=527-600+scrH
    VBS d_x(48)=711-800+scrW
    VBS d_y(48)=527-600+scrH
    VBS d_x(49)=712-800+scrW
    VBS d_y(49)=527-600+scrH
    VBS d_x(50)=713-800+scrW
    VBS d_y(50)=527-600+scrH
    VBS d_x(51)=714-800+scrW
    VBS d_y(51)=527-600+scrH
    VBS d_x(52)=715-800+scrW
    VBS d_y(52)=527-600+scrH
    VBS d_x(53)=716-800+scrW
    VBS d_y(53)=527-600+scrH
    VBS d_x(54)=717-800+scrW
    VBS d_y(54)=527-600+scrH
    VBS d_x(55)=718-800+scrW
    VBS d_y(55)=527-600+scrH
    VBS d_x(56)=719-800+scrW
    VBS d_y(56)=527-600+scrH
    VBS d_x(57)=720-800+scrW
    VBS d_y(57)=527-600+scrH
    VBS d_x(58)=721-800+scrW
    VBS d_y(58)=528-600+scrH
    VBS d_x(59)=722-800+scrW
    VBS d_y(59)=528-600+scrH
    VBS d_x(60)=723-800+scrW
    VBS d_y(60)=528-600+scrH
    VBS d_x(61)=724-800+scrW
    VBS d_y(61)=528-600+scrH
    VBS d_x(62)=725-800+scrW
    VBS d_y(62)=528-600+scrH
    VBS d_x(63)=726-800+scrW
    VBS d_y(63)=528-600+scrH
    VBS d_x(64)=727-800+scrW
    VBS d_y(64)=529-600+scrH
    VBS d_x(65)=728-800+scrW
    VBS d_y(65)=529-600+scrH
    VBS d_x(66)=729-800+scrW
    VBS d_y(66)=529-600+scrH
    VBS d_x(67)=730-800+scrW
    VBS d_y(67)=529-600+scrH
    VBS d_x(68)=731-800+scrW
    VBS d_y(68)=530-600+scrH
    VBS d_x(69)=732-800+scrW
    VBS d_y(69)=530-600+scrH
    VBS d_x(70)=733-800+scrW
    VBS d_y(70)=530-600+scrH
    VBS d_x(71)=734-800+scrW
    VBS d_y(71)=531-600+scrH
    VBS d_x(72)=735-800+scrW
    VBS d_y(72)=531-600+scrH
    VBS d_x(73)=736-800+scrW
    VBS d_y(73)=531-600+scrH
    VBS d_x(74)=737-800+scrW
    VBS d_y(74)=532-600+scrH
    VBS d_x(75)=738-800+scrW
    VBS d_y(75)=532-600+scrH
    VBS d_x(76)=739-800+scrW
    VBS d_y(76)=533-600+scrH
    VBS d_x(77)=740-800+scrW
    VBS d_y(77)=533-600+scrH
    VBS d_x(78)=741-800+scrW
    VBS d_y(78)=534-600+scrH
    VBS d_x(79)=742-800+scrW
    VBS d_y(79)=534-600+scrH
    VBS d_x(80)=743-800+scrW
    VBS d_y(80)=535-600+scrH
    VBS d_x(81)=744-800+scrW
    VBS d_y(81)=535-600+scrH
    VBS d_x(82)=745-800+scrW
    VBS d_y(82)=536-600+scrH
    VBS d_x(83)=746-800+scrW
    VBS d_y(83)=537-600+scrH
    VBS d_x(84)=747-800+scrW
    VBS d_y(84)=538-600+scrH
    VBS d_x(85)=748-800+scrW
    VBS d_y(85)=538-600+scrH
    VBS d_x(86)=749-800+scrW
    VBS d_y(86)=539-600+scrH
    VBS d_x(87)=750-800+scrW
    VBS d_y(87)=540-600+scrH
    VBS d_x(88)=751-800+scrW
    VBS d_y(88)=541-600+scrH
    VBS d_x(89)=752-800+scrW
    VBS d_y(89)=542-600+scrH
    VBS d_x(90)=753-800+scrW
    VBS d_y(90)=543-600+scrH
    VBS d_x(91)=754-800+scrW
    VBS d_y(91)=544-600+scrH
    VBS d_x(92)=755-800+scrW
    VBS d_y(92)=545-600+scrH
    VBS d_x(93)=756-800+scrW
    VBS d_y(93)=546-600+scrH
    VBS d_x(94)=757-800+scrW
    VBS d_y(94)=547-600+scrH
    VBS d_x(95)=758-800+scrW
    VBS d_y(95)=548-600+scrH
    VBS d_x(96)=758-800+scrW
    VBS d_y(96)=549-600+scrH
    VBS d_x(97)=759-800+scrW
    VBS d_y(97)=550-600+scrH
    VBS d_x(98)=760-800+scrW
    VBS d_y(98)=551-600+scrH
    VBS d_x(99)=761-800+scrW
    VBS d_y(99)=552-600+scrH
    VBS d_x(100)=761-800+scrW
    VBS d_y(100)=553-600+scrH
    VBS d_x(101)=762-800+scrW
    VBS d_y(101)=554-600+scrH
    VBS d_x(102)=762-800+scrW
    VBS d_y(102)=555-600+scrH
    VBS d_x(103)=763-800+scrW
    VBS d_y(103)=556-600+scrH
    VBS d_x(104)=763-800+scrW
    VBS d_y(104)=557-600+scrH
    VBS d_x(105)=763-800+scrW
    VBS d_y(105)=558-600+scrH
    VBS d_x(106)=764-800+scrW
    VBS d_y(106)=559-600+scrH
    VBS d_x(107)=764-800+scrW
    VBS d_y(107)=560-600+scrH
    VBS d_x(108)=765-800+scrW
    VBS d_y(108)=561-600+scrH
    VBS d_x(109)=765-800+scrW
    VBS d_y(109)=562-600+scrH
    VBS d_x(110)=765-800+scrW
    VBS d_y(110)=563-600+scrH
    VBS d_x(111)=766-800+scrW
    VBS d_y(111)=564-600+scrH
    VBS d_x(112)=766-800+scrW
    VBS d_y(112)=565-600+scrH
    VBS d_x(113)=766-800+scrW
    VBS d_y(113)=566-600+scrH
    VBS d_x(114)=766-800+scrW
    VBS d_y(114)=567-600+scrH
    VBS d_x(115)=766-800+scrW
    VBS d_y(115)=568-600+scrH
    VBS d_x(116)=766-800+scrW
    VBS d_y(116)=569-600+scrH
    VBS d_x(117)=766-800+scrW
    VBS d_y(117)=570-600+scrH
    VBS d_x(118)=766-800+scrW
    VBS d_y(118)=571-600+scrH
    VBS d_x(119)=766-800+scrW
    VBS d_y(119)=572-600+scrH
    VBS d_x(120)=766-800+scrW
    VBS d_y(120)=573-600+scrH
    VBS d_x(121)=766-800+scrW
    VBS d_y(121)=574-600+scrH
    VBS d_x(122)=766-800+scrW
    VBS d_y(122)=575-600+scrH
    VBS d_x(123)=766-800+scrW
    VBS d_y(123)=576-600+scrH
    VBS d_x(124)=766-800+scrW
    VBS d_y(124)=577-600+scrH
    VBS d_x(125)=766-800+scrW
    VBS d_y(125)=578-600+scrH
    VBS d_x(126)=766-800+scrW
    VBS d_y(126)=579-600+scrH
    VBS d_x(127)=765-800+scrW
    VBS d_y(127)=580-600+scrH
    VBS d_x(128)=765-800+scrW
    VBS d_y(128)=581-600+scrH
    VBS d_x(129)=765-800+scrW
    VBS d_y(129)=582-600+scrH
    VBS d_x(130)=765-800+scrW
    VBS d_y(130)=583-600+scrH
    VBS d_x(131)=764-800+scrW
    VBS d_y(131)=584-600+scrH
    VBS d_x(132)=764-800+scrW
    VBS d_y(132)=585-600+scrH
    VBS d_x(133)=764-800+scrW
    VBS d_y(133)=586-600+scrH
    VBS d_x(134)=764-800+scrW
    VBS d_y(134)=587-600+scrH
    VBS d_x(135)=763-800+scrW
    VBS d_y(135)=588-600+scrH
    VBS d_x(136)=763-800+scrW
    VBS d_y(136)=589-600+scrH
    VBS d_x(137)=762-800+scrW
    VBS d_y(137)=590-600+scrH
    VBS d_x(138)=762-800+scrW
    VBS d_y(138)=591-600+scrH
    VBS d_x(139)=761-800+scrW
    VBS d_y(139)=592-600+scrH
    VBS d_x(140)=760-800+scrW
    VBS d_y(140)=593-600+scrH
    VBS d_x(141)=760-800+scrW
    VBS d_y(141)=594-600+scrH
    VBS d_x(142)=759-800+scrW
    VBS d_y(142)=595-600+scrH
    VBS d_x(143)=758-800+scrW
    VBS d_y(143)=596-600+scrH
    VBS d_x(144)=758-800+scrW
    VBS d_y(144)=597-600+scrH
    VBS d_x(145)=758-800+scrW
    VBS d_y(145)=598-600+scrH
    VBS d_x(146)=757-800+scrW
    VBS d_y(146)=599-600+scrH
    VBS d_x(147)=756-800+scrW
    VBS d_y(147)=600-600+scrH
    VBS d_x(148)=755-800+scrW
    VBS d_y(148)=601-600+scrH
    VBS d_x(149)=754-800+scrW
    VBS d_y(149)=602-600+scrH
    VBS d_x(150)=753-800+scrW
    VBS d_y(150)=603-600+scrH
    VBS d_x(151)=752-800+scrW
    VBS d_y(151)=604-600+scrH
    VBS d_x(152)=751-800+scrW
    VBS d_y(152)=605-600+scrH
    VBS d_x(153)=750-800+scrW
    VBS d_y(153)=605-600+scrH
    VBS d_x(154)=749-800+scrW
    VBS d_y(154)=606-600+scrH
    VBS d_x(155)=748-800+scrW
    VBS d_y(155)=607-600+scrH
    VBS d_x(156)=747-800+scrW
    VBS d_y(156)=608-600+scrH
    VBS d_x(157)=746-800+scrW
    VBS d_y(157)=609-600+scrH
    VBS d_x(158)=745-800+scrW
    VBS d_y(158)=610-600+scrH
    VBS d_x(159)=744-800+scrW
    VBS d_y(159)=610-600+scrH
    VBS d_x(160)=743-800+scrW
    VBS d_y(160)=611-600+scrH
    VBS d_x(161)=742-800+scrW
    VBS d_y(161)=611-600+scrH
    VBS d_x(162)=741-800+scrW
    VBS d_y(162)=612-600+scrH
    VBS d_x(163)=740-800+scrW
    VBS d_y(163)=612-600+scrH
    VBS d_x(164)=739-800+scrW
    VBS d_y(164)=612-600+scrH
    VBS d_x(165)=738-800+scrW
    VBS d_y(165)=613-600+scrH
    VBS d_x(166)=737-800+scrW
    VBS d_y(166)=613-600+scrH
    VBS d_x(167)=736-800+scrW
    VBS d_y(167)=614-600+scrH
    VBS d_x(168)=735-800+scrW
    VBS d_y(168)=614-600+scrH
    VBS d_x(169)=734-800+scrW
    VBS d_y(169)=615-600+scrH
    VBS d_x(170)=733-800+scrW
    VBS d_y(170)=615-600+scrH
    VBS d_x(171)=732-800+scrW
    VBS d_y(171)=615-600+scrH
    VBS d_x(172)=731-800+scrW
    VBS d_y(172)=616-600+scrH
    VBS d_x(173)=730-800+scrW
    VBS d_y(173)=616-600+scrH
    VBS d_x(174)=729-800+scrW
    VBS d_y(174)=616-600+scrH
    VBS d_x(175)=728-800+scrW
    VBS d_y(175)=617-600+scrH
    VBS d_x(176)=727-800+scrW
    VBS d_y(176)=617-600+scrH
    VBS d_x(177)=726-800+scrW
    VBS d_y(177)=617-600+scrH
    VBS d_x(178)=725-800+scrW
    VBS d_y(178)=617-600+scrH
    VBS d_x(179)=724-800+scrW
    VBS d_y(179)=617-600+scrH
    VBS d_x(180)=723-800+scrW
    VBS d_y(180)=617-600+scrH
    VBS d_x(181)=722-800+scrW
    VBS d_y(181)=617-600+scrH
    VBS d_x(182)=721-800+scrW
    VBS d_y(182)=617-600+scrH
    VBS d_x(183)=720-800+scrW
    VBS d_y(183)=618-600+scrH
    VBS d_x(184)=719-800+scrW
    VBS d_y(184)=618-600+scrH
    VBS d_x(185)=718-800+scrW
    VBS d_y(185)=618-600+scrH
    VBS d_x(186)=717-800+scrW
    VBS d_y(186)=618-600+scrH
    VBS d_x(187)=716-800+scrW
    VBS d_y(187)=618-600+scrH
    VBS d_x(188)=715-800+scrW
    VBS d_y(188)=618-600+scrH
    VBS d_x(189)=714-800+scrW
    VBS d_y(189)=618-600+scrH
    VBS d_x(190)=713-800+scrW
    VBS d_y(190)=618-600+scrH
    VBS d_x(191)=712-800+scrW
    VBS d_y(191)=618-600+scrH
    VBS d_x(192)=711-800+scrW
    VBS d_y(192)=618-600+scrH
    VBS d_x(193)=710-800+scrW
    VBS d_y(193)=618-600+scrH
    VBS d_x(194)=709-800+scrW
    VBS d_y(194)=618-600+scrH
    VBS d_x(195)=708-800+scrW
    VBS d_y(195)=618-600+scrH
    VBS d_x(196)=707-800+scrW
    VBS d_y(196)=618-600+scrH
    VBS d_x(197)=706-800+scrW
    VBS d_y(197)=618-600+scrH
    VBS d_x(198)=705-800+scrW
    VBS d_y(198)=617-600+scrH
    VBS d_x(199)=704-800+scrW
    VBS d_y(199)=617-600+scrH
    VBS d_x(200)=703-800+scrW
    VBS d_y(200)=617-600+scrH
    VBS d_x(201)=702-800+scrW
    VBS d_y(201)=617-600+scrH
    VBS d_x(202)=701-800+scrW
    VBS d_y(202)=617-600+scrH
    VBS d_x(203)=700-800+scrW
    VBS d_y(203)=617-600+scrH
    VBS d_x(204)=699-800+scrW
    VBS d_y(204)=617-600+scrH
    VBS d_x(205)=698-800+scrW
    VBS d_y(205)=616-600+scrH
    VBS d_x(206)=697-800+scrW
    VBS d_y(206)=616-600+scrH
    VBS d_x(207)=696-800+scrW
    VBS d_y(207)=616-600+scrH
    VBS d_x(208)=695-800+scrW
    VBS d_y(208)=615-600+scrH
    VBS d_x(209)=694-800+scrW
    VBS d_y(209)=615-600+scrH
    VBS d_x(210)=693-800+scrW
    VBS d_y(210)=615-600+scrH
    VBS d_x(211)=692-800+scrW
    VBS d_y(211)=614-600+scrH
    VBS d_x(212)=691-800+scrW
    VBS d_y(212)=614-600+scrH
    VBS d_x(213)=690-800+scrW
    VBS d_y(213)=613-600+scrH
    VBS d_x(214)=689-800+scrW
    VBS d_y(214)=613-600+scrH
    VBS d_x(215)=688-800+scrW
    VBS d_y(215)=612-600+scrH
    VBS d_x(216)=687-800+scrW
    VBS d_y(216)=612-600+scrH
    VBS d_x(217)=686-800+scrW
    VBS d_y(217)=612-600+scrH
    VBS d_x(218)=685-800+scrW
    VBS d_y(218)=611-600+scrH
    VBS d_x(219)=684-800+scrW
    VBS d_y(219)=611-600+scrH
    VBS d_x(220)=683-800+scrW
    VBS d_y(220)=610-600+scrH
    VBS d_x(221)=682-800+scrW
    VBS d_y(221)=610-600+scrH
    VBS d_x(222)=681-800+scrW
    VBS d_y(222)=610-600+scrH
    VBS d_x(223)=680-800+scrW
    VBS d_y(223)=609-600+scrH
    VBS d_x(224)=679-800+scrW
    VBS d_y(224)=608-600+scrH
    VBS d_x(225)=678-800+scrW
    VBS d_y(225)=607-600+scrH
    VBS d_x(226)=677-800+scrW
    VBS d_y(226)=606-600+scrH
    VBS d_x(227)=676-800+scrW
    VBS d_y(227)=605-600+scrH
    VBS d_x(228)=675-800+scrW
    VBS d_y(228)=605-600+scrH
    VBS d_x(229)=674-800+scrW
    VBS d_y(229)=604-600+scrH
    VBS d_x(230)=673-800+scrW
    VBS d_y(230)=603-600+scrH
    VBS d_x(231)=672-800+scrW
    VBS d_y(231)=602-600+scrH
    VBS d_x(232)=671-800+scrW
    VBS d_y(232)=601-600+scrH
    VBS d_x(233)=670-800+scrW
    VBS d_y(233)=600-600+scrH
    VBS d_x(234)=669-800+scrW
    VBS d_y(234)=599-600+scrH
    VBS d_x(235)=668-800+scrW
    VBS d_y(235)=598-600+scrH
    VBS d_x(236)=668-800+scrW
    VBS d_y(236)=597-600+scrH
    VBS d_x(237)=667-800+scrW
    VBS d_y(237)=596-600+scrH
    VBS d_x(238)=666-800+scrW
    VBS d_y(238)=595-600+scrH
    VBS d_x(239)=666-800+scrW
    VBS d_y(239)=594-600+scrH
    VBS d_x(240)=665-800+scrW
    VBS d_y(240)=593-600+scrH
    VBS d_x(241)=664-800+scrW
    VBS d_y(241)=592-600+scrH
    VBS d_x(242)=664-800+scrW
    VBS d_y(242)=591-600+scrH
    VBS d_x(243)=663-800+scrW
    VBS d_y(243)=590-600+scrH
    VBS d_x(244)=663-800+scrW
    VBS d_y(244)=589-600+scrH
    VBS d_x(245)=663-800+scrW
    VBS d_y(245)=588-600+scrH
    VBS d_x(246)=662-800+scrW
    VBS d_y(246)=587-600+scrH
    VBS d_x(247)=662-800+scrW
    VBS d_y(247)=586-600+scrH
    VBS d_x(248)=662-800+scrW
    VBS d_y(248)=585-600+scrH
    VBS d_x(249)=662-800+scrW
    VBS d_y(249)=584-600+scrH
    VBS d_x(250)=661-800+scrW
    VBS d_y(250)=583-600+scrH
    VBS d_x(251)=661-800+scrW
    VBS d_y(251)=582-600+scrH
    VBS d_x(252)=661-800+scrW
    VBS d_y(252)=581-600+scrH
    VBS d_x(253)=661-800+scrW
    VBS d_y(253)=580-600+scrH
    VBS d_x(254)=660-800+scrW
    VBS d_y(254)=579-600+scrH
    VBS d_x(255)=660-800+scrW
    VBS d_y(255)=578-600+scrH
    VBS d_x(256)=660-800+scrW
    VBS d_y(256)=577-600+scrH
    VBS d_x(257)=660-800+scrW
    VBS d_y(257)=576-600+scrH
    VBS d_x(258)=660-800+scrW
    VBS d_y(258)=575-600+scrH
    VBS d_x(259)=660-800+scrW
    VBS d_y(259)=574-600+scrH
    VBS d_x(260)=660-800+scrW
    VBS d_y(260)=573-600+scrH
    VBS d_x(261)=660-800+scrW
    VBS d_y(261)=572-600+scrH
    VBS d_x(262)=660-800+scrW
    VBS d_y(262)=571-600+scrH
    VBS d_x(263)=660-800+scrW
    VBS d_y(263)=570-600+scrH
    VBS d_x(264)=660-800+scrW
    VBS d_y(264)=569-600+scrH
    VBS d_x(265)=660-800+scrW
    VBS d_y(265)=568-600+scrH
    VBS d_x(266)=660-800+scrW
    VBS d_y(266)=567-600+scrH
    VBS d_x(267)=660-800+scrW
    VBS d_y(267)=566-600+scrH
    VBS d_x(268)=660-800+scrW
    VBS d_y(268)=565-600+scrH
    VBS d_x(269)=661-800+scrW
    VBS d_y(269)=564-600+scrH
    VBS d_x(270)=661-800+scrW
    VBS d_y(270)=563-600+scrH
    VBS d_x(271)=661-800+scrW
    VBS d_y(271)=562-600+scrH
    VBS d_x(272)=662-800+scrW
    VBS d_y(272)=561-600+scrH
    VBS d_x(273)=662-800+scrW
    VBS d_y(273)=560-600+scrH
    VBS d_x(274)=663-800+scrW
    VBS d_y(274)=559-600+scrH
    VBS d_x(275)=663-800+scrW
    VBS d_y(275)=558-600+scrH
    VBS d_x(276)=663-800+scrW
    VBS d_y(276)=557-600+scrH
    VBS d_x(277)=664-800+scrW
    VBS d_y(277)=556-600+scrH
    VBS d_x(278)=664-800+scrW
    VBS d_y(278)=555-600+scrH
    VBS d_x(279)=665-800+scrW
    VBS d_y(279)=554-600+scrH
Return
Rem end100
回覆

使用道具 舉報

gg2255 當前離線
UID
1085659
熱心
4 值
嘉獎
0 次
違規
0 次
在線時間
144 小時
經驗
1 點
積分
263
精華
0
最後登錄
2015-1-1
閱讀權限
25
註冊時間
2014-10-31
論壇幣
19 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
gg2255 2009-10-2 15:28:40
貝魯特造船(後台的)



// ***** 注意事項 *****
// 1) 熱鍵 F8 位置請放抽獎卷
// 2) 大航海畫面要用 1024*768
// 3) 要準備足夠糧水(6*50)
// 4) 船是在賣最後一隻.
// ***** 使用方法 *****
// 1) 在海上面向城(可以tab到城. 並進入)
// 2) 要有最後一隻船可以賣.
dim n
n=0
Gosub ResetMousePoint
LeftClick 1
Delay 1000
Rem 主程序開始處
For 9999999
    //--------
    Gosub 入城
    Gosub ResetMousePoint
    Delay 1000
    //--------
    LockMouse
    Gosub 進港
    Gosub ResetMousePoint
    Delay 1000
    //--------
    Gosub 找老板
    Gosub ResetMousePoint
    Delay 1000
    //--------
    Gosub 賣船
    Gosub ResetMousePoint
    Delay 1000
    //--------
    Gosub 造船
    Gosub ResetMousePoint
    Delay 1000
    //--------
    Gosub 找官員
    Gosub ResetMousePoint
    Delay 1000
    //--------
    If N=50
        Gosub 補給
        Gosub ResetMousePoint
    Else
    EndIf
    //--------
    Gosub 出港
    Gosub ResetMousePoint
    UnlockMouse
    Delay 1000
    Delay 390000
    n=n+1
EndFor
Rem 主程序結束處
EndScript
Sub ResetMousePoint
    MoveTo 50 50
    Delay 300
Return
Sub 入城
    Rem 入城檢查
    KeyDown 16
    Delay 50
    KeyPress 9
    Delay 100
    KeyPress 9
    Delay 50
    KeyUp 16
    Delay 1000
    VBSCall FindPic(0,0,1024,768,"貝魯特.bmp",0.9,x,y)
    If x>=0 and y>=0
        Goto 跳出入城檢查
    Else
        Goto 入城檢查
    EndIf
    Rem 跳出入城檢查
    Gosub ResetMousePoint
    KeyPress 13 1
    Delay 3500
Return
Sub 補給
    Delay 1000
    VBSCall FindPic(50,50,1023,767,"買糧.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo X+10 Y+10
        Delay 1000
        LeftClick 1
        Delay 100
        Gosub ResetMousePoint
        Delay 500
        Rem Check1
        VBSCall FindPic(50,50,1023,767,"均等糧水.bmp",0.8,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
            Delay 1000
            LeftClick 1
            Delay 100
            Gosub ResetMousePoint
            Delay 900
        Else
            Goto check1
        EndIf
        Rem check2
        VBSCall FindPic(50,50,1023,767,"確認.bmp",0.8,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
            Delay 1000
            LeftClick 1
            Delay 100
            Gosub ResetMousePoint
            Delay 900
        Else
            Goto check2
        EndIf
    EndIf
    VBS n=0
Return
Sub 出港
    Rem check3
    VBSCall FindPic(0,0,1024,768,"出航.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo X+10 Y+10
        Delay 1000
        LeftClick 1
        Delay 100
        Gosub ResetMousePoint
        Delay 900
    Else
        Goto check3
    EndIf
    Rem check4
    VBSCall FindPic(0,0,1024,768,"出航確定.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo X+10 Y+10
        Delay 1000
        LeftClick 1
        Delay 100
        Gosub ResetMousePoint
        Delay 5000
        KeyPress 27 2
        Delay 100
        KeyPress 119 1
        Delay 1000
        KeyPress 119 1
        Delay 1500
        KeyPress 119 1
        Delay 1000
        KeyPress 119 1
        Delay 1500
        KeyDown 17
        KeyDown 39
        Delay 3000
        KeyUp 39
        KeyUp 17
        Delay 1000
    Else
        Goto check4
    EndIf
Else
    Goto 出港
EndIf
Return
Sub 進港
    VBSCall FindPic(0,0,1024,768,"進港.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo X+10 Y+10
        Delay 200
        LeftClick 1
        Delay 6000
        Gosub ResetMousePoint
    Else
        Gosub 進港
    EndIf
Return
Sub 找老板
    KeyDown 38 1
    Delay 10000
    KeyUp 38 1
    KeyDown 17 1
    KeyDown 39 1
    Delay 750
    KeyUp 39 1
    KeyUp 17 1
    Delay 1000
    KeyDown 38 1
    Delay 5000
    KeyUp 38 1
    Delay 500
    Rem 找老板loop
    KeyPress 9 1
    Delay 1000
    VBSCall FindPic(0,0,1024,768,"造船廠老闆.bmp",0.8,x,y)
    If x>=0 and y>=0
        KeyPress 13 1
        Delay 2000
        KeyPress 13 1
        Delay 100
        Gosub ResetMousePoint
        Delay 2900
        Goto 找老板結束
    Else
        Goto 找老板loop
    EndIf
    Rem 找老板結束
Return
Sub 賣船
    VBSCall FindPic(0,0,1024,768,"賣船.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 1000
        LeftClick 1
        Delay 100
        Gosub ResetMousePoint
        Delay 3900
        KeyPress 40 1
        Delay 200
        KeyPress 40 1
        Delay 200
        KeyPress 40 1
        Delay 200
        KeyPress 13 1
        Delay 200
        KeyPress 13 1
        Delay 5000
    Else
        VBSCall FindPic(0,0,1024,768,"攀談.bmp",0.8,x,y)
        If x>=0 and y>=0
            MoveTo x+10 y+10
            Delay 1000
            LeftClick 1
            Delay 100
            Gosub ResetMousePoint
            Delay 900
        Else
        EndIf
        Gosub 賣船
    EndIf
Return
Sub 造船
    VBSCall FindPic(0,0,1024,768,"造船.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 100
        LeftClick 1
        Delay 100
        Gosub ResetMousePoint
        Delay 3400
        KeyPress 40 7
        Delay 200
        KeyPress 13 2
        Delay 400
        Rem checkA
        VBSCall FindPic(0,0,1024,768,"造船下一步.bmp",0.8,x,y)
        If x>=0 and y>=0
            MoveTo x+25 y+10
            Delay 500
            LeftClick 1
            Delay 100
            Gosub ResetMousePoint
            Delay 400
            KeyPress 49 7
            Delay 500
        Else
            Goto checkA
        EndIf
        Rem CheckB
        VBSCall FindPic(0,0,1024,768,"造船完成.bmp",0.8,x,y)
        If x>=0 and y>=0
        Else
            Goto CheckB
        EndIf
        MoveTo x+30 y+10
        Delay 500
        LeftClick 1
        Delay 100
        Gosub ResetMousePoint
        Delay 6700
    Else
        Gosub 造船
    EndIf
Return
Sub 找官員
    KeyDown 17 1
    KeyDown 39 1
    Delay 2700
    KeyUp 39 1
    KeyUp 17 1
    Delay 500
    KeyDown 38 1
    Delay 10000
    KeyUp 38 1
    Delay 1000
    KeyDown 17 1
    KeyDown 37 1
    Delay 650
    KeyUp 37 1
    KeyUp 17 1
    Delay 500
    KeyDown 38 1
    Delay 5500
    KeyUp 38 1
    Delay 2000
    Rem 找官員loop
    KeyPress 9 1
    Delay 1000
    VBSCall FindPic(0,0,1024,768,"碼頭官員.bmp",0.8,x,y)
    If x>=0 and y>=0
        KeyPress 13 1
        Delay 3000
        KeyPress 13 1
        Delay 500
        Gosub ResetMousePoint
        Goto 跳出找官員
    Else
        Goto 找官員loop
    EndIf
    Rem 跳出找官員
    Delay 1000
    VBSCall FindPic(0,0,1024,768,"前往碼頭.bmp",0.8,x,y)
    If x>=0 and y>=0
        MoveTo x+10 y+10
        Delay 1500
        LeftClick 1
        Delay 100
        Gosub ResetMousePoint
        Delay 7900
    Else
        Goto 跳出找官員
    EndIf
Return
回覆

使用道具 舉報

gg2255 當前離線
UID
1085659
熱心
4 值
嘉獎
0 次
違規
0 次
在線時間
144 小時
經驗
1 點
積分
263
精華
0
最後登錄
2015-1-1
閱讀權限
25
註冊時間
2014-10-31
論壇幣
19 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
gg2255 2009-10-2 15:29:54
砲術技能


Rem F1-F3為炮技能,F4-救助,F5-修理,F6-料理,F7-水桶,F8-料理

  For 9999

  For 2

  Gosub jineng

  Gosub fapao

  Gosub shuitong

  Gosub jiuzhu

  Gosub xiuli

  Gosub liaoli

  EndFor

  Rem Gosub qiehuan01

  For 2

  Gosub jineng

  Gosub fapao

  Gosub shuitong

  Gosub jiuzhu

  Gosub xiuli

  Gosub liaoli

  EndFor

  Rem Gosub qiehuan02

  EndFor

  Rem……子程序

  Sub qiehuan01

  RightClick 1

  For 1

  //船隊切換A-B

  Delay 1000

  Rem按TAB鍵

  KeyPress 9,1

  Delay 1000

  EndFor

  Return

  Sub qiehuan02

  RightClick 1

  For 3

  //船隊切換B-A

  Delay 1000

  Rem按TAB鍵

  KeyPress 9,1

  Delay 1000

  EndFor

  Return

  Sub fapao

  Rem發炮

  For 75

  Delay 500

  KeyPress 112,2

  Delay 500

  KeyPress 113,2

  Delay 500

  KeyPress 114,2

  Delay 500

  KeyPress 115,2

  EndFor

  Return

  Sub shuitong

  Delay 1000

  Rem F5

  KeyPress 116,1

  Delay 1000

  Rem F8

  KeyPress 119,1

  Delay 1000

  Rem F7

  KeyPress 118,1

  Rem……

  Return

  Sub jineng

  Delay 1500

  Rem F5

  KeyPress 116,1

  Delay 2500

  Rem F8

  KeyPress 119,1

  Delay 2500

  Rem F1

  KeyPress 112,1

  Rem……

  Delay 1500

  Rem F5

  KeyPress 116,1

  Delay 2500

  Rem F8

  KeyPress 119,1

  Delay 2500

  Rem F2

  KeyPress 113,1

  Rem……

  Delay 1500

  Rem F5

  KeyPress 116,1

  Delay 2500

  Rem F8

  KeyPress 119,1

  Delay 2500

  Rem F3

  KeyPress 114,1

  Rem……

  Return

  Sub liaoli

  For 1

  Delay 1000

  Rem F4

  KeyPress 115,1

  Delay 1000

  Rem F8

  KeyPress 119,1

  Delay 1000

  Rem F6

  KeyPress 117,1

  Delay 1000

  Rem……

  EndFor

  For 0

  Delay 1000

  Rem F4

  KeyPress 115,1

  Delay 1000

  Rem F8

  KeyPress 119,1

  Delay 1000

  Rem F8

  KeyPress 119,1

  Rem……

  EndFor

  Return

  Sub xiuli

  For 5

  Delay 1000

  Rem F5

  KeyPress 116,1

  Delay 1000

  Rem F8

  KeyPress 119,1

  Delay 1000

  Rem F5

  KeyPress 116,1

  Rem……

  EndFor

  Return

  Sub jiuzhu

  Rem救助

  For 2

  Delay 1000

  KeyPress 116,1

  Delay 1000

  Rem F8

  KeyPress 119,1

  Delay 1000

  Rem F4

  KeyPress 115,1

  Rem……

  EndFor

  Return
回覆

使用道具 舉報

gg2255 當前離線
UID
1085659
熱心
4 值
嘉獎
0 次
違規
0 次
在線時間
144 小時
經驗
1 點
積分
263
精華
0
最後登錄
2015-1-1
閱讀權限
25
註冊時間
2014-10-31
論壇幣
19 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
gg2255 2009-10-2 15:32:34
釣魚+保管(後台)



Plugin hwnd = Window.GetKeyFocusWnd()
Delay 2000
//腳本開始
//釣魚開始及不良狀態消除:循環3次
For 10
    //三次ESC清除多餘窗口
    Plugin Window.SendKeyPress(hwnd,27)
    Delay 1000
    Plugin Window.SendKeyPress(hwnd,27)
    Delay 1000
    Plugin Window.SendKeyPress(hwnd,27)
    Delay 1000
    //F10 打開自定義快便鍵
    Plugin Window.SendKeyPress(hwnd,121)
    Delay 3000
    //F8 開始釣魚
    Plugin Window.SendKeyPress(hwnd,119)
    Delay 3000
    //F10 打開自定義快便鍵
    Plugin Window.SendKeyPress(hwnd,121)
    Delay 3000
    //F7
    Plugin Window.SendKeyPress(hwnd,118)
    Delay 3000
    //F10 打開自定義快便鍵
    Plugin Window.SendKeyPress(hwnd,121)
    Delay 3000
    //F6
    Plugin Window.SendKeyPress(hwnd,117)
    Delay 3000
    //F10 打開自定義快便鍵
    Plugin Window.SendKeyPress(hwnd,121)
    Delay 3000
    //F5
    Plugin Window.SendKeyPress(hwnd,116)
    Delay 3000
    //F10 打開自定義快便鍵
    Plugin Window.SendKeyPress(hwnd,121)
    Delay 3000
    //F4
    Plugin Window.SendKeyPress(hwnd,115)
    Delay 45000
EndFor
//開始物品保管技能練習
//F10 打開自定義快便鍵
Delay 2000
Plugin Window.SendKeyPress(hwnd,121)
Delay 2000
//F1  打開魚保管書
Plugin Window.SendKeyPress(hwnd,112)
Delay 2000
//選擇大馬哈魚保管技能
For 7
    KeyPress 40 1
EndFor
Delay 1000
KeyPress 13 1
Delay 800
//*滑鼠移動到生產圖標*
MoveTo 456 323
Delay 800
//開始生產:生產50 次
For 30
    LeftClick 1
    Delay 1000
EndFor
//ESC鍵退出生產
Delay 1000
Plugin Window.SendKeyPress(hwnd,27)
Delay 800
Plugin Window.SendKeyPress(hwnd,27)
Delay 800
Plugin Window.SendKeyPress(hwnd,27)
Delay 800
//F9 打開裝載準備丟物品
Plugin Window.SendKeyPress(hwnd,120)
Delay 2000
//*選擇丟棄物品*
MoveTo 433 390
Delay 800
LeftClick 1
Delay 800
//循環丟棄物品:丟棄5種(循環次數=需要丟棄物品數量)
For 3
    //*移動滑鼠位置*
    MoveTo 288 162
    Delay 2000
    //選擇該位置物品
    LeftClick 1
    Delay 1000
    //*選擇最大數量MAX*
    MoveTo 382 263
    Delay 2000
    LeftClick 1
    //*點擊OK確定*
    Delay 2000
    MoveTo 382 336
    LeftClick 1
    Delay 1000
EndFor
//*選擇丟棄物品*
MoveTo 633 415
Delay 1000
LeftClick 1
Delay 1000
//餓了吃行動力物品(吃飽):吃5次
For 5
    //F10打開自定義物品
    Delay 3000
    Plugin Window.SendKeyPress(hwnd,121)
    Delay 3000
    //F3吃料理
    Plugin Window.SendKeyPress(hwnd,114)
EndFor
VBS Plugin hwnd = Window.GetKeyFocusWnd()
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-3-28 23:01 , Processed in 0.072860 second(s), 17 queries , Memcache On.

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

回頂部
第二步?
第三步?