map = "太湖"
        Case "法河"
        map = "龙泉"
        Case "白花蜘蛛"
        map = "武夷"
        Case "甘草"
        map = "梅岭"
        Case "鳄鱼帮打手"
        map = "南海"
        Case "凌忆慈"
        map = "琼州"
        Case "曹延惠"
        map = "敦煌"
        Case "大脸"
        map = "剑阁"
        Case "方光智"
        map = "无量山"
        Case "白景武"
        map = "南诏"
        Case "阿雨"
        map = "苗疆"
        Case "阿支"
        map = "石林"
        Case "简丁"
        map = "洱海"
        Case "古鲁拉"
        map = "玉溪"
        Case "长毛雪怪"
        map = "苍山"
        Case Else
        map = "镜湖"
        End Select
    VBSEnd
     //遍历商线地图   
        k = UBound(MyArray)
        For UBound(MyArray)
            k = k-1
            a = MyArray(k)
            
            If a = map Then 
             //当前地图赋值
                inmap = MyArray(k)
                //下一地图赋值 
                tomap = MyArray(k-1)
            End If
        Next
    
    //移动下一地图
    dm_ret = dm.FindStr(400, 100, 800, 600,tomap,"ffffff-1b1008",1.0,intX,intY)
Delay 100
dm.moveto intX + 10, intY + 5
Delay 100
dm.LeftClick
Delay 100
dm.LeftClick

//跑路延时
Delay 5000
  
//加速判断F1    
    If Varo2 = 1 Then 
        t0 = dm.GetTime()
        T = t0 - t1
            If T/1000-1 > Varo3 Then
               dm.KeyPress 112
               Delay 50
               t1 = dm.GetTime()
               Delay 50
               End If 
     End If

//判断进入镜湖地图
dm_ret = dm.FindPic(200, 200, 800, 600, "进入镜湖.bmp","000000",0.9,0,intX,intY)
If intX > 0 and intY > 0 Then 
    dm.moveto intX + 20, intY + 10
    Delay 100
    dm.LeftClick 
    Delay 500
End If
  
//判断场景切换 
dm_ret = dm.FindPic(200, 200, 800, 600, "场景切换.bmp","000000",0.9,0,intX,intY)
If intX > 0 and intY > 0 Then 
    Delay 5000
End If

//判断到达目的地
dm_ret = dm.FindPic(0, 0, 800, 600, "城市.bmp","000000",0.9,0,intX,intY)
If intX > 0 and intY > 0 Then 
    Delay 1000
Else 
    Goto 返回帮派寻路
End If
End Sub
//====================进入己方城市脚本======================
Sub 进入已方城市()
    tomap = MyArray(0)
    dm_ret = dm.FindPic(0, 0, 800, 600, "城市.bmp","000000",0.9,0,intX,intY)
    If intX > 0 and intY > 0 Then 
       Delay 50