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

[分享] 阿姆斯特丹->海爾德近港賺錢腳本

gg2255 發表於 2010-5-4 12:55:39 | 顯示全部樓層 |
有物品不同需要的地方自己在修改一下



Rem 主程式開始處
For 9999990
Gosub 進AM港
Delay 2000
Gosub 找AM交易學徒
Delay 2000
Gosub AM賣掉
Delay 2000
Gosub AM買貨
Delay 2000
Gosub 找AM官員
Delay 2000
Gosub 補給出港2
Delay 2000
Gosub AM-海爾
Delay 2000
Gosub 進海爾港
Delay 2000
Gosub 找海爾頭家
Delay 2000
Gosub 海爾賣掉
Delay 2000
Gosub 海爾買貨
Delay 2000
Gosub 找海爾官員
Delay 2000
Gosub 補給出港1
Delay 2000
Gosub 海爾-AM
Delay 2000
EndFor
Rem 主程式結束處
Sub 補給出港1
Delay 2000
MoveTo 690 387 //補給
Delay 2150
LeftClick 1
Delay 2000
MoveTo 197 380 //補給到所儲存數量
Delay 1500
LeftClick 1
Delay 1000
MoveTo 601 423 //確定
Delay 1000
LeftClick 1
Delay 1000
KeyPress 27 1 //ESC
Delay 1000
MoveTo 652 388 //出航
Delay 1000
LeftClick 1
Delay 1000
MoveTo 645 416 //確定
Delay 2000
LeftClick 1
Delay 5000
Gosub 延時判定
Return 補給出港1
Sub 海爾-AM
Delay 3000
Gosub 延時判定
Delay 200
Gosub 海上吃料理
Delay 500
KeyPress 27,1
Delay 3000
KeyPress 45,1 //按inster 啟航
Delay 500
KeyPress 45,1 //按inster 啟航
Delay 500
KeyDown 39,1 // 按鍵盤右
Delay 2200
KeyUp 39,1
Delay 1000
KeyPress 45,1 //按inster 啟航
Delay 500
KeyPress 45,1 //按inster 啟航
Delay 500
KeyPress 119,1 // F8 自定義欄
Delay 1000
KeyPress 115,1 //F4 操帆
Delay 1500
KeyPress 119,1
Delay 1500
KeyPress 112,1 //F1運用
Delay 1500
KeyPress 119,1
Delay 1500
KeyPress 114,1 //F3 測量
Delay 17000
KeyDown 39,1 // 按鍵盤右
Delay 3000
KeyUp 39,1
Delay 3000
KeyPress 36,1
Delay 500
Gosub 找AM
Return 海爾-AM
Sub 進AM港
Delay 2000
Gosub 延時判定
Delay 200
For 20
IfColor 134 47 ffffff 0
MoveTo 648 414
Delay 2000
LeftClick 1
Delay 5500
Goto 進AM港結束
Else
EndIf
EndFor
Rem 進AM港結束
Delay 200
Gosub 延時判定
Return 進AM港
Sub 找AM交易學徒
Delay 4000
KeyDown 27,1
KeyDown 38,1
Delay 9000
KeyUp 38,1
Delay 1000
For 20
KeyPress 9 1
Delay 1000
IfColor 685 368 ffffff 0
Delay 250
IfColor 702 365 ffffff 0
Delay 2000
KeyPress 13 2
Gosub 延時判定
Delay 2000
KeyPress 13 2
Gosub 延時判定
Delay 1500
KeyPress 13 2
Gosub 延時判定
Delay 1500
Goto 找AM交易學徒結束
Else
EndIf
Else
EndIf
EndFor
Rem 找AM交易學徒結束
KeyUp 27 1
Delay 1500
Return 找AM交易學徒
Sub AM賣掉
IfColor 692,386,23cbd5,2
Else
KeyPress 13,2
Delay 1000
Gosub 延時判定
EndIf
Delay 2000
MoveTo 690 387
Delay 2000
LeftClick 1
Delay 2500
Gosub 延時判定
Delay 200
MoveTo 121 147
Delay 2000
LeftClick 1
Delay 2000
LeftClick 1
Delay 2000
MoveTo 629 441
Delay 2000
LeftClick 1
Delay 2000
Gosub 延時判定
Delay 200
Return AM賣掉
Sub AM買貨
Delay 1000
For 20
MoveTo 654 389
Delay 500
LeftClick 1
Delay 2500
Gosub 延時判定
Delay 200
MoveTo 380 198 //買火腿5個
Delay 1000
LeftClick 1
Delay 2000
MoveTo 485 351 //移動到砍價
Delay 1000
IfColor 483,351,D0DE83, 2
LeftClick 1 //點擊砍價
Delay 2000
MoveTo 665 443
Delay 2000
LeftClick 1 //確定
Delay 2000
Gosub 延時判定
Delay 200
Else
MoveTo 665 443
Delay 2000
LeftClick 1 //確定
Delay 5000
Goto AM買貨結束
EndIf
EndFor
Rem AM買貨結束
Return AM買貨
Sub 找AM官員
KeyDown 27,1
Delay 1000
KeyDown 39,1
Delay 3400
KeyUp 39,1
Delay 500
KeyDown 38,1
Delay 5000
KeyUp 38,1
Delay 500
KeyDown 37,1
Delay 650
KeyUp 37,1
Delay 500
KeyDown 38,1
Delay 7500
KeyUp 38,1
Delay 500
For 10
KeyPress 9 1
Delay 1000
IfColor 640 360 ffffff 0
Delay 250
IfColor 666 363 ffffff 0
Delay 250
IfColor 689 367 ffffff 0
KeyUp 27,1
Delay 1000
KeyPress 13 4
Gosub 延時判定
Delay 2000
KeyPress 13 4
Gosub 延時判定
Delay 2000
KeyPress 13 4
Gosub 延時判定
Goto 找找AM官員結束
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 找找AM官員結束
Delay 1000
KeyPress 13,2
Delay 1000
Gosub 延時判定
Delay 200
KeyPress 13,2
Delay 1000
Gosub 延時判定
Delay 200
MoveTo 647 388 //前往碼頭
Delay 3500
LeftClick 1
Delay 4000
Gosub 延時判定
Delay 200
Return 找AM官員
Sub 補給出港2
Delay 3000
MoveTo 690 387 //補給
Delay 1000
LeftClick 1
Delay 1000
MoveTo 197 380 //補給到所儲存數量
Delay 1000
LeftClick 1
Delay 1000
MoveTo 601 423 //確定
Delay 1000
LeftClick 1
Delay 1000
Gosub 延時判定
Delay 200
KeyPress 27 1 //ESC
Delay 1000
MoveTo 652 388 //出航
Delay 1000
LeftClick 1
Delay 1000
MoveTo 645 416 //確定
Delay 2000
LeftClick 1
Delay 5000
Return 補給出港2
Sub AM-海爾
Delay 4000
Gosub 延時判定
Delay 200
Gosub 海上吃料理
KeyPress 27,1
Delay 4000
KeyDown 37,1
Delay 300
KeyUp 37,1
Delay 300
For 5
IfColor 664,510,0,1
KeyPress 45,1 //按inster 啟航
Delay 500
KeyPress 119,1 // F8 自定義欄
Delay 1000
KeyPress 115,1 //F4 操帆
Delay 1000
Else
EndIf
EndFor
KeyPress 119,1
Delay 1500
KeyPress 112,1 //F1 運用
Delay 1500
KeyPress 119,1
Delay 1500
KeyPress 114,1 //F3 測量
Delay 15000
KeyDown 37,1
Delay 3000
KeyUp 37,1
Delay 7000
KeyPress 36,1
Gosub 找海爾
Return AM-海爾
Sub 進海爾港
For 20
Delay 2000
IfColor 110,46,ffffff,0
MoveTo 646 410
Delay 2000
LeftClick 1
Delay 2000
Goto 進海爾港結束
Else
EndIf
EndFor
Rem 進海爾港結束
Delay 2000
Gosub 延時判定
Delay 200
Return 進海爾港
Sub 找海爾頭家
Delay 4000
Gosub 延時判定
Delay 200
KeyDown 27,1
KeyDown 37,1
Delay 550
KeyUp 37,1
Delay 300
KeyDown 38,1
Delay 3400
KeyUp 38,1
Delay 1000
For 20
KeyPress 9 1
Delay 1000
IfColor 640 361 ffffff 0
Delay 250
IfColor 699 363 ffffff 0
Delay 1000
KeyPress 13 4
Delay 2500
Gosub 延時判定
Delay 200
KeyPress 13 4
Gosub 延時判定
Delay 200
Goto 找海爾頭家結束
Else
EndIf
Else
EndIf
EndFor
Rem 找海爾頭家結束
KeyUp 27 1
Delay 1500
Return 找海爾頭家
Sub 海爾賣掉
MoveTo 690 387
Delay 2000
LeftClick 1
Delay 2500
Gosub 延時判定
Delay 200
MoveTo 121 147
Delay 2000
LeftClick 1
Delay 500
LeftClick 1
Delay 500
MoveTo 629 441
Delay 1000
LeftClick 1
Delay 2000
Gosub 延時判定
Delay 200
Return 海爾賣掉
Sub 海爾買貨
Delay 500
For 20
MoveTo 654 389
Delay 1500
LeftClick 1
Delay 2500
Gosub 延時判定
Delay 200
MoveTo 380 198 //買魚肉5個
Delay 1000
LeftClick 1
Delay 1000
MoveTo 485 351 //移動到砍價
Delay 1000
IfColor 483,351,D0DE83, 2
LeftClick 1 //點擊砍價
Delay 2000
MoveTo 665 443
Delay 1000
LeftClick 1 //確定
Delay 2500
Gosub 延時判定
Delay 200
Else
MoveTo 665 443
Delay 1000
LeftClick 1 //確定
Delay 1000
Goto 海爾買貨結束
EndIf
EndFor
Rem 海爾買貨結束
Return 海爾賣貨
Sub 找海爾官員
KeyDown 27,1
KeyDown 37,1
Delay 3350
KeyUp 37,1
Delay 600
KeyDown 38,1
Delay 3700
KeyUp 38,1
Delay 1000
For 10
KeyPress 9 1
Delay 1000
IfColor 634 369 ffffff 0
Delay 250
IfColor 644 360 ffffff 0
Delay 250
IfColor 660 367 ffffff 0
Delay 250
IfColor 674 369 ffffff 0
Delay 250
IfColor 682 361 ffffff 0
KeyUp 27,1
Delay 1000
KeyPress 13 1
Delay 200
Gosub 延時判定
Delay 2000
KeyPress 13 1
Gosub 延時判定
Delay 200
Goto 跳出找海爾官員
Else
EndIf
Else
EndIf
Else
EndIf
Else
EndIf
Else
EndIf
EndFor
Rem 跳出找海爾官員
KeyUp 27,1
Delay 1000
KeyPress 13,1
Delay 1000
KeyPress 13,1
Delay 1000
MoveTo 647 388 //前往碼頭
Delay 1500
LeftClick 1
Delay 200
Gosub 延時判定
Delay 3500
Return 找海爾官員
Sub 找AM
For 50
KeyPress 9 1
Delay 500
IfColor 634 360 ffffff 0
Delay 250
IfColor 657 360 ffffff 0
Delay 250
IfColor 704 360 ffffff 0
KeyPress 36,1
Delay 500
KeyPress 13 2
Delay 1000
KeyPress 13 2
Delay 3000
Goto 找AM結束
Else
EndIf
Else
EndIf
Else
KeyPress 27,2
Delay 500
KeyPress 36,1
Delay 300
EndIf
EndFor
Rem 找AM結束
Delay 3000
For 5
KeyPress 13 2
Delay 500
EndFor
Return 找AM
Sub 找海爾
For 50
KeyPress 9 1
Delay 1000
IfColor 636 366 ffffff 0
Delay 250
IfColor 665 369 ffffff 0
Delay 250
IfColor 688 359 ffffff 0
KeyPress 36,1
Delay 500
KeyPress 13 2
Delay 2000
Goto 跳出找海爾
Else
EndIf
Else
EndIf
Else
KeyPress 27,2
Delay 700
KeyPress 36,1
Delay 300
EndIf
EndFor
Rem 跳出找海爾
For 10
KeyPress 36,1
Delay 300
KeyPress 13 2
Delay 300
EndFor
Return 找海爾
Sub 延時判定
Shape1 =2106545426 //黃色箭頭時候的滑鼠形狀
Shape2 =2012885647 //網路延時的時候漏斗的形狀
For 8
VBSCall Shape=GetCursorShape(0)
If shape = shape2
Delay 300
ElseIf shape = shape1
Goto 網路順暢
EndIf
EndFor
Rem 網路順暢
Return 延時判定
Sub 海上吃料理
For 1
IfColor 100,146,F67BF6,1 //大概是30%
KeyPress 119,1 //F8
Delay 2000
KeyPress 117,1 //F6料理一次
Delay 2000
KeyPress 119,1 //F8
Delay 2000
KeyPress 118,1 //F7料理一次
Delay 2000
IfColor 130,146,67BF6,0 //大概是80%
Delay 200
Goto 吃料理結束
Else
EndIf
Else
Goto 吃料理結束
EndIf
EndFor
Rem 吃料理結束
Return 海上吃料理
回覆

使用道具 舉報


powei20 當前離線
UID
1185757
熱心
24 值
嘉獎
0 次
違規
0 次
在線時間
7 小時
經驗
20 點
積分
67
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-15
論壇幣
10 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
powei20 2010-5-4 20:29:34
感謝大大的分享...
下載試試看...
回覆

使用道具 舉報

jackyhon 當前離線
UID
897425
熱心
9 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
13 點
積分
13
精華
0
最後登錄
2010-9-1
閱讀權限
10
註冊時間
2008-6-20
論壇幣
3 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
jackyhon 2010-5-4 20:32:55
先收下~等等來去試試看
希望能用>"<
感恩先~
回覆

使用道具 舉報

jackyhon 當前離線
UID
897425
熱心
9 值
嘉獎
0 次
違規
0 次
在線時間
10 小時
經驗
13 點
積分
13
精華
0
最後登錄
2010-9-1
閱讀權限
10
註冊時間
2008-6-20
論壇幣
3 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
jackyhon 2010-5-4 21:07:15
沒辦法使用..
大大可以再詳細的教學一下嗎!!
回覆

使用道具 舉報

金金 當前離線
UID
105026
熱心
30 值
嘉獎
0 次
違規
0 次
在線時間
78 小時
經驗
30 點
積分
0
精華
0
最後登錄
2010-6-24
閱讀權限
2
註冊時間
2006-12-2
論壇幣
41 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
金金 2010-5-6 12:15:36
感謝大大的分享

回覆

使用道具 舉報

huhaha 當前離線
UID
1457057
熱心
14 值
嘉獎
0 次
違規
0 次
在線時間
6 小時
經驗
14 點
積分
43
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2010-5-4
論壇幣
3 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
huhaha 2010-5-6 15:10:22
谢谢分享!等一下看看是否好用!
回覆

使用道具 舉報

kazuyaluu 當前離線
UID
1441191
熱心
37 值
嘉獎
0 次
違規
0 次
在線時間
11 小時
經驗
37 點
積分
37
精華
0
最後登錄
2012-1-25
閱讀權限
20
註冊時間
2010-4-10
論壇幣
5 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
kazuyaluu 2010-5-6 23:56:32
.............................................
回覆

使用道具 舉報

wvom 當前離線
UID
651438
熱心
99 值
嘉獎
0 次
違規
0 次
在線時間
115 小時
經驗
68 點
積分
68
精華
0
最後登錄
2014-4-25
閱讀權限
20
註冊時間
2007-11-20
論壇幣
955 幣
聯合幣
3 枚
幸運鑽
0 顆
招待卷
4000 點
查看詳細資料
Rank: 2Rank: 2
wvom 2010-5-7 20:13:59
好ㄚ!!
漂亮!!
感謝大大分享!!
回覆

使用道具 舉報

kouna21 當前離線
UID
1176135
熱心
29 值
嘉獎
0 次
違規
0 次
在線時間
23 小時
經驗
13 點
積分
85
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-6
論壇幣
11 幣
聯合幣
9 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
kouna21 2010-5-8 03:29:56
先收下~等等來去試試看
希望能用感恩~
回覆

使用道具 舉報

kouna21 當前離線
UID
1176135
熱心
29 值
嘉獎
0 次
違規
0 次
在線時間
23 小時
經驗
13 點
積分
85
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-6
論壇幣
11 幣
聯合幣
9 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
kouna21 2010-5-8 03:45:32
先收下~希望能用感恩.........^^
回覆

使用道具 舉報

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


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-3-29 13:45 , Processed in 0.070533 second(s), 17 queries , Memcache On.

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

回頂部
第二步?
第三步?