造船-貝魯特造小飛

1.請將螢幕設定為800*600 16bit色,執行後程式會自動將視窗固定在左上
2.無法順利點npc,請自行抓點抓色(抓色目標點: 點NPC後,在右下角會出現名子,抓白色字體的部份)
3.自定欄設定為F8 城內地圖設定為F11
4.出港後的技能施放,請放在自定欄內的F1~F3
5.彩卷放在自定欄內的F8
6.雖然有寫出翻譯的程式,但還是建議學一下當地的語言,避免行動力不足
7.如有相關問題,歡迎提出,謝謝 ^^
使用方式:
在碼頭按下快速鍵即可

程式碼如下:
===========我是分隔線=============
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
//將視窗左上固定在(0,0)
dim day
VBS dayAdd=&H00B71A68
//設定日期內存參數
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 688,389
Gosub 點擊
Delay 3000
//賣船
KeyPress 40,1
Delay 1000
MoveTo 613,439
Delay 500
//移到確定鍵
IfColor 613,439,abbd44,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 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 575,308
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,d1e173,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
//出航
KeyPress 119,1
Delay 1500
KeyPress 112,1
Delay 1000
KeyPress 119,1
Delay 1500
KeyPress 113,1
Delay 1000
KeyPress 119,1
Delay 1500
KeyPress 114,1
Delay 1000
KeyPress 119,1
Delay 1500
KeyPress 119,1
Delay 1000
KeyPress 119,1
Delay 1500
KeyPress 119,1
Delay 1000
//放技能自訂1~3+開彩卷
//待時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 找貝魯特
EndScript
//==============================================
Sub 點擊
    Delay 450
    LeftClick 1
    Delay 450
Return 點擊
Sub 開地圖
    Delay 1000
    KeyPress 122,1
    Delay 1000
Return 開地圖
Sub 翻譯
    b=0
    While b=0
        IfColor 651,384,d1dfe0,0
            IfColor 641,389,41597e,0
                IfColor 662,392,3f4a5e,0
                    Gosub 點擊
                    Delay 1000
                EndIf
            EndIf
        EndIf
        If tmp=1
            IfColor 649,383,46c3c8,0
                IfColor 643,391,31dde5,0
                    IfColor 658,390,eceeee,0
                        b=1
                    EndIf
                EndIf
            EndIf
        Else
            IfColor 647,386,827766,0
                IfColor 656,394,726b53,0
                    b=1
                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,360,ffffff,0
            IfColor 663,373,ffffff,0
                IfColor 673,360,ffffff,0
                    IfColor 686,373,ffffff,0
                        IfColor 711,373,ffffff,0
                            Delay 300
                            KeyUp 27,1
                            Delay 300
                            KeyPress 13,1
                            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,1
        IfColor 636,372,ffffff,0
            IfColor 668,372,ffffff,0
                IfColor 701,370,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 636,361,ffffff,0
            IfColor 661,371,ffffff,0
                IfColor 677,373,ffffff,0
                    IfColor 693,372,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,360,ffffff,0
            IfColor 652,372,ffffff,0
                IfColor 669,372,ffffff,0
                    KeyPress 13,1
                    Delay 1000
                EndIf
            EndIf
        EndIf
        MoveTo 652,388
        IfColor 652,388,ececec,0
            IfColor 645,395,607225,0
                IfColor 660,395,191c55,0
                    a=1
                EndIf
            EndIf
        EndIf
    EndWhile
Return 找貝魯特
Sub 讀參數
    Plugin day=Memory.Read32Bit(hwnd,dayAdd)
Return 讀參數

謝謝你的腳本。
想請問一下，當我執行腳本到「副程式•找船老闆」的時候，程式就不停在各工匠、船匠和船老闆間切換，無法繼續。我曾想嘗試自行抓色，但看不明白(635,373),(663,373),(673,360),(686,373),(711,373)等 ...
caramelcoffee 發表於 2010-1-12 04:36

您好~ 副程式內的找老闆跟找官員 都是用他們的名子來設定尋找條件的
點NPC一下 他們的名子就會出現在右下角
只要去抓他們名子的顏色即可(白色)

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

安安~我想請問~我按精跑到魯貝克造船老闆~打開了他的選項~但是他卻是停在購買新船上~不是造船~然後就不動了~請問要怎麼解決>"<

安安~我想請問~我按精跑到魯貝克造船老闆~打開了他的選項~但是他卻是停在購買新船上~不是造船~然後就不動了~請問要怎麼解決>"
eva2000ww 發表於 2010-1-15 01:18

您好~ 這腳本是針對貝魯特燒小飛的..不是盧貝克哦XD

如果狀況如下:
1.副程式翻譯抓點,是抓 攀談 那個鍵,不是抓購買哦
2.3圍如不足夠可以開小飛,會出現錯誤哦^^"
那部份的判定程式碼宋寫入
如有需要 等六~日有空再寫囉QQ

研究半天~終於有點頭緒~只剩下這幾個問題~希望版大解惑
1.
//賣船
KeyPress 40,1
Delay 1000
MoveTo 613,439
Delay 500
//移到確定鍵
IfColor 613,439,abbd44,0<==這各代表啥意思

2.
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

3.Sub 翻譯
    b=0
    While b=0
        IfColor 651,384,d1dfe0,0
             IfColor 641,389,41597e,0
                IfColor 662,392,3f4a5e,0<=這3行是哪各的翻譯
                    Gosub 點擊
                    Delay 1000
                EndIf
            EndIf
        EndIf
        If tmp=1
            IfColor 649,383,46c3c8,0
                IfColor 643,391,31dde5,0
                    IfColor 658,390,eceeee,0<=這3行捏
                        b=1
                    EndIf
                EndIf
            EndIf
        Else
            IfColor 647,386,827766,0
                IfColor 656,394,726b53,0<=最後這2行>"<
                    b=1
                EndIf
            EndIf
        EndIf
        Delay 300
        MoveTo 650,391
        Delay 500
    EndWhile


希望版大能解惑指教~感謝版大..

[quote]研究半天~終於有點頭緒~只剩下這幾個問題~希望版大解惑
1.
//賣船
KeyPress 40,1
//這段意思為前台鍵盤按下

Delay 1000
//延時1秒
MoveTo 613,439
//將滑鼠移至 613,439座標上

Delay 500
//延時0.5秒

//移到確定鍵
IfColor 613,439,abbd44,0
//顏色判斷613,493是否等於abbd44色碼


2.
Gosub 讀參數<=這是哪裡的參數
//Gosub為調用過程&子程序

    If day>5
//如果day大於5則執行

        MoveTo 15,300
//前台移動滑鼠

        Delay 500
//延時0.5秒

        RightDown 1
//滑鼠右鍵按下

        Delay 1000
//延時1秒

        MoveTo 750,300
//前台將滑鼠移至750,300座標上

        Delay 500
//延時0.5秒

        RightUp 1
//滑鼠右鍵彈起

        Delay 500
//延時0.5秒
        a=1
    EndIf

大致上就是這個意思

真是方便阿...

但是 要怎改成抓圖呢？

我用小筆電玩....設成 800*600 它都不會動作...懷疑是 寬螢幕的問題= =a