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