DY=10 "第一组强化次数(一般不改)最大10"
UserVar DE=10 "第二组强化次数(一般不改)最大10"
UserVar DS=10 "第三组强化次数(一般不改)最大10"
UserVar tm=100 "网络延时1s=1000ms根据网速定)"
UserVar sj=50 "双击鼠标的延时ms根据网速定)"
UserVar BJ=5 "三组全部强化以后失败报警次数"
UserVar BJYS=200 "三组全部强化失败后报警间隔时间"
UserVar QHSJ=23000"每组强化中的时间推荐23000"
Hwnd = Plugin.Window.Find(0,"FLYFF")
Rect = Plugin.Window.GetClientRect(Hwnd)
MyArray = Split(Rect, "|")
qx = Cint(MyArray(0))
qy = Cint(MyArray(1))
w = Cint(MyArray(2))
h = Cint(MyArray(3))
a1=0
a2=0
a3=0
Delay 500
Rem aaa
MoveTo 592+qx,283+qy
Delay tm
For 10
    LeftDoubleClick 1
    Delay sj
Next
MoveTo 624+qx,283+qy
Delay 100
For 10
    LeftDoubleClick 1
    Delay sj
Next
Delay tm
MoveTo 81+qx,513+qy
Delay tm
LeftClick 1
Delay QHSJ
MoveTo 244+qx,511+qy
Delay tm
LeftClick 1
a1=a1+1
If a1=DY then
    Goto bb  
End If
Delay tm
Goto aaa
//第一组结束
Rem bb
Rem bbb
Delay 500
MoveTo 591+qx,318+qy
Delay 100
For 10
    LeftDoubleClick 1
    Delay sj
Next
MoveTo 626+qx,319+qy
Delay tm
For 10
    LeftDoubleClick 1
    Delay sj
Next
Delay tm
MoveTo 81+qx,513+qy
Delay tm
LeftClick 1
Delay QHSJ
MoveTo 244+qx,511+qy
Delay tm
LeftClick 1
a2=a2+1
If a2=DE then
    Goto cc
End If
Delay tm
Goto bbb
//第二组结束
Rem cc
Rem ccc
Delay 500
MoveTo 592+qx,351+qy
Delay tm
For 10
    LeftDoubleClick 1
    Delay sj
Next
MoveTo 624+qx,351+qy
Delay tm
For 10
    LeftDoubleClick 1
    Delay sj
Next
Delay tm
MoveTo 81+qx,513+qy
Delay tm
LeftClick 1
Delay QHSJ
MoveTo 244+qx,511+qy
Delay tm
LeftClick 1