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

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

謝謝大大的分享~~~
馬上去試看看~~~
3qqqqq

這資料真的事就了我呀!!超感動的啦~謝謝了....

現在已經不流行腳本囉唷  ......

看不懂啊~大大门有没有直接点的方法~

推推推~推推推~~
感謝大大分享囉~~~
本文章轉自外掛聯合國http://www.wgun.net

這個我找了很久了
謝謝分享啊!!!!!!!!!!!!!!!!!