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

gg2255

有物品不同需要的地方自己在修改一下

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 海上吃料理

外掛聯合國

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

相關POST