KeyUp 18,1
            Delay 300
            LeftClick 2
            Delay 100
            MoveTo 330,200
            Delay 100
            RightClick 1
            If zb=3
                Delay 100
                KeyDown 18,1
                KeyPress 68,1
                KeyUp 18,1
                Delay 100
            Else 
                Delay 100
                KeyDown 18,1
                KeyPress 65,1
                KeyUp 18,1
                Delay 100
            EndIf 100
        EndIf 100
    EndIf 100
Return 
Sub 找怪
    Rem 7
    Delay 10
    bx=330:by=252
    Gosub 跳到目标点
    For 2
        LeftClick 1
        Gosub 验证
        VBSCall FindPic(0,0,650,502,"Attachment:\法术.bmp",0.9,x1,y1)
        If x1>0 and y1>0
            Delay 1000
            Gosub 抓宝宝
            Goto 6
            Delay 100
        EndIf 100
        Delay 400
    EndFor 
    Delay 100
    bx=330:by=132
    Gosub 跳到目标点
    For 4
        LeftClick 1
        Delay 100
        Gosub 验证
        VBSCall FindPic(0,0,650,502,"Attachment:\法术.bmp",0.9,x1,y1)
        If x1>0 and y1>0
            Delay 1000
            Gosub 抓宝宝
            Goto 6
        EndIf 100
        Delay 400
    EndFor 
    Delay 100
    bx=98:by=370
    Gosub 跳到目标点
    For 4
        LeftClick 1
        Delay 100
        Gosub 验证
        VBSCall FindPic(0,0,650,502,"Attachment:\法术.bmp",0.9,x1,y1)
        If x1>0 and y1>0
            Delay 1000
            Gosub 抓宝宝
            Goto 6
        EndIf 100
        Delay 500
    EndFor 
    Delay 100
    bx=528:by=370
    k=5
    Gosub 跳到目标点
    For 3
        LeftClick 1
        Delay 100
        Gosub 验证
        VBSCall FindPic(0,0,650,502,"Attachment:\法术.bmp",0.9,x1,y1)
        If x1>0 and y1>0
            Delay 1000
            Gosub 抓宝宝
            Goto 6
        EndIf 100
        Delay 500
    EndFor 
    Delay 100
    Goto 7
Return 
Sub 游戏鼠标定位
    q=0
    Rem P
    If q>3
        Goto qq
    EndIf 
    VBSCall GetCursorPos(x9,y9)
    If x9>660 or y9<20 or x9<25  or y9>502
        MoveTo 330,200
    EndIf 
    Plugin XY = Color.FindMutiColor(0, 0, 620, 502, "5AFF9C", "5|7|633818", 0.6)