VBS thistime2=now
    EndIf 

    EndIf 
KeyPress "Tab", 1
Delay 200
FindPic Ux,Uy+53,Ux+26,Uy+79,"Attachment:\战斗状态.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 打我的怪()
    Goto 选怪
    Else
                    End If
    IfColor Ux+315,Uy+44,"EF",0 Then
        If xuanguai=0 Then
        Goto 不选
        Else
        Goto 选
End If
        Else
            Call 寻怪辅助()
        Delay 100
        Goto 选怪
        End If
        Rem 选
If h=0 Then
    Tup1="Attachment:\廋农夫.bmp" 
Elseif h=1 Then
Tup1="Attachment:\花.bmp"
Elseif h=2 Then
Tup1="Attachment:\鸟.bmp"
Elseif h=3 Then
Tup1="Attachment:\刺猬.bmp"
End If
        FindPic Ux+314,Uy+17,384+Ux,78+Uy,Tup1,0.9,intX,intY
If intX > 0 And intY > 0 Then
                    n=0
                Call 攻击技能()
    Else
    Call 寻怪辅助()
    Delay 100
    Goto 选怪
End If
        Rem 不选
        IfColor 113+Ux,563+Uy,"E4ECF1",0 Then
                                n=0
        Call 攻击技能()
Else
    Call 寻怪辅助()
    Delay 100
Goto 选怪
End If
Delay 100
Goto 选怪
Sub 攻击技能()
    Rem 就打
    KeyPress "A", 1
    Delay 300
    KeyPress "Q", 1
    Delay 300
    KeyPress "S", 1
    Delay 300
    KeyPress "W", 1
    Delay 300
    IfColor 147+Ux,Uy+44,"4B4BDB",1 Then
    KeyPress "P", 1
Else
End If
    IfColor 206+Ux,44+Uy,"EF",0 Then
Else
    Call 捡东西()
        Call 加血()
        Goto 选怪
End If
    KeyPress "D", 1
    Delay 500
    KeyPress "E", 1
    Delay 300
    KeyPress "R", 1
    Delay 300
    KeyPress "F", 1
    Delay 300
        IfColor 120+Ux,Uy+44,"4B4BDB",1 Then
    KeyPress ";", 1
Else
End If
        IfColor 206+Ux,44+Uy,"EF",0 Then
Else
    Call 捡东西()
        Call 加血()
        Goto 选怪
End If
    KeyPress "T", 1
    Delay 300
    KeyPress "Y", 1
    Delay 300
    KeyPress "G", 1
    Delay 300
    KeyPress "U", 1
    Delay 300