Mirage Source

frmMirage.labelclass.caption = GetPlayerClass(MyIndex)

.caption = ConvertToText(GetPlayerClass(Index), CTT_CLASS)

Function ConvertToText(value, type) As String
   If type = CTT_CLASS Then
         select case value
                case 0
                       ConvertToText =  "warrior"
                case 1
                       ConvertToText = "mage"
                ...
          end select
    ElseIf type = CTT_PLROPTION Then
          ...
    Else
         ...
    EndIf
End Function

Sub BltPlayerName(ByVal Index As Long)
Dim TextX As Long
Dim TextY As Long
Dim Color As Long
   
Select Case GetPlayerClass(Index)
Case 0
Color = QBColor(Cyan)
Case 1
Color = QBColor(Green)
Case 2
Color = QBColor(Yellow)
Case 3
Color = QBColor(Black)
End Select
   
    ' Draw name
    TextX = GetPlayerX(Index) * PIC_X + Player(Index).XOffset + Int(PIC_X / 2) - ((Len(GetPlayerName(Index)) / 2) * 8)
    TextY = GetPlayerY(Index) * PIC_Y + Player(Index).YOffset - Int(PIC_Y / 2) - 4
    Call DrawText(TexthDC, TextX, TextY, GetPlayerName(Index), Color)
End Sub