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