Call 写坐标(304,222)
                call 逃跑
                Delay yc+ 4200
                Goto 走到点
            End if//核对坐标480,275AAA
        End if
    Else//地图等于大唐东
    End If//地图等于大唐东            
            

End Sub
Sub 瑶池去长安()

    Call 识别地图
    If DITU="瑶池" Then //识别地图瑶池111111111111111111111111111111111
 
        t找坐标 =now
        rem 找坐标
        Call 识别地图
        If x=23 and y=82 then//核对坐标23,82
            T找NPC=now
            rem 找NPC
            FindPic 0,0,1024,768,"C:\XYW\c瑶池.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then//找NPC
                call 修正偏移(intX+5,intY-24)
            Else
                If DateDiff("s",T找NPC,now)>6 then
                    T找NPC=now
                    goto 找坐标
                End if
                Delay yc+ 200
                goto 找NPC    
            End if
            T点长安 =now
            rem 点长安
            dm_ret = dm.FindStr(0,0,800,627,"长安","08f448-000000",1.0,intX,intY)
            If intX > 0 And intY > 0 Then//点长安 
                call 修正偏移(intX+5,intY+9)  
                Delay yc+ 3000
            Else   
                If DateDiff("s",T点长安,now)>6 then
                    T点长安=now
                    goto 找坐标
                End if                 
                Delay yc+ 200
                Goto 点长安
            End If     
        Else //核对坐标23,82
            Call 写坐标(23,82)
            Delay yc+ 3000
            Goto 找坐标
        End if//核对坐标23,82
    End if//识别地图瑶池111111111111111111111111111111111
End Sub
/////////////////////////////////////0.2长安终点
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 移动角落()