Call 返回
    Delay 3500
    MoveTo LX, LY
End Sub

Sub 完狮
    Delay 1000
    FindPic LX,LY,RX,RY,"Attachment:\战斗1完成.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        var1=1
    End If
End Sub

Sub 完狼
    Delay 1000
    FindPic LX,LY,RX,RY,"Attachment:\战斗2完成.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        var2=1
    end if
End Sub

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

Sub 完蛇
    Delay 1000
    FindPic LX,LY,RX,RY,"Attachment:\战斗4完成.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        var4=1
    End if
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
End Sub

Sub 全部完成
    MsgBox "已全部完成.作者:JSPYDX"
    ExitScript 	
End Sub

Sub xy
    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 "完成次数"

If cishu = 0 Then 
    cishu = 30
End If
ti=600
SetSimMode 2

While cishu > 0

    
    
    w = 0
    
    Delay 1000
    
    FindPic LX, LY, RX, RY, "Attachment:\闻太师logo.bmp", 0.9, intX, intY
    If intX > 0 and intY > 0 Then 
        Call 人物
        Call 闻太师
        Delay 1000
        
        iy = 0
        While iy = 0
            KeyPress "Up", 1
            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
                iy = 1
            End If
        Wend