Goto 找怪结束
        End if
        Rem 找怪结束
    End Sub
    Sub 宠物操作()
        If b=1 Then
            KeyDown 18,1
            KeyPress 65,1
            KeyUp 18,1
        ElseIf b=2 Then
            //技能1
            Call FindPic(0,0,1024,768,"Attachment:\法.bmp",0.9,intX,intY)
            If intx>0 Then
                Delay 300
                MoveTo intx,inty
                LeftClick 1
                Delay 300
                Call FindPic(0,0,1024,768,"Attachment:\球.bmp",0.9,intX,intY)
                If intx>0 Then
                    MoveTo intx+23,inty+41
                    Delay 300
                    LeftClick 1
                    Call 精确找怪()
                End if
            Else
                KeyDown 18,1
                KeyPress 65,1
                KeyUp 18,1
            End if
        End if
    End Sub
    Sub 人物按键()
        Delay 100
        If a=1 Then
            KeyPress 112,1
        ElseIf a=2 Then
            KeyPress 113,1
        ElseIf a=3 Then
            KeyPress 114,1
        ElseIf a=4 Then
            KeyPress 115,1
        ElseIf a=5 Then
            KeyPress 116,1
        ElseIf a=6 Then
            KeyPress 117,1
        ElseIf a=7 Then
            KeyPress 118,1
        ElseIf a=8 Then
            KeyPress 119,1
        End if
    End Sub