Sub 商帮出城()
    Rem 寻路
    //打开自动寻路窗口
    dm.KeyDown 18
    dm.KeyPress 192
    dm.KeyUp 18
    Delay 500
    //查找“坐标”字位置并输入移动位置100.156
    dm_ret = dm.FindStr(400, 100, 800, 600,"坐标","fff263-181008",1.0,intX,intY)
    Delay 200
    If intX > 0 and intY > 0 Then 
    dm.MoveTo intX + 42,intY + 6
        Delay 200
        dm.LeftClick
        Delay 200
        //SayString "100"
        dm.SendString DYCK,"100"
        Delay 200
        dm.keypress 13
        Delay 200
        //SayString "156"
        dm.SendString DYCK,"156"
        Delay 200
        //移动鼠标到“移动”单击
        dm.keypress 13
        Delay 200
     Else 
        Goto 寻路
     End If
     
     //跑路延时
     Delay 5000
    
     //判断是否出城      
     While intX > 0 and intY > 0
           dm.MoveTo intX + 128, intY + 7
           Delay 200
           dm.LeftClick
           Delay 5000
           dm_ret = dm.FindStr(400, 100, 800, 600,"坐标","fff263-181008",1.0,intX,intY)
           Delay 200
     Wend
     
End Sub
//====================返回己方城市脚本======================
Sub 返回己方帮派()
    Rem 返回帮派寻路
    //打开自动寻路窗口
    dm.KeyDown 18
    dm.KeyPress 192
    dm.KeyUp 18
    Delay 500
    //判断是否打开自动寻路
    dm_ret = dm.FindStr(400, 100, 800, 600,"坐标","fff263-181008",1.0,intX,intY)
    Delay 100
    If intX > 0 and intY > 0 Then 
        Delay 200
    Else 
     Goto 返回帮派寻路
    End If
    //查找指定区域内所有字符串是否含有地图标志人物名称或怪物
    //赋值当前地图为map
        
    dm_ret = dm.FindPic(400, 100, 800, 600, "自动寻路.bmp","000000",0.9,0,intX,intY)   
    Dim x1
    Dim x2
    Dim y1
    Dim y2
    x1 = intX
    y1 = intY + 153
    x2 = intX + 85
    y2 = intY + 167    
    s = dm.Ocr(x1,y1,x2,y2,"ffffff-1b1008", 1.0)
        Delay 200
        
   VBSBegin
        Select Case s
        Case "白堤柳鬼"
        map = "西湖"
        Case "童贯"
        map = "洛阳"
        Case "金钱豹"
        map = "雁南"
        Case "阿林"
        map = "草原"
        Case "阿史那默谷"
        map = "辽西"
        Case "纥石烈阿疏"
        map = "长白山"
        Case "大黑熊"
        map = "黄龙府"
        Case "韦大叔"
        map = "苏州"
        Case "程青霜"
        map = "大理"
        Case "打草谷辽兵"
        map = "雁北"
        Case "江湖游医"
        map = "嵩山"
        Case "许愿树"