by=y3
        //Call MessageBox(x3&"|"&y3&"|"&bx&"|"&by)
        Gosub ManManYiDong
        Delay 100
        RightClick 1
        Delay 1000
    EndIf 100
Return 
Sub 技能
    Rem 6
    If kh1=1
        VBSCall FindPic(0,0,650,502,"Attachment:\法术.bmp",0.9,x1,y1)
        If x1>0 and y1>0
            If r=1
                Gosub 抓宝宝
                Goto 1000
            EndIf 100
            If RS1=10
                KeyDown 18,1
                KeyPress 81,1
                KeyUp 18,1
                Delay 30
                KeyDown 18,1
                KeyPress 81,1
                KeyUp 18,1
                Delay 30
            EndIf 100
            If RS1=11
                KeyDown 18,1
                KeyPress 65,1
                KeyUp 18,1
                Delay 30
                KeyDown 18,1
                KeyPress 65,1
                KeyUp 18,1
                Delay 30
            EndIf 100
            If RS1=12
                KeyDown 18,1
                KeyPress 81,1
                KeyUp 18,1
                Delay 30
                KeyDown 18,1
                KeyPress 65,1
                KeyUp 18,1
                Delay 30
            EndIf 100
            If RS1=13
                KeyDown 18,1
                KeyPress 68,1
                KeyUp 18,1
                Delay 30
                KeyDown 18,1
                KeyPress 81,1
                KeyUp 18,1
                Delay 30
            EndIf 100
            If RS1=14
                KeyDown 18,1
                KeyPress 65,1
                KeyUp 18,1
                Delay 30
                KeyDown 18,1
                KeyPress 81,1
                KeyUp 18,1
                Delay 30
            EndIf 100
            Delay 100
        EndIf 100
        Delay 100
    EndIf 100
    Delay 100
    VBSCall FindPic(0,0,650,502,"Attachment:\验证.bmp",0.9,x1,y1)
    If x1>0 and y1>0
        For 10
            Beep 
        EndFor 
        Delay 100
    EndIf 100
    Rem 1000
Return 
Sub 杀怪
    VBSCall FindPic(0,0,650,502,"Attachment:\法术.bmp",0.9,x1,y1)
    If x1>0 and y1>0
        Gosub 技能
    EndIf 100
Return 
Sub 抓宝宝
    If zb=1 or zb=3
        Plugin yu = Color.FindMutiColor(0, 0, 620, 502, "6BDF52", "-6|1|6BDF52,0|1|6BDF52,5|1|6BDF52,-4|4|6BDF52,3|4|6BDF52,-3|8|6BDF52,0|8|6BDF52,3|11|6BDF52,4|11|6BDF52,-5|13|6BDF52,5|13|6BDF52", 0.8)
        MyArray = Split(yu, "|")
        y= Clng(MyArray(0)): u = Clng(MyArray(1))
        If y>0 and u>0
            r=1
            bx=y-15:by=u-40
            Delay 10
            Gosub ManManYiDong
            Delay 500
            KeyDown 18,1
            KeyPress 71,1