End If
    end if
End Sub

Sub 完蛇
    Delay 1000
    FindPic LX,LY,RX,RY,"Attachment:\战斗4完成.bmp",0.8,intX,intY
    If intX > 0 And intY > 0 Then 
        var4=1
    else
        Delay 500
        FindPic LX,LY,RX,RY,"Attachment:\闻太师.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then
            var4=1
        End If
    End if
End Sub

Sub 完猴
    Delay 1000
    FindPic LX,LY,RX,RY,"Attachment:\战斗3完成.bmp",0.8,intX,intY
    If intX > 0 And intY > 0 Then 
        var3=1
    else
        Delay 500
        FindPic LX,LY,RX,RY,"Attachment:\闻太师.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then
            var3=1
        End If
    end if
End Sub

Sub 完成
    t = 0
    While t = 0	
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\完成.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t = 1
        End If
    Wend
End Sub

Sub 全部完成
    MsgBox "全部搞电"
    ExitScript 	
End Sub

Sub xy
    Delay 2000
    Hwnd = Plugin.Window.MousePoint() //LX,LY,RX,RY,
    sRect = Plugin.Window.GetWindowRect(Hwnd)
    dim MyArray   
    MyArray = Split(sRect, "|")
    LX = Clng(MyArray(0)) : LY = Clng(MyArray(1))
    RX = Clng(MyArray(2)) : RY = Clng(MyArray(3))
End Sub

Call xy //保持坐标//


UserVar cishu=30 "战斗次数"

While cishu > 0

    w = 0
    Delay 600
    FindPic LX,LY,RX,RY,"Attachment:\闻太师logo.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call 人物
        Call 闻太师
        Call 选择
        Call 接受
        Call 完狮
        Call 完狼
        Call 完蛇
        Call 完猴
        Call 返回
        w = 1
    Else
        Delay 600
        FindPic LX,LY,RX,RY,"Attachment:\闻太师logo2.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            Call 人物
            Call 闻太师
            Call 选择
            Call 完狮
            Call 完狼
            Call 完蛇
            Call 完猴
            Call 返回
            w = 1
        End If
    End If

    Do Until w = 0

        If var1 = 0 Then