> If your name so away from your character. > > Try this. > > Search: > > ``` > Public Sub DrawPlayerName(ByVal Index As Long) > > ``` > Delete sub and paste; > ``` > Public Sub DrawPlayerName(ByVal Index As Long) > Dim TextX As Long > Dim TextY As Long > Dim Color As Long > Dim sTag As String > > ' Check access level > If GetPlayerPK(Index) = NO Then > > Select Case GetPlayerAccess(Index) > Case 0 > Color = RGB(255, 96, 0) > sTag = vbNullString > Case 1 > Color = QBColor(BrightCyan) > sTag = "[Gm.1] " > Case 2 > Color = QBColor(BrightCyan) > sTag = "[Gm.2] " > Case 3 > Color = QBColor(BrightGreen) > sTag = "[Gm.3] " > Case 4 > Color = RGB(150, 52, 226) > sTag = "[DEV] " > End Select > > Else > Color = QBColor(BrightRed) > End If > > If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then > TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(sTag & GetPlayerName(Index)))) > TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 128 > Else > TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(sTag & GetPlayerName(Index)))) > TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight) + 128 > End If > > Call DrawText(TexthDC, TextX, TextY, sTag & GetPlayerName(Index), Color) > End Sub > > ``` Thx. It works :)