掛電球的按鍵精靈外掛 +找怪腳本~

修改自pakpak911 大大的腳本~
~找電球~
我把他分成6個腳本~
6個腳本分開運行就可以了~
腳本1~找紅球~
注意：0,0,804,624,《---坐標，畫面左上角=0，0     右下角=804，624自行修改
            "f2e6f9"〈〈---紅電球顏色自行修改


Sub 1
    Delay 1000
    VBSCall FindColorEx(0,0,804,624,"f2e6f9",1,0.8,x,y)
If x>=0 and y>=0
        MoveTo x y
        Delay 50
        LeftClick 1
        Delay 50
        Delay 1000
        Delay 2000
    Else
        For 4
            KeyPress 65,1
            Delay 400
        EndFor
        Delay 1000
        Delay 1000
        Gosub 1
         

腳本2
自動復活
注意：444,252,472,277《------自行修改
            死亡.bmp《------自行修改
            MoveTo 479,344《------死亡1後點按位置~自行修改
          MoveTo 551,476<-------死亡2後點按位置~自行修改

Sub 1
    VBSCall FindPic(444,252,472,277,"死亡.bmp",0.6,x,y)
    If x>=0 and y>=0
        MoveTo 479,344
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 50
        Delay 1000
        MoveTo 551,476
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 2000
    Else
        Gosub 2
        Sub 2
            VBSCall FindPic(444,252,472,277,"侚厗.bmp",0.6,x,y)
            If x>=0 and y>=0
                MoveTo 479,344
                Delay 50
                LeftClick 1
                Delay 50
                LeftClick 1
                Delay 50
                Delay 1000
                MoveTo 551,476
                Delay 50
                LeftClick 1
                Delay 50
                LeftClick 1
                Delay 2000
            Else
                Gosub 1
                 

腳本3
注意：  98,351,161,406,<-----自行修改
                 stop.bmp《--------自行復製遊戲內的STOP圖片


Rem 嶱宎
Gosub 衄瘁STOP
Gosub STOP
Return 衄瘁STOP
Sub 衄瘁STOP
    VBS j=0
    While j=0
        VBSCall FindPic(98,351,161,406,"stop.bmp",0.6,x,y)
        If x>=0 and y>=0
            Gosub STOP
            VBS j=1
        Else
            Gosub 衄瘁STOP
            VBS j=2
        EndWhile
    Return STOP
    Sub STOP
        VBS j=0
        While j=0
            VBSCall FindColor(0,0,802,541,"51b9ff",x,y)
            If X>0 and y>0
                IfColor x,y+10,b6b6b6,0
                    MoveTo 129,398
                    Delay 50
                    LeftClick 1
                    VBS j=1
                EndIf
            EndIf
            Delay 50
        EndWhile
    Return
    Goto 嶱宎



腳本4
找藍球
注意：0,0,802,541〈----自行修改遊戲畫面右上，左下角
           ffe8db〈------藍電球顏色

VBSCall FindColorEx(0,0,802,541,"ffe8db",1,0.8,x,y)
If X>0 and y>0
    MoveTo x y
    Delay 50
    LeftClick 1
EndIf
Delay 1000
EndWhile



腳本5
搭東西
注意：753,490,161,406〈------自行修改
           1.bmp〈-------自行復製遊戲內的（全部拾取）這圖片


VBSCall FindPic(753,490,161,406,"1.bmp",0.8,x,y)
If x>=0 and y>=0
    MoveTo x+25 y+10
    Delay 100
    LeftClick 1
EndIf


腳本6
死亡2
注意：441,253,472,274,"侚厗2.bmp〈--自行修改YCT61B
            MoveTo 464,340《------死亡1後點按位置~自行修改
            MoveTo 550,477《------死亡2後點按位置~自行修改

Sub 1
    VBSCall FindPic(441,253,472,274,"侚厗2.bmp",0.6,x,y)
    If x>=0 and y>=0
        MoveTo 464,340
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 50
        Delay 1000
        MoveTo 550,477
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 2000
    Else
        Gosub 2

這樣寫 用 法 按不準 判斷地方 有問題 只能撿白球
撿快速的 藍電漿球 按不準喔

按不準(---是你找色點不正確，重找幾次色點，就可以了

這樣寫是解決能在按a的問題 但是會點到別人的藍球不知道跑去那邊去了
有辦法雙腳本控制嗎?

我不是分開了6個腳本嗎？
分別單獨推行看看找不找到點~
例如~
腳本1~找紅球~
如果找不到紅球~就重新設定色點吧，每個地圖紅電球色點都有分別喔~

goodgoodgoodgoodgoodgoodgoodgoodgoodgoodgoodgood
goodgoodgoodgoodgood

是不是未註冊版不能 抓圖? 設定好久大部分都好了卡在STOP跟撿東西

[ 本帖最後由 lineagezz130 於 2009-3-21 04:54 編輯 ]

VBS j=0
        While j=0
            VBSCall FindColor(0,0,802,541,"51b9ff",x,y)
            If X>0 and y>0
                IfColor x,y+10,b6b6b6,0
                    MoveTo 129,398
                    Delay 50
                    LeftClick 1
                    VBS j=1
                EndIf
            EndIf
            Delay 50
     

請問這段能說明一下嗎

51b9ff
是什麼ㄋ?

MoveTo 129,398
作用是?