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

[發問] 不明白啊~~ 怎樣在卡卡造船？

jackwahhk 發表於 2010-1-22 17:20:18 | 只看該作者 回帖獎勵 |倒序瀏覽 |
[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


全都貼在按精嗎？貼了就可以動嗎？為何要找交易所學徒

我只想在卡卡老板造船-> 出港掛->進港去老板取船->賣船造船 再出港掛。請各位幫忙，可以給我簡單的嗎？
收藏收藏 分享分享 讚讚 幹幹 分享分享 FB分享
回覆

使用道具 舉報


owen0319 當前離線
UID
89427
熱心
132 值
嘉獎
0 次
違規
0 次
在線時間
56 小時
經驗
52 點
積分
503
精華
0
最後登錄
2018-8-6
閱讀權限
30
註冊時間
2006-11-21
論壇幣
239 幣
聯合幣
21 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 4Rank: 4
owen0319 2010-1-23 22:53:05
這個腳本要抓圖才能用唷~~~~~~~~~
回覆

使用道具 舉報

yes17915 當前離線
UID
435994
熱心
15 值
嘉獎
0 次
違規
0 次
在線時間
27 小時
經驗
15 點
積分
15
精華
0
最後登錄
2011-7-16
閱讀權限
10
註冊時間
2007-7-10
論壇幣
4 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
yes17915 2010-6-30 05:09:50
一般的腳本應該沒那麼複雜吧~~~~
TOM
回覆

使用道具 舉報

dsa712037 當前離線
UID
1491729
熱心
10 值
嘉獎
0 次
違規
0 次
在線時間
2 小時
經驗
6 點
積分
36
精華
0
最後登錄
2018-8-7
閱讀權限
20
註冊時間
2010-6-30
論壇幣
12 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
dsa712037 2010-6-30 17:29:16
好複雜
感謝大大的分享~~~~~~~~~
回覆

使用道具 舉報

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


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-4-28 16:36 , Processed in 0.060964 second(s), 17 queries , Memcache On.

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

回頂部
第二步?
第三步?