Sub 调整背包位置 Rem 继续打开背包 KeyPress "B", 1 Delay 500 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\美服背包.bmp", 0.9, intX, intY If intX > 0 And intY > 0 Then Else Goto 继续打开背包 End If MoveTo intx + 5, inty + 5 Delay 1000 LeftDown 1 Delay 200 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\小地图加号.bmp", 0.9, intX, intY MoveTo intx - 221, inty + 100 Delay 1000 LeftUp 1 Delay 500 End Sub //========================================================================================================== // 调整地图位置03 //========================================================================================================== Sub 调整地图位置 Rem 继续打开调整地图 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\小地图加号.bmp", 0.9, intX1, intY1 If intX1 > 0 And intY1 > 0 Then Else Delay 500 Goto 继续打开调整地图 End If KeyPress "M", 1 Delay 500 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\美服区域地图.bmp", 0.9, intX, intY If intX > 0 And intY > 0 Then MoveTo intx + 5, inty + 5 Delay 1000 LeftDown 1 Delay 200 MoveTo intx1 - 700, inty1 + 68 Delay 1000 LeftUp 1 Delay 500 Else Goto 继续打开调整地图 End If Rem 继续关闭调整地图 KeyPress "M", 1 Delay 500 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\美服区域地图.bmp", 0.9, intX, intY If intX > 0 And intY > 0 Then Goto 继续关闭调整地图 End If End Sub //========================================================================================================== // 前往杀怪点04 //========================================================================================================== Sub 前往杀怪点 Rem 继续按M前往杀怪点 KeyPress "M", 1 Delay 500 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\美服区域地图.bmp", 0.9, intX8, intY8 If intX8 > 0 And intY8 > 0 Then Else Goto 继续按M前往杀怪点 End If MoveTo intx8 + var1, inty8 + var2 Delay 1000 LeftClick 5 Delay 1000 Rem 继续取消M前往杀怪点 KeyPress "M", 1 Delay 500 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\美服区域地图.bmp", 0.9, intX1, intY1 If intX1 > 0 And intY1 > 0 Then Goto 继续取消M前往杀怪点 End If Delay Var4 End Sub //========================================================================================================== // 防卡怪返回杀怪点06 //========================================================================================================== Sub 返回杀怪点 Rem 继续按M返回杀怪点 KeyPress "M", 1 Delay 500 FindPic 200, 100, 1200, 900, "C:\Program Files\mf\美服区域地图.bmp", 0.9, intX, intY If intX > 0 And intY > 0 Then Else Goto 继续按M返回杀怪点 End If MoveTo intx + var1, inty + var2