Exit sub
            End If//找回生3
        Next         
            
        Call 关闭召唤 
        Call 关闭任务   
        Call 关闭道具    
        Call 去阳关抓怪
        Exit Sub
        //////////////////////////////////////////阳关

    Else/////////////分析怪物地点
    
        Call 识别任务
    End if/////////////分析怪物地点





End Sub
Sub 检测战斗1()

    FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then//战斗
        Call 关闭任务
 
        Rem 战斗条
        FindPic 0,0,807,621,"C:\XYW\战斗条.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then//战斗条逃跑
            KeyDown 18, 1
            KeyPress 82, 1
            KeyUp 18, 1
            Delay yc+ 200
            KeyDown 18, 1
            KeyPress 82, 1
            KeyUp 18, 1
            Delay yc+ 1000
            FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//等待战斗结束
                Delay yc+ 200
                Goto 战斗条
            Else    
                Delay yc+ 1000   
            End If //等待战斗结束
        Else //战斗条逃跑
            Delay yc+ 200
            Goto 战斗条
        End if//战斗条逃跑

    Else    //战斗
    end if    //战斗
End Sub
Sub 检测战斗()

    rem 战斗标识
    FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then//战斗
        Delay yc+  200
        //    MessageBox "遇敌了 "
        Rem 战斗条
        FindPic 0,0,807,621,"C:\XYW\战斗条.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then//战斗条逃跑
            Delay yc+  200
            //        MessageBox "遇敌了.战斗条出现 "
            KeyDown 18, 1
            KeyPress 82, 1
            KeyUp 18, 1
            Delay yc+ 200
            KeyDown 18, 1
            KeyPress 82, 1
            KeyUp 18, 1
            Delay yc+ 1200
            //            MessageBox "遇敌了.战斗条出现.逃跑了 "
            FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//等待战斗结束
                Delay yc+ 3200
                FindPic 0,0,807,621,"C:\XYW\战斗条.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then//战斗条逃跑
                    Delay yc+  200
                    Goto 战斗条
                End if
            Else    
                //            MessageBox "退出 "
            End If //等待战斗结束
        Else //战斗条逃跑 
            Delay yc+ 200
            Goto 战斗条
        End if//战斗条逃跑  
    Else    //战斗
    
    end if    //战斗

End Sub

//接任务
Sub 接任务()
    /////////////////////所有指向门派
    
    Rem 接任务1