//峨眉清心
    If EMjiaxue = 0 Then 
    Else 
        If 自有血>0 and 自有血 < EMjiaxue * 10 Then 
            Call Plugin.Window.Active(Hwnd)
            moveto dx+45,dy+45
            Delay 30
            LeftClick 2
            Call Plugin.Bkgnd.KeyPress(Hwnd, 117)
            goto 防卡死
        End If	
    End If
    If BBjiaxue = 0 Then 
    Else 
        If 宠物血>0 and 宠物血 < BBjiaxue * 10 Then 
            Call Plugin.Bkgnd.KeyPress(Hwnd, 120)
            goto 防卡死
        End If	
    End If
End Sub
Sub 查怪色
    //无0灰1绿2红3
    dm_ret = dm.FindColor(xl + 281, yl + 36, xl + 290, yl + 60, "097b04", 0.9, 0, X, Y)
    If x > 0 and y > 0 Then 
        怪色=2
    Else 
        dm_ret = dm.FindColor(xl + 281, yl + 36, xl + 290, yl + 60, "7d0804", 0.9, 0, X, Y)
        If x > 0 and y >0 Then 
            怪色 = 3
        Else 
            dm_ret = dm.FindColor(xl + 281, yl + 36, xl + 290, yl + 60, "949493", 0.9, 0, X, Y)
            If x >0 and y > 0 Then 
                怪色 = 1
            Else 
                怪色=0
            End If 
        End If   
    End If
End Sub
Sub 查怪血
    //无血0满血2红血1
    dm_ret = dm.FindColor(xl + 454, yl + 58, xl + 455, yl + 60, "D90A00", 1.0, 0, x1, y1)
    If x1 >= 0 and y1 >= 0 Then
        怪血 = 2
        xuex1=9999
    Else 
        dm_ret = dm.FindColor(xl + 281, yl + 58, xl + 282, yl + 60, "1E1E1E", 0.9, 0, X1, Y1)
        If x1 >= 0 and y1 >= 0 Then
            怪血 = 0
            xuex1=0
        Else 
            dm_ret = dm.FindColor(xl + 281, yl + 58, xl + 455, yl + 60, "D90A00", 0.9, 0, X1, Y1)
            If X1 >= 0 and Y1 >= 0 Then 
                怪血 = 1
                dm_ret = dm.FindColor(xl + 281, yl + 58, xl + 455, yl + 60, "1E1E1E", 0.9, 0, X1, Y1)
                If x1 >= 0 and y1 >= 0 Then
                    xuex1=x1
                End If
            End If
        End If
    End If
End Sub
Sub 选怪打怪
    //选怪模式
    Rem 重新选怪
    If datediff("s", xgt, now) >= 60 Then 
        Call 按键选怪
        Goto 本轮结束
    End If    
    If DaGmoshi = 0 Then 
        Call 查怪色
        call 查怪血
        If 怪色 = 0 or 怪色 = 1 or 怪血=0 Then 
            Call 按键选怪
            Goto 重新选怪
        Else 
            call 打怪
        End If     
    ElseIf DaGmoshi = 1 Then
        Call 查怪色
        Call 查怪血
        If 怪色 = 0 or 怪色 = 1 or 怪血=0 Then 
            Call 按键选怪
            goto 重新选怪
        Else 
            //无0灰1绿2红3，无血0满血2红血1无0灰1绿2红3
            Call Plugin.Msg.ShowScrTXT(xl + 5, yl + 5, 1024, yl + 25, "怪色:" & 怪色 & ".怪血:" & 怪血 & ".", "000000")
            Call 打怪
            // TracePrint datediff("s", xgt, now)
            If datediff("s", xgt, now) >= 0 and datediff("s", xgt, now) <= 2 Then 
                Call 查怪血
                xuex2 = xuex1
            End If
            If datediff("s", xgt, now) >= 4 Then 
                Call 查怪血
                xuex3 = xuex1
                If xuex3 = xuex2 Then 
                    Call 按键选怪
                    Goto 本轮结束
                End If