造船-貝魯特造小飛

這是我修改了你的腳本
減去了休息站和用技能
唔知是否因為這樣所以他不能自動運行
可否幫我睇下MA???
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
Plugin Bkgnd.KeyPress(hwnd)
//將視窗左上固定在(0,0)
dim day
VBS dayAdd=&H00B71A68
//設定日期內存參數
Delay 3000
MoveTo 649,412
Gosub 點擊
Delay 6000
Gosub 開地圖
MoveTo 667,218
Gosub 點擊
Delay 14000
//移動到船廠
KeyPress 27,1
KeyDown 27,1
Delay 1000
Gosub 找船老闆
//找老闆取船,取船
MoveTo 688,389
Gosub 點擊
Delay 3000
//賣船
KeyPress 40,1
Delay 1000
MoveTo 615,436
Delay 500
//移到確定鍵
IfColor 615,436,cbdc66,0
    Gosub 點擊
    Delay 500
    MoveTo 375,285
    Gosub 點擊
    Delay 2000
Else
    MoveTo 669,437
    Gosub 點擊
EndIf
//判定是否賣船
MoveTo 652,412
Gosub 點擊
//新造
Delay 3000
For 7
    KeyPress 40,1
    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 573,300
Gosub 點擊
Delay 13500
//到碼頭
KeyPress 27,1
KeyDown 27,1
Delay 1000
Gosub 找碼頭官員
//找碼頭官員
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,422,C6DF5B,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 6000
//出航
//待時6分鐘
a=0
While a=0
    Gosub 讀參數
    If day>5
        MoveTo 15,300
        Delay 500
        RightDown 1
        Delay 1000
        MoveTo 750,300
        Delay 500
        RightUp 1
        Delay 500
        a=1
    EndIf
EndWhile
//6日後,移動滑屬看到貝魯特
Gosub 找貝魯特
KeyPress 120,1
EndScript
//==============================================
Sub 點擊
    Delay 600
    LeftClick 1
    Delay 450
Return 點擊
Sub 開地圖
    Delay 1000
    KeyPress 122,1
    Delay 1000
Return 開地圖
Sub 翻譯
    b=0
    While b=0
        IfColor 640,377,FFFFFF,0
            IfColor 650,389,82b42b,0
                IfColor 667,381,8ea229,0
                    Gosub 點擊
                    Delay 1000
                EndIf
            EndIf
        EndIf
        If tmp=1
            IfColor 649,383,545f47,0
                IfColor 643,391,8db93a,0
                    IfColor 658,390,3a4627,0
                        b=1
                    EndIf
                EndIf
            EndIf
        EndIf
        Delay 300
        MoveTo 650,391
        Delay 500
    EndWhile
Return 翻譯
Sub 找船老闆
    tmp=1
    a=0
    While a=0
        Delay 200
        KeyPress 9,1
        IfColor 635,353,ffffff,0
            IfColor 650,354,ffffff,0
                IfColor 667,354,ffffff,0
                    IfColor 684,354,ffffff,0
                        IfColor 699,353,ffffff,0
                            Delay 300
                            KeyUp 27,1
                            Delay 300
                            KeyPress 13,1
                            Delay 2000
                            MoveTo 689,384
                            Delay 500
                            Gosub 翻譯
                            Delay 1500
                            a=1
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
Return 找船老闆
Sub 找碼頭官員
    a=0
    While a=0
        Delay 200
        KeyPress 9,1
        IfColor 634,360,ffffff,0
            IfColor 650,353,ffffff,0
                IfColor 673,352,ffffff,0
                    IfColor 693,353,ffffff,0
                        Delay 300
                        KeyUp 27,1
                        Delay 300
                        KeyPress 13,1
                        Delay 1000
                        a=1
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
Return 找碼頭官員
Sub 找貝魯特
    a=0
    While a=0
        KeyPress 9,1
        Delay 200
        IfColor 635,353,ffffff,0
            IfColor 647,366,ffffff,0
                IfColor 679,354,ffffff,0
                    KeyPress 13,1
                    Delay 1000
                EndIf
            EndIf
        EndIf
    EndWhile
Return 找貝魯特
Sub 讀參數
    Plugin day=Memory.Read32Bit(hwnd,dayAdd)
Return 讀參數

大大們真的太厲害了 支持發佈更多腳本

42# erwererwer


那個攀談鍵還是不會用耶
大大可再說明詳細一點嗎
弄一下午了

終於弄好了
可以執行完腳本了
但問題來了
跟樓上的一位遇到相同問題
腳本只能執行一次
而且我也改成「迴圈到按中止執行鍵」
但就是不行耶！有沒大大可幫忙一下的
PS:我也是跟上面那位大大一樣
修改了去休息站跟用技能！難道真的這樣就不能用了嗎？

自問自答！
原來所有的抓點顏色都要重抓
可以用了！！
感謝大大

太感謝大大了~我不需要修改就可以用囉

謝謝大大的分享使用
本文章轉自外掛聯合國http://www.wgun.net

感謝大大的分享
現在就來試看看囉
希望我會用