UserVar cs=9 "强化次数"
Hwnd = Plugin.Window.Find(0, "地下城与勇士")
 
Call Plugin.Window.Move(Hwnd, 0, 0)
FindPic 0,0,644,484,"Attachment:\凯利.bmp",0.9,intX,intY
If intX > 0 And intY > 0  Then 
MoveTo intX, intY
LeftClick 1
End If
Delay 1000

FindPic 0,0,644,484,"Attachment:\强化装备.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If

For cs
Delay 500
FindPic 0,0,644,484,"Attachment:\强化装备2.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
FindPic 333,220,362,249,"Attachment:\刀.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
Delay 500
FindPic 0,0,646,482,"Attachment:\确认.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
Delay 7000
FindPic 0,0,646,482,"Attachment:\确认.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
Delay 500
FindPic 0,0,644,484,"Attachment:\强化装备2.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
FindPic 363,220,392,249,"Attachment:\刀.bmp",0.9,intX,intY
If intX> 0 And intY> 0 Then
MoveTo intX, intY
LeftClick 1
End If
Delay 500
FindPic 0,0,646,482,"Attachment:\确认.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
Delay 7000
FindPic 0,0,646,482,"Attachment:\确认.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
FindPic 0,0,644,484,"Attachment:\强化装备2.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
FindPic 393,220,422,249,"Attachment:\刀.bmp",0.9,intX,intY
If intX> 0 And intY> 0 Then
MoveTo intX, intY
LeftClick 1
End If
Delay 500
FindPic 0,0,646,482,"Attachment:\确认.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
Delay 7000
FindPic 0,0,646,482,"Attachment:\确认.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
FindPic 0,0,644,484,"Attachment:\强化装备2.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
LeftClick 1
End If
FindPic 423,220,452,249,"Attachment:\刀.bmp",0.9,intX,intY
If intX> 0 And intY> 0 Then
MoveTo intX, intY
LeftClick 1
End If
Delay 500
FindPic 0,0,646,482,"Attachment:\确认.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then