Select Case .priv

                                Case 0

                                    If .Invisible = True Then

                                        If .Criminal = 1 Then
                                        ElseIf .Criminal = 1 Then
                                            Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, CaosClan)
                                        ElseIf .Criminal = 2 Then
                                            Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Caos)
                                        ElseIf .Criminal = 3 Then
                                            Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, White)
                                        ElseIf .Criminal = 4 Then
                                            Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Real)
                                        ElseIf .Criminal = 5 Then
                                            Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Tini)
                                        Else
                                            Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, RealClan)
                                        End If

                                        Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, VerdeF)

                                    ElseIf .Criminal = 1 Then ' Crimi comun
                                        longToArray Color, ColoresPJ(50)
                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Caos)
                                        Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, CaosClan)

                                    ElseIf .Criminal = 2 Then ' Templario
                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Caos)
                                        Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, CaosClan)


                                    ElseIf .Criminal = 3 Then ' Templario
                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, White)
                                        Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, RealClan)

                                    ElseIf .Criminal = 4 Then ' Clero
                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Real)
                                        Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, RealClan)


                                    ElseIf .Criminal = 5 Then ' Namesis
                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Tini)
                                        Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, CaosClan)

                                    Else
                                        longToArray Color, ColoresPJ(49)
                                        Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Real)
                                        Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, RealClan)

                                    End If

                                Case 25  'admin
                                    longToArray ColorClan, D3DColorXRGB(255, 128, 64)
                                    Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, ColorClan)
                                    Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 45, sClan, ColorClan)

                                Case Else 'el resto
                                    longToArray Color, ColoresPJ(.priv)
                                    Call Text_Draw(PixelOffSetX - lCenter, PixelOffSetY + 30, Line, Color)

                                    longToArray ColorClan, D3DColorXRGB(255, 128, 64)
                                    Call Text_Draw(PixelOffSetX - lCenterClan, PixelOffSetY + 40, sClan, ColorClan)

                            End Select