造船-貝魯特造小飛

感謝分享~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

1# taiwan57344


以下是我把你的腳本改成我可以用的，可是發現了一個我怎麼改都是一樣的地方，狀況如下:1.無法進入貝魯特
      2.常常執行一次就結束了 就算設定迴圈到點終止鍵都一樣，有時候會回圈，但是都要等很久，而且迴圈還是從開地圖→點酒館老闆開始

以下是我修改過的腳本，希望可以幫我解決最後的問題，非常感謝您∼！！
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
//將視窗左上固定在(0,0)
dim day
VBS dayAdd=H00B71A68
//設定日期內存參數
For 100
    Delay 1000
    MoveTo 649,412
    Gosub 點擊
    Delay 6000
    Gosub 開地圖
    MoveTo 667,221
    Gosub 點擊
    Delay 14000
    //移動到船廠
    KeyPress 27,1
    KeyDown 27,1
    Delay 1000
    Gosub 找船老闆
    //找老闆取船,取船
    MoveTo 650,391
    LeftClick 1
    Delay 3000
    //賣船
    MoveTo 691,387
    LeftClick 1
    Delay 5000
    KeyPress 40,1
    KeyPress 13,2
    Delay 1000
    KeyPress 13,2
    Delay 500
    //新造
    MoveTo 643,407
    LeftClick 1
    Delay 3000
    For 7
        Delay 150
    EndFor
    KeyPress 13,1
    Delay 1000
    //選船-小型阿拉伯
    MoveTo 627,444
    Gosub 點擊
    //確定
    Delay 400
    Gosub 點擊
    Delay 400
    Gosub 點擊
    Delay 400
    KeyPress 49,1
    Gosub 點擊
    Delay 3000
    //完成造船
    Gosub 開地圖
    MoveTo 629,193
    Gosub 點擊
    Delay 4600
    //到休息站
    KeyPress 27,1
    KeyDown 27,1
    Delay 1000
    Gosub 找休息站老闆
    //找休息站主
    For 3
        MoveTo 650,385
        Gosub 點擊
        Delay 2000
        MoveTo 251,268
        Gosub 點擊
        Delay 100
        MoveTo 389,403
        Gosub 點擊
        Delay 300
        Gosub 點擊
        MoveTo 275,324
        Gosub 點擊
        MoveTo 603,439
        Gosub 點擊
        Delay 1500
    EndFor
    //吃料理3次
    Gosub 開地圖
    MoveTo 576,301
    Gosub 點擊
    Delay 13500
    //到碼頭
    KeyPress 27,1
    KeyDown 27,1
    Delay 1000
    Gosub 找碼頭官員
    //找碼頭官員
    Delay 1200
    KeyPress 13,2
    Delay 1200
    MoveTo 649,387
    Gosub 點擊
    Delay 6000
    //到港口,花7秒
    Delay 300
    MoveTo 690,388
    Gosub 點擊
    Delay 1500
    MoveTo 208,380
    Gosub 點擊
    MoveTo 607,422
    Delay 500
    IfColor 607,419,BBCC59,0
        Gosub 點擊
        Delay 500
    Else
        Delay 500
        MoveTo 661,422
        Gosub 點擊
        Delay 500
    EndIf
    //補給
    Delay 1000
    MoveTo 650,386
    Gosub 點擊
    Delay 1200
    MoveTo 646,416
    Gosub 點擊
    //出航
    Delay 5000
    KeyPress 112,1
    Delay 3000
    KeyPress 112,1
    Delay 360000
    a=0
    MoveTo 15,300
    RightDown 1
    MoveTo 750,300
    RightUp 1
    Delay 1000
    KeyPress 9,1
    IfColor 643,366,ffffff,0
        IfColor 668,364,ffffff,0
            IfColor 644,366,ffffff,0
                Delay 1000
                KeyPress 13,2
                Delay 5000
                MoveTo 468,226
                LeftDoubleClick 1
                Delay 10000
                MoveTo 652,388
                IfColor 643,366,ffffff,0
                    IfColor 668,364,ffffff,0
                        IfColor 644,366,ffffff,0
                            KeyPress 13,2
                            a=1
                        EndIf
                    EndWhile
                    //6日後,移動滑屬看到貝魯特
                    Gosub 找貝魯特
                    EndScript
                    //==============================================
                    Sub 點擊
                        Delay 450
                        LeftClick 1
                        Delay 450
                    Return 點擊
                    Sub 開地圖
                        Delay 1000
                        KeyPress 122,1
                        Delay 1000
                    Return 開地圖
                    Sub 找船老闆
                        tmp=1
                        a=0
                        While a=0
                            Delay 200
                            KeyPress 9,1
                            IfColor 634,369,ffffff,0
                                IfColor 640,369,ffffff,0
                                    IfColor 658,368,ffffff,0
                                        IfColor 661,356,ffffff,0
                                            IfColor 668,359,ffffff,0
                                                Delay 300
                                                KeyUp 27,1
                                                Delay 300
                                                KeyPress 13,2
                                                Delay 2000
                                                MoveTo 650,391
                                                Delay 500
                                                Gosub 翻譯
                                                Delay 1500
                                                a=1
                                            EndIf
                                        EndIf
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找船老闆
                    Sub 找休息站老闆
                        a=0
                        tmp=2
                        While a=0
                            Delay 200
                            KeyPress 9,1
                            Delay 300
                            KeyPress 13,2
                            IfColor 703,362,ffffff,0
                                IfColor 711,369,ffffff,0
                                    IfColor 707,356,ffffff,0
                                        Delay 300
                                        KeyUp 27,1
                                        Delay 2000
                                        MoveTo 650,391
                                        Delay 500
                                        Gosub 翻譯
                                        a=1
                                        Delay 2000
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找休息站老闆
                    Sub 找碼頭官員
                        a=0
                        While a=0
                            Delay 200
                            KeyPress 9,1
                            IfColor 647,367,ffffff,0
                                IfColor 660,361,ffffff,0
                                    IfColor 668,364,ffffff,0
                                        IfColor 692,367,ffffff,0
                                            Delay 300
                                            KeyUp 27,1
                                            Delay 300
                                            KeyPress 13,2
                                            Delay 1000
                                            a=1
                                        EndIf
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找碼頭官員
                    Sub 找貝魯特
                        a=0
                        While a=0
                            KeyPress 9,1
                            IfColor 676,369,ffffff,0
                                IfColor 668,359,ffffff,0
                                    IfColor 677,363,ffffff,0
                                        KeyPress 13,2
                                        Delay 1000
                                    EndIf
                                EndIf
                            EndIf
                            MoveTo 652,388
                            IfColor 676,369,ffffff,0
                                IfColor 668,359,ffffff,0
                                    IfColor 677,363,ffffff,0
                                        KeyPress 13,2
                                        a=1
                                    EndIf
                                EndIf
                            EndIf
                        EndWhile
                    Return 找貝魯特
                    Sub 讀參數
                        Plugin day=Memory.Read32Bit(hwnd,dayAdd)
                    Return 讀參數
                    本文章轉自外掛聯合國http://www.wgun.net

非常感謝你的分享.....先看看能不能用
本文章轉自外掛聯合國http://www.wgun.net

我也是再外面六天.就沒動作了@@
不知道問題在那裡ORZ

感謝分享試試看先^^......................

感謝大大的分享...
下載試試看...

感謝大大的分享!!找了好久好久了!!