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

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

[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
－－－－－－－腳本結束－－－－－－－
本文章轉自外掛聯合國http://www.wgun.net

不明白啊，我只是在卡卡造小飛... 全都貼在按精嗎？只是出港 掛，進港 去造船老板取船去賣，再造船出港。我應該貼什麼？為何腳本找交易學徒？Gosub 掛造船<--- 這是什麼意思？中文字要打進去嗎？

大心阿

太感謝了 把所有腳本都給我們^^

謝謝大大分享腳本   真是少時間的人的好幫手 謝謝

好康的貼那麼多真是太感謝大大無私的分享

謝謝大大的分享使用
本文章轉自外掛聯合國http://www.wgun.net

拜託大大  按鍵精靈哪抓
我第一次來@@

造船方面的輔助程式超好用的! 感謝大大無私的分享><