Delay 1000
LeftClick 5
Delay 5000
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 1000
KeyDown "D", 1
Delay 600
KeyUp "D", 1
Delay 100
KeyUp "R", 1
Delay 200
End Sub
//==========================================================================================================
// 防卡怪07
//==========================================================================================================
Sub 防卡怪
KeyPress "1", 1
Delay Var3
FindPic intx9 - 567, inty - 44, intx9 - 212, inty + 142, "C:\Program Files\mf\美服怪物满血条.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
KeyDown "D", 1
Delay 600
KeyUp "D", 1
Delay 100
Call 返回杀怪点()
Delay 100
KeyUp "R", 1
Delay 200
End If
End Sub
//==========================================================================================================
// 吃红蓝07
//==========================================================================================================
Sub 判断是否需吃红蓝
FindPic intx9 - 849, inty9 - 29, intx9 - 568, inty9 + 130, "C:\Program Files\mf\不用吃血的血条.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Else
KeyPress "0", 3
Delay 100
End If
FindPic intx9 - 849, inty9 - 29, intx9 - 568, inty9 + 130, "C:\Program Files\mf\不用吃蓝的蓝条.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
Else
KeyPress "9", 3
Delay 100
End If
End Sub
//==========================================================================================================
// 卖垃圾08
//==========================================================================================================
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
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
LeftClick 1
Delay 500
Else
MoveTo intx9 + 5, inty9 + 50
Delay 1000
Goto 继续按M前往卖垃圾
End If
FindPic 200, 100, 1200, 900, "C:\Program Files\mf\37M武器.bmp", 0.9, intX, intY
If intX > 0 And intY > 0 Then
MoveTo intx + 5, inty + 5
Delay 1000
LeftClick 1
Delay 500
Else
MoveTo intx9 + 5, inty9 + 50
Delay 1000
Goto 继续按M前往卖垃圾
End If
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