按键精灵爽歪歪精练打洞装备(傻瓜版)

运行环境：分辨率：1440x900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：8.00.6701

@vb5308304132010/5/27

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  
a3=a3+1  
If a3=DS then  
    for BJ  
        Delay BJYS  
        beep   
    Next  
    MessageBox "超哥恭喜你人品太差了！！强化了297次没有加10！！"  
    EndScript  
End If  
Delay tm  
Goto ccc  
//第三组结束