Rem 行走
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 310, Uy + 95)
    Call 是否在战斗情况()
    LeftClick 1
    Delay 1500
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 425, Uy + 143)
    Call 是否在战斗情况()
    LeftClick 1
    Delay 1500
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 461, Uy + 258)
    Call 是否在战斗情况()
    LeftClick 1
    Delay 1500
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 425, Uy + 358)
    Call 是否在战斗情况()
    LeftClick 1
    Delay 1500
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 310, Uy + 400)
    Call 是否在战斗情况()
    LeftClick 1
    Delay 1500
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 228, Uy + 358)
    Call 是否在战斗情况()
    LeftClick 1
    Delay 1500
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 182, Uy + 258)
    Call 是否在战斗情况()
    LeftClick 1
    Delay 1500
    Call 是否在战斗情况()
    Call Lib.xyq.鼠标移动(Ux + 228, Uy + 143)
    Call 是否在战斗情况()
    LeftClick 1
    Goto 行走
End Sub
//走路验证
Sub 是否在战斗情况()
    sRect = Plugin.Window.GetClientRect(srw1) //得到窗口句柄的客户区大小
    myarray1 = Split(sRect, "|")
    cx = CLng(myarray1(0))
    cy = CLng(myarray1(1))
    FindPic cx + 520,cy + 428,cx + 643,cy + 502,"Attachment:\shu.bmp",0.9,x,y
    If x > cx + 520 or y > cy + 428 Then 
        MoveTo cx, cy
        Delay 100
    End If
    FindPic cx+520,cy+428,cx + 643,cy + 502,"Attachment:\笑脸.bmp",0.9,NotX,NotY
    If NotX > cx + 523 And NotY > cy + 450 Then 
        //调用检查是否有属性对话框
    Else 
        //调用循环战斗
        Call 战斗()
    End If
End Sub
//循环战斗-------------------------------
Sub 战斗()
    zouN = Lib.xyq.查看能否走路(srw1)
    If zouN < 0 Then 
        Call 开始战斗(srw1)
        Delay 100
        Call Plugin.Window.Active(srw2)
        Delay 200
        Call 开始战斗(srw2)
        Delay 100
        Call Plugin.Window.Active(srw3)
        Delay 200
        Call 开始战斗(srw3)
        Delay 100
        Call Plugin.Window.Active(srw4)
        Delay 200
        Call 开始战斗(srw4)
        Delay 100
        Call Plugin.Window.Active(srw5)
        Delay 200
        Call 开始战斗(srw5)
        Delay 1000
    End If
    Call Plugin.Window.Active(srw1)
End Sub
//检查每个号的战斗方法
Sub 开始战斗(传进窗口句柄)
    CPID = 传进窗口句柄
    If CPID = srw1 Then 
        RW = RW1
        BB = BB1
    ElseIf CPID = srw2 Then
        RW = RW2
        BB = BB2
    ElseIf CPID = srw3 Then
        RW = RW3
        BB = BB3
    ElseIf CPID = srw4 Then
        RW = RW4