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

gg2255

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 調整窗口

create

收藏0 分享讚0 幹0 分享分享

相關POST

回覆

使用道具舉報

loselover 2009-8-23 09:41:01

好的東西一定要支持的真是謝謝大大的用心囉看起來好像不錯~~非常感謝大大的分享~~感恩喔

回覆

使用道具舉報

a0697 2009-8-26 23:32:59

看起來好像不錯
好的東西一定要支持的
非常感謝大大的分享

回覆

使用道具舉報

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

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

6層

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
－－－－－－－腳本結束－－－－－－－

回覆

使用道具舉報

7層

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

回覆

使用道具舉報

8層

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

回覆

使用道具舉報

9層

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

回覆

使用道具舉報

10層

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()

回覆

使用道具舉報

12 3 4 5 6 7 8 9 10 ... 16 / 16 頁下一頁

外掛聯合國

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

相關POST