IfColor hong*108/100+Ux+81,Uy+44,"4B4BDB",1 Then
            FindPic Ux,Uy+53,Ux+26,Uy+79,"Attachment:\战斗状态.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Else 
                        KeyPress "=", 1
                        End If
                            End If
    End Sub