t=1
        End If
    Wend
    MoveTo LX, LY
End Sub

Sub 狼
    t = 0
    While t = 0
        Delay 1000
        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
    MoveTo LX, LY
End Sub

Sub 闻太师
    t = 0
    While t = 0
        Delay 1000
        FindPic LX,LY,RX,RY,"Attachment:\闻太师logo1.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MoveTo intX, intY
            LeftClick 1
            t=1
        End If
    Wend
    MoveTo LX, LY
End Sub

Sub 下一页
    t = 0
    While t = 0
        Delay 1000
        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
    MoveTo LX, LY
End Sub

Sub 战斗
    t = 0
    While t = 0
        Delay 1000
        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
    MoveTo LX, LY
End Sub

Sub 战斗中
    t = 0
    While t = 0
        zdz = 0
        While zdz = 0
            Delay 2000
            FindPic LX,LY,RX,RY,"Attachment:\聊天logo.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then 
                t = 1
                Call Plugin.Msg.ShowScrTXT(RX + 5, LY +59, RX + 250, LY +89, "战斗中~~~~~", "ff00ff")
            Else  
                zdz = 1
                Call Plugin.Msg.ShowScrTXT(RX + 5, LY +59, RX + 250, LY +89, "准备战斗~", "00de00")
            End if
        Wend
    Wend 
    Delay 1000
    FindPic LX,LY,RX,RY,"Attachment:\闻太师.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        var1=1:var2=1:var3=1:var4=1
    End If
    
    If var1 = 0 Then 
        Call 完狮
    End If
    
    If var2 = 0 Then 
        Call 完狼
    End If
       
    If var3 = 0 Then 
        Call 完猴
    End If
     
    If var4 = 0 Then 
        Call 完蛇
    End If