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

為什麼我的都只會一行一次而已
已經指定 循環制按下中止了.0...
d19229125 發表於 2010-2-1 10:09

昨天我修改一個腳本時也遇到同一問題...
己經設好了直到循環制按下中止了, 或是重複10000萬也好..
腳本只行了一次便停止...(到endscrpipt回港後便停了)

為什麼我的都只會一行一次而已
已經指定 循環制按下中止了.0...
d19229125 發表於 2010-2-1 10:09

昨天我修改一個腳本時也遇到同一問題...
己經設好了直到循環制按下中止了, 或是重複10000萬也好..
腳本只行了一次便停止...(到endscrpipt回港後便停了)

我的code是如下

Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd 0 0)
Delay 4000
MoveTo 649 412
Gosub 點擊
Delay 5000
//從碼頭進港
Gosub 開地圖
MoveTo 412 288
Gosub 點擊
Delay 15500
//移動到造船廠
KeyPress 27 1
KeyDown 27 1
Delay 1000
Gosub 找船老闆
//找船老闆取船
IfColor 641 389 31DDE5 1
    Gosub 點擊
    Delay 1000
EndIf
//CHECK有冇船買button
MoveTo 688 389
Gosub 點擊
Delay 3000
//賣船
KeyPress 40 1
Delay 1000
MoveTo 613 439
Delay 500
//移到確定鍵
IfColor 612 442 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 488 273
Gosub 點擊
Delay 16000
//到碼頭
KeyPress 27 1
KeyDown 27 1
Delay 1000
Gosub 找碼頭官員
//找碼頭官員
Delay 1200
MoveTo 649 387
Gosub 點擊
Delay 6000
//到港口 花7秒
MoveTo 650 386
Gosub 點擊
Delay 1500
MoveTo 646 416
Gosub 點擊
Delay 6000
//出航
//待時12分鐘
KeyPress 119 1
Delay 1000
KeyPress 119 1
Delay 362000
MoveTo 19 545
Delay 1000
RightDown 1
Delay 1000
MoveTo 763 133
Delay 1000
RightUp 1
Delay 1000
//7日後 自動尋卡卡
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 644 372 ffffff 0
            IfColor 661 372 ffffff 0
                IfColor 678 372 ffffff 0
                    IfColor 693 372 ffffff 0
                        IfColor 709 372 ffffff 0
                            //抓取色彩位置:船廠老闆名字白色部份
                            Delay 300
                            KeyUp 27 1
                            Delay 300
                            KeyPress 13 1
                            Delay 2000
                            KeyPress 13 1
                            Delay 2000
                            MoveTo 650 391
                            Delay 500
                            Delay 1500
                            a=1
                        EndIf
                    EndIf
                EndIf
            EndIf
        EndIf
    EndWhile
Return 找船老闆
Sub 找碼頭官員
    a=0
    While a=0
        Delay 200
        KeyPress 9 1
        IfColor 644 372 ffffff 0
            IfColor 661 372 ffffff 0
                IfColor 675 372 ffffff 0
                    IfColor 692 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 645 364 ffffff 0
            IfColor 661 372 ffffff 0
                IfColor 675 369 ffffff 0
                    IfColor 691 372 ffffff 0
                        //抓取色彩位置:卡卡的名子白色部份
                        KeyPress 13 1
                        Delay 1000
                    EndIf
                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 卡卡

謝謝大大的分享
正在苦惱
YCT64B

樓主你好

謝謝你分享腳本

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

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

麻煩使用官方版的7.0的免費版@@
小弟是使用這個做測試的XD
並不會有出現上述相關問題哦~@@
2星期前已畢業囉^^

首先,請先使用官方免費版最新的版本7.X或以上
其他版本不保證可執行0 0 ..小弟也沒有程式可以測..
1.
Plugin hwnd=Window.Foreground()
Plugin Window.Move(hwnd,0,0)
以上這2句是指定選擇的視窗,將其移動到座標0,0的部份
所以啟動時,要在遊戲的畫面按下啟動鍵,即會自動移動視窗

2.
dim day,hex
VBS dayAdd=&H00B71A68
VBS hexAdd=&H00B6FAF0
//設定內存位置(日期&體力)
以上2句是設定日期&體力的記憶體位置..
使用CE 或FPE都可以抓到


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

這應是版本不同的關係了0 0,請下載最近的7.X版


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

此副程式為讀入目前記憶體中,日期及體力的值
需配合問題2的函數設定

謝謝大大，現在燒船中。。。。。。。。。。。。。。。。。。。。。

請問大大一下 為什麼我在出港後 技能放一放 等了12天到了 為什麼就沒有動作了呢