Hwnd = Plugin.Window.Find(0, "倩女幽魂Online 版本[96621] 服务器[春江花月] 角色ID[64630192]")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(sRect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))
//开始
Call Plugin.Window.Active(Hwnd)
Delay 500
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 1000
KeyPress "1", 1
Delay 300
KeyPress "2", 1
Delay 500
KeyPress "Q", 1
//需要角色2是组队跟随状态
Delay 200
//开始循环挂机
t = now
t1 = now
t2 = now
Do
    //记录当前时间
    //======================间隔技能==================================
    //间隔200秒使用辅助技能
    //加血、加蓝===================================================================
    Delay 100
    IfColor 131+ux,31+uy,"101DB",1 Then
        KeyPress "F3", 1
        Delay 1000
        IfColor 101+ux,42+uy,"E35201",1 Then
            KeyPress "F4", 1
            Delay 1000
            If DateDiff("s", t1, now) >= 10 Then
                Call 召唤()
                t1=now
                If DateDiff("s", t2, now) >= 30 Then
                    Call 买火烧()
                    Delay 300
                    t2=now
                Else 
                End If
            End If
        End If
    End If
    Delay 100
    //捡物===================================================================
    For 5
        FindPic 200+ux,200+uy,1100+ux,700+uy,"Attachment:\银两.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            Delay 1000
            MoveTo intX+5,intY+10
            Delay 800
            LeftClick 1
        Else
            FindPic 200+ux,200+uy,1100+ux,700+uy,"Attachment:\银票.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then
                Delay 1000
                MoveTo intX+5,intY+10
                Delay 800
                LeftClick 1
            Else
                FindPic 10+ux,10+uy,1150+ux,700+uy,"Attachment:\吴山矿石.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then
                    Delay 1000
                    MoveTo intX+5,intY+10
                    Delay 800
                    LeftClick 1
                Else
                End If
            End If
        End If
        Call 单打()
    Next 
Loop
Delay 100
//当循环条件成立的时候，离开循环体
Sub 辅助()
    Delay 200
    KeyPress "1", 1
    Delay 800
    KeyPress "2", 1
    Delay 600
    KeyPress "3", 1
End Sub
//====召唤2木灵=========》》》》》》》》》》》
Sub 召唤()
    Delay 100
    FindPic 228+ux,0+uy,260+ux,30+uy,"Attachment:\召唤3.bmp",0.9,intX,intY
    If intX> 0 And intY> 0 Then
        Delay 100
    Else
        KeyPress "5", 1
        Delay 7000
    End If
End Sub
//群攻打怪===================================================================
Sub 群攻()
    For 1