End If   
        end if
    ElseIf DaGmoshi = 2 Then
        Call 按键选怪
        Call 查怪色
        call 查怪血
        If 怪色 = 0 or 怪色 = 1 or 怪血=0 Then 
            goto 重新选怪
        Else 
            Call 打怪
        end if
    End If
    rem 本轮结束
End Sub
Sub 按键选怪
    If QHTmoshi=0 then
        Call Plugin.Window.Active(Hwnd)
        If zhaoguai=0 then
            KeyDown "Ctrl", 1
            Delay 10
            KeyPress "Tab", 1
            Delay 10
            KeyUp "Ctrl", 1
            Delay 10
        Else 
            KeyPress "F11", 1
            Delay 10
        End If
    Else 
        Call Plugin.Bkgnd.KeyPress(Hwnd, 122)
        Delay 10
    End If
    Delay 50
    xgt=now
End Sub
Sub 打怪
    djt = now
    If QHTmoshi=0 then
        Call Plugin.Window.Active(Hwnd)
        While datediff("s", djt, now) < 1
            KeyPress 112, 1
            Delay 300
        Wend
    Else 
        While datediff("s", djt, now) < 1
            Call Plugin.Bkgnd.KeyPress(Hwnd, 112)
            Delay 300
        Wend
    end if
End Sub
sub 获取客户区
    tlflag=1
    while tlflag=1
        Hwnd = Plugin.Window.Foreground()
        sText = Plugin.Window.GetText(Hwnd)
        If InStr(sText,"天龙八部OL") > 0 Then
            WRect=Plugin.Window.GetWindowRect(hwnd)
            WinArray=Split(WRect,"|",-1,1)
            XL=WinArray(0)
            YL=WinArray(1)
            XR=WinArray(2)
            YR=WinArray(3)
            winRect=Plugin.Window.GetClientRect(hwnd)
            winPoint = Split(winRect, "|", -1, 1)
            DX = CInt(winPoint(0))
            DY = CInt(winPoint(1))
            Call Plugin.Window.Active(Hwnd)
            tlflag=2
        else
            delay 200
        End if
    wend
End Sub
Sub 识别等级
    rwdj = dm.Ocr(DX+64, Dy+57, DX+89, Dy+70, "ded784-000000|bfba74-000000", 0.9)
    //rwdj = dm.Ocr(DX + 73, Dy + 73, DX + 97, Dy + 86, "ded784-000000|bfba74-000000", 0.9)
    If IsNumeric(rwdj)=False Then
        sbrfdj = 0
    Else 
        sbrfdj = 1
    End If
    If sbrfdj = 1 Then 
    Else 
        For 3
            Beep 
            delay 50
        Next
        MessageBox "请检查游戏:是否显示2D头像,是否显示32色,然后重新开始本程序"
    End If
End Sub
sub 识别坐标
    //识别所站位置坐标
    XY=Plugin.Color.FindShape(xl,yl,xr,yr,"1|0|1,2|0|1,0|1|0,1|1|0,2|1|0,47|1|0,48|1|0,49|1|1,50|1|1,51|1|0,52|1|0,53|1|0,54|1|0,55|1|0,56|1|0,57|1|0,0|2|0,1|2|0,2|2|0,47|2|0,48|2|0,49|2|0,50|2|1,51|2|1,52|2|0,53|2|0,54|2|0,55|2|0,56|2|0,57|2|0,0|3|1,1|3|1,2|3|1,47|3|1,48|3|1,49|3|0,50|3|0,51|3|1,52|3|1,53|3|0,54|3|0,55|3|0,56|3|0,57|3|0,47|4|0,48|4|0,49|4|0,50|4|0,51|4|0,52|4|0,53|4|0,54|4|0,55|4|0,56|4|0,57|4|0",1)
    ZB = InStr(XY,"|")
    aX = Clng(Left(XY, ZB - 1)): aY = Clng(Right(XY, Len(XY) - ZB))
    TracePrint ax
    TracePrint ay
    If aX > 0 And aY > 0 Then 
        zb11 = dm.Ocr(ax-5,ay+1,ax+22,ay+18, "fdff73-000000", 1.0)
        zb12 = dm.Ocr(ax+22,ay+1,ax+48 ,ay+18, "fdff73-000000", 1.0)