FindPic 0,0,1600,900,"Attachment:\6.bmp",0.9,logoX,logoY
If logoX > 0 And logoY > 0 Then
MoveTo logoX,logoY
delay 400
    LeftClick 1
    Delay 200
    Else
    For 5
    Call 打怪动作()
    endfor

FindPic 0,0,1600,900,"Attachment:\21.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Call 跑回打怪点()
Else
FindPic 0,0,1600,900,"Attachment:\5.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then

Call 自动修装备()

 For 5
    Call 打怪动作()
    endfor

End If
End If
End If
Goto go
Sub 跑回打怪点()
Delay 5000

KeyPress "M",1
delay 2000
FindPic 0,0,1600,900,"Attachment:\15.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 250
LeftClick 1
End If
Delay 2000
FindPic 0,0,1600,900,"Attachment:\16.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 250
LeftClick 1
End If
Delay 2000
FindPic 0,0,1600,900,"Attachment:\17.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
Delay 250
LeftDoubleClick 1
End If
Delay 28000 

End Sub
Sub 自动修装备()
    KeyPress "E", 1
    delay 300
FindPic 0,0,1600,900,"Attachment:\20.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX,intY
delay 250
MoveTo intX+17,intY+224
delay 250
LeftClick 1
delay 250
MoveTo intX+17,intY+182
delay 250
LeftClick 1
delay 250
MoveTo intX+17,intY+138
delay 250
LeftClick 1
delay 250
MoveTo intX+17,intY+99
delay 250
LeftClick 1
delay 250
MoveTo intX+17,intY+59
Delay 2000

MoveTo intX+177,intY+98
Delay 250
LeftClick 1
Delay 200
MoveTo intX+177,intY+139
Delay 250
LeftClick 1
Delay 200
LeftClick 1
Delay 200
MoveTo intX+177,intY+182
Delay  250
LeftClick 1
Delay 400
MoveTo intX+177,intY+223
Delay  250
LeftClick 1
Delay 400