Tutorial Sistema de Titulo ( Visual , Sem Atributos )

Public Sub DrawPlayerName(ByVal Index As Long)

End Sub

Public Sub DrawTitulo(ByVal Index As Long)
Dim Titulo As String
Dim adm As String
Dim n(1 To MAX_PLAYERS) As String
Dim Name As String
Dim TextX As Long
Dim TextY As Long
'If Options.Debug = 1 Then On Error GoTo errohandler


TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(n(Index) & Name)))
    If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset
    Else
        ' Determine location for text
        TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4)
    End If


If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If


If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If



If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If



If GetPlayerLevel(Index) <= X Then ' X = Level Do Titulo
        Titulo = "Nome do Titulo"
    End If


    Call DrawText(TexthDC, ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Titulo))), TextY - 18, Titulo, QBColor(Blue))


End Sub

For I = 1 To Player_HighIndex

Call DrawPlayerName(I)
            If CurX = GetPlayerX(I) And CurY = GetPlayerY(I) Then

Call DrawTitulo(I)