End if
            T查找是否战斗3=NOW
            Rem 查找是否战斗3
            FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//查找是否战斗3
                T找怪3=now 
                Rem 找怪3
                FindColor 93,118,317,497,"00fcf8",intX,intY
                If intX > 0 And intY > 0 Then//找怪3
                    Delay yc+ 3000 
                    KeyDown 18, 1
                    KeyPress 88, 1
                    KeyUp 18, 1
                    Delay yc+ 200
                    call 修正偏移(intX+20,intY-13)
                    Delay yc+ 200
                    KeyDown 18, 1
                    KeyPress 65, 1
                    KeyUp 18, 1
                    T捕捉3=now 
                    rem 捕捉3 
                    dm_ret = dm.FindStr(0,0,807,621,"成功","f8fcf8-000000",1.0,intX,intY)
                    If intX > 0 And intY > 0 Then//捕捉3
                        Delay yc+ 200
                        Call 识别任务
                        Exit Sub
                    Else //捕捉3
                        If DateDiff("s",T捕捉3,now)>6
                            T捕捉3=now
                            Goto 查找是否战斗3
                        End If  
                        Delay yc+ 200
                        goto 捕捉3 
                    End If//捕捉3
                Else//找怪3  
                    If DateDiff("s",T找怪3,now)>6
                        T找怪3=now
                        Goto 查找是否战斗3
                    End If             
                    Delay yc+ 200
                    Goto 找怪3
                End If//找怪3
            Else  //查找是否战斗3 
                If DateDiff("s",T查找是否战斗3,now)>6
                    T查找是否战斗3=now
                    Goto 抓怪3
                End If                
                Delay yc+ 200
                Goto 查找是否战斗3                   
            End If//查找是否战斗3
            Delay 200 
            GOTO 抓怪3            
        End If//走想第2个点

        T抓怪2=NOW
        rem 抓怪2
        Call 识别地图
        If x=73 and y=93 then///////走想第1个点
            Goto 抓怪1
        Else//走想第1个点
            If DateDiff("s",T写坐标1,now)>10 
                T写坐标1=now
                Call 写坐标(73,93)
                Delay 200
                Goto 抓怪2
            End if
            T查找是否战斗2=NOW
            Rem 查找是否战斗2
            FindPic 0,0,807,621,"C:\XYW\战斗标识.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//查找是否战斗2
                T找怪2=now 
                Rem 找怪2
                FindColor 93,118,317,497,"00fcf8",intX,intY
                If intX > 0 And intY > 0 Then//找怪2
                    Delay yc+ 3000 
                    KeyDown 18, 1
                    KeyPress 88, 1
                    KeyUp 18, 1
                    Delay yc+ 200
                    call 修正偏移(intX+20,intY-13)
                    Delay yc+ 200
                    KeyDown 18, 1
                    KeyPress 65, 1
                    KeyUp 18, 1
                    T捕捉2=now 
                    rem 捕捉2 
                    dm_ret = dm.FindStr(0,0,807,621,"成功","f8fcf8-000000",1.0,intX,intY)
                    If intX > 0 And intY > 0 Then//捕捉2
                        Delay yc+ 200
                        Call 识别任务
                        Exit Sub
                    Else //捕捉2
                        If DateDiff("s",T捕捉2,now)>6
                            T捕捉3=now
                            Goto 查找是否战斗2
                        End If  
                        Delay yc+ 200
                        goto 捕捉2 
                    End If//捕捉2
                Else//找怪2