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

修改自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

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

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

腳本1~找紅球~<-----如果找不到紅球顏色，就原地自轉。說明他找不到色點（可以試換色點）

VBSCall FindColorEx(0,0,804,624,"f2e6f9",1,0.8,x,y)
改掉
f2e6f9《-色點~在按鍵精靈里有個抓點抓圖~儲存遊戲內圖像~再找色點~

0,0,804,624〈----視窗大小~

No1 .  找到紅球後  沒辦法停在STOP，也就是完全沒動作直接讓電球跑完
答：可能出發在這些地方~

1：VBSCall FindPic(98,351,161,406,"stop.bmp",0.6,x,y)
（98,351,161,406）位置不正確《注：尋太大會引起LAG機》
（"stop.bmp）大小寫不正確。
（0.6,x,y)    可以試修正（5至9）



2：VBSCall FindColor(0,0,802,541,"51b9ff",x,y)
（0,0,802,541）位置不正確（51b9ff）色應該不用修改

3：MoveTo 129,398 改按停下（STOP）位置

注：其他地方應該不用修正

是的~找肉棒棒的~~~~~~~~YCT65B

98,351,161,406位置
是你剪下來的STOP.BMP圖片的大少位置~