While 1
Delay 3000
KeyPress "8", 1
Delay 1000
FindPic 0, 0, 1920, 1080, "Attachment:\TransmuteWindow.bmp" , 0.9, J, K
If J > 0 AND K > 0 Then
Else
// MessageBox "No Find TranSmute Window ,Press 'ok' to Restart Script "
RestartScript
End If
FindPic 0, 0, 1920, 1080, "Attachment:\圣水.bmp", 0.8, X, Y
If X > 0 And Y > 0 Then
MoveTo X, Y
KeyDown "Shift", 1
Delay 1000
LeftClick 1
Delay 500
KeyUp "Shift", 1
FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q
If P > 0 And Q > 0 Then
MoveTo P, Q
Delay 300
LeftClick 1
Delay 300
Else
RightClick 1
MoveTo 0,0
Delay 1000
FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N
If M > 0 And N > 0 Then
MoveTo M, (N+10)
Delay 1000
LeftClick 1
Delay 500
Else
KeyPress "Esc", 1
MessageBox "No Find"
End If
End If
Else
MessageBox "No Find Base Herb "
End If
MoveTo J+42, K+382
Delay 500
LeftClick 1
Delay 1000
FindPic 0, 0, 1920, 1080, "Attachment:\阿拉特.bmp", 0.8, X, Y
If X > 0 And Y > 0 Then
MoveTo X, Y
KeyDown "Shift", 1
Delay 1000
LeftClick 1
Delay 500
KeyUp "Shift", 1
FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q
If P > 0 And Q > 0 Then
MoveTo P, Q
Delay 300
LeftClick 1
Delay 300
Else
RightClick 1
MoveTo 0,0
Delay 1000
FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N
If M > 0 And N > 0 Then
MoveTo M, (N+10)
Delay 1000
LeftClick 1
Delay 500
Else
KeyPress "Esc", 1
MessageBox "No Find"
End If
End If
Else
MessageBox "No Find Blood Herb"
End If
MoveTo J+154, K+382
Delay 500
LeftClick 1
Delay 1000
FindPic 0,0,1920,1080,"Attachment:\血红药水.bmp",0.8,X,Y
If X > 0 And Y > 0 Then