//B是检测强化到几的停顿时间
b = 150
//C是强化到几的图片
//d是第二部调用下一个子程序的时间
d = 100
//等待强化的时间
e = 5500
//子程序第一个图片名称
Hwnd = Plugin.Window.Find(0, "地下城与勇士")
TracePrint hwnd
Call Plugin.Window.Move(Hwnd, 0, 0)
Call Plugin.Window.Active(Hwnd)
FindPic 0,0,1024,768,"Attachment:\凯丽
If intX > 0 And intY > 0 Then
MoveTo intX, intY + 15
LeftClick 1
Delay 300
MoveTo intx + 20, intY + 120
LeftClick 1
End If
a = 1
While a>0
Call 强化1()
Wend
Sub 强化1()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 4, 318
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化2()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化2()
End If
End If
End If
End If
End Sub
Sub 强化2()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 516, 321
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化3()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化3()
End If
End If
End If
End If
End Sub
Sub 强化3()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 546, 323
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化4()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化4()
End If
End If
End If
End If
End Sub
Sub 强化4()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 574, 322
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化5()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化5()
End If
End If
End If
End If
End Sub
Sub 强化5()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 610, 317
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化6()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化6()
End If
End If
End If
End If
End Sub
Sub 强化6()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 635, 321
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化7()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化7()
End If
End If
End If
End If
End Sub
Sub 强化7()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 6, 324
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化8()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化8()
End If
End If
End If
End If
End Sub
Sub 强化8()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 696, 321
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化9()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化9()
End If
End If
End If
End If
End Sub
Sub 强化9()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 492, 350
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化10()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化10()
End If
End If
End If
End If
End Sub
Sub 强化10()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 521, 352
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化11()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化11()
End If
End If
End If
End If
End Sub
Sub 强化11()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 541, 350
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化12()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化12()
End If
End If
End If
End If
End Sub
Sub 强化12()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 577, 351
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化13()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化13()
End If
End If
End If
End If
End Sub
Sub 强化13()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 607, 351
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化14()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化14()
End If
End If
End If
End If
End Sub
Sub 强化14()
FindPic 0,0,800,600,g,0.8,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 637, 349
Delay b
FindPic 0,0,800,59,c,1,intX,intY
If intX > 0 And intY > 0 Then
Delay d
Call 强化1()
Else
LeftDown 1
Delay 50
MoveTo 313, 298
LeftUp 1
Delay 50
FindPic 0,0,462,395,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay e
FindPic 0,0,438,355,"Attachment:\确定
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 50
LeftClick 1
Delay d
Call 强化1()
End If
End If
End If
End If
End Sub下载本文
