帕爾馬到瓦倫西亞(練香辛料理_會計)

gg2255

[General]
Description=帕爾瑪-巴倫近港
BeginHotkey=51
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=48
StopHotkeyMod=2
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
//桌面分辨率1024*768，寬屏顯示器暫時我沒試過，此腳本在普通比例顯示器下應用。啟動遊戲前修改GV Online Sc.ini中的select_device為0,5,800,600,22,1
//任意港口開始營運腳本（港口的意思就是出航、補給的那個界面~~）船上至少有1種貨物
//不用調整視角適用於大多數船只
//F10開始營運腳本 F11暫停腳本 F12停止腳本 F1副官負責內容變更
//F8自定義欄 F4操帆 F3警戒（如果是排船可換成划船） F6料理1 F7料理2 F9登出
//下面腳本裡面 XDL4=460那個（就是行動力大於多少時停止酒館補充體力，這個數值一定不要寫成你的總的行動力數，稍微比你的行動力上限少一點就行，否則就在酒館待著吧）
VBS dim XDL3,XDL4,a,b,pd0,pd1,pd2,pd3,pd4,pd5,pd6,pd7,pd8,pd9,pd10,pd11,pd12,pd13,pd14,pd15,pd16
VBS tian=1
//數字"1"為啟用"0"為不啟用力內存位址 &H00A77E54
UserVar pd0=0
//啟用酒吧補充體力 0代表否 1代表是
UserVar pd1=0
//會計與利潤模式選擇 0為會計模式 1為利潤模式
UserVar k=0
//是否投資
UserVar XDL3=450
//行動力小於多少時，開始酒館補充體力。
UserVar XDL4=850
//行動力大於多少時，停止酒館補充體力。
UserVar a=4
//大副現下崗位沒有=0 航海=1 巡邏=2 會計=3 以下類推到6
UserVar b=2
//二副現下崗位沒有=0 1-6設定和大副相同
UserVar pd2=0
//啟用購買帕爾瑪1號貨物（橄欖）
UserVar pd3=0
//啟用購買帕爾瑪2號貨物（魚肉）
UserVar pd4=1
//啟用購買帕爾瑪3號貨物（荷蘭芹）
UserVar pd5=1
//啟用購買帕爾瑪4號貨物（葡萄醋）
UserVar pd6=0
//啟用購買帕爾瑪5號貨物（杏仁）
UserVar pd7=1
//啟用購買帕爾瑪6號貨物（牛至）
UserVar pd8=1
//啟用購買帕爾瑪7號貨物（芫荽）
UserVar pd9=1
//啟用購買帕爾瑪8號貨物（歐芹）
UserVar pd10=1
//啟用購買帕爾瑪9號貨物（百里香）
UserVar pd11=1
//啟用購買帕爾瑪10號貨物（珊瑚）
UserVar pd12=0
//啟用購買巴倫西亞5號貨物（杏仁）
UserVar pd13=0
//啟用購買巴倫西亞6號貨物（葡萄乾）
UserVar pd14=0
//啟用購買巴倫西亞7號貨物（羊毛）
UserVar pd15=1
//啟用購買巴倫西亞8號貨物（迷迭香）
UserVar pd16=1
//啟用購買巴倫西亞9號貨物（辰砂）
Rem 主程式開始處
//Gosub 帕爾瑪-巴倫西亞
For 999999999999
VBS gangkuo=0
If gangkou=0
      IfColor 126 44 ffffff 0
         Goto 判斷進巴倫西亞港
      Else
         IfColor 126 44 ffffff 1
            Goto 判斷進帕爾瑪港
         EndIf
      EndIf
Else
EndIf
Gosub 延時判定
Delay 1000
Rem 判斷進巴倫西亞港
Gosub 延時判定
Gosub 進巴倫西亞港
Gosub 延時判定
Delay 3000
Gosub 巴倫西亞港內交易
Delay 2000
Gosub 延時判定
Gosub 延時判定
Gosub 出巴倫西亞港
Delay 2000
Gosub 延時判定
Gosub 巴倫西亞-帕爾瑪
Delay 3000
Gosub 延時判定
Delay 2000
VBS gangkuo=0
If gangkou=0
      IfColor 126 44 ffffff 0
         Goto 判斷進巴倫西亞港
      Else
         IfColor 126 44 ffffff 1
            Goto 判斷進帕爾瑪港
         EndIf
      EndIf
Else
EndIf
Rem 判斷進帕爾瑪港
Delay 1000
Gosub 進帕爾瑪港
Gosub 延時判定
Gosub 帕爾瑪港內交易
Delay 2000
Gosub 延時判定
Delay 2000
Gosub 出帕爾瑪港
Delay 2000
Gosub 延時判定
VBS tian=tian+1
If tian=30
      Gosub 副官換崗位
      VBS tian=0
EndIf
Delay 2000
Gosub 延時判定
Gosub 帕爾瑪-巴倫西亞
Delay 3000
Gosub 延時判定
EndFor
Rem 主程式結束處
Sub 出巴倫西亞港
Gosub 出港
Return 出巴倫西亞港
Sub 巴倫西亞-帕爾瑪
Delay 1000
Gosub 延時判定
Gosub 海上吃料理
Delay 500
KeyDown 17 1
KeyDown 40 1
Delay 2000
KeyUp 17 1
KeyUp 40 1
Gosub 暴風雨等待
MoveTo 300 180
RightDown 1
MoveTo 335 180
RightUp 1
Delay 2000
MoveTo 400 160
LeftClick 2
Delay 500
MoveTo 400 280
LeftClick 2
Delay 500
MoveTo 400 220
LeftClick 2
Delay 500
MoveTo 400 120
LeftClick 2
Delay 500
Gosub 啟航
KeyPress 119 1 // F1 自定義欄
Delay 2000
KeyPress 112 1 //F4 操帆
Delay 1000
KeyPress 119 1 // F1 自定義欄
Delay 2000
KeyPress 114 1 //F3 警戒
Delay 5000
KeyPress 45 1
For 9
      MoveTo 400 100
      LeftClick 2
      Delay 10000
      Gosub 暴風雨停船
EndFor
Delay 3000
KeyPress 46,1
Delay 1000
KeyDown 17 1
KeyDown 38 1
Delay 1300
KeyUp 17 1
KeyUp 38 1
Delay 1500
RightClick 1
KeyPress 27 2
Delay 1000
Gosub 找帕爾瑪
Gosub 延時判定
Return 巴倫西亞-帕爾瑪
Sub 進帕爾瑪港
Delay 500
Gosub 延時判定
MoveTo 652 411
Delay 500
LeftClick 1
Gosub 延時判定
Return 進帕爾瑪港
Sub 帕爾瑪港內交易
Delay 1000
Gosub 延時判定
Delay 500
Gosub 延時判定
Delay 500
KeyDown 17 1
KeyDown 40 1
Delay 1300
KeyUp 40 1
KeyUp 17 1
Delay 100
KeyDown 27 1
Delay 100
Delay 50
MoveTo 400 180
RightDown 1
MoveTo 340 180
RightUp 1
Delay 50
KeyDown 38 1
Delay 6500
KeyUp 38 1
Delay 1
MoveTo 400 180
RightDown 1
MoveTo 500 180
RightUp 1
Delay 50
KeyDown 38 1
Delay 5000
KeyUp 38 1
Delay 100
VBS REfind=0
Rem 尋找帕爾瑪交易學徒
If REfind<100
      KeyPress 9 1
      Delay 500
      VBS REfind=REfind+1
      IfColor 640 367 ffffff 0
         IfColor 653 366 ffffff 0
            IfColor 706 369 FFFFFF 0
                  VBS MrRight=1
                  Goto 選定帕爾瑪交易學徒
            EndIf
         EndIf
      Else
         Goto 尋找帕爾瑪交易學徒
      EndIf
      Goto 尋找帕爾瑪交易學徒
Else
      Gosub 出錯報警下線
EndIf
Rem 選定帕爾瑪交易學徒
If MrRight=1
      KeyPress 13 1
      Shape1=2012885647
      //網路延時的時候的漏斗形狀
      Shape2=2106545426
      //正常情況下的黃色箭頭
      VBSCall Shape=GetCursorShape(0)
      If shape = shape1
         Delay 100
         Goto 找帕爾瑪交易學徒結束
      ElseIf shape = shape2
         KeyPress 27 1
         Goto 尋找帕爾瑪交易學徒
      EndIf
EndIf
Delay 1000
Rem 找帕爾瑪交易學徒結束
KeyUp 27 1
Delay 500
Gosub 帕爾瑪買賣貨物
Delay 1000
KeyDown 40,1
Delay 5000
KeyUp 40,1
Delay 1
MoveTo 400,180
RightDown 1
MoveTo 290,180
RightUp 1
Delay 1
KeyDown 40,1
Delay 7500
KeyUp 40,1
Delay 100
KeyDown 27,1
Delay 1000
VBS REfind=0
Rem 尋找帕爾瑪碼頭官員
If REfind<100
      KeyPress 9 1
      Delay 500
      VBS REfind=REfind+1
      IfColor 633 358 FFFFFF 0
         IfColor 643 369 FFFFFF 0
            IfColor 690 370 FFFFFF 0
                  KeyUp 27 1
                  VBS MrRight=1
                  Goto 選定帕爾瑪碼頭導航員
            EndIf
         EndIf
      Else
         Goto 尋找帕爾瑪碼頭導航員
      EndIf
      Goto 尋找帕爾瑪碼頭導航員
Else
      Gosub 出錯報警下線
EndIf
Rem 選定帕爾瑪碼頭導航員
If MrRight=1
      KeyPress 13 1
      Shape1=2012885647
      //網路延時的時候的漏斗形狀
      Shape2=2106545426
      //正常情況下的黃色箭頭
      VBSCall Shape=GetCursorShape(0)
      If shape = shape1
         Delay 100
         Goto 到碼頭去
      ElseIf shape = shape2
         KeyPress 27,1
         Goto 尋找帕爾瑪碼頭導航員
      EndIf
EndIf
Rem 到碼頭去
Gosub 延時判定
MoveTo 647 388 //前往碼頭
Delay 500
LeftClick 1
Gosub 延時判定
Return 帕爾瑪港內交易
Sub 出帕爾瑪港
Gosub 出港
Return 出帕爾瑪港
Sub 帕爾瑪-巴倫西亞
Delay 1000
Gosub 延時判定
Gosub 海上吃料理
KeyPress 27 1
Delay 200
Gosub 延時判定
KeyDown 17 1
KeyDown 40 1
Delay 2000
KeyUp 17 1
KeyUp 40 1
Delay 200
Gosub 暴風雨等待
MoveTo 400 200
RightDown 1
MoveTo 300 200
RightUp 1
Delay 200
MoveTo 400 240
LeftClick 2
Delay 200
MoveTo 400 150
LeftClick 2
MoveTo 400 80
LeftClick 2
Delay 200
Gosub 啟航
KeyPress 119 1 // F1 自定義欄
Delay 2000
KeyPress 112 1 //F4 操帆
Delay 1000
KeyPress 119 1 // F1 自定義欄
Delay 2000
KeyPress 114 1 //F3 警戒
Delay 2000
KeyPress 45 1
For 10
      MoveTo 400 80
      LeftClick 2
      Delay 10000
      Gosub 暴風雨停船
EndFor
Delay 4500
LeftClick 2
KeyPress 27 2
KeyDown 17 1
KeyDown 38 1
Delay 1200
KeyUp 17 1
KeyUp 38 1
Delay 500
Gosub 找巴倫西亞
Gosub 延時判定
Return 帕爾瑪-巴倫西亞
Sub 進巴倫西亞港
MoveTo 648 414
Delay 500
LeftClick 1
Gosub 延時判定
Delay 200
Return 進巴倫西亞港
Sub 巴倫西亞港內交易
Delay 1000
Gosub 延時判定
If Pd0=1
      VBSCall ReadMemory( &H00A77E54,2,XDL)
      If XDL<XDL3
         Gosub 巴倫西亞港內交易2
      Else
         Gosub 巴倫西亞港內交易1
      EndIf
ElseIf Pd0=0
      Gosub 巴倫西亞港內交易1
EndIf
Delay 1000
Return 巴倫西亞港內交易
Sub 巴倫西亞港內交易1
Delay 500
Gosub 延時判定
Delay 200
KeyDown 17 1
KeyDown 40 1
Delay 1300
KeyUp 40 1
KeyUp 17 1
Delay 10
KeyDown 27 1
Delay 100
KeyDown 38 1
Delay 6200
KeyUp 38 1
Delay 1
MoveTo 400 180
RightDown 1
MoveTo 300 180
RightUp 1
Delay 1
KeyDown 38 1
Delay 3000
KeyUp 38 1
Delay 10
MoveTo 400 180
RightDown 1
MoveTo 176 180
RightUp 1
Delay 10
KeyDown 38 1
Delay 2570
KeyUp 38 1
Delay 1000
Gosub 找巴倫西亞頭家
KeyUp 27 1
Delay 1000
Gosub 巴倫西亞買賣貨物
Delay 1000
KeyDown 27 1
Delay 200
KeyDown 40 1
Delay 2570
KeyUp 40 1
Delay 10
MoveTo 176 180
RightDown 1
MoveTo 400 180
RightUp 1
Delay 10
KeyDown 40 1
Delay 8700
KeyUp 40 1
//Gosub 找巴倫西亞城市官員
Delay 500
Gosub 找巴倫西亞碼頭官員
KeyUp 27 1
Delay 1000
Gosub 延時判定
MoveTo 647 388 //前往碼頭
LeftClick 1
Gosub 延時判定
Gosub 延時判定
Return 巴倫西亞港內交易1
Sub 巴倫西亞港內交易2
Gosub 延時判定
KeyDown 17 1
KeyDown 40 1
Delay 1300
KeyUp 40,1
KeyUp 17 1
Delay 100
MoveTo 400,180
RightDown 1
MoveTo 600,180
RightUp 1
Delay 100
KeyDown 27 1
KeyDown 38 1
Delay 4400
KeyUp 38 1
Delay 200
Gosub 找酒吧
Gosub 延時判定
Gosub 找酒吧頭家
Gosub 延時判定
Gosub 離開酒吧找巴倫西亞頭家
Gosub 延時判定
Delay 200
Gosub 巴倫西亞買賣貨物
Delay 1000
MoveTo 750 135
RightDown 1
MoveTo 345 135
RightUp 1
Delay 200
KeyPress 27 1
KeyDown 38 1
Delay 3600
KeyUp 38 1
Delay 1000
Gosub 存錢
//Gosub 找巴倫西亞城市官員
Delay 500
Gosub 找巴倫西亞碼頭官員
KeyUp 27 1
Delay 500
MoveTo 647 388 //前往碼頭
LeftClick 1
Gosub 延時判定
Gosub 延時判定
Return 巴倫西亞港內交易2
Sub 找帕爾瑪
VBS REfind=0
Rem 搜索帕爾瑪
If REfind<100
      Delay 100
      KeyPress 9 1
      Delay 500
      VBS REfind=REfind+1
      IfColor 636 357 ffffff 0
         IfColor 649 368 ffffff 0
            IfColor 659 366 ffffff 0
                  IfColor 673 369 ffffff 0
                     IfColor 674 370 ffffff 0
                        RightClick 1
                        Delay 300
                        KeyPress 46 1
                        Delay 100
                        KeyPress 46 1
                        Delay 100
                        VBS MrRight=1
                        Goto 返回確定帕爾瑪
                     EndIf
                  EndIf
            EndIf
         EndIf
      Else
         Delay 100
         KeyDown 17,1
         KeyDown 39,1
         Delay 200
         KeyUp 39,1
         KeyUp 17,1
         Delay 100
         Goto 搜索帕爾瑪
      EndIf
      Delay 100
      KeyDown 17,1
      KeyDown 39,1
      Delay 200
      KeyUp 39,1
      KeyUp 17,1
      Delay 100
      Goto 搜索帕爾瑪
Else
      Gosub 出錯報警下線
EndIf
Rem 返回確定帕爾瑪
If MrRight=1
      KeyPress 13 2
      Delay 100
      Shape1=2012885647
      //網路延時的時候的漏斗形狀
      Shape2=2106545426
      //正常情況下的黃色箭頭
      VBSCall Shape=GetCursorShape(0)
      If shape=shape1
         Goto 確認進入帕爾瑪
      ElseIf shape=shape2
         Delay 300
         Goto 返回確定帕爾瑪
      EndIf
EndIf
Rem 確認進入帕爾瑪
Gosub 延時判定
Return 找帕爾瑪
Sub 找巴倫西亞
VBS REfind=0
Rem 搜索巴倫西亞
If REfind<100
      KeyPress 9 1
      Delay 500
      VBS REfind=REfind+1
      IfColor 644 358 ffffff 0
         IfColor 658 364 ffffff 0
            IfColor 667 366 ffffff 0
                  IfColor 675 357 ffffff 0
                     IfColor 687 366 ffffff 0
                        RightClick 1
                        Delay 700
                        KeyPress 46 1
                        Delay 100
                        KeyPress 46 1
                        Delay 100
                        VBS MrRight=1
                        Goto 返回確定巴倫西亞
                     EndIf
                  EndIf
            EndIf
         EndIf
      Else
         Goto 搜索巴倫西亞
      EndIf
      Goto 搜索巴倫西亞
Else
      Gosub 出錯報警下線
EndIf
Rem 返回確定巴倫西亞
If MrRight=1
      KeyPress 13 4
      Delay 300
      Shape1=2012885647
      //網路延時的時候的漏斗形狀
      Shape2=2106545426
      //正常情況下的黃色箭頭
      VBSCall Shape=GetCursorShape(0)
      If shape=shape1
         Goto 確認進入巴倫西亞
      Else
         Delay 300
         VBS MrRight=1
         Goto 返回確定巴倫西亞
      EndIf
EndIf
Rem 確認進入巴倫西亞
Gosub 延時判定
Delay 1000
Gosub 延時判定
Return 找巴倫西亞
Sub 延時判定
Shape1=2012885647
//網路延時的時候的漏斗形狀
Shape2=2106545426
//正常情況下的黃色箭頭
Delay 500
Rem 等待
VBSCall Shape=GetCursorShape(0)
If shape = shape1
      Delay 500
      Goto 等待
ElseIf shape = shape2
      Goto 網路順暢
EndIf
Rem 網路順暢
Return 延時判定
Sub 海上吃料理
Gosub 延時判定
For 10
      IfColor 134,144,353535,0
         Delay 100
         KeyPress 119,1
         Delay 2000
         KeyPress 113,1
         Delay 100
      Else
         Goto 吃料理結束
      EndIf
EndFor
Rem 吃料理結束
Delay 200
Return 海上吃料理
Sub 巴倫西亞買賣貨物
Gosub 延時判定
MoveTo 690 387
Delay 200
LeftClick 1
Gosub 延時判定
Delay 500
If pd1=0
      Rem 巴倫西亞繼續抬價
      MoveTo 468 351
      Delay 200
      MoveTo 468 351
      Delay 200
      LeftClick 1
      Delay 1800
      MoveTo 468 351
      Delay 200
      LeftClick 1
      Delay 1800
Else
      MoveTo 330 100
      Delay 500
      LeftClick 1
      Delay 500
EndIf
EndIf
MoveTo 330 100
Delay 500
LeftClick 1
Delay 500
MoveTo 629 441
Delay 500
LeftClick 1
Gosub 延時判定
Delay 500
VBS MrRight=0
If MrRight=0
Rem 巴倫西亞繼續購買
MoveTo 654 389
Delay 500
LeftClick 1
Gosub 延時判定
Delay 1000
Rem 巴倫西亞繼續砍價
MoveTo 485 351
Delay 300
LeftClick 1 //點擊砍價
Delay 1500
If pd12=1
      MoveTo 383 331
      For 20
         LeftClick 1
         Delay 50
      EndFor
      MoveTo 382 189
      For 20
         LeftClick 1
         Delay 50
      EndFor
EndIf
If pd13=1
      KeyPress 40 1
      MoveTo 383 331
      For 30
         LeftClick 1
         Delay 50
      EndFor
      MoveTo 382 260
      For 20
         LeftClick 1
         Delay 50
      EndFor
      MoveTo 382 189
      For 20
         LeftClick 1
         Delay 50
      EndFor
EndIf
If pd14=1
      KeyPress 38 10
      KeyPress 40 2
      MoveTo 383 331
      For 25
         LeftClick 1
         Delay 50
      EndFor
      MoveTo 382 189
      For 10
         LeftClick 1
         Delay 50
      EndFor
EndIf
If pd15=1
      KeyPress 38 10
      KeyPress 40 7
      MoveTo 383 331
      For 30
         LeftClick 1
         Delay 50
      EndFor
      MoveTo 382 189
      For 10
         LeftClick 1
         Delay 50
      EndFor
EndIf
If pd16=1
      KeyPress 38 10
      KeyPress 40 8
      MoveTo 383 331
      For 20
         LeftClick 1
         Delay 50
      EndFor
      MoveTo 382 189
      For 20
         LeftClick 1
         Delay 50
      EndFor
EndIf
MoveTo 665 442
Delay 200
LeftClick 1 //確定
Delay 500
Gosub 延時判定
Goto 巴倫西亞買賣結束
EndIf
Rem 巴倫西亞買賣結束
Gosub 延時判定
Delay 1000
KeyPress 27 1
KeyPress 27 1
Delay 500
Gosub 延時判定
Return 巴倫西亞買賣貨物

外掛聯合國

[分享] 帕爾馬到瓦倫西亞(練香辛料理_會計)

相關POST