造船-3782造中飛(新增功能:體力不足時自動補體力)及詳細抓點說明(貝魯特部份可參考)

//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)
dim day,hex
VBS dayAdd=&H00B71A68
VBS hexAdd=&H00B6FAF0
//設定內存位置(日期&體力)
UserVar eat=3 吃料理次數
//設定吃料理次數(預設3次)
Delay 1000
MoveTo 649,412
Gosub 點擊
Delay 6000
//從碼頭進港
Gosub 開地圖
MoveTo 657,216
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 13
    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 615,181
Gosub 點擊
Delay 4600
//到休息站
KeyPress 27,1
KeyDown 27,1
Delay 1000
Gosub 找休息站老闆
Gosub 吃料理
//吃料理3次
Gosub 開地圖
MoveTo 572,306
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 1500
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
For 5
    KeyPress 119,1
    Delay 1500
    KeyPress 119,1
    Delay 1000
EndFor
//放技能自訂1~3+開彩卷5次
//待時12分鐘
a=0
While a=0
    Gosub 讀參數
    If day>11
        MoveTo 15,300
        Delay 500
        RightDown 1
        Delay 1000
        MoveTo 750,300
        Delay 500
        RightUp 1
        Delay 500
        a=1
    EndIf
EndWhile
//11日後,自動尋找3782
Gosub 找3782
EndScript
//==============================================
Sub 點擊
    Delay 450
    LeftClick 1
    Delay 450
Return 點擊
Sub 開地圖
    Delay 1000
    KeyPress 122,1
    Delay 1000
Return 開地圖
Sub 翻譯
    Gosub 讀參數
    If hex<40
        Delay 200
        KeyPress 119,1
        Delay 1000
        KeyPress 118,1
        Delay 1000
    EndIf
    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 找3782
    a=0
    While a=0
        KeyPress 9,1
        Delay 200
        IfColor 636,360,ffffff,0
            IfColor 678,373,ffffff,0
                IfColor 694,373,ffffff,0
                    //抓取色彩位置:3782的名子白色部份
                    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 找3782
Sub 讀參數
    Plugin day=Memory.Read32Bit(hwnd,dayAdd)
    Plugin hex=Memory.Read32Bit(hwnd,hexAdd)
    //讀入目前日期及時間
Return 讀參數
Sub 吃料理
    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
    If eat>1
        For eat-1
            MoveTo 650,385
            Gosub 點擊
            Delay 2000
            MoveTo 603,439
            Gosub 點擊
            Delay 1500
        EndFor
    EndIf
Return 吃料理

有新增功能,另外抓點說明請參考此篇
希望對各位大大們有幫助
一起到燒到R15吧~~XD

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 657,212
Gosub 點擊
Delay 16000
//移動到船廠
KeyPress 27,1
KeyDown 27,1
Delay 2000
Gosub 找船老闆
//找老闆取船,取船
MoveTo 688,389
Gosub 點擊
Delay 1500
//賣船
KeyPress 40,1
Delay 2000
MoveTo 613,439
Delay 500
//移到確定鍵
IfColor 614,431,bbcc59,0
    IfColor 630,431,cdc94b,0
        Gosub 點擊
        Delay 500
        MoveTo 375,285
        Gosub 點擊
        Delay 1000
    Else
        MoveTo 669,437
        Gosub 點擊
    EndIf
    //判定是否賣船
    MoveTo 652,412
    Gosub 點擊
    //新造
    Delay 2000
    For 11
        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
    //完成造船
    Delay 2000
    Gosub 開地圖
    MoveTo 571,300
    Gosub 點擊
    Delay 16000
    //到碼頭
    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 587,412,fefefe,0
        IfColor 627,412,d0c942,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+開彩卷
        //待時10分鐘
        a=0
        While a=0
            Gosub 讀參數
            If day>9
                MoveTo 15,300
                Delay 500
                RightDown 1
                Delay 1000
                MoveTo 750,300
                Delay 500
                RightUp 1
                Delay 500
                a=1
            EndIf
        EndWhile
        //2日後,移動滑屬看到3782
        Gosub 找3782
        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 643,384,2b3141,0
                    IfColor 642,392,e1eb63,0
                        IfColor 660,391,65682a,0
                            Gosub 點擊
                            Delay 1000
                        EndIf
                    EndIf
                EndIf
                If tmp=1
                    IfColor 644,377,60dde0,0
                        IfColor 642,392,e1ec66,0
                            IfColor 653,379,2226c1,0
                                b=1
                            EndIf
                        EndIf
                    EndIf
                Else
                    IfColor 653,387,153ca7,0
                        IfColor 663,387,1b265c
                            IfColor 655,380,9e255d,0
                            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 642,354,ffffff,0
                    IfColor 652,356,ffffff,0
                        IfColor 671,358,ffffff,0
                            IfColor 688,355,ffffff,0
                                IfColor 705,359,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
            While a=0
                Delay 200
                KeyPress 9,1
                IfColor 643,356,ffffff,0
                    IfColor 654,357,ffffff,0
                        IfColor 673,356,ffffff,0
                            IfColor 690,356,ffffff,0
                                Delay 300
                                KeyUp 27,1
                                Delay 300
                                KeyPress 13,1
                                Delay 1000
                                a=1
                            EndIf
                        EndIf
                    EndIf
                EndIf
            EndWhile
        Return 找碼頭官員
        Sub 找3782
            a=0
            While a=0
                KeyPress 9,1
                Delay 200
                IfColor 641,355,ffffff,0
                    IfColor 656,358,ffffff,0
                        IfColor 673,353,ffffff,0
                            KeyPress 13,1
                            Delay 1000
                        EndIf
                    EndIf
                EndIf
                MoveTo 652,406
                IfColor 639,403,d4adaa,0
                    IfColor 661,402,e8df88,0
                        Gosub 點擊
                        a=1
                    EndIf
                EndIf
            EndIf
        EndWhile
    Return 找3782
    Sub 讀參數
        Plugin day=Memory.Read32Bit(hwnd,dayAdd)
    Return 讀參數
     
大大能幫我看看哪裡出錯~他部會找3782~我弄好九了ˊˋ

大大您好~ 您的3782副程式中
多了一個endif
請先改掉試試看~
如果沒辦法,可以修改一下抓色位置
有幫您寫註解囉~
參考看看吧^^

Sub 找3782
            a=0
            While a=0
                KeyPress 9,1
                Delay 200
                IfColor 641,355,ffffff,0
                    IfColor 656,358,ffffff,0
                        IfColor 673,353,ffffff,0
                       //抓3782名字白色的部份
                            KeyPress 13,1
                            Delay 1000
                        EndIf
                    EndIf
                EndIf
                MoveTo 652,406
                IfColor 639,403,d4adaa,0
                    IfColor 661,402,e8df88,0
                     //抓碼頭的出港鍵顏色
                        Gosub 點擊
                        a=1
                    EndIf
                EndIf
            EndIf    <---多了一個ENDIF
        EndWhile
    Return 找3782

樓主你好

謝謝你分享腳本

小弟有一事想問..
不知為什麼在找船老闆的gosub中
我不能找到...
試過用樓主的code, 或是自行找色跟點...但還是不行
但相對的找休息站的老闆又可以..

請問樓主知道我的問題在哪嗎@@?

((小弟試過原來樓主的code還是不行..
按鍵是用v6的..

謝謝

樓主你好

謝謝你分享腳本

小弟有一事想問..
不知為什麼在找船老闆的gosub中
我不能找到...
試過用樓主的code, 或是自行找色跟點...但還是不行
但相對的找休息站的老闆又可以..

請問樓主知道我的問題在哪 ...
kelvinpg 發表於 2010-1-31 10:42

請問 您找點的位置是在那裡呢?
小弟的找尋NPC的點
都是以NPC的ID來做抓點抓色
基本上只要色碼有改對
程式都可以直接套用哦^^
如還有問題
可以將您的找船老闆的副程式POST上來看看囉^^

請問 您找點的位置是在那裡呢?
小弟的找尋NPC的點
都是以NPC的ID來做抓點抓色
基本上只要色碼有改對
程式都可以直接套用哦^^
如還有問題
可以將您的找船老闆的副程式POST上來看看囉^^
taiwan57344 發表於 2010-2-1 02:08

謝謝大大的回覆^^
等小弟今晚回家再找找出來...
但是..小弟對大大的code有地方看不懂..希望大大可以賜教:

1)
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
請問大大這2句code是不是為了執行後程式會自動將視窗固定在左上?
但是對小弟的好像無效...他不會在執行後固定在視窗的左上..請問是不是按鍵精靈版本不同的關係? 小弟在用v6.2, 我十分希望能固定在左上方...因為每次手動放視窗時..對點有時會有走動...令小弟又要重新抓點.......orz

2)
dim day,hex
VBS dayAdd=&H00B71A68
VBS hexAdd=&H00B6FAF0

請問大大這2句code怎讀到時間...
由於小弟不會用..最後只能用原始的方法...delay 時間的...orz
上google大神找過這code..但找不到資料...

3)
MoveTo 208,380

小弟的code不能在x, y中有「,」, 否則按鍵精靈會認不到的..
請問是否版本不的關係@@?

4)
Sub 讀參數
    Plugin day=Memory.Read32Bit(hwnd,dayAdd)
    Plugin hex=Memory.Read32Bit(hwnd,hexAdd)
    //讀入目前日期及時間
Return 讀參數

小弟對這個又是不會看...希望大大可以賜教..

抱歉..小弟只是按鍵精靈的新手..所以不會看的code太多, 問題又很多..>~<

謝謝大大的回覆...
今晚小弟回家再看看貼上來..

另外..小弟對大大的code有很多地方也看不懂...希望大大可以賜教 :)

1)

Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)

請問大大這2句code是不是為了在執行後固定在左上方? 但是小弟在執後這句後, 遊戲還是不懂得自動走去左上方...令小弟每次執後還得手動
但因手動的關係..對於抓點又必跟上一次一樣...小弟還得重抓點...(如npc id的的點...orz)
請問這個是不是因為小弟在用v6.2的按鍵關係呢?
如果能跟大大說的自動固定在左上便好了...

2)

dim day,hex
VBS dayAdd=&H00B71A68
VBS hexAdd=&H00B6FAF0
//設定內存位置(日期&體力)

小弟不懂得怎樣看這2句code..
查過google大神也找不到相關的資料..
請問內存位置是怎樣查看呢?
這2句又是代表甚麼日子跟體力@@?


3)
MoveTo 208,380

小弟在複製大大的code時, v6.2的按鍵不能支援 x,y之間有「,」
請問是不是因為小弟跟大大的按鍵版本不同的關係?


4)

Sub 讀參數
    Plugin day=Memory.Read32Bit(hwnd,dayAdd)
    Plugin hex=Memory.Read32Bit(hwnd,hexAdd)
    //讀入目前日期及時間
Return 讀參數

小弟看不懂這句的意思...

十分抱歉..小弟是按鍵寫code的新手...希望大大可以賜教
謝謝 ^^

為什麼我的都只會一行一次而已
已經指定 循環制按下中止了.0...