Código:

Public Sub DrawPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim color As Long
Dim Name As String, Level As String
Dim Text2X As Long
Dim Text2Y As Long
Dim GuildString As String

    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    ' Check access level
 '  If GetPlayerPK(Index) = NO Then
        Select Case GetPlayerAccess(Index)
            Case 0
                color = QBColor(BrightGreen)
            Case 1
                color = QBColor(DarkGrey)
            Case 2
                color = QBColor(White)
            Case 3
                color = QBColor(BrightGreen)
            Case 4
                color = QBColor(Yellow)
        End Select
        If Player(Index).Kill > 1 And Player(Index).Kill < 10 Then
      color = QBColor(Red)
      ElseIf Player(Index).Kill > 10 And Player(Index).Kill < 20 Then
      color = QBColor(BrightRed)
ElseIf Player(Index).Kill > 20 And Player(Index).Kill < 40 Then
      color = QBColor(Blue)
ElseIf Player(Index).Kill > 20 And Player(Index).Kill < 60 Then
      color = QBColor(BrightBlue)
ElseIf Player(Index).Kill > 60 And Player(Index).Kill < 200 Then
      color = QBColor(BrightCyan)
ElseIf Player(Index).Kill > 200 And Player(Index).Kill < 500 Then
      color = QBColor(White)
      ElseIf Player(Index).Kill > 500 And Player(Index).Kill < 1000 Then
      color = QBColor(Magenta)
      ElseIf Player(Index).Kill > 1000 And Player(Index).Kill < 2000 Then
      color = QBColor(Pink)
End If
      '  Else
      '  color = QBColor(BrightRed)
    'End If

    Name = Trim$(Player(Index).Name)
    Level = "Lv." & Trim$(GetPlayerLevel(Index) & ": ")

    ' calc pos

    TextX = ConvertMapX(GetPlayerX(Index) * PIC_X / 1) + Player(Index).XOffset + (PIC_X / 2) - getWidth(TexthDC, (Trim$(Level & Name)))

    GuildString = Player(Index).GuildName

    Text2X = ConvertMapX(GetPlayerX(Index) * PIC_X / 1) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GuildString)))

    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
Text2Y = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16
Else
' Determine location for text
TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 3) + 26
Text2Y = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 2.8) + 0
End If


    ' Draw name
    Call DrawText(TexthDC, TextX, TextY, Level & Name, color)

    If Not Player(Index).GuildName = vbNullString Then
      Call DrawText(TexthDC, Text2X, Text2Y, GuildString, QBColor(BrightCyan))
    End If

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "DrawPlayerName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

Pablo Kawan escreveu:Cara, isso está mal explicado '-'
 Você quer alterar o nick de quem morreu ou de quem matou ?