LeftClick 1
            t=1
        End If
    Wend
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 闻太师
    t = 0
    While t = 0
        Delay 600
        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
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 战斗
    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 战斗中
    Delay 5000
    zdz = 0
    While zdz = 0
        Delay 2000
        FindPic LX,LY,RX,RY,"Attachment:\聊天logo.bmp",0.8,intX,intY
        If intX > 0 And intY > 0 Then 
        Else
            zdz = 1
        End if
    Wend
    Call 完狮
    Call 完狼
    Call 完蛇
    Call 完猴
    Call 返回
End Sub

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

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