//牧师用的（主要是给宠物加血的技能，改下就能通用了） 打两星一下的怪
//F1xp技能 F2血 F3蓝 按键1放普通攻击 按键2放牛一点的技能
//电脑主题要是XP经典主题 不然找不到图 窗口不要被挡住
Delay 1000
VBS dim sj,buxue,bulan
UserVar sj=500
UserVar buxue=30000 补血延时默认30秒
UserVar bulan=30000 补蓝延时默认30秒
VBSCall FindPic(0,0,1024,768,"Attachment:\神鬼.bmp",0.9,x,y)
If x>=0 and y>=0
    MoveTo x+30 y+10
    Delay sj
    LeftDown 1
    Delay sj
    MoveTo 35,14
    Delay sj
    LeftUp 1
Else 
    MessageBox "窗口"
EndIf 
MoveTo 929,50
Delay sj
LeftClick 1
Plugin sgcq=Window.GetKeyFocusWnd()
BeginThread "拾取"
BeginThread "补血补蓝"
BeginThread "检测验证码"
//Rem 开始
Plugin window.SendKeyPress(sgcq,192)
//按键`
Delay 300
//查找星 定位
VBSCall FindPic(0,0,1024,768,"Attachment:\星星.bmp",0.7,x,y)
//查找第二颗星
VBSCall FindPic(x+16,y-3,x+29,y+9,"Attachment:\星星.bmp",0.7,x1,y1)
If x1>=0 and y1>=0
    //查找第三颗星 打两星以下
    VBSCall FindPic(x+34,y-3,x+48,y+9,"Attachment:\星星.bmp",0.7,x2,y2)
    If x2>=0 and y2>=0
        Goto 开始
    Else 
        For 5
            Plugin window.SendKeyPress(sgcq,50)
            //按键2
            Delay 6000
        EndFor 
    EndIf 
EndIf 
Rem 查看打完怪没
Plugin window.SendKeyPress(sgcq,49)
//按键1
///////////////////////////////////////////////////////////////////血很低停止外挂
Delay sj
IfColor 130,56,15149a,1
    IfColor 130,56,b0b52,2
        Delay sj
    Else 
        Goto 停止
    EndIf 
EndIf 
///////////////////////////////////////////////////////////////////宠物血
Delay sj
VBSCall FindPic(0,0,1024,768,"Attachment:\宠物血.bmp",0.9,xc,yc)
IfColor xc+28,yc+3,1A12E2,1
    IfColor xc+28,yc+3,e0a78,2
        Delay sj
    Else 
        MoveTo xc+28,yc+3
        Delay sj
        LeftClick 1
        Plugin window.SendKeyPress(sgcq,113)
        //按键F2
        Goto 开始
    EndIf 
EndIf 
Delay 300
VBSCall FindPic(478,48,600,70,"Attachment:\星星.bmp",0.7,x,y)
If x>=0 and y>=0
    Goto 查看打完怪没
Else 
    Goto 开始
EndIf 
Sub 拾取
    While 1
        Delay 10000
        For 3
            VBSCall FindPic(10,10,1000,750,"Attachment:\宝箱.bmp",0.4,xa,ya)
            If xa>=0 and ya>=0
                MoveTo xa+3 ya+3
                Delay 100
                RightClick 1
            EndIf 
            Delay 100
            VBSCall FindPic(10,10,1000,750,"Attachment:\宝箱1.bmp",0.4,xa,ya)
            If xa>=0 and ya>=0
                MoveTo xa+3 ya+3
                Delay 100
                RightClick 1
            EndIf 
            Delay 100