Assunto: Mudando a cor do nome do pet (Do acesso) Sáb 25 Jun 2011, 11:45
Começando
Client~Side
Procure pela sub:
Código:
Sub BltPetName(ByVal Index As Long)
Nessa parte:
Código:
' Check access level If GetPlayerPK(Index) = NO Then Select Case GetPlayerAccess(Index) Case 0 Color = QBColor(Brown) Case 1 Color = QBColor(BrightBlue) Case 2 Color = QBColor(DarkGrey) Case 3 Color = QBColor(Blue) Case 4 Color = QBColor(Pink) End Select Else Color = QBColor(BrightRed) End If
Você escolhe a cor dos acessos, tipo:
Código:
' Check access level If GetPlayerPK(Index) = NO Then Select Case GetPlayerAccess(Index) Case 0 Color = QBColor(Cor do acesso 1 em Ingles) Case 1 Color = QBColor(Cor do acesso 2 em Ingles) Case 2 Color = QBColor(Cor do acesso 3 em Ingles) Case 3 Color = QBColor(Cor do acesso 4 em Ingles) Case 4 Color = QBColor(Cor do acesso 5 em Ingles) End Select Else Color = QBColor(BrightRed) End If